changed reading hint
[gromacs/adressmacs.git] / src / gmxlib / CRAY2.m4
blobae960883dde9f7fc819d34af493bb4b9dc144f46
1 #include <fortran.h>
3 undefine(`len')
4 define(`FUNCTION',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)')
5 define(`STRING_ARG',`$1_fcd')
6 define(`STRING_ARG_DECL',`_fcd $1_fcd')
7 define(`STRING_LEN',`_fcdlen($1_fcd)')
8 define(`STRING_PTR',`_fcdtocp($1_fcd)')
9 define(`ARGS',`($1)')