src/gmxlib/TITN.m4

   1 divert(-1)
   2 undefine(`len')
   3 #
   4 # FORTRAN function names are in upper case
   5 #
   6 define(`FUNCTION',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)')
   7 #
   8 # The Titan uses a special string descriptor to pass strings in FORTRAN.
   9 # The descriptor is passed by reference.
  10 #
  11 divert(0)
  12 typedef struct { char *ptr; int length; } FSD;
  13 divert(-1)
  14 define(`STRING_ARG',`$1_fsd')
  15 define(`STRING_ARG_DECL',`FSD * $1_fsd')
  16 define(`STRING_LEN',`($1_fsd)->length')
  17 define(`STRING_PTR',`($1_fsd)->ptr')
  18 define(`ARGS',`($1)')
  19 divert(0)