All systems: | {int f77dims[1];f77dims[0]=nels; |
cnfImpla(farg,carg,1,f77dims);} |
type POINTER will expand as follows:
All systems: | {int f77i;for(f77i=0;nels>f77i;f77i++){ |
carg[f77i]=cnfCptr(farg[f77i]); }} |
All other types will expand as follows:
All systems: | carg=farg |
CNF and F77 Mixed Language Programming -- FORTRAN and C