repo.or.cz
/
gromacs
/
adressmacs.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
changed reading hint
[gromacs/adressmacs.git]
/
src
/
gmxlib
/
CRAY2.m4
blob
ae960883dde9f7fc819d34af493bb4b9dc144f46
1
#include <fortran.h>
2
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)')