1 | divert(-1)
   2 | #
   3 | # New quotes are `[' and `]'
   4 | # --- ------ --- -----------
   5 | #
   6 | changequote
   7 | changequote([, ])
   8 | 
   9 | #
  10 | # include kpl.inc only once, and protect FORTRAN & other m4 includes
  11 | # ------- ------- ---- ----- --- ------- -------   ----- -- --------
  12 | #
  13 | ifdef([getfile],,define([getfile], defn([include])))dnl
  14 | define([include],[ifelse($1,[dom.inc],,$1,,[[include]],[getfile($1)])])
  15 | 
  16 | #
  17 | # Define data types:
  18 | #
  19 | define(WHYDOINEEDTHIS1,0)
  20 | define(KPL_CHAR_PREC,80)
  21 | define(KPL_PTR_PREC,8)
  22 | define(DOM_INT,integer)
  23 | define(DOM_REAL,real*8)
  24 | define(DOM_SINGLE,real*4)
  25 | define(DOM_DBLE,double precision)
  26 | define(DOM_STR80,character*80)
  27 | define(DOM_STR20,character*20)
  28 | define(DOM_CHAR,character)
  29 | define(DOM_PTR,integer*8)
  30 | define(WHYDOINEEDTHIS2,0)
  31 | divert