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