divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
# once used to provide macros for fortran algms -- now obsolete
define(`TRUE',.true.)define(`FALSE',.false.)
define(`ROUTINE',`define(`PNAME',`$1')dnl
define(`Lnum',7777)dnl
c$1   --   shift($*)')
define(`ERROR',`call cenerr("PNAME: $1",eval(len($1)+len(PNAME)+2)
     +,ifelse($2,,`" ",0',`"$2",len($2)')
     +,ifelse($3,,TRUE,$3,FATAL,TRUE,$3,WARNING,FALSE,$3))')
define(`POSARG',`dnl
      if($1 .gt. 0) goto Lnum
      if($1 .lt. 0) ERROR($1 less than zero,$2,FATAL)
      if($1 .eq. 0) ERROR($1 equals zero,$2,WARNING)
      return
 Lnum continue
define(`Lnum',incr(Lnum))dnl
c')
define(`PROBCK',`dnl
      if($1 .gt. 0.0 .and. $1 .lt. 1.0) goto Lnum
      if($1 .eq. 0.0) ERROR($1 equal zero,$2,WARNING)
      if($1 .lt. 0.0) ERROR($1 less than zero,$2,FATAL)
      if($1 .eq. 1.0) ERROR($1 equal one,$3,WARNING)
      if($1 .gt. 1.0) ERROR($1 greater than one,$3,FATAL)
      return
 Lnum continue
define(`Lnum',incr(Lnum))dnl
c')
divert(0)dnl
SCCS_ID(98516,`@(#)'fort.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
