Main Page | Namespace List | Class Hierarchy | Alphabetical List | Class List | File List | Class Members | File Members | Search for 

ncdf4a13/fortran/cfortran.h

Go to the documentation of this file.
00001 /* cfortran.h  4.3 */
00002 /* http://www-zeus.desy.de/~burow/cfortran/                   */
00003 /* Burkhard Burow  burow@desy.de                 1990 - 2001. */
00004 
00005 #ifndef __CFORTRAN_LOADED
00006 #define __CFORTRAN_LOADED
00007 
00008 /* 
00009    THIS FILE IS PROPERTY OF BURKHARD BUROW. IF YOU ARE USING THIS FILE YOU
00010    SHOULD ALSO HAVE ACCESS TO CFORTRAN.DOC WHICH PROVIDES TERMS FOR USING,
00011    MODIFYING, COPYING AND DISTRIBUTING THE CFORTRAN.H PACKAGE.
00012 */
00013 
00014 /* 
00015   Avoid symbols already used by compilers and system *.h:
00016   __ - OSF1 zukal06 V3.0 347 alpha, cc -c -std1 cfortest.c
00017 
00018  */
00019 
00020 
00021 /* First prepare for the C compiler. */
00022 
00023 #ifndef ANSI_C_preprocessor /* i.e. user can override. */
00024 #ifdef __CF__KnR
00025 #define ANSI_C_preprocessor 0
00026 #else
00027 #ifdef __STDC__
00028 #define ANSI_C_preprocessor 1
00029 #else
00030 #define _cfleft             1
00031 #define _cfright 
00032 #define _cfleft_cfright     0
00033 #define ANSI_C_preprocessor _cfleft/**/_cfright
00034 #endif
00035 #endif
00036 #endif
00037 
00038 #if ANSI_C_preprocessor
00039 #define _0(A,B)   A##B
00040 #define  _(A,B)   _0(A,B)  /* see cat,xcat of K&R ANSI C p. 231 */
00041 #define _2(A,B)   A##B     /* K&R ANSI C p.230: .. identifier is not replaced */
00042 #define _3(A,B,C) _(A,_(B,C))
00043 #else                      /* if it turns up again during rescanning.         */
00044 #define  _(A,B)   A/**/B
00045 #define _2(A,B)   A/**/B
00046 #define _3(A,B,C) A/**/B/**/C
00047 #endif
00048 
00049 #if (defined(vax)&&defined(unix)) || (defined(__vax__)&&defined(__unix__))
00050 #define VAXUltrix
00051 #endif
00052 
00053 #include <stdio.h>     /* NULL [in all machines stdio.h]                      */
00054 #include <string.h>    /* strlen, memset, memcpy, memchr.                     */
00055 #if !( defined(VAXUltrix) || defined(sun) || (defined(apollo)&&!defined(__STDCPP__)) )
00056 #include <stdlib.h>    /* malloc,free                                         */
00057 #else
00058 #include <malloc.h>    /* Had to be removed for DomainOS h105 10.4 sys5.3 425t*/
00059 #ifdef apollo
00060 #define __CF__APOLLO67 /* __STDCPP__ is in Apollo 6.8 (i.e. ANSI) and onwards */
00061 #endif
00062 #endif
00063 
00064 #if !defined(__GNUC__) && !defined(__sun) && (defined(sun)||defined(VAXUltrix)||defined(lynx))
00065 #define __CF__KnR     /* Sun, LynxOS and VAX Ultrix cc only supports K&R.     */
00066                       /* Manually define __CF__KnR for HP if desired/required.*/
00067 #endif                /*       i.e. We will generate Kernighan and Ritchie C. */
00068 /* Note that you may define __CF__KnR before #include cfortran.h, in order to
00069 generate K&R C instead of the default ANSI C. The differences are mainly in the
00070 function prototypes and declarations. All machines, except the Apollo, work
00071 with either style. The Apollo's argument promotion rules require ANSI or use of
00072 the obsolete std_$call which we have not implemented here. Hence on the Apollo,
00073 only C calling FORTRAN subroutines will work using K&R style.*/
00074 
00075 
00076 /* Remainder of cfortran.h depends on the Fortran compiler. */
00077 
00078 #if defined(CLIPPERFortran) || defined(pgiFortran) || defined(__CYGWIN32__)
00079 #ifndef f2cFortran
00080 #define f2cFortran
00081 #endif
00082 #endif
00083 
00084 /* VAX/VMS does not let us \-split long #if lines. */ 
00085 /* Split #if into 2 because some HP-UX can't handle long #if */
00086 #if !(defined(NAGf90Fortran)||defined(f2cFortran)||defined(hpuxFortran)||defined(apolloFortran)||defined(sunFortran)||defined(IBMR2Fortran)||defined(CRAYFortran)||defined(PATHSCALE_COMPILER))
00087 #if !(defined(mipsFortran)||defined(DECFortran)||defined(vmsFortran)||defined(CONVEXFortran)||defined(PowerStationFortran)||defined(AbsoftUNIXFortran)||defined(AbsoftProFortran)||defined(SXFortran))
00088 /* If no Fortran compiler is given, we choose one for the machines we know.   */
00089 #if defined(lynx) || defined(VAXUltrix)
00090 #define f2cFortran    /* Lynx:      Only support f2c at the moment.
00091                          VAXUltrix: f77 behaves like f2c.
00092                            Support f2c or f77 with gcc, vcc with f2c. 
00093                            f77 with vcc works, missing link magic for f77 I/O.*/
00094 #endif
00095 #if defined(__hpux)             /* 921107: Use __hpux instead of __hp9000s300 */
00096 #define       hpuxFortran       /*         Should also allow hp9000s7/800 use.*/
00097 #endif
00098 #if       defined(apollo)
00099 #define           apolloFortran /* __CF__APOLLO67 also defines some behavior. */
00100 #endif
00101 #if          defined(sun) || defined(__sun) 
00102 #define              sunFortran
00103 #endif
00104 #if       defined(_IBMR2)
00105 #define            IBMR2Fortran
00106 #endif
00107 #if        defined(_CRAY)
00108 #define             CRAYFortran /*       _CRAYT3E also defines some behavior. */
00109 #endif
00110 #if        defined(_SX)
00111 #define               SXFortran
00112 #endif
00113 #if         defined(mips) || defined(__mips)
00114 #define             mipsFortran
00115 #endif
00116 #if          defined(vms) || defined(__vms)
00117 #define              vmsFortran
00118 #endif
00119 #if      defined(__alpha) && defined(__unix__)
00120 #define              DECFortran
00121 #endif
00122 #if   defined(__convex__)
00123 #define           CONVEXFortran
00124 #endif
00125 #if   defined(VISUAL_CPLUSPLUS)
00126 #define     PowerStationFortran
00127 #endif
00128 #if   defined(__PATHCC__)
00129 #define     PATHSCALE_COMPILER
00130 #endif
00131 #endif /* ...Fortran */
00132 #endif /* ...Fortran */
00133 
00134 /* Split #if into 2 because some HP-UX can't handle long #if */
00135 #if !(defined(NAGf90Fortran)||defined(f2cFortran)||defined(hpuxFortran)||defined(apolloFortran)||defined(sunFortran)||defined(IBMR2Fortran)||defined(CRAYFortran)||defined(PATHSCALE_COMPILER))
00136 #if !(defined(mipsFortran)||defined(DECFortran)||defined(vmsFortran)||defined(CONVEXFortran)||defined(PowerStationFortran)||defined(AbsoftUNIXFortran)||defined(AbsoftProFortran)||defined(SXFortran))
00137 /* If your compiler barfs on ' #error', replace # with the trigraph for #     */
00138  #error "cfortran.h:  Can't find your environment among:\
00139     - MIPS cc and f77 2.0. (e.g. Silicon Graphics, DECstations, ...)     \
00140     - IBM AIX XL C and FORTRAN Compiler/6000 Version 01.01.0000.0000     \
00141     - VAX   VMS CC 3.1 and FORTRAN 5.4.                                  \
00142     - Alpha VMS DEC C 1.3 and DEC FORTRAN 6.0.                           \
00143     - Alpha OSF DEC C and DEC Fortran for OSF/1 AXP Version 1.2          \
00144     - Apollo DomainOS 10.2 (sys5.3) with f77 10.7 and cc 6.7.            \
00145     - CRAY                                                               \
00146     - NEC SX-4 SUPER-UX                                                  \
00147     - CONVEX                                                             \
00148     - Sun                                                                \
00149     - PowerStation Fortran with Visual C++                               \
00150     - HP9000s300/s700/s800 Latest test with: HP-UX A.08.07 A 9000/730    \
00151     - LynxOS: cc or gcc with f2c.                                        \
00152     - VAXUltrix: vcc,cc or gcc with f2c. gcc or cc with f77.             \
00153     -            f77 with vcc works; but missing link magic for f77 I/O. \
00154     -            NO fort. None of gcc, cc or vcc generate required names.\
00155     - f2c    : Use #define    f2cFortran, or cc -Df2cFortran             \
00156     - NAG f90: Use #define NAGf90Fortran, or cc -DNAGf90Fortran          \
00157     - Absoft UNIX F77: Use #define AbsoftUNIXFortran or cc -DAbsoftUNIXFortran \
00158     - Absoft Pro Fortran: Use #define AbsoftProFortran \
00159     - Portland Group Fortran: Use #define pgiFortran \
00160     - PathScale Fortran: Use #define PATHSCALE_COMPILER"
00161 /* Compiler must throw us out at this point! */
00162 #endif
00163 #endif
00164 
00165 
00166 #if defined(VAXC) && !defined(__VAXC)
00167 #define OLD_VAXC
00168 #pragma nostandard                       /* Prevent %CC-I-PARAMNOTUSED.       */
00169 #endif
00170 
00171 /* Throughout cfortran.h we use: UN = Uppercase Name.  LN = Lowercase Name.   */
00172 
00173 #if defined(f2cFortran) || defined(NAGf90Fortran) || defined(DECFortran) || defined(mipsFortran) || defined(apolloFortran) || defined(sunFortran) || defined(CONVEXFortran) || defined(SXFortran) || defined(extname) || defined(PATHSCALE_COMPILER)
00174 #define CFC_(UN,LN)            _(LN,_)      /* Lowercase FORTRAN symbols.     */
00175 #define orig_fcallsc(UN,LN)    CFC_(UN,LN)
00176 #else 
00177 #if defined(CRAYFortran) || defined(PowerStationFortran) || defined(AbsoftProFortran)
00178 #ifdef _CRAY          /* (UN), not UN, circumvents CRAY preprocessor bug.     */
00179 #define CFC_(UN,LN)            (UN)         /* Uppercase FORTRAN symbols.     */
00180 #else                 /* At least VISUAL_CPLUSPLUS barfs on (UN), so need UN. */
00181 #define CFC_(UN,LN)            UN           /* Uppercase FORTRAN symbols.     */
00182 #endif
00183 #define orig_fcallsc(UN,LN)    CFC_(UN,LN)  /* CRAY insists on arg.'s here.   */
00184 #else  /* For following machines one may wish to change the fcallsc default.  */
00185 #define CF_SAME_NAMESPACE
00186 #ifdef vmsFortran
00187 #define CFC_(UN,LN)            LN           /* Either case FORTRAN symbols.   */
00188      /* BUT we usually use UN for C macro to FORTRAN routines, so use LN here,*/
00189      /* because VAX/VMS doesn't do recursive macros.                          */
00190 #define orig_fcallsc(UN,LN)    UN
00191 #else      /* HP-UX without +ppu or IBMR2 without -qextname. NOT reccomended. */
00192 #define CFC_(UN,LN)            LN           /* Lowercase FORTRAN symbols.     */
00193 #define orig_fcallsc(UN,LN)    CFC_(UN,LN)
00194 #endif /*  vmsFortran */
00195 #endif /* CRAYFortran PowerStationFortran */
00196 #endif /* ....Fortran */
00197 
00198 #define fcallsc(UN,LN)               orig_fcallsc(UN,LN)
00199 #define preface_fcallsc(P,p,UN,LN)   CFC_(_(P,UN),_(p,LN))
00200 #define  append_fcallsc(P,p,UN,LN)   CFC_(_(UN,P),_(LN,p))
00201 
00202 #define C_FUNCTION(UN,LN)            fcallsc(UN,LN)      
00203 #define FORTRAN_FUNCTION(UN,LN)      CFC_(UN,LN)
00204 
00205 #ifndef COMMON_BLOCK
00206 #ifndef CONVEXFortran
00207 #ifndef CLIPPERFortran
00208 #if     !(defined(AbsoftUNIXFortran)||defined(AbsoftProFortran))
00209 #define COMMON_BLOCK(UN,LN)          CFC_(UN,LN)
00210 #else
00211 #define COMMON_BLOCK(UN,LN)          _(_C,LN)
00212 #endif  /* AbsoftUNIXFortran or AbsoftProFortran */
00213 #else
00214 #define COMMON_BLOCK(UN,LN)          _(LN,__)
00215 #endif  /* CLIPPERFortran */
00216 #else
00217 #define COMMON_BLOCK(UN,LN)          _3(_,LN,_)
00218 #endif  /* CONVEXFortran */
00219 #endif  /* COMMON_BLOCK */
00220 
00221 #ifndef DOUBLE_PRECISION
00222 #if defined(CRAYFortran) && !defined(_CRAYT3E)
00223 #define DOUBLE_PRECISION long double
00224 #else
00225 #define DOUBLE_PRECISION double
00226 #endif
00227 #endif
00228 
00229 #ifndef FORTRAN_REAL
00230 #if defined(CRAYFortran) &&  defined(_CRAYT3E)
00231 #define FORTRAN_REAL double
00232 #else
00233 #define FORTRAN_REAL float
00234 #endif
00235 #endif
00236 
00237 #ifdef CRAYFortran
00238 #ifdef _CRAY
00239 #include <fortran.h>
00240 #else
00241 #include "fortran.h"  /* i.e. if crosscompiling assume user has file. */
00242 #endif
00243 #define FLOATVVVVVVV_cfPP (FORTRAN_REAL *)   /* Used for C calls FORTRAN.     */
00244 /* CRAY's double==float but CRAY says pointers to doubles and floats are diff.*/
00245 #define VOIDP  (void *)  /* When FORTRAN calls C, we don't know if C routine 
00246                             arg.'s have been declared float *, or double *.   */
00247 #else
00248 #define FLOATVVVVVVV_cfPP
00249 #define VOIDP
00250 #endif
00251 
00252 #ifdef vmsFortran
00253 #if    defined(vms) || defined(__vms)
00254 #include <descrip.h>
00255 #else
00256 #include "descrip.h"  /* i.e. if crosscompiling assume user has file. */
00257 #endif
00258 #endif
00259 
00260 #ifdef sunFortran
00261 #if defined(sun) || defined(__sun)
00262 #include <math.h>     /* Sun's FLOATFUNCTIONTYPE, ASSIGNFLOAT, RETURNFLOAT.  */
00263 #else
00264 #include "math.h"     /* i.e. if crosscompiling assume user has file. */
00265 #endif
00266 /* At least starting with the default C compiler SC3.0.1 of SunOS 5.3,
00267  * FLOATFUNCTIONTYPE, ASSIGNFLOAT, RETURNFLOAT are not required and not in
00268  * <math.h>, since sun C no longer promotes C float return values to doubles.
00269  * Therefore, only use them if defined.
00270  * Even if gcc is being used, assume that it exhibits the Sun C compiler
00271  * behavior in order to be able to use *.o from the Sun C compiler.
00272  * i.e. If FLOATFUNCTIONTYPE, etc. are in math.h, they required by gcc.
00273  */
00274 #endif
00275 
00276 #ifndef apolloFortran
00277 #define COMMON_BLOCK_DEF(DEFINITION, NAME) extern DEFINITION NAME
00278 #define CF_NULL_PROTO
00279 #else                                         /* HP doesn't understand #elif. */
00280 /* Without ANSI prototyping, Apollo promotes float functions to double.    */
00281 /* Note that VAX/VMS, IBM, Mips choke on 'type function(...);' prototypes. */
00282 #define CF_NULL_PROTO ...
00283 #ifndef __CF__APOLLO67
00284 #define COMMON_BLOCK_DEF(DEFINITION, NAME) \
00285  DEFINITION NAME __attribute((__section(NAME)))
00286 #else
00287 #define COMMON_BLOCK_DEF(DEFINITION, NAME) \
00288  DEFINITION NAME #attribute[section(NAME)]
00289 #endif
00290 #endif
00291 
00292 #ifdef __cplusplus
00293 #undef  CF_NULL_PROTO
00294 #define CF_NULL_PROTO  ...
00295 #endif
00296 
00297 
00298 #ifndef USE_NEW_DELETE
00299 #ifdef __cplusplus
00300 #define USE_NEW_DELETE 1
00301 #else
00302 #define USE_NEW_DELETE 0
00303 #endif
00304 #endif
00305 #if USE_NEW_DELETE
00306 #define _cf_malloc(N) new char[N]
00307 #define _cf_free(P)   delete[] P
00308 #else
00309 #define _cf_malloc(N) (char *)malloc(N)
00310 #define _cf_free(P)   free(P)
00311 #endif
00312 
00313 #ifdef mipsFortran
00314 #define CF_DECLARE_GETARG         int f77argc; char **f77argv
00315 #define CF_SET_GETARG(ARGC,ARGV)  f77argc = ARGC; f77argv = ARGV
00316 #else
00317 #define CF_DECLARE_GETARG
00318 #define CF_SET_GETARG(ARGC,ARGV)
00319 #endif
00320 
00321 #ifdef OLD_VAXC                          /* Allow %CC-I-PARAMNOTUSED.         */
00322 #pragma standard                         
00323 #endif
00324 
00325 #define AcfCOMMA ,
00326 #define AcfCOLON ;
00327 
00328 /*-------------------------------------------------------------------------*/
00329 
00330 /*               UTILITIES USED WITHIN CFORTRAN.H                          */
00331 
00332 #define _cfMIN(A,B) (A<B?A:B)
00333 
00334 /* 970211 - XIX.145:
00335    firstindexlength  - better name is all_but_last_index_lengths
00336    secondindexlength - better name is         last_index_length
00337  */
00338 #define  firstindexlength(A) (sizeof(A[0])==1 ? 1 : (sizeof(A) / sizeof(A[0])) )
00339 #define secondindexlength(A) (sizeof(A[0])==1 ?      sizeof(A) : sizeof(A[0])  )
00340 
00341 /* Behavior of FORTRAN LOGICAL. All machines' LOGICAL is same size as C's int.
00342 Conversion is automatic except for arrays which require F2CLOGICALV/C2FLOGICALV.
00343 f2c, MIPS f77 [DECstation, SGI], VAX Ultrix f77,
00344 HP-UX f77                                        : as in C.
00345 VAX/VMS FORTRAN, VAX Ultrix fort,
00346 Absoft Unix Fortran, IBM RS/6000 xlf             : LS Bit = 0/1 = TRUE/FALSE.
00347 Apollo                                           : neg.   = TRUE, else FALSE. 
00348 [Apollo accepts -1 as TRUE for function values, but NOT all other neg. values.]
00349 [DECFortran for Ultrix RISC is also called f77 but is the same as VAX/VMS.]   
00350 [MIPS f77 treats .eqv./.neqv. as .eq./.ne. and hence requires LOGICAL_STRICT.]*/
00351 
00352 #if defined(NAGf90Fortran) || defined(f2cFortran) || defined(mipsFortran) || defined(PowerStationFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran) || defined(SXFortran) || defined(PATHSCALE_COMPILER)
00353 /* SX/PowerStationFortran have 0 and 1 defined, others are neither T nor F.   */
00354 /* hpuxFortran800 has 0 and 0x01000000 defined. Others are unknown.           */
00355 #define LOGICAL_STRICT      /* Other Fortran have .eqv./.neqv. == .eq./.ne.   */
00356 #endif
00357 
00358 #define C2FLOGICALV(A,I) \
00359  do {int __i; for(__i=0;__i<I;__i++) A[__i]=C2FLOGICAL(A[__i]); } while (0)
00360 #define F2CLOGICALV(A,I) \
00361  do {int __i; for(__i=0;__i<I;__i++) A[__i]=F2CLOGICAL(A[__i]); } while (0)
00362 
00363 #if defined(apolloFortran)
00364 #define C2FLOGICAL(L) ((L)?-1:(L)&~((unsigned)1<<sizeof(int)*8-1))
00365 #define F2CLOGICAL(L) ((L)<0?(L):0) 
00366 #else
00367 #if defined(CRAYFortran)
00368 #define C2FLOGICAL(L) _btol(L)
00369 #define F2CLOGICAL(L) _ltob(&(L))     /* Strangely _ltob() expects a pointer. */
00370 #else
00371 #if defined(IBMR2Fortran) || defined(vmsFortran) || defined(DECFortran) || defined(AbsoftUNIXFortran)
00372 /* How come no AbsoftProFortran ? */
00373 #define C2FLOGICAL(L) ((L)?(L)|1:(L)&~(int)1)
00374 #define F2CLOGICAL(L) ((L)&1?(L):0)
00375 #else
00376 #if defined(CONVEXFortran)
00377 #define C2FLOGICAL(L) ((L) ? ~0 : 0 )
00378 #define F2CLOGICAL(L) (L)
00379 #else   /* others evaluate LOGICALs as for C. */
00380 #define C2FLOGICAL(L) (L)
00381 #define F2CLOGICAL(L) (L)
00382 #ifndef LOGICAL_STRICT
00383 #undef  C2FLOGICALV
00384 #undef  F2CLOGICALV
00385 #define C2FLOGICALV(A,I)
00386 #define F2CLOGICALV(A,I)
00387 #endif  /* LOGICAL_STRICT                     */
00388 #endif  /* CONVEXFortran || All Others        */
00389 #endif  /* IBMR2Fortran vmsFortran DECFortran AbsoftUNIXFortran */
00390 #endif  /* CRAYFortran                        */
00391 #endif  /* apolloFortran                      */
00392 
00393 /* 970514 - In addition to CRAY, there may be other machines
00394             for which LOGICAL_STRICT makes no sense. */
00395 #if defined(LOGICAL_STRICT) && !defined(CRAYFortran)
00396 /* Force C2FLOGICAL to generate only the values for either .TRUE. or .FALSE.
00397    SX/PowerStationFortran only have 0 and 1 defined.
00398    Elsewhere, only needed if you want to do:
00399      logical lvariable
00400      if (lvariable .eq.  .true.) then       ! (1)
00401    instead of
00402      if (lvariable .eqv. .true.) then       ! (2)
00403    - (1) may not even be FORTRAN/77 and that Apollo's f77 and IBM's xlf
00404      refuse to compile (1), so you are probably well advised to stay away from 
00405      (1) and from LOGICAL_STRICT.
00406    - You pay a (slight) performance penalty for using LOGICAL_STRICT. */
00407 #undef  C2FLOGICAL
00408 #ifdef hpuxFortran800
00409 #define C2FLOGICAL(L) ((L)?0x01000000:0)
00410 #else
00411 #if defined(apolloFortran) || defined(vmsFortran) || defined(DECFortran)
00412 #define C2FLOGICAL(L) ((L)?-1:0) /* These machines use -1/0 for .true./.false.*/
00413 #else
00414 #define C2FLOGICAL(L) ((L)? 1:0) /* All others     use +1/0 for .true./.false.*/
00415 #endif
00416 #endif
00417 #endif /* LOGICAL_STRICT */
00418 
00419 /* Convert a vector of C strings into FORTRAN strings. */
00420 #ifndef __CF__KnR
00421 static char *c2fstrv(char* cstr, char *fstr, int elem_len, int sizeofcstr)
00422 #else
00423 static char *c2fstrv(      cstr,       fstr,     elem_len,     sizeofcstr)
00424                      char* cstr; char *fstr; int elem_len; int sizeofcstr;
00425 #endif
00426 { int i,j;
00427 /* elem_len includes \0 for C strings. Fortran strings don't have term. \0.
00428    Useful size of string must be the same in both languages. */
00429 for (i=0; i<sizeofcstr/elem_len; i++) {
00430   for (j=1; j<elem_len && *cstr; j++) *fstr++ = *cstr++;
00431   cstr += 1+elem_len-j;
00432   for (; j<elem_len; j++) *fstr++ = ' ';
00433 } /* 95109 - Seems to be returning the original fstr. */
00434 return fstr-sizeofcstr+sizeofcstr/elem_len; }
00435 
00436 /* Convert a vector of FORTRAN strings into C strings. */
00437 #ifndef __CF__KnR
00438 static char *f2cstrv(char *fstr, char* cstr, int elem_len, int sizeofcstr)
00439 #else
00440 static char *f2cstrv(      fstr,       cstr,     elem_len,     sizeofcstr)
00441                      char *fstr; char* cstr; int elem_len; int sizeofcstr; 
00442 #endif
00443 { int i,j;
00444 /* elem_len includes \0 for C strings. Fortran strings don't have term. \0.
00445    Useful size of string must be the same in both languages. */
00446 cstr += sizeofcstr;
00447 fstr += sizeofcstr - sizeofcstr/elem_len;
00448 for (i=0; i<sizeofcstr/elem_len; i++) {
00449   *--cstr = '\0';
00450   for (j=1; j<elem_len; j++) *--cstr = *--fstr;
00451 } return cstr; }
00452 
00453 /* kill the trailing char t's in string s. */
00454 #ifndef __CF__KnR
00455 static char *kill_trailing(char *s, char t)
00456 #else
00457 static char *kill_trailing(      s,      t) char *s; char t;
00458 #endif
00459 {char *e; 
00460 e = s + strlen(s);
00461 if (e>s) {                           /* Need this to handle NULL string.*/
00462   while (e>s && *--e==t);            /* Don't follow t's past beginning. */
00463   e[*e==t?0:1] = '\0';               /* Handle s[0]=t correctly.       */
00464 } return s; }
00465 
00466 /* kill_trailingn(s,t,e) will kill the trailing t's in string s. e normally 
00467 points to the terminating '\0' of s, but may actually point to anywhere in s.
00468 s's new '\0' will be placed at e or earlier in order to remove any trailing t's.
00469 If e<s string s is left unchanged. */ 
00470 #ifndef __CF__KnR
00471 static char *kill_trailingn(char *s, char t, char *e)
00472 #else
00473 static char *kill_trailingn(      s,      t,       e) char *s; char t; char *e;
00474 #endif
00475 { 
00476 if (e==s) *e = '\0';                 /* Kill the string makes sense here.*/
00477 else if (e>s) {                      /* Watch out for neg. length string.*/
00478   while (e>s && *--e==t);            /* Don't follow t's past beginning. */
00479   e[*e==t?0:1] = '\0';               /* Handle s[0]=t correctly.       */
00480 } return s; }
00481 
00482 /* Note the following assumes that any element which has t's to be chopped off,
00483 does indeed fill the entire element. */
00484 #ifndef __CF__KnR
00485 static char *vkill_trailing(char* cstr, int elem_len, int sizeofcstr, char t)
00486 #else
00487 static char *vkill_trailing(      cstr,     elem_len,     sizeofcstr,      t)
00488                             char* cstr; int elem_len; int sizeofcstr; char t;
00489 #endif
00490 { int i;
00491 for (i=0; i<sizeofcstr/elem_len; i++) /* elem_len includes \0 for C strings. */
00492   kill_trailingn(cstr+elem_len*i,t,cstr+elem_len*(i+1)-1);
00493 return cstr; }
00494 
00495 #ifdef vmsFortran
00496 typedef struct dsc$descriptor_s fstring;
00497 #define DSC$DESCRIPTOR_A(DIMCT)                                                \
00498 struct {                                                                       \
00499   unsigned short dsc$w_length;          unsigned char    dsc$b_dtype;          \
00500   unsigned char  dsc$b_class;                    char   *dsc$a_pointer;        \
00501            char  dsc$b_scale;           unsigned char    dsc$b_digits;         \
00502   struct {                                                                     \
00503     unsigned                   : 3;       unsigned dsc$v_fl_binscale : 1;      \
00504     unsigned dsc$v_fl_redim    : 1;       unsigned dsc$v_fl_column   : 1;      \
00505     unsigned dsc$v_fl_coeff    : 1;       unsigned dsc$v_fl_bounds   : 1;      \
00506   } dsc$b_aflags;                                                              \
00507   unsigned char  dsc$b_dimct;           unsigned long    dsc$l_arsize;         \
00508            char *dsc$a_a0;                       long    dsc$l_m [DIMCT];      \
00509   struct {                                                                     \
00510     long dsc$l_l;                         long dsc$l_u;                        \
00511   } dsc$bounds [DIMCT];                                                        \
00512 }
00513 typedef DSC$DESCRIPTOR_A(1) fstringvector;
00514 /*typedef DSC$DESCRIPTOR_A(2) fstringarrarr;
00515   typedef DSC$DESCRIPTOR_A(3) fstringarrarrarr;*/
00516 #define initfstr(F,C,ELEMNO,ELEMLEN)                                           \
00517 ( (F).dsc$l_arsize=  ( (F).dsc$w_length                        =(ELEMLEN) )    \
00518                     *( (F).dsc$l_m[0]=(F).dsc$bounds[0].dsc$l_u=(ELEMNO)  ),   \
00519   (F).dsc$a_a0    =  ( (F).dsc$a_pointer=(C) ) - (F).dsc$w_length          ,(F))
00520 
00521 #else
00522 #define _NUM_ELEMS      -1
00523 #define _NUM_ELEM_ARG   -2
00524 #define NUM_ELEMS(A)    A,_NUM_ELEMS
00525 #define NUM_ELEM_ARG(B) *_2(A,B),_NUM_ELEM_ARG
00526 #define TERM_CHARS(A,B) A,B
00527 #ifndef __CF__KnR
00528 static int num_elem(char *strv, unsigned elem_len, int term_char, int num_term)
00529 #else
00530 static int num_elem(      strv,          elem_len,     term_char,     num_term)
00531                     char *strv; unsigned elem_len; int term_char; int num_term;
00532 #endif
00533 /* elem_len is the number of characters in each element of strv, the FORTRAN
00534 vector of strings. The last element of the vector must begin with at least
00535 num_term term_char characters, so that this routine can determine how 
00536 many elements are in the vector. */
00537 {
00538 unsigned num,i;
00539 if (num_term == _NUM_ELEMS || num_term == _NUM_ELEM_ARG) 
00540   return term_char;
00541 if (num_term <=0) num_term = (int)elem_len;
00542 for (num=0; ; num++) {
00543   for (i=0; i<(unsigned)num_term && *strv==term_char; i++,strv++);
00544   if (i==(unsigned)num_term) break;
00545   else strv += elem_len-i;
00546 }
00547 return (int)num;
00548 }
00549 #endif
00550 /*-------------------------------------------------------------------------*/
00551 
00552 /*           UTILITIES FOR C TO USE STRINGS IN FORTRAN COMMON BLOCKS       */
00553 
00554 /* C string TO Fortran Common Block STRing. */
00555 /* DIM is the number of DIMensions of the array in terms of strings, not
00556    characters. e.g. char a[12] has DIM = 0, char a[12][4] has DIM = 1, etc. */
00557 #define C2FCBSTR(CSTR,FSTR,DIM)                                                \
00558  c2fstrv((char *)CSTR, (char *)FSTR, sizeof(FSTR)/cfelementsof(FSTR,DIM)+1,    \
00559          sizeof(FSTR)+cfelementsof(FSTR,DIM))
00560 
00561 /* Fortran Common Block string TO C STRing. */
00562 #define FCB2CSTR(FSTR,CSTR,DIM)                                                \
00563  vkill_trailing(f2cstrv((char *)FSTR, (char *)CSTR,                            \
00564                         sizeof(FSTR)/cfelementsof(FSTR,DIM)+1,                 \
00565                         sizeof(FSTR)+cfelementsof(FSTR,DIM)),                  \
00566                 sizeof(FSTR)/cfelementsof(FSTR,DIM)+1,                         \
00567                 sizeof(FSTR)+cfelementsof(FSTR,DIM), ' ')
00568 
00569 #define cfDEREFERENCE0
00570 #define cfDEREFERENCE1 *
00571 #define cfDEREFERENCE2 **
00572 #define cfDEREFERENCE3 ***
00573 #define cfDEREFERENCE4 ****
00574 #define cfDEREFERENCE5 *****
00575 #define cfelementsof(A,D) (sizeof(A)/sizeof(_(cfDEREFERENCE,D)(A)))
00576 
00577 /*-------------------------------------------------------------------------*/
00578 
00579 /*               UTILITIES FOR C TO CALL FORTRAN SUBROUTINES               */
00580 
00581 /* Define lookup tables for how to handle the various types of variables.  */
00582 
00583 #ifdef OLD_VAXC                                /* Prevent %CC-I-PARAMNOTUSED. */
00584 #pragma nostandard
00585 #endif
00586 
00587 #define ZTRINGV_NUM(I)       I
00588 #define ZTRINGV_ARGFP(I) (*(_2(A,I))) /* Undocumented. For PINT, etc. */
00589 #define ZTRINGV_ARGF(I) _2(A,I)
00590 #ifdef CFSUBASFUN
00591 #define ZTRINGV_ARGS(I) ZTRINGV_ARGF(I)
00592 #else
00593 #define ZTRINGV_ARGS(I) _2(B,I)
00594 #endif
00595 
00596 #define    PBYTE_cfVP(A,B) PINT_cfVP(A,B)
00597 #define  PDOUBLE_cfVP(A,B)
00598 #define   PFLOAT_cfVP(A,B)
00599 #ifdef ZTRINGV_ARGS_allows_Pvariables
00600 /* This allows Pvariables for ARGS. ARGF machinery is above ARGFP.
00601  * B is not needed because the variable may be changed by the Fortran routine,
00602  * but because B is the only way to access an arbitrary macro argument.       */
00603 #define     PINT_cfVP(A,B) int  B = (int)A;              /* For ZSTRINGV_ARGS */
00604 #else
00605 #define     PINT_cfVP(A,B)
00606 #endif
00607 #define PLOGICAL_cfVP(A,B) int *B;      /* Returning LOGICAL in FUNn and SUBn */
00608 #define    PLONG_cfVP(A,B) PINT_cfVP(A,B)
00609 #define   PSHORT_cfVP(A,B) PINT_cfVP(A,B)
00610 
00611 #define        VCF_INT_S(T,A,B) _(T,VVVVVVV_cfTYPE) B = A;
00612 #define        VCF_INT_F(T,A,B) _(T,_cfVCF)(A,B)
00613 /* _cfVCF table is directly mapped to _cfCCC table. */
00614 #define     BYTE_cfVCF(A,B)
00615 #define   DOUBLE_cfVCF(A,B)
00616 #if !defined(__CF__KnR)
00617 #define    FLOAT_cfVCF(A,B)
00618 #else
00619 #define    FLOAT_cfVCF(A,B) FORTRAN_REAL B = A;
00620 #endif
00621 #define      INT_cfVCF(A,B)
00622 #define  LOGICAL_cfVCF(A,B)
00623 #define     LONG_cfVCF(A,B)
00624 #define    SHORT_cfVCF(A,B)
00625 
00626 /* 980416
00627    Cast (void (*)(CF_NULL_PROTO)) causes SunOS CC 4.2 occasionally to barf,
00628    while the following equivalent typedef is fine.
00629    For consistency use the typedef on all machines.
00630  */
00631 typedef void (*cfCAST_FUNCTION)(CF_NULL_PROTO);
00632 
00633 #define VCF(TN,I)       _Icf4(4,V,TN,_(A,I),_(B,I),F)
00634 #define VVCF(TN,AI,BI)  _Icf4(4,V,TN,AI,BI,S)
00635 #define        INT_cfV(T,A,B,F) _(VCF_INT_,F)(T,A,B)
00636 #define       INTV_cfV(T,A,B,F)
00637 #define      INTVV_cfV(T,A,B,F)
00638 #define     INTVVV_cfV(T,A,B,F)
00639 #define    INTVVVV_cfV(T,A,B,F)
00640 #define   INTVVVVV_cfV(T,A,B,F)
00641 #define  INTVVVVVV_cfV(T,A,B,F)
00642 #define INTVVVVVVV_cfV(T,A,B,F)
00643 #define PINT_cfV(      T,A,B,F) _(T,_cfVP)(A,B)
00644 #define PVOID_cfV(     T,A,B,F)
00645 #if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
00646 #define    ROUTINE_cfV(T,A,B,F) void (*B)(CF_NULL_PROTO) = (cfCAST_FUNCTION)A;
00647 #else
00648 #define    ROUTINE_cfV(T,A,B,F)
00649 #endif
00650 #define     SIMPLE_cfV(T,A,B,F)
00651 #ifdef vmsFortran
00652 #define     STRING_cfV(T,A,B,F) static struct {fstring f; unsigned clen;} B =  \
00653                                        {{0,DSC$K_DTYPE_T,DSC$K_CLASS_S,NULL},0};
00654 #define    PSTRING_cfV(T,A,B,F) static fstring B={0,DSC$K_DTYPE_T,DSC$K_CLASS_S,NULL};
00655 #define    STRINGV_cfV(T,A,B,F) static fstringvector B =                       \
00656   {sizeof(A),DSC$K_DTYPE_T,DSC$K_CLASS_A,NULL,0,0,{0,0,1,1,1},1,0,NULL,0,{1,0}};
00657 #define   PSTRINGV_cfV(T,A,B,F) static fstringvector B =                       \
00658           {0,DSC$K_DTYPE_T,DSC$K_CLASS_A,NULL,0,0,{0,0,1,1,1},1,0,NULL,0,{1,0}};
00659 #else
00660 #define     STRING_cfV(T,A,B,F) struct {unsigned int clen, flen;} B;
00661 #define    STRINGV_cfV(T,A,B,F) struct {char *s, *fs; unsigned flen;} B;
00662 #define    PSTRING_cfV(T,A,B,F) int     B;
00663 #define   PSTRINGV_cfV(T,A,B,F) struct{char *fs; unsigned int sizeofA,flen;}B;
00664 #endif
00665 #define    ZTRINGV_cfV(T,A,B,F)  STRINGV_cfV(T,A,B,F)
00666 #define   PZTRINGV_cfV(T,A,B,F) PSTRINGV_cfV(T,A,B,F)
00667 
00668 /* Note that the actions of the A table were performed inside the AA table.
00669    VAX Ultrix vcc, and HP-UX cc, didn't evaluate arguments to functions left to
00670    right, so we had to split the original table into the current robust two. */
00671 #define ACF(NAME,TN,AI,I)      _(TN,_cfSTR)(4,A,NAME,I,AI,_(B,I),0)
00672 #define   DEFAULT_cfA(M,I,A,B)
00673 #define   LOGICAL_cfA(M,I,A,B) B=C2FLOGICAL(B);
00674 #define  PLOGICAL_cfA(M,I,A,B) A=C2FLOGICAL(A);
00675 #define    STRING_cfA(M,I,A,B)  STRING_cfC(M,I,A,B,sizeof(A))
00676 #define   PSTRING_cfA(M,I,A,B) PSTRING_cfC(M,I,A,B,sizeof(A))
00677 #ifdef vmsFortran
00678 #define  AATRINGV_cfA(    A,B, sA,filA,silA)                                   \
00679  initfstr(B,_cf_malloc((sA)-(filA)),(filA),(silA)-1),                          \
00680           c2fstrv(A,B.dsc$a_pointer,(silA),(sA));
00681 #define APATRINGV_cfA(    A,B, sA,filA,silA)                                   \
00682  initfstr(B,A,(filA),(silA)-1),c2fstrv(A,A,(silA),(sA));
00683 #else
00684 #define  AATRINGV_cfA(    A,B, sA,filA,silA)                                   \
00685      (B.s=_cf_malloc((sA)-(filA)),B.fs=c2fstrv(A,B.s,(B.flen=(silA)-1)+1,(sA)));
00686 #define APATRINGV_cfA(    A,B, sA,filA,silA)                                   \
00687  B.fs=c2fstrv(A,A,(B.flen=(silA)-1)+1,B.sizeofA=(sA));
00688 #endif
00689 #define   STRINGV_cfA(M,I,A,B)                                                 \
00690     AATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))
00691 #define  PSTRINGV_cfA(M,I,A,B)                                                 \
00692    APATRINGV_cfA((char *)A,B,sizeof(A),firstindexlength(A),secondindexlength(A))
00693 #define   ZTRINGV_cfA(M,I,A,B)  AATRINGV_cfA( (char *)A,B,                     \
00694                     (_3(M,_ELEMS_,I))*(( _3(M,_ELEMLEN_,I))+1),                \
00695                               (_3(M,_ELEMS_,I)),(_3(M,_ELEMLEN_,I))+1)
00696 #define  PZTRINGV_cfA(M,I,A,B) APATRINGV_cfA( (char *)A,B,                     \
00697                     (_3(M,_ELEMS_,I))*(( _3(M,_ELEMLEN_,I))+1),                \
00698                               (_3(M,_ELEMS_,I)),(_3(M,_ELEMLEN_,I))+1)
00699 
00700 #define    PBYTE_cfAAP(A,B) &A
00701 #define  PDOUBLE_cfAAP(A,B) &A
00702 #define   PFLOAT_cfAAP(A,B) FLOATVVVVVVV_cfPP &A
00703 #define     PINT_cfAAP(A,B) &A
00704 #define PLOGICAL_cfAAP(A,B) B= &A         /* B used to keep a common W table. */
00705 #define    PLONG_cfAAP(A,B) &A
00706 #define   PSHORT_cfAAP(A,B) &A
00707 
00708 #define AACF(TN,AI,I,C) _SEP_(TN,C,cfCOMMA) _Icf(3,AA,TN,AI,_(B,I))
00709 #define        INT_cfAA(T,A,B) &B
00710 #define       INTV_cfAA(T,A,B) _(T,VVVVVV_cfPP) A
00711 #define      INTVV_cfAA(T,A,B) _(T,VVVVV_cfPP)  A[0]
00712 #define     INTVVV_cfAA(T,A,B) _(T,VVVV_cfPP)   A[0][0]
00713 #define    INTVVVV_cfAA(T,A,B) _(T,VVV_cfPP)    A[0][0][0]
00714 #define   INTVVVVV_cfAA(T,A,B) _(T,VV_cfPP)     A[0][0][0][0]
00715 #define  INTVVVVVV_cfAA(T,A,B) _(T,V_cfPP)      A[0][0][0][0][0]
00716 #define INTVVVVVVV_cfAA(T,A,B) _(T,_cfPP)       A[0][0][0][0][0][0]
00717 #define       PINT_cfAA(T,A,B) _(T,_cfAAP)(A,B)
00718 #define      PVOID_cfAA(T,A,B) (void *) A
00719 #if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
00720 #define    ROUTINE_cfAA(T,A,B) &B
00721 #else
00722 #define    ROUTINE_cfAA(T,A,B) (cfCAST_FUNCTION)A
00723 #endif
00724 #define     STRING_cfAA(T,A,B)  STRING_cfCC(T,A,B)
00725 #define    PSTRING_cfAA(T,A,B) PSTRING_cfCC(T,A,B)
00726 #ifdef vmsFortran
00727 #define    STRINGV_cfAA(T,A,B) &B
00728 #else
00729 #ifdef CRAYFortran
00730 #define    STRINGV_cfAA(T,A,B) _cptofcd(B.fs,B.flen)
00731 #else
00732 #define    STRINGV_cfAA(T,A,B) B.fs
00733 #endif
00734 #endif
00735 #define   PSTRINGV_cfAA(T,A,B) STRINGV_cfAA(T,A,B)
00736 #define    ZTRINGV_cfAA(T,A,B) STRINGV_cfAA(T,A,B)
00737 #define   PZTRINGV_cfAA(T,A,B) STRINGV_cfAA(T,A,B)
00738 
00739 #if defined(vmsFortran) || defined(CRAYFortran)
00740 #define JCF(TN,I)
00741 #define KCF(TN,I)
00742 #else
00743 #define JCF(TN,I)    _(TN,_cfSTR)(1,J,_(B,I), 0,0,0,0)
00744 #if defined(AbsoftUNIXFortran)
00745 #define  DEFAULT_cfJ(B) ,0
00746 #else
00747 #define  DEFAULT_cfJ(B)
00748 #endif
00749 #define  LOGICAL_cfJ(B) DEFAULT_cfJ(B)
00750 #define PLOGICAL_cfJ(B) DEFAULT_cfJ(B)
00751 #define   STRING_cfJ(B) ,B.flen
00752 #define  PSTRING_cfJ(B) ,B
00753 #define  STRINGV_cfJ(B) STRING_cfJ(B)
00754 #define PSTRINGV_cfJ(B) STRING_cfJ(B)
00755 #define  ZTRINGV_cfJ(B) STRING_cfJ(B)
00756 #define PZTRINGV_cfJ(B) STRING_cfJ(B)
00757 
00758 /* KCF is identical to DCF, except that KCF ZTRING is not empty. */
00759 #define KCF(TN,I)    _(TN,_cfSTR)(1,KK,_(B,I), 0,0,0,0)
00760 #if defined(AbsoftUNIXFortran)
00761 #define  DEFAULT_cfKK(B) , unsigned B
00762 #else
00763 #define  DEFAULT_cfKK(B)
00764 #endif
00765 #define  LOGICAL_cfKK(B) DEFAULT_cfKK(B)
00766 #define PLOGICAL_cfKK(B) DEFAULT_cfKK(B)
00767 #define   STRING_cfKK(B) , unsigned B
00768 #define  PSTRING_cfKK(B) STRING_cfKK(B)
00769 #define  STRINGV_cfKK(B) STRING_cfKK(B)
00770 #define PSTRINGV_cfKK(B) STRING_cfKK(B)
00771 #define  ZTRINGV_cfKK(B) STRING_cfKK(B)
00772 #define PZTRINGV_cfKK(B) STRING_cfKK(B)
00773 #endif
00774 
00775 #define WCF(TN,AN,I)      _(TN,_cfSTR)(2,W,AN,_(B,I), 0,0,0)
00776 #define  DEFAULT_cfW(A,B)
00777 #define  LOGICAL_cfW(A,B)
00778 #define PLOGICAL_cfW(A,B) *B=F2CLOGICAL(*B);
00779 #define   STRING_cfW(A,B) (A[B.clen]!='\0'?A[B.clen]='\0':0); /* A?="constnt"*/
00780 #define  PSTRING_cfW(A,B) kill_trailing(A,' ');
00781 #ifdef vmsFortran
00782 #define  STRINGV_cfW(A,B) _cf_free(B.dsc$a_pointer);
00783 #define PSTRINGV_cfW(A,B)                                                      \
00784   vkill_trailing(f2cstrv((char*)A, (char*)A,                                   \
00785                            B.dsc$w_length+1, B.dsc$l_arsize+B.dsc$l_m[0]),     \
00786                    B.dsc$w_length+1, B.dsc$l_arsize+B.dsc$l_m[0], ' ');
00787 #else
00788 #define  STRINGV_cfW(A,B) _cf_free(B.s);
00789 #define PSTRINGV_cfW(A,B) vkill_trailing(                                      \
00790          f2cstrv((char*)A,(char*)A,B.flen+1,B.sizeofA), B.flen+1,B.sizeofA,' ');
00791 #endif
00792 #define  ZTRINGV_cfW(A,B)      STRINGV_cfW(A,B)
00793 #define PZTRINGV_cfW(A,B)     PSTRINGV_cfW(A,B)
00794 
00795 #define   NCF(TN,I,C)       _SEP_(TN,C,cfCOMMA) _Icf(2,N,TN,_(A,I),0) 
00796 #define  NNCF(TN,I,C)        UUCF(TN,I,C)
00797 #define NNNCF(TN,I,C)       _SEP_(TN,C,cfCOLON) _Icf(2,N,TN,_(A,I),0) 
00798 #define        INT_cfN(T,A) _(T,VVVVVVV_cfTYPE) * A
00799 #define       INTV_cfN(T,A) _(T,VVVVVV_cfTYPE)  * A
00800 #define      INTVV_cfN(T,A) _(T,VVVVV_cfTYPE)   * A
00801 #define     INTVVV_cfN(T,A) _(T,VVVV_cfTYPE)    * A
00802 #define    INTVVVV_cfN(T,A) _(T,VVV_cfTYPE)     * A
00803 #define   INTVVVVV_cfN(T,A) _(T,VV_cfTYPE)      * A
00804 #define  INTVVVVVV_cfN(T,A) _(T,V_cfTYPE)       * A
00805 #define INTVVVVVVV_cfN(T,A) _(T,_cfTYPE)        * A
00806 #define       PINT_cfN(T,A) _(T,_cfTYPE)        * A
00807 #define      PVOID_cfN(T,A) void *                A
00808 #if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
00809 #define    ROUTINE_cfN(T,A) void (**A)(CF_NULL_PROTO)
00810 #else
00811 #define    ROUTINE_cfN(T,A) void ( *A)(CF_NULL_PROTO)
00812 #endif
00813 #ifdef vmsFortran
00814 #define     STRING_cfN(T,A) fstring *             A
00815 #define    STRINGV_cfN(T,A) fstringvector *       A
00816 #else
00817 #ifdef CRAYFortran
00818 #define     STRING_cfN(T,A) _fcd                  A
00819 #define    STRINGV_cfN(T,A) _fcd                  A
00820 #else
00821 #define     STRING_cfN(T,A) char *                A
00822 #define    STRINGV_cfN(T,A) char *                A
00823 #endif
00824 #endif
00825 #define    PSTRING_cfN(T,A)   STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
00826 #define   PNSTRING_cfN(T,A)   STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
00827 #define   PPSTRING_cfN(T,A)   STRING_cfN(T,A) /* CRAY insists on arg.'s here. */
00828 #define   PSTRINGV_cfN(T,A)  STRINGV_cfN(T,A)
00829 #define    ZTRINGV_cfN(T,A)  STRINGV_cfN(T,A)
00830 #define   PZTRINGV_cfN(T,A) PSTRINGV_cfN(T,A)
00831 
00832 
00833 /* Apollo 6.7, CRAY, old Sun, VAX/Ultrix vcc/cc and new ultrix
00834    can't hack more than 31 arg's.
00835    e.g. ultrix >= 4.3 gives message:
00836        zow35> cc -c -DDECFortran cfortest.c
00837        cfe: Fatal: Out of memory: cfortest.c
00838        zow35>
00839    Old __hpux had the problem, but new 'HP-UX A.09.03 A 9000/735' is fine
00840    if using -Aa, otherwise we have a problem.
00841  */
00842 #ifndef MAX_PREPRO_ARGS
00843 #if !defined(__GNUC__) && (defined(VAXUltrix) || defined(__CF__APOLLO67) || (defined(sun)&&!defined(__sun)) || defined(_CRAY) || defined(__ultrix__) || (defined(__hpux)&&defined(__CF__KnR)))
00844 #define MAX_PREPRO_ARGS 31
00845 #else
00846 #define MAX_PREPRO_ARGS 99
00847 #endif
00848 #endif
00849 
00850 #if defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
00851 /* In addition to explicit Absoft stuff, only Absoft requires:
00852    - DEFAULT coming from _cfSTR.
00853      DEFAULT could have been called e.g. INT, but keep it for clarity.
00854    - M term in CFARGT14 and CFARGT14FS.
00855  */
00856 #define ABSOFT_cf1(T0) _(T0,_cfSTR)(0,ABSOFT1,0,0,0,0,0)
00857 #define ABSOFT_cf2(T0) _(T0,_cfSTR)(0,ABSOFT2,0,0,0,0,0)
00858 #define ABSOFT_cf3(T0) _(T0,_cfSTR)(0,ABSOFT3,0,0,0,0,0)
00859 #define DEFAULT_cfABSOFT1
00860 #define LOGICAL_cfABSOFT1
00861 #define  STRING_cfABSOFT1 ,MAX_LEN_FORTRAN_FUNCTION_STRING
00862 #define DEFAULT_cfABSOFT2
00863 #define LOGICAL_cfABSOFT2
00864 #define  STRING_cfABSOFT2 ,unsigned D0
00865 #define DEFAULT_cfABSOFT3
00866 #define LOGICAL_cfABSOFT3
00867 #define  STRING_cfABSOFT3 ,D0
00868 #else
00869 #define ABSOFT_cf1(T0)
00870 #define ABSOFT_cf2(T0)
00871 #define ABSOFT_cf3(T0)
00872 #endif
00873 
00874 /* _Z introduced to cicumvent IBM and HP silly preprocessor warning.
00875    e.g. "Macro CFARGT14 invoked with a null argument."
00876  */
00877 #define _Z
00878 
00879 #define  CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)                \
00880  S(T1,1)   S(T2,2)   S(T3,3)    S(T4,4)    S(T5,5)    S(T6,6)    S(T7,7)       \
00881  S(T8,8)   S(T9,9)   S(TA,10)   S(TB,11)   S(TC,12)   S(TD,13)   S(TE,14)
00882 #define  CFARGT27S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
00883  S(T1,1)   S(T2,2)   S(T3,3)    S(T4,4)    S(T5,5)    S(T6,6)    S(T7,7)       \
00884  S(T8,8)   S(T9,9)   S(TA,10)   S(TB,11)   S(TC,12)   S(TD,13)   S(TE,14)      \
00885  S(TF,15)  S(TG,16)  S(TH,17)   S(TI,18)   S(TJ,19)   S(TK,20)   S(TL,21)      \
00886  S(TM,22)  S(TN,23)  S(TO,24)   S(TP,25)   S(TQ,26)   S(TR,27)
00887 
00888 #define  CFARGT14FS(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)           \
00889  F(T1,1,0) F(T2,2,1) F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)     \
00890  F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)    \
00891  M       CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
00892 #define  CFARGT27FS(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
00893  F(T1,1,0)  F(T2,2,1)  F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)   \
00894  F(T8,8,1)  F(T9,9,1)  F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)  \
00895  F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1) F(TL,21,1)  \
00896  F(TM,22,1) F(TN,23,1) F(TO,24,1) F(TP,25,1) F(TQ,26,1) F(TR,27,1)             \
00897  M       CFARGT27S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
00898 
00899 #if !(defined(PowerStationFortran)||defined(hpuxFortran800))
00900 /*  Old CFARGT14 -> CFARGT14FS as seen below, for Absoft cross-compile yields:
00901       SunOS> cc -c -Xa -DAbsoftUNIXFortran c.c
00902       "c.c", line 406: warning: argument mismatch
00903     Haven't checked if this is ANSI C or a SunOS bug. SunOS -Xs works ok.
00904     Behavior is most clearly seen in example:
00905       #define A 1 , 2
00906       #define  C(X,Y,Z) x=X. y=Y. z=Z.
00907       #define  D(X,Y,Z) C(X,Y,Z)
00908       D(x,A,z)
00909     Output from preprocessor is: x = x . y = 1 . z = 2 .
00910  #define CFARGT14(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
00911        CFARGT14FS(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
00912 */
00913 #define  CFARGT14(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)             \
00914  F(T1,1,0) F(T2,2,1) F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)     \
00915  F(T8,8,1) F(T9,9,1) F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)    \
00916  M       CFARGT14S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
00917 #define  CFARGT27(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
00918  F(T1,1,0)  F(T2,2,1)  F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)   \
00919  F(T8,8,1)  F(T9,9,1)  F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)  \
00920  F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1) F(TL,21,1)  \
00921  F(TM,22,1) F(TN,23,1) F(TO,24,1) F(TP,25,1) F(TQ,26,1) F(TR,27,1)             \
00922  M       CFARGT27S(S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
00923 
00924 #define  CFARGT20(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
00925  F(T1,1,0)  F(T2,2,1)  F(T3,3,1)  F(T4,4,1)  F(T5,5,1)  F(T6,6,1)  F(T7,7,1)   \
00926  F(T8,8,1)  F(T9,9,1)  F(TA,10,1) F(TB,11,1) F(TC,12,1) F(TD,13,1) F(TE,14,1)  \
00927  F(TF,15,1) F(TG,16,1) F(TH,17,1) F(TI,18,1) F(TJ,19,1) F(TK,20,1)             \
00928  S(T1,1)    S(T2,2)    S(T3,3)    S(T4,4)    S(T5,5)    S(T6,6)    S(T7,7)     \
00929  S(T8,8)    S(T9,9)    S(TA,10)   S(TB,11)   S(TC,12)   S(TD,13)   S(TE,14)    \
00930  S(TF,15)   S(TG,16)   S(TH,17)   S(TI,18)   S(TJ,19)   S(TK,20)
00931 #define CFARGTA14(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE) \
00932  F(T1,A1,1,0)  F(T2,A2,2,1)  F(T3,A3,3,1) F(T4,A4,4,1)  F(T5,A5,5,1)  F(T6,A6,6,1)  \
00933  F(T7,A7,7,1)  F(T8,A8,8,1)  F(T9,A9,9,1) F(TA,AA,10,1) F(TB,AB,11,1) F(TC,AC,12,1) \
00934  F(TD,AD,13,1) F(TE,AE,14,1) S(T1,1)      S(T2,2)       S(T3,3)       S(T4,4)       \
00935  S(T5,5)       S(T6,6)       S(T7,7)      S(T8,8)       S(T9,9)       S(TA,10)      \
00936  S(TB,11)      S(TC,12)      S(TD,13)     S(TE,14)
00937 #if MAX_PREPRO_ARGS>31
00938 #define CFARGTA20(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) \
00939  F(T1,A1,1,0)  F(T2,A2,2,1)  F(T3,A3,3,1)  F(T4,A4,4,1)  F(T5,A5,5,1)  F(T6,A6,6,1)  \
00940  F(T7,A7,7,1)  F(T8,A8,8,1)  F(T9,A9,9,1)  F(TA,AA,10,1) F(TB,AB,11,1) F(TC,AC,12,1) \
00941  F(TD,AD,13,1) F(TE,AE,14,1) F(TF,AF,15,1) F(TG,AG,16,1) F(TH,AH,17,1) F(TI,AI,18,1) \
00942  F(TJ,AJ,19,1) F(TK,AK,20,1) S(T1,1)       S(T2,2)       S(T3,3)       S(T4,4)       \
00943  S(T5,5)       S(T6,6)       S(T7,7)       S(T8,8)       S(T9,9)       S(TA,10)      \
00944  S(TB,11)      S(TC,12)      S(TD,13)      S(TE,14)      S(TF,15)      S(TG,16)      \
00945  S(TH,17)      S(TI,18)      S(TJ,19)      S(TK,20)
00946 #define CFARGTA27(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) \
00947  F(T1,A1,1,0)  F(T2,A2,2,1)  F(T3,A3,3,1)  F(T4,A4,4,1)  F(T5,A5,5,1)  F(T6,A6,6,1)  \
00948  F(T7,A7,7,1)  F(T8,A8,8,1)  F(T9,A9,9,1)  F(TA,AA,10,1) F(TB,AB,11,1) F(TC,AC,12,1) \
00949  F(TD,AD,13,1) F(TE,AE,14,1) F(TF,AF,15,1) F(TG,AG,16,1) F(TH,AH,17,1) F(TI,AI,18,1) \
00950  F(TJ,AJ,19,1) F(TK,AK,20,1) F(TL,AL,21,1) F(TM,AM,22,1) F(TN,AN,23,1) F(TO,AO,24,1) \
00951  F(TP,AP,25,1) F(TQ,AQ,26,1) F(TR,AR,27,1) S(T1,1)       S(T2,2)       S(T3,3)       \
00952  S(T4,4)       S(T5,5)       S(T6,6)       S(T7,7)       S(T8,8)       S(T9,9)       \
00953  S(TA,10)      S(TB,11)      S(TC,12)      S(TD,13)      S(TE,14)      S(TF,15)      \
00954  S(TG,16)      S(TH,17)      S(TI,18)      S(TJ,19)      S(TK,20)      S(TL,21)      \
00955  S(TM,22)      S(TN,23)      S(TO,24)      S(TP,25)      S(TQ,26)      S(TR,27)
00956 #endif
00957 #else
00958 #define  CFARGT14(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)             \
00959  F(T1,1,0) S(T1,1) F(T2,2,1)  S(T2,2)  F(T3,3,1)  S(T3,3)  F(T4,4,1)  S(T4,4)  \
00960  F(T5,5,1) S(T5,5) F(T6,6,1)  S(T6,6)  F(T7,7,1)  S(T7,7)  F(T8,8,1)  S(T8,8)  \
00961  F(T9,9,1) S(T9,9) F(TA,10,1) S(TA,10) F(TB,11,1) S(TB,11) F(TC,12,1) S(TC,12) \
00962  F(TD,13,1) S(TD,13) F(TE,14,1) S(TE,14)
00963 #define  CFARGT27(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
00964  F(T1,1,0)  S(T1,1)  F(T2,2,1)  S(T2,2)  F(T3,3,1)  S(T3,3)  F(T4,4,1)  S(T4,4)  \
00965  F(T5,5,1)  S(T5,5)  F(T6,6,1)  S(T6,6)  F(T7,7,1)  S(T7,7)  F(T8,8,1)  S(T8,8)  \
00966  F(T9,9,1)  S(T9,9)  F(TA,10,1) S(TA,10) F(TB,11,1) S(TB,11) F(TC,12,1) S(TC,12) \
00967  F(TD,13,1) S(TD,13) F(TE,14,1) S(TE,14) F(TF,15,1) S(TF,15) F(TG,16,1) S(TG,16) \
00968  F(TH,17,1) S(TH,17) F(TI,18,1) S(TI,18) F(TJ,19,1) S(TJ,19) F(TK,20,1) S(TK,20) \
00969  F(TL,21,1) S(TL,21) F(TM,22,1) S(TM,22) F(TN,23,1) S(TN,23) F(TO,24,1) S(TO,24) \
00970  F(TP,25,1) S(TP,25) F(TQ,26,1) S(TQ,26) F(TR,27,1) S(TR,27)
00971 
00972 #define  CFARGT20(F,S,M,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
00973  F(T1,1,0)  S(T1,1)  F(T2,2,1)  S(T2,2)  F(T3,3,1)  S(T3,3)  F(T4,4,1)  S(T4,4)  \
00974  F(T5,5,1)  S(T5,5)  F(T6,6,1)  S(T6,6)  F(T7,7,1)  S(T7,7)  F(T8,8,1)  S(T8,8)  \
00975  F(T9,9,1)  S(T9,9)  F(TA,10,1) S(TA,10) F(TB,11,1) S(TB,11) F(TC,12,1) S(TC,12) \
00976  F(TD,13,1) S(TD,13) F(TE,14,1) S(TE,14) F(TF,15,1) S(TF,15) F(TG,16,1) S(TG,16) \
00977  F(TH,17,1) S(TH,17) F(TI,18,1) S(TI,18) F(TJ,19,1) S(TJ,19) F(TK,20,1) S(TK,20)
00978 #define CFARGTA14(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE) \
00979  F(T1,A1,1,0)  S(T1,1)  F(T2,A2,2,1)  S(T2,2)  F(T3,A3,3,1)  S(T3,3)           \
00980  F(T4,A4,4,1)  S(T4,4)  F(T5,A5,5,1)  S(T5,5)  F(T6,A6,6,1)  S(T6,6)           \
00981  F(T7,A7,7,1)  S(T7,7)  F(T8,A8,8,1)  S(T8,8)  F(T9,A9,9,1)  S(T9,9)           \
00982  F(TA,AA,10,1) S(TA,10) F(TB,AB,11,1) S(TB,11) F(TC,AC,12,1) S(TC,12)          \
00983  F(TD,AD,13,1) S(TD,13) F(TE,AE,14,1) S(TE,14)
00984 #if MAX_PREPRO_ARGS>31
00985 #define CFARGTA20(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) \
00986  F(T1,A1,1,0)  S(T1,1)  F(T2,A2,2,1)  S(T2,2)  F(T3,A3,3,1)  S(T3,3)           \
00987  F(T4,A4,4,1)  S(T4,4)  F(T5,A5,5,1)  S(T5,5)  F(T6,A6,6,1)  S(T6,6)           \
00988  F(T7,A7,7,1)  S(T7,7)  F(T8,A8,8,1)  S(T8,8)  F(T9,A9,9,1)  S(T9,9)           \
00989  F(TA,AA,10,1) S(TA,10) F(TB,AB,11,1) S(TB,11) F(TC,AC,12,1) S(TC,12)          \
00990  F(TD,AD,13,1) S(TD,13) F(TE,AE,14,1) S(TE,14) F(TF,AF,15,1) S(TF,15)          \
00991  F(TG,AG,16,1) S(TG,16) F(TH,AH,17,1) S(TH,17) F(TI,AI,18,1) S(TI,18)          \
00992  F(TJ,AJ,19,1) S(TJ,19) F(TK,AK,20,1) S(TK,20)                
00993 #define CFARGTA27(F,S,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) \
00994  F(T1,A1,1,0)  S(T1,1)  F(T2,A2,2,1)  S(T2,2)  F(T3,A3,3,1)  S(T3,3)           \
00995  F(T4,A4,4,1)  S(T4,4)  F(T5,A5,5,1)  S(T5,5)  F(T6,A6,6,1)  S(T6,6)           \
00996  F(T7,A7,7,1)  S(T7,7)  F(T8,A8,8,1)  S(T8,8)  F(T9,A9,9,1)  S(T9,9)           \
00997  F(TA,AA,10,1) S(TA,10) F(TB,AB,11,1) S(TB,11) F(TC,AC,12,1) S(TC,12)          \
00998  F(TD,AD,13,1) S(TD,13) F(TE,AE,14,1) S(TE,14) F(TF,AF,15,1) S(TF,15)          \
00999  F(TG,AG,16,1) S(TG,16) F(TH,AH,17,1) S(TH,17) F(TI,AI,18,1) S(TI,18)          \
01000  F(TJ,AJ,19,1) S(TJ,19) F(TK,AK,20,1) S(TK,20) F(TL,AL,21,1) S(TL,21)          \
01001  F(TM,AM,22,1) S(TM,22) F(TN,AN,23,1) S(TN,23) F(TO,AO,24,1) S(TO,24)          \
01002  F(TP,AP,25,1) S(TP,25) F(TQ,AQ,26,1) S(TQ,26) F(TR,AR,27,1) S(TR,27)
01003 #endif
01004 #endif
01005 
01006 
01007 #define PROTOCCALLSFSUB1( UN,LN,T1) \
01008         PROTOCCALLSFSUB14(UN,LN,T1,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01009 #define PROTOCCALLSFSUB2( UN,LN,T1,T2) \
01010         PROTOCCALLSFSUB14(UN,LN,T1,T2,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01011 #define PROTOCCALLSFSUB3( UN,LN,T1,T2,T3) \
01012         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01013 #define PROTOCCALLSFSUB4( UN,LN,T1,T2,T3,T4) \
01014         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01015 #define PROTOCCALLSFSUB5( UN,LN,T1,T2,T3,T4,T5) \
01016         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01017 #define PROTOCCALLSFSUB6( UN,LN,T1,T2,T3,T4,T5,T6) \
01018         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01019 #define PROTOCCALLSFSUB7( UN,LN,T1,T2,T3,T4,T5,T6,T7) \
01020         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01021 #define PROTOCCALLSFSUB8( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8) \
01022         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01023 #define PROTOCCALLSFSUB9( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9) \
01024         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,CF_0,CF_0,CF_0,CF_0)
01025 #define PROTOCCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA) \
01026         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
01027 #define PROTOCCALLSFSUB11(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB) \
01028         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
01029 #define PROTOCCALLSFSUB12(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC) \
01030         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
01031 #define PROTOCCALLSFSUB13(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD) \
01032         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
01033 
01034 
01035 #define PROTOCCALLSFSUB15(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF) \
01036         PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0)
01037 #define PROTOCCALLSFSUB16(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG) \
01038         PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0)
01039 #define PROTOCCALLSFSUB17(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH) \
01040         PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0)
01041 #define PROTOCCALLSFSUB18(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI) \
01042         PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0)
01043 #define PROTOCCALLSFSUB19(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ) \
01044         PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0)
01045 
01046 #define PROTOCCALLSFSUB21(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL) \
01047         PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
01048 #define PROTOCCALLSFSUB22(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM) \
01049         PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0)
01050 #define PROTOCCALLSFSUB23(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN) \
01051         PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0)
01052 #define PROTOCCALLSFSUB24(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO) \
01053         PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0)
01054 #define PROTOCCALLSFSUB25(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP) \
01055         PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0)
01056 #define PROTOCCALLSFSUB26(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ) \
01057         PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0)
01058 
01059 
01060 #ifndef FCALLSC_QUALIFIER
01061 #ifdef VISUAL_CPLUSPLUS
01062 #define FCALLSC_QUALIFIER __stdcall
01063 #else
01064 #define FCALLSC_QUALIFIER
01065 #endif
01066 #endif
01067 
01068 #ifdef __cplusplus
01069 #define CFextern extern "C"
01070 #else
01071 #define CFextern extern
01072 #endif
01073 
01074 
01075 #ifdef CFSUBASFUN
01076 #define PROTOCCALLSFSUB0(UN,LN) \
01077    PROTOCCALLSFFUN0( VOID,UN,LN)
01078 #define PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
01079    PROTOCCALLSFFUN14(VOID,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
01080 #define PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)\
01081    PROTOCCALLSFFUN20(VOID,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
01082 #define PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)\
01083    PROTOCCALLSFFUN27(VOID,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
01084 #else
01085 /* Note: Prevent compiler warnings, null #define PROTOCCALLSFSUB14/20 after 
01086    #include-ing cfortran.h if calling the FORTRAN wrapper within the same 
01087    source code where the wrapper is created. */
01088 #define PROTOCCALLSFSUB0(UN,LN)     _(VOID,_cfPU)(CFC_(UN,LN))();
01089 #ifndef __CF__KnR
01090 #define PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
01091  _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT14(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) );
01092 #define PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)\
01093  _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT20(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) );
01094 #define PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)\
01095  _(VOID,_cfPU)(CFC_(UN,LN))( CFARGT27(NCF,KCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) );
01096 #else
01097 #define PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)     \
01098          PROTOCCALLSFSUB0(UN,LN)
01099 #define PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
01100          PROTOCCALLSFSUB0(UN,LN)
01101 #define PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
01102          PROTOCCALLSFSUB0(UN,LN)
01103 #endif
01104 #endif
01105 
01106 
01107 #ifdef OLD_VAXC                                  /* Allow %CC-I-PARAMNOTUSED. */
01108 #pragma standard
01109 #endif
01110 
01111 
01112 #define CCALLSFSUB1( UN,LN,T1,                        A1)         \
01113         CCALLSFSUB5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,0)
01114 #define CCALLSFSUB2( UN,LN,T1,T2,                     A1,A2)      \
01115         CCALLSFSUB5 (UN,LN,T1,T2,CF_0,CF_0,CF_0,A1,A2,0,0,0)
01116 #define CCALLSFSUB3( UN,LN,T1,T2,T3,                  A1,A2,A3)   \
01117         CCALLSFSUB5 (UN,LN,T1,T2,T3,CF_0,CF_0,A1,A2,A3,0,0)
01118 #define CCALLSFSUB4( UN,LN,T1,T2,T3,T4,               A1,A2,A3,A4)\
01119         CCALLSFSUB5 (UN,LN,T1,T2,T3,T4,CF_0,A1,A2,A3,A4,0)
01120 #define CCALLSFSUB5( UN,LN,T1,T2,T3,T4,T5,            A1,A2,A3,A4,A5)          \
01121         CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,0,0,0,0,0)
01122 #define CCALLSFSUB6( UN,LN,T1,T2,T3,T4,T5,T6,         A1,A2,A3,A4,A5,A6)       \
01123         CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,0,0,0,0)
01124 #define CCALLSFSUB7( UN,LN,T1,T2,T3,T4,T5,T6,T7,      A1,A2,A3,A4,A5,A6,A7)    \
01125         CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,0,0,0)
01126 #define CCALLSFSUB8( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,   A1,A2,A3,A4,A5,A6,A7,A8) \
01127         CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,0,0)
01128 #define CCALLSFSUB9( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,A1,A2,A3,A4,A5,A6,A7,A8,A9)\
01129         CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,0)
01130 #define CCALLSFSUB10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA)\
01131         CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,0,0,0,0)
01132 #define CCALLSFSUB11(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB)\
01133         CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,0,0,0)
01134 #define CCALLSFSUB12(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC)\
01135         CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,0,0)
01136 #define CCALLSFSUB13(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD)\
01137         CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,0)
01138 
01139 #ifdef __cplusplus
01140 #define CPPPROTOCLSFSUB0( UN,LN)
01141 #define CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
01142 #define CPPPROTOCLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
01143 #define CPPPROTOCLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
01144 #else
01145 #define CPPPROTOCLSFSUB0(UN,LN) \
01146         PROTOCCALLSFSUB0(UN,LN)
01147 #define CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)     \
01148         PROTOCCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
01149 #define CPPPROTOCLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
01150         PROTOCCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
01151 #define CPPPROTOCLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
01152         PROTOCCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
01153 #endif
01154 
01155 #ifdef CFSUBASFUN
01156 #define CCALLSFSUB0(UN,LN) CCALLSFFUN0(UN,LN)
01157 #define CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE)\
01158         CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE)
01159 #else
01160 /* do{...}while(0) allows if(a==b) FORT(); else BORT(); */
01161 #define CCALLSFSUB0( UN,LN) do{CPPPROTOCLSFSUB0(UN,LN) CFC_(UN,LN)();}while(0)
01162 #define CCALLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE)\
01163 do{VVCF(T1,A1,B1) VVCF(T2,A2,B2) VVCF(T3,A3,B3) VVCF(T4,A4,B4) VVCF(T5,A5,B5)  \
01164    VVCF(T6,A6,B6) VVCF(T7,A7,B7) VVCF(T8,A8,B8) VVCF(T9,A9,B9) VVCF(TA,AA,B10) \
01165    VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14)             \
01166    CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)          \
01167    ACF(LN,T1,A1,1)  ACF(LN,T2,A2,2)  ACF(LN,T3,A3,3)                           \
01168    ACF(LN,T4,A4,4)  ACF(LN,T5,A5,5)  ACF(LN,T6,A6,6)  ACF(LN,T7,A7,7)          \
01169    ACF(LN,T8,A8,8)  ACF(LN,T9,A9,9)  ACF(LN,TA,AA,10) ACF(LN,TB,AB,11)         \
01170    ACF(LN,TC,AC,12) ACF(LN,TD,AD,13) ACF(LN,TE,AE,14)                          \
01171    CFC_(UN,LN)( CFARGTA14(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE) );\
01172    WCF(T1,A1,1)  WCF(T2,A2,2)  WCF(T3,A3,3)  WCF(T4,A4,4)  WCF(T5,A5,5)        \
01173    WCF(T6,A6,6)  WCF(T7,A7,7)  WCF(T8,A8,8)  WCF(T9,A9,9)  WCF(TA,AA,10)       \
01174    WCF(TB,AB,11) WCF(TC,AC,12) WCF(TD,AD,13) WCF(TE,AE,14)      }while(0)
01175 #endif
01176 
01177 
01178 #if MAX_PREPRO_ARGS>31
01179 #define CCALLSFSUB15(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF)\
01180         CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,0,0,0,0,0)
01181 #define CCALLSFSUB16(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG)\
01182         CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,0,0,0,0)
01183 #define CCALLSFSUB17(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH)\
01184         CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,0,0,0)
01185 #define CCALLSFSUB18(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI)\
01186         CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,0,0)
01187 #define CCALLSFSUB19(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ)\
01188         CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,0)
01189 
01190 #ifdef CFSUBASFUN
01191 #define CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH, \
01192         TI,TJ,TK, A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) \
01193         CCALLSFFUN20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH, \
01194         TI,TJ,TK, A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK)
01195 #else
01196 #define CCALLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH, \
01197         TI,TJ,TK, A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) \
01198 do{VVCF(T1,A1,B1)  VVCF(T2,A2,B2)  VVCF(T3,A3,B3)  VVCF(T4,A4,B4)  VVCF(T5,A5,B5)   \
01199    VVCF(T6,A6,B6)  VVCF(T7,A7,B7)  VVCF(T8,A8,B8)  VVCF(T9,A9,B9)  VVCF(TA,AA,B10)  \
01200    VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14) VVCF(TF,AF,B15)  \
01201    VVCF(TG,AG,B16) VVCF(TH,AH,B17) VVCF(TI,AI,B18) VVCF(TJ,AJ,B19) VVCF(TK,AK,B20)  \
01202    CPPPROTOCLSFSUB20(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)  \
01203    ACF(LN,T1,A1,1)  ACF(LN,T2,A2,2)  ACF(LN,T3,A3,3)  ACF(LN,T4,A4,4)          \
01204    ACF(LN,T5,A5,5)  ACF(LN,T6,A6,6)  ACF(LN,T7,A7,7)  ACF(LN,T8,A8,8)          \
01205    ACF(LN,T9,A9,9)  ACF(LN,TA,AA,10) ACF(LN,TB,AB,11) ACF(LN,TC,AC,12)         \
01206    ACF(LN,TD,AD,13) ACF(LN,TE,AE,14) ACF(LN,TF,AF,15) ACF(LN,TG,AG,16)         \
01207    ACF(LN,TH,AH,17) ACF(LN,TI,AI,18) ACF(LN,TJ,AJ,19) ACF(LN,TK,AK,20)         \
01208    CFC_(UN,LN)( CFARGTA20(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK) ); \
01209  WCF(T1,A1,1)  WCF(T2,A2,2)  WCF(T3,A3,3)  WCF(T4,A4,4)  WCF(T5,A5,5)  WCF(T6,A6,6)  \
01210  WCF(T7,A7,7)  WCF(T8,A8,8)  WCF(T9,A9,9)  WCF(TA,AA,10) WCF(TB,AB,11) WCF(TC,AC,12) \
01211  WCF(TD,AD,13) WCF(TE,AE,14) WCF(TF,AF,15) WCF(TG,AG,16) WCF(TH,AH,17) WCF(TI,AI,18) \
01212  WCF(TJ,AJ,19) WCF(TK,AK,20) }while(0)
01213 #endif
01214 #endif         /* MAX_PREPRO_ARGS */
01215 
01216 #if MAX_PREPRO_ARGS>31
01217 #define CCALLSFSUB21(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL)\
01218         CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,0,0,0,0,0,0)
01219 #define CCALLSFSUB22(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM)\
01220         CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,0,0,0,0,0)
01221 #define CCALLSFSUB23(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN)\
01222         CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,0,0,0,0)
01223 #define CCALLSFSUB24(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO)\
01224         CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,0,0,0)
01225 #define CCALLSFSUB25(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP)\
01226         CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,0,0)
01227 #define CCALLSFSUB26(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ)\
01228         CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,0)
01229 
01230 #ifdef CFSUBASFUN
01231 #define CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR, \
01232                            A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) \
01233         CCALLSFFUN27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR, \
01234                            A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR)
01235 #else
01236 #define CCALLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR, \
01237                            A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) \
01238 do{VVCF(T1,A1,B1)  VVCF(T2,A2,B2)  VVCF(T3,A3,B3)  VVCF(T4,A4,B4)  VVCF(T5,A5,B5)   \
01239    VVCF(T6,A6,B6)  VVCF(T7,A7,B7)  VVCF(T8,A8,B8)  VVCF(T9,A9,B9)  VVCF(TA,AA,B10)  \
01240    VVCF(TB,AB,B11) VVCF(TC,AC,B12) VVCF(TD,AD,B13) VVCF(TE,AE,B14) VVCF(TF,AF,B15)  \
01241    VVCF(TG,AG,B16) VVCF(TH,AH,B17) VVCF(TI,AI,B18) VVCF(TJ,AJ,B19) VVCF(TK,AK,B20)  \
01242    VVCF(TL,AL,B21) VVCF(TM,AM,B22) VVCF(TN,AN,B23) VVCF(TO,AO,B24) VVCF(TP,AP,B25)  \
01243    VVCF(TQ,AQ,B26) VVCF(TR,AR,B27)                                                  \
01244    CPPPROTOCLSFSUB27(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
01245    ACF(LN,T1,A1,1)  ACF(LN,T2,A2,2)  ACF(LN,T3,A3,3)  ACF(LN,T4,A4,4)          \
01246    ACF(LN,T5,A5,5)  ACF(LN,T6,A6,6)  ACF(LN,T7,A7,7)  ACF(LN,T8,A8,8)          \
01247    ACF(LN,T9,A9,9)  ACF(LN,TA,AA,10) ACF(LN,TB,AB,11) ACF(LN,TC,AC,12)         \
01248    ACF(LN,TD,AD,13) ACF(LN,TE,AE,14) ACF(LN,TF,AF,15) ACF(LN,TG,AG,16)         \
01249    ACF(LN,TH,AH,17) ACF(LN,TI,AI,18) ACF(LN,TJ,AJ,19) ACF(LN,TK,AK,20)         \
01250    ACF(LN,TL,AL,21) ACF(LN,TM,AM,22) ACF(LN,TN,AN,23) ACF(LN,TO,AO,24)         \
01251    ACF(LN,TP,AP,25) ACF(LN,TQ,AQ,26) ACF(LN,TR,AR,27)                          \
01252    CFC_(UN,LN)( CFARGTA27(AACF,JCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR,\
01253                                    A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR) ); \
01254  WCF(T1,A1,1)  WCF(T2,A2,2)  WCF(T3,A3,3)  WCF(T4,A4,4)  WCF(T5,A5,5)  WCF(T6,A6,6)  \
01255  WCF(T7,A7,7)  WCF(T8,A8,8)  WCF(T9,A9,9)  WCF(TA,AA,10) WCF(TB,AB,11) WCF(TC,AC,12) \
01256  WCF(TD,AD,13) WCF(TE,AE,14) WCF(TF,AF,15) WCF(TG,AG,16) WCF(TH,AH,17) WCF(TI,AI,18) \
01257  WCF(TJ,AJ,19) WCF(TK,AK,20) WCF(TL,AL,21) WCF(TM,AM,22) WCF(TN,AN,23) WCF(TO,AO,24) \
01258  WCF(TP,AP,25) WCF(TQ,AQ,26) WCF(TR,AR,27) }while(0)
01259 #endif
01260 #endif         /* MAX_PREPRO_ARGS */
01261 
01262 /*-------------------------------------------------------------------------*/
01263 
01264 /*               UTILITIES FOR C TO CALL FORTRAN FUNCTIONS                 */
01265 
01266 /*N.B. PROTOCCALLSFFUNn(..) generates code, whether or not the FORTRAN
01267   function is called. Therefore, especially for creator's of C header files
01268   for large FORTRAN libraries which include many functions, to reduce
01269   compile time and object code size, it may be desirable to create
01270   preprocessor directives to allow users to create code for only those
01271   functions which they use.                                                */
01272 
01273 /* The following defines the maximum length string that a function can return.
01274    Of course it may be undefine-d and re-define-d before individual
01275    PROTOCCALLSFFUNn(..) as required. It would also be nice to have this derived
01276    from the individual machines' limits.                                      */
01277 #define MAX_LEN_FORTRAN_FUNCTION_STRING 0x4FE
01278 
01279 /* The following defines a character used by CFORTRAN.H to flag the end of a
01280    string coming out of a FORTRAN routine.                                 */
01281 #define CFORTRAN_NON_CHAR 0x7F
01282 
01283 #ifdef OLD_VAXC                                /* Prevent %CC-I-PARAMNOTUSED. */
01284 #pragma nostandard
01285 #endif
01286 
01287 #define _SEP_(TN,C,cfCOMMA)     _(__SEP_,C)(TN,cfCOMMA)
01288 #define __SEP_0(TN,cfCOMMA)  
01289 #define __SEP_1(TN,cfCOMMA)     _Icf(2,SEP,TN,cfCOMMA,0)
01290 #define        INT_cfSEP(T,B) _(A,B)
01291 #define       INTV_cfSEP(T,B) INT_cfSEP(T,B)
01292 #define      INTVV_cfSEP(T,B) INT_cfSEP(T,B)
01293 #define     INTVVV_cfSEP(T,B) INT_cfSEP(T,B)
01294 #define    INTVVVV_cfSEP(T,B) INT_cfSEP(T,B)
01295 #define   INTVVVVV_cfSEP(T,B) INT_cfSEP(T,B)
01296 #define  INTVVVVVV_cfSEP(T,B) INT_cfSEP(T,B)
01297 #define INTVVVVVVV_cfSEP(T,B) INT_cfSEP(T,B)
01298 #define       PINT_cfSEP(T,B) INT_cfSEP(T,B)
01299 #define      PVOID_cfSEP(T,B) INT_cfSEP(T,B)
01300 #define    ROUTINE_cfSEP(T,B) INT_cfSEP(T,B)
01301 #define     SIMPLE_cfSEP(T,B) INT_cfSEP(T,B)
01302 #define       VOID_cfSEP(T,B) INT_cfSEP(T,B)    /* For FORTRAN calls C subr.s.*/
01303 #define     STRING_cfSEP(T,B) INT_cfSEP(T,B)
01304 #define    STRINGV_cfSEP(T,B) INT_cfSEP(T,B)
01305 #define    PSTRING_cfSEP(T,B) INT_cfSEP(T,B)
01306 #define   PSTRINGV_cfSEP(T,B) INT_cfSEP(T,B)
01307 #define   PNSTRING_cfSEP(T,B) INT_cfSEP(T,B)
01308 #define   PPSTRING_cfSEP(T,B) INT_cfSEP(T,B)
01309 #define    ZTRINGV_cfSEP(T,B) INT_cfSEP(T,B)
01310 #define   PZTRINGV_cfSEP(T,B) INT_cfSEP(T,B)
01311                          
01312 #if defined(SIGNED_BYTE) || !defined(UNSIGNED_BYTE)
01313 #ifdef OLD_VAXC
01314 #define INTEGER_BYTE               char    /* Old VAXC barfs on 'signed char' */
01315 #else
01316 #define INTEGER_BYTE        signed char    /* default */
01317 #endif
01318 #else
01319 #define INTEGER_BYTE        unsigned char
01320 #endif
01321 #define    BYTEVVVVVVV_cfTYPE INTEGER_BYTE
01322 #define  DOUBLEVVVVVVV_cfTYPE DOUBLE_PRECISION 
01323 #define   FLOATVVVVVVV_cfTYPE FORTRAN_REAL
01324 #define     INTVVVVVVV_cfTYPE int
01325 #define LOGICALVVVVVVV_cfTYPE int
01326 #define    LONGVVVVVVV_cfTYPE long
01327 #define   SHORTVVVVVVV_cfTYPE short
01328 #define          PBYTE_cfTYPE INTEGER_BYTE
01329 #define        PDOUBLE_cfTYPE DOUBLE_PRECISION 
01330 #define         PFLOAT_cfTYPE FORTRAN_REAL
01331 #define           PINT_cfTYPE int
01332 #define       PLOGICAL_cfTYPE int
01333 #define          PLONG_cfTYPE long
01334 #define         PSHORT_cfTYPE short
01335 
01336 #define CFARGS0(A,T,V,W,X,Y,Z) _3(T,_cf,A)
01337 #define CFARGS1(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V)
01338 #define CFARGS2(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V,W)
01339 #define CFARGS3(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V,W,X)
01340 #define CFARGS4(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V,W,X,Y)
01341 #define CFARGS5(A,T,V,W,X,Y,Z) _3(T,_cf,A)(V,W,X,Y,Z)
01342 
01343 #define  _Icf(N,T,I,X,Y)                 _(I,_cfINT)(N,T,I,X,Y,0)
01344 #define _Icf4(N,T,I,X,Y,Z)               _(I,_cfINT)(N,T,I,X,Y,Z)
01345 #define           BYTE_cfINT(N,A,B,X,Y,Z)        DOUBLE_cfINT(N,A,B,X,Y,Z)
01346 #define         DOUBLE_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INT,B,X,Y,Z,0)
01347 #define          FLOAT_cfINT(N,A,B,X,Y,Z)        DOUBLE_cfINT(N,A,B,X,Y,Z)
01348 #define            INT_cfINT(N,A,B,X,Y,Z)        DOUBLE_cfINT(N,A,B,X,Y,Z)
01349 #define        LOGICAL_cfINT(N,A,B,X,Y,Z)        DOUBLE_cfINT(N,A,B,X,Y,Z)
01350 #define           LONG_cfINT(N,A,B,X,Y,Z)        DOUBLE_cfINT(N,A,B,X,Y,Z)
01351 #define          SHORT_cfINT(N,A,B,X,Y,Z)        DOUBLE_cfINT(N,A,B,X,Y,Z)
01352 #define          PBYTE_cfINT(N,A,B,X,Y,Z)       PDOUBLE_cfINT(N,A,B,X,Y,Z)
01353 #define        PDOUBLE_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,PINT,B,X,Y,Z,0)
01354 #define         PFLOAT_cfINT(N,A,B,X,Y,Z)       PDOUBLE_cfINT(N,A,B,X,Y,Z)
01355 #define           PINT_cfINT(N,A,B,X,Y,Z)       PDOUBLE_cfINT(N,A,B,X,Y,Z)
01356 #define       PLOGICAL_cfINT(N,A,B,X,Y,Z)       PDOUBLE_cfINT(N,A,B,X,Y,Z)
01357 #define          PLONG_cfINT(N,A,B,X,Y,Z)       PDOUBLE_cfINT(N,A,B,X,Y,Z)
01358 #define         PSHORT_cfINT(N,A,B,X,Y,Z)       PDOUBLE_cfINT(N,A,B,X,Y,Z)
01359 #define          BYTEV_cfINT(N,A,B,X,Y,Z)       DOUBLEV_cfINT(N,A,B,X,Y,Z)
01360 #define         BYTEVV_cfINT(N,A,B,X,Y,Z)      DOUBLEVV_cfINT(N,A,B,X,Y,Z)
01361 #define        BYTEVVV_cfINT(N,A,B,X,Y,Z)     DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
01362 #define       BYTEVVVV_cfINT(N,A,B,X,Y,Z)    DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
01363 #define      BYTEVVVVV_cfINT(N,A,B,X,Y,Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
01364 #define     BYTEVVVVVV_cfINT(N,A,B,X,Y,Z)  DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
01365 #define    BYTEVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
01366 #define        DOUBLEV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTV,B,X,Y,Z,0)
01367 #define       DOUBLEVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVV,B,X,Y,Z,0)
01368 #define      DOUBLEVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVV,B,X,Y,Z,0)
01369 #define     DOUBLEVVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVVV,B,X,Y,Z,0)
01370 #define    DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVVVV,B,X,Y,Z,0)
01371 #define   DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVVVVV,B,X,Y,Z,0)
01372 #define  DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,INTVVVVVVV,B,X,Y,Z,0)
01373 #define         FLOATV_cfINT(N,A,B,X,Y,Z)       DOUBLEV_cfINT(N,A,B,X,Y,Z)
01374 #define        FLOATVV_cfINT(N,A,B,X,Y,Z)      DOUBLEVV_cfINT(N,A,B,X,Y,Z)
01375 #define       FLOATVVV_cfINT(N,A,B,X,Y,Z)     DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
01376 #define      FLOATVVVV_cfINT(N,A,B,X,Y,Z)    DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
01377 #define     FLOATVVVVV_cfINT(N,A,B,X,Y,Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
01378 #define    FLOATVVVVVV_cfINT(N,A,B,X,Y,Z)  DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
01379 #define   FLOATVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
01380 #define           INTV_cfINT(N,A,B,X,Y,Z)       DOUBLEV_cfINT(N,A,B,X,Y,Z)
01381 #define          INTVV_cfINT(N,A,B,X,Y,Z)      DOUBLEVV_cfINT(N,A,B,X,Y,Z)
01382 #define         INTVVV_cfINT(N,A,B,X,Y,Z)     DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
01383 #define        INTVVVV_cfINT(N,A,B,X,Y,Z)    DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
01384 #define       INTVVVVV_cfINT(N,A,B,X,Y,Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
01385 #define      INTVVVVVV_cfINT(N,A,B,X,Y,Z)  DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
01386 #define     INTVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
01387 #define       LOGICALV_cfINT(N,A,B,X,Y,Z)       DOUBLEV_cfINT(N,A,B,X,Y,Z)
01388 #define      LOGICALVV_cfINT(N,A,B,X,Y,Z)      DOUBLEVV_cfINT(N,A,B,X,Y,Z)
01389 #define     LOGICALVVV_cfINT(N,A,B,X,Y,Z)     DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
01390 #define    LOGICALVVVV_cfINT(N,A,B,X,Y,Z)    DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
01391 #define   LOGICALVVVVV_cfINT(N,A,B,X,Y,Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
01392 #define  LOGICALVVVVVV_cfINT(N,A,B,X,Y,Z)  DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
01393 #define LOGICALVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
01394 #define          LONGV_cfINT(N,A,B,X,Y,Z)       DOUBLEV_cfINT(N,A,B,X,Y,Z)
01395 #define         LONGVV_cfINT(N,A,B,X,Y,Z)      DOUBLEVV_cfINT(N,A,B,X,Y,Z)
01396 #define        LONGVVV_cfINT(N,A,B,X,Y,Z)     DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
01397 #define       LONGVVVV_cfINT(N,A,B,X,Y,Z)    DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
01398 #define      LONGVVVVV_cfINT(N,A,B,X,Y,Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
01399 #define     LONGVVVVVV_cfINT(N,A,B,X,Y,Z)  DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
01400 #define    LONGVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
01401 #define         SHORTV_cfINT(N,A,B,X,Y,Z)       DOUBLEV_cfINT(N,A,B,X,Y,Z)
01402 #define        SHORTVV_cfINT(N,A,B,X,Y,Z)      DOUBLEVV_cfINT(N,A,B,X,Y,Z)
01403 #define       SHORTVVV_cfINT(N,A,B,X,Y,Z)     DOUBLEVVV_cfINT(N,A,B,X,Y,Z)
01404 #define      SHORTVVVV_cfINT(N,A,B,X,Y,Z)    DOUBLEVVVV_cfINT(N,A,B,X,Y,Z)
01405 #define     SHORTVVVVV_cfINT(N,A,B,X,Y,Z)   DOUBLEVVVVV_cfINT(N,A,B,X,Y,Z)
01406 #define    SHORTVVVVVV_cfINT(N,A,B,X,Y,Z)  DOUBLEVVVVVV_cfINT(N,A,B,X,Y,Z)
01407 #define   SHORTVVVVVVV_cfINT(N,A,B,X,Y,Z) DOUBLEVVVVVVV_cfINT(N,A,B,X,Y,Z)
01408 #define          PVOID_cfINT(N,A,B,X,Y,Z) _(CFARGS,N)(A,B,B,X,Y,Z,0)
01409 #define        ROUTINE_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01410 /*CRAY coughs on the first,
01411   i.e. the usual trouble of not being able to
01412   define macros to macros with arguments. 
01413   New ultrix is worse, it coughs on all such uses.
01414  */
01415 /*#define       SIMPLE_cfINT                    PVOID_cfINT*/
01416 #define         SIMPLE_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01417 #define           VOID_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01418 #define         STRING_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01419 #define        STRINGV_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01420 #define        PSTRING_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01421 #define       PSTRINGV_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01422 #define       PNSTRING_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01423 #define       PPSTRING_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01424 #define        ZTRINGV_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01425 #define       PZTRINGV_cfINT(N,A,B,X,Y,Z)         PVOID_cfINT(N,A,B,X,Y,Z)
01426 #define           CF_0_cfINT(N,A,B,X,Y,Z)
01427                          
01428 
01429 #define   UCF(TN,I,C)  _SEP_(TN,C,cfCOMMA) _Icf(2,U,TN,_(A,I),0)
01430 #define  UUCF(TN,I,C)  _SEP_(TN,C,cfCOMMA) _SEP_(TN,1,I) 
01431 #define UUUCF(TN,I,C)  _SEP_(TN,C,cfCOLON) _Icf(2,U,TN,_(A,I),0)
01432 #define        INT_cfU(T,A) _(T,VVVVVVV_cfTYPE)   A
01433 #define       INTV_cfU(T,A) _(T,VVVVVV_cfTYPE)  * A
01434 #define      INTVV_cfU(T,A) _(T,VVVVV_cfTYPE)   * A
01435 #define     INTVVV_cfU(T,A) _(T,VVVV_cfTYPE)    * A
01436 #define    INTVVVV_cfU(T,A) _(T,VVV_cfTYPE)     * A
01437 #define   INTVVVVV_cfU(T,A) _(T,VV_cfTYPE)      * A
01438 #define  INTVVVVVV_cfU(T,A) _(T,V_cfTYPE)       * A
01439 #define INTVVVVVVV_cfU(T,A) _(T,_cfTYPE)        * A
01440 #define       PINT_cfU(T,A) _(T,_cfTYPE)        * A
01441 #define      PVOID_cfU(T,A) void  *A 
01442 #define    ROUTINE_cfU(T,A) void (*A)(CF_NULL_PROTO) 
01443 #define       VOID_cfU(T,A) void   A    /* Needed for C calls FORTRAN sub.s.  */
01444 #define     STRING_cfU(T,A) char  *A    /*            via VOID and wrapper.   */
01445 #define    STRINGV_cfU(T,A) char  *A
01446 #define    PSTRING_cfU(T,A) char  *A
01447 #define   PSTRINGV_cfU(T,A) char  *A
01448 #define    ZTRINGV_cfU(T,A) char  *A
01449 #define   PZTRINGV_cfU(T,A) char  *A
01450 
01451 /* VOID breaks U into U and UU. */
01452 #define       INT_cfUU(T,A) _(T,VVVVVVV_cfTYPE) A
01453 #define      VOID_cfUU(T,A)             /* Needed for FORTRAN calls C sub.s.  */
01454 #define    STRING_cfUU(T,A) char *A 
01455 
01456 
01457 #define      BYTE_cfPU(A)   CFextern INTEGER_BYTE      FCALLSC_QUALIFIER A
01458 #define    DOUBLE_cfPU(A)   CFextern DOUBLE_PRECISION  FCALLSC_QUALIFIER A
01459 #if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
01460 #define     FLOAT_cfPU(A)   CFextern FORTRAN_REAL      FCALLSC_QUALIFIER A
01461 #else                                                      
01462 #define     FLOAT_cfPU(A)   CFextern FLOATFUNCTIONTYPE FCALLSC_QUALIFIER A
01463 #endif                                                     
01464 #define       INT_cfPU(A)   CFextern int   FCALLSC_QUALIFIER   A
01465 #define   LOGICAL_cfPU(A)   CFextern int   FCALLSC_QUALIFIER   A
01466 #define      LONG_cfPU(A)   CFextern long  FCALLSC_QUALIFIER   A
01467 #define     SHORT_cfPU(A)   CFextern short FCALLSC_QUALIFIER   A
01468 #define    STRING_cfPU(A)   CFextern void  FCALLSC_QUALIFIER   A
01469 #define      VOID_cfPU(A)   CFextern void  FCALLSC_QUALIFIER   A
01470 
01471 #define    BYTE_cfE INTEGER_BYTE     A0;
01472 #define  DOUBLE_cfE DOUBLE_PRECISION A0;
01473 #if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
01474 #define   FLOAT_cfE FORTRAN_REAL  A0;
01475 #else
01476 #define   FLOAT_cfE FORTRAN_REAL AA0;   FLOATFUNCTIONTYPE A0;
01477 #endif
01478 #define     INT_cfE int    A0;
01479 #define LOGICAL_cfE int    A0;
01480 #define    LONG_cfE long   A0;
01481 #define   SHORT_cfE short  A0;
01482 #define    VOID_cfE
01483 #ifdef vmsFortran
01484 #define  STRING_cfE static char AA0[1+MAX_LEN_FORTRAN_FUNCTION_STRING];        \
01485                        static fstring A0 =                                     \
01486              {MAX_LEN_FORTRAN_FUNCTION_STRING,DSC$K_DTYPE_T,DSC$K_CLASS_S,AA0};\
01487                memset(AA0, CFORTRAN_NON_CHAR, MAX_LEN_FORTRAN_FUNCTION_STRING);\
01488                                     *(AA0+MAX_LEN_FORTRAN_FUNCTION_STRING)='\0';
01489 #else
01490 #ifdef CRAYFortran
01491 #define  STRING_cfE static char AA0[1+MAX_LEN_FORTRAN_FUNCTION_STRING];        \
01492                    static _fcd A0; *(AA0+MAX_LEN_FORTRAN_FUNCTION_STRING)='\0';\
01493                 memset(AA0,CFORTRAN_NON_CHAR, MAX_LEN_FORTRAN_FUNCTION_STRING);\
01494                             A0 = _cptofcd(AA0,MAX_LEN_FORTRAN_FUNCTION_STRING);
01495 #else
01496 /* 'cc: SC3.0.1 13 Jul 1994' barfs on char A0[0x4FE+1]; 
01497  * char A0[0x4FE +1]; char A0[1+0x4FE]; are both OK.     */
01498 #define STRING_cfE static char A0[1+MAX_LEN_FORTRAN_FUNCTION_STRING];          \
01499                        memset(A0, CFORTRAN_NON_CHAR,                           \
01500                               MAX_LEN_FORTRAN_FUNCTION_STRING);                \
01501                        *(A0+MAX_LEN_FORTRAN_FUNCTION_STRING)='\0';
01502 #endif
01503 #endif
01504 /* ESTRING must use static char. array which is guaranteed to exist after
01505    function returns.                                                     */
01506 
01507 /* N.B.i) The diff. for 0 (Zero) and >=1 arguments.
01508        ii)That the following create an unmatched bracket, i.e. '(', which
01509           must of course be matched in the call.
01510        iii)Commas must be handled very carefully                         */
01511 #define    INT_cfGZ(T,UN,LN) A0=CFC_(UN,LN)(
01512 #define   VOID_cfGZ(T,UN,LN)    CFC_(UN,LN)(
01513 #ifdef vmsFortran
01514 #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)(&A0
01515 #else
01516 #if defined(CRAYFortran) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
01517 #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)( A0
01518 #else
01519 #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)( A0,MAX_LEN_FORTRAN_FUNCTION_STRING
01520 #endif
01521 #endif
01522 
01523 #define     INT_cfG(T,UN,LN)    INT_cfGZ(T,UN,LN)
01524 #define    VOID_cfG(T,UN,LN)   VOID_cfGZ(T,UN,LN)
01525 #define  STRING_cfG(T,UN,LN) STRING_cfGZ(T,UN,LN), /*, is only diff. from _cfG*/
01526 
01527 #define    BYTEVVVVVVV_cfPP
01528 #define     INTVVVVVVV_cfPP     /* These complement FLOATVVVVVVV_cfPP. */
01529 #define  DOUBLEVVVVVVV_cfPP
01530 #define LOGICALVVVVVVV_cfPP
01531 #define    LONGVVVVVVV_cfPP
01532 #define   SHORTVVVVVVV_cfPP
01533 #define          PBYTE_cfPP
01534 #define           PINT_cfPP
01535 #define        PDOUBLE_cfPP
01536 #define       PLOGICAL_cfPP
01537 #define          PLONG_cfPP
01538 #define         PSHORT_cfPP
01539 #define         PFLOAT_cfPP FLOATVVVVVVV_cfPP
01540 
01541 #define BCF(TN,AN,C)        _SEP_(TN,C,cfCOMMA) _Icf(2,B,TN,AN,0)
01542 #define        INT_cfB(T,A) (_(T,VVVVVVV_cfTYPE)) A
01543 #define       INTV_cfB(T,A)            A
01544 #define      INTVV_cfB(T,A)           (A)[0]
01545 #define     INTVVV_cfB(T,A)           (A)[0][0]
01546 #define    INTVVVV_cfB(T,A)           (A)[0][0][0]
01547 #define   INTVVVVV_cfB(T,A)           (A)[0][0][0][0]
01548 #define  INTVVVVVV_cfB(T,A)           (A)[0][0][0][0][0]
01549 #define INTVVVVVVV_cfB(T,A)           (A)[0][0][0][0][0][0]
01550 #define       PINT_cfB(T,A) _(T,_cfPP)&A
01551 #define     STRING_cfB(T,A) (char *)   A
01552 #define    STRINGV_cfB(T,A) (char *)   A
01553 #define    PSTRING_cfB(T,A) (char *)   A
01554 #define   PSTRINGV_cfB(T,A) (char *)   A
01555 #define      PVOID_cfB(T,A) (void *)   A
01556 #define    ROUTINE_cfB(T,A) (cfCAST_FUNCTION)A
01557 #define    ZTRINGV_cfB(T,A) (char *)   A
01558 #define   PZTRINGV_cfB(T,A) (char *)   A
01559                                                                 
01560 #define SCF(TN,NAME,I,A)    _(TN,_cfSTR)(3,S,NAME,I,A,0,0)
01561 #define  DEFAULT_cfS(M,I,A)
01562 #define  LOGICAL_cfS(M,I,A)
01563 #define PLOGICAL_cfS(M,I,A)
01564 #define   STRING_cfS(M,I,A) ,sizeof(A)
01565 #define  STRINGV_cfS(M,I,A) ,( (unsigned)0xFFFF*firstindexlength(A) \
01566                               +secondindexlength(A))
01567 #define  PSTRING_cfS(M,I,A) ,sizeof(A)
01568 #define PSTRINGV_cfS(M,I,A) STRINGV_cfS(M,I,A)
01569 #define  ZTRINGV_cfS(M,I,A)
01570 #define PZTRINGV_cfS(M,I,A)
01571 
01572 #define   HCF(TN,I)         _(TN,_cfSTR)(3,H,cfCOMMA, H,_(C,I),0,0)
01573 #define  HHCF(TN,I)         _(TN,_cfSTR)(3,H,cfCOMMA,HH,_(C,I),0,0)
01574 #define HHHCF(TN,I)         _(TN,_cfSTR)(3,H,cfCOLON, H,_(C,I),0,0)
01575 #define  H_CF_SPECIAL       unsigned
01576 #define HH_CF_SPECIAL
01577 #define  DEFAULT_cfH(M,I,A)
01578 #define  LOGICAL_cfH(S,U,B)
01579 #define PLOGICAL_cfH(S,U,B)
01580 #define   STRING_cfH(S,U,B) _(A,S) _(U,_CF_SPECIAL) B
01581 #define  STRINGV_cfH(S,U,B) STRING_cfH(S,U,B)
01582 #define  PSTRING_cfH(S,U,B) STRING_cfH(S,U,B)
01583 #define PSTRINGV_cfH(S,U,B) STRING_cfH(S,U,B)
01584 #define PNSTRING_cfH(S,U,B) STRING_cfH(S,U,B)
01585 #define PPSTRING_cfH(S,U,B) STRING_cfH(S,U,B)
01586 #define  ZTRINGV_cfH(S,U,B)
01587 #define PZTRINGV_cfH(S,U,B)
01588 
01589 /* Need VOID_cfSTR because Absoft forced function types go through _cfSTR. */
01590 /* No spaces inside expansion. They screws up macro catenation kludge.     */
01591 #define           VOID_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01592 #define           BYTE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01593 #define         DOUBLE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01594 #define          FLOAT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01595 #define            INT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01596 #define        LOGICAL_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,LOGICAL,A,B,C,D,E)
01597 #define           LONG_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01598 #define          SHORT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01599 #define          BYTEV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01600 #define         BYTEVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01601 #define        BYTEVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01602 #define       BYTEVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01603 #define      BYTEVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01604 #define     BYTEVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01605 #define    BYTEVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01606 #define        DOUBLEV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01607 #define       DOUBLEVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01608 #define      DOUBLEVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01609 #define     DOUBLEVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01610 #define    DOUBLEVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01611 #define   DOUBLEVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01612 #define  DOUBLEVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01613 #define         FLOATV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01614 #define        FLOATVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01615 #define       FLOATVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01616 #define      FLOATVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01617 #define     FLOATVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01618 #define    FLOATVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01619 #define   FLOATVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01620 #define           INTV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01621 #define          INTVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01622 #define         INTVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01623 #define        INTVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01624 #define       INTVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01625 #define      INTVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01626 #define     INTVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01627 #define       LOGICALV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01628 #define      LOGICALVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01629 #define     LOGICALVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01630 #define    LOGICALVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01631 #define   LOGICALVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01632 #define  LOGICALVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01633 #define LOGICALVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01634 #define          LONGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01635 #define         LONGVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01636 #define        LONGVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01637 #define       LONGVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01638 #define      LONGVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01639 #define     LONGVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01640 #define    LONGVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01641 #define         SHORTV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01642 #define        SHORTVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01643 #define       SHORTVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01644 #define      SHORTVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01645 #define     SHORTVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01646 #define    SHORTVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01647 #define   SHORTVVVVVVV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01648 #define          PBYTE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01649 #define        PDOUBLE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01650 #define         PFLOAT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01651 #define           PINT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01652 #define       PLOGICAL_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PLOGICAL,A,B,C,D,E)
01653 #define          PLONG_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01654 #define         PSHORT_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01655 #define         STRING_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,STRING,A,B,C,D,E)
01656 #define        PSTRING_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PSTRING,A,B,C,D,E)
01657 #define        STRINGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,STRINGV,A,B,C,D,E)
01658 #define       PSTRINGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PSTRINGV,A,B,C,D,E)
01659 #define       PNSTRING_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PNSTRING,A,B,C,D,E)
01660 #define       PPSTRING_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PPSTRING,A,B,C,D,E)
01661 #define          PVOID_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01662 #define        ROUTINE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01663 #define         SIMPLE_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,DEFAULT,A,B,C,D,E)
01664 #define        ZTRINGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,ZTRINGV,A,B,C,D,E)
01665 #define       PZTRINGV_cfSTR(N,T,A,B,C,D,E) _(CFARGS,N)(T,PZTRINGV,A,B,C,D,E)
01666 #define           CF_0_cfSTR(N,T,A,B,C,D,E)
01667 
01668 /* See ACF table comments, which explain why CCF was split into two. */
01669 #define CCF(NAME,TN,I)     _(TN,_cfSTR)(5,C,NAME,I,_(A,I),_(B,I),_(C,I))
01670 #define  DEFAULT_cfC(M,I,A,B,C)
01671 #define  LOGICAL_cfC(M,I,A,B,C)  A=C2FLOGICAL( A);
01672 #define PLOGICAL_cfC(M,I,A,B,C) *A=C2FLOGICAL(*A);
01673 #ifdef vmsFortran
01674 #define   STRING_cfC(M,I,A,B,C) (B.clen=strlen(A),B.f.dsc$a_pointer=A,         \
01675         C==sizeof(char*)||C==(unsigned)(B.clen+1)?B.f.dsc$w_length=B.clen:     \
01676           (memset((A)+B.clen,' ',C-B.clen-1),A[B.f.dsc$w_length=C-1]='\0'));
01677       /* PSTRING_cfC to beware of array A which does not contain any \0.      */
01678 #define  PSTRING_cfC(M,I,A,B,C) (B.dsc$a_pointer=A, C==sizeof(char*) ?         \
01679              B.dsc$w_length=strlen(A):  (A[C-1]='\0',B.dsc$w_length=strlen(A), \
01680        memset((A)+B.dsc$w_length,' ',C-B.dsc$w_length-1), B.dsc$w_length=C-1));
01681 #else
01682 #define   STRING_cfC(M,I,A,B,C) (B.clen=strlen(A),                             \
01683                 C==sizeof(char*)||C==(unsigned)(B.clen+1)?B.flen=B.clen:       \
01684                         (memset((A)+B.clen,' ',C-B.clen-1),A[B.flen=C-1]='\0'));
01685 #define  PSTRING_cfC(M,I,A,B,C) (C==sizeof(char*)? B=strlen(A):                \
01686                     (A[C-1]='\0',B=strlen(A),memset((A)+B,' ',C-B-1),B=C-1));
01687 #endif
01688           /* For CRAYFortran for (P)STRINGV_cfC, B.fs is set, but irrelevant. */
01689 #define  STRINGV_cfC(M,I,A,B,C) \
01690         AATRINGV_cfA(    A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)
01691 #define PSTRINGV_cfC(M,I,A,B,C) \
01692        APATRINGV_cfA(    A,B,(C/0xFFFF)*(C%0xFFFF),C/0xFFFF,C%0xFFFF)
01693 #define  ZTRINGV_cfC(M,I,A,B,C) \
01694         AATRINGV_cfA(    A,B, (_3(M,_ELEMS_,I))*((_3(M,_ELEMLEN_,I))+1),       \
01695                               (_3(M,_ELEMS_,I)), (_3(M,_ELEMLEN_,I))+1   )
01696 #define PZTRINGV_cfC(M,I,A,B,C) \
01697        APATRINGV_cfA(    A,B, (_3(M,_ELEMS_,I))*((_3(M,_ELEMLEN_,I))+1),       \
01698                               (_3(M,_ELEMS_,I)), (_3(M,_ELEMLEN_,I))+1   )
01699 
01700 #define     BYTE_cfCCC(A,B) &A
01701 #define   DOUBLE_cfCCC(A,B) &A
01702 #if !defined(__CF__KnR)
01703 #define    FLOAT_cfCCC(A,B) &A
01704                                /* Although the VAX doesn't, at least the      */
01705 #else                          /* HP and K&R mips promote float arg.'s of     */
01706 #define    FLOAT_cfCCC(A,B) &B /* unprototyped functions to double. Cannot    */
01707 #endif                         /* use A here to pass the argument to FORTRAN. */
01708 #define      INT_cfCCC(A,B) &A
01709 #define  LOGICAL_cfCCC(A,B) &A
01710 #define     LONG_cfCCC(A,B) &A
01711 #define    SHORT_cfCCC(A,B) &A
01712 #define    PBYTE_cfCCC(A,B)  A
01713 #define  PDOUBLE_cfCCC(A,B)  A
01714 #define   PFLOAT_cfCCC(A,B)  A
01715 #define     PINT_cfCCC(A,B)  A
01716 #define PLOGICAL_cfCCC(A,B)  B=A       /* B used to keep a common W table. */
01717 #define    PLONG_cfCCC(A,B)  A
01718 #define   PSHORT_cfCCC(A,B)  A
01719 
01720 #define CCCF(TN,I,M)           _SEP_(TN,M,cfCOMMA) _Icf(3,CC,TN,_(A,I),_(B,I))
01721 #define        INT_cfCC(T,A,B) _(T,_cfCCC)(A,B) 
01722 #define       INTV_cfCC(T,A,B)  A
01723 #define      INTVV_cfCC(T,A,B)  A
01724 #define     INTVVV_cfCC(T,A,B)  A
01725 #define    INTVVVV_cfCC(T,A,B)  A
01726 #define   INTVVVVV_cfCC(T,A,B)  A
01727 #define  INTVVVVVV_cfCC(T,A,B)  A
01728 #define INTVVVVVVV_cfCC(T,A,B)  A
01729 #define       PINT_cfCC(T,A,B) _(T,_cfCCC)(A,B) 
01730 #define      PVOID_cfCC(T,A,B)  A
01731 #if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
01732 #define    ROUTINE_cfCC(T,A,B) &A
01733 #else
01734 #define    ROUTINE_cfCC(T,A,B)  A
01735 #endif
01736 #define     SIMPLE_cfCC(T,A,B)  A
01737 #ifdef vmsFortran
01738 #define     STRING_cfCC(T,A,B) &B.f
01739 #define    STRINGV_cfCC(T,A,B) &B
01740 #define    PSTRING_cfCC(T,A,B) &B
01741 #define   PSTRINGV_cfCC(T,A,B) &B
01742 #else
01743 #ifdef CRAYFortran
01744 #define     STRING_cfCC(T,A,B) _cptofcd(A,B.flen)
01745 #define    STRINGV_cfCC(T,A,B) _cptofcd(B.s,B.flen)
01746 #define    PSTRING_cfCC(T,A,B) _cptofcd(A,B)
01747 #define   PSTRINGV_cfCC(T,A,B) _cptofcd(A,B.flen)
01748 #else
01749 #define     STRING_cfCC(T,A,B)  A
01750 #define    STRINGV_cfCC(T,A,B)  B.fs
01751 #define    PSTRING_cfCC(T,A,B)  A
01752 #define   PSTRINGV_cfCC(T,A,B)  B.fs
01753 #endif
01754 #endif
01755 #define    ZTRINGV_cfCC(T,A,B)   STRINGV_cfCC(T,A,B)
01756 #define   PZTRINGV_cfCC(T,A,B)  PSTRINGV_cfCC(T,A,B)
01757 
01758 #define    BYTE_cfX  return A0;
01759 #define  DOUBLE_cfX  return A0;
01760 #if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
01761 #define   FLOAT_cfX  return A0;
01762 #else
01763 #define   FLOAT_cfX  ASSIGNFLOAT(AA0,A0); return AA0;
01764 #endif
01765 #define     INT_cfX  return A0;
01766 #define LOGICAL_cfX  return F2CLOGICAL(A0);
01767 #define    LONG_cfX  return A0;
01768 #define   SHORT_cfX  return A0;
01769 #define    VOID_cfX  return   ;
01770 #if defined(vmsFortran) || defined(CRAYFortran)
01771 #define  STRING_cfX  return kill_trailing(                                     \
01772                                       kill_trailing(AA0,CFORTRAN_NON_CHAR),' ');
01773 #else
01774 #define  STRING_cfX  return kill_trailing(                                     \
01775                                       kill_trailing( A0,CFORTRAN_NON_CHAR),' ');
01776 #endif
01777 
01778 #define CFFUN(NAME) _(__cf__,NAME)
01779 
01780 /* Note that we don't use LN here, but we keep it for consistency. */
01781 #define CCALLSFFUN0(UN,LN) CFFUN(UN)()
01782 
01783 #ifdef OLD_VAXC                                  /* Allow %CC-I-PARAMNOTUSED. */
01784 #pragma standard
01785 #endif
01786 
01787 #define CCALLSFFUN1( UN,LN,T1,                        A1)         \
01788         CCALLSFFUN5 (UN,LN,T1,CF_0,CF_0,CF_0,CF_0,A1,0,0,0,0)
01789 #define CCALLSFFUN2( UN,LN,T1,T2,                     A1,A2)      \
01790         CCALLSFFUN5 (UN,LN,T1,T2,CF_0,CF_0,CF_0,A1,A2,0,0,0)
01791 #define CCALLSFFUN3( UN,LN,T1,T2,T3,                  A1,A2,A3)   \
01792         CCALLSFFUN5 (UN,LN,T1,T2,T3,CF_0,CF_0,A1,A2,A3,0,0)
01793 #define CCALLSFFUN4( UN,LN,T1,T2,T3,T4,               A1,A2,A3,A4)\
01794         CCALLSFFUN5 (UN,LN,T1,T2,T3,T4,CF_0,A1,A2,A3,A4,0)
01795 #define CCALLSFFUN5( UN,LN,T1,T2,T3,T4,T5,            A1,A2,A3,A4,A5)          \
01796         CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,0,0,0,0,0)
01797 #define CCALLSFFUN6( UN,LN,T1,T2,T3,T4,T5,T6,         A1,A2,A3,A4,A5,A6)       \
01798         CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,0,0,0,0)
01799 #define CCALLSFFUN7( UN,LN,T1,T2,T3,T4,T5,T6,T7,      A1,A2,A3,A4,A5,A6,A7)    \
01800         CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,0,0,0)
01801 #define CCALLSFFUN8( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,   A1,A2,A3,A4,A5,A6,A7,A8) \
01802         CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,0,0)
01803 #define CCALLSFFUN9( UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,A1,A2,A3,A4,A5,A6,A7,A8,A9)\
01804         CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,0)
01805 #define CCALLSFFUN10(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA)\
01806         CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,0,0,0,0)
01807 #define CCALLSFFUN11(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB)\
01808         CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,0,0,0)
01809 #define CCALLSFFUN12(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC)\
01810         CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,0,0)
01811 #define CCALLSFFUN13(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD)\
01812         CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,0)
01813 
01814 #define CCALLSFFUN14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE)\
01815 ((CFFUN(UN)(  BCF(T1,A1,0) BCF(T2,A2,1) BCF(T3,A3,1) BCF(T4,A4,1) BCF(T5,A5,1) \
01816               BCF(T6,A6,1) BCF(T7,A7,1) BCF(T8,A8,1) BCF(T9,A9,1) BCF(TA,AA,1) \
01817               BCF(TB,AB,1) BCF(TC,AC,1) BCF(TD,AD,1) BCF(TE,AE,1)              \
01818            SCF(T1,LN,1,A1)  SCF(T2,LN,2,A2)  SCF(T3,LN,3,A3)  SCF(T4,LN,4,A4)  \
01819            SCF(T5,LN,5,A5)  SCF(T6,LN,6,A6)  SCF(T7,LN,7,A7)  SCF(T8,LN,8,A8)  \
01820            SCF(T9,LN,9,A9)  SCF(TA,LN,10,AA) SCF(TB,LN,11,AB) SCF(TC,LN,12,AC) \
01821            SCF(TD,LN,13,AD) SCF(TE,LN,14,AE))))
01822 
01823 /*  N.B. Create a separate function instead of using (call function, function
01824 value here) because in order to create the variables needed for the input
01825 arg.'s which may be const.'s one has to do the creation within {}, but these
01826 can never be placed within ()'s. Therefore one must create wrapper functions.
01827 gcc, on the other hand may be able to avoid the wrapper functions. */
01828 
01829 /* Prototypes are needed to correctly handle the value returned correctly. N.B.
01830 Can only have prototype arg.'s with difficulty, a la G... table since FORTRAN
01831 functions returning strings have extra arg.'s. Don't bother, since this only
01832 causes a compiler warning to come up when one uses FCALLSCFUNn and CCALLSFFUNn
01833 for the same function in the same source code. Something done by the experts in
01834 debugging only.*/    
01835 
01836 #define PROTOCCALLSFFUN0(F,UN,LN)                                              \
01837 _(F,_cfPU)( CFC_(UN,LN))(CF_NULL_PROTO);                                       \
01838 static _Icf(2,U,F,CFFUN(UN),0)() {_(F,_cfE) _Icf(3,GZ,F,UN,LN) ABSOFT_cf1(F));_(F,_cfX)}
01839 
01840 #define PROTOCCALLSFFUN1( T0,UN,LN,T1)                                         \
01841         PROTOCCALLSFFUN5 (T0,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)
01842 #define PROTOCCALLSFFUN2( T0,UN,LN,T1,T2)                                      \
01843         PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,CF_0,CF_0,CF_0)
01844 #define PROTOCCALLSFFUN3( T0,UN,LN,T1,T2,T3)                                   \
01845         PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,CF_0,CF_0)
01846 #define PROTOCCALLSFFUN4( T0,UN,LN,T1,T2,T3,T4)                                \
01847         PROTOCCALLSFFUN5 (T0,UN,LN,T1,T2,T3,T4,CF_0)
01848 #define PROTOCCALLSFFUN5( T0,UN,LN,T1,T2,T3,T4,T5)                             \
01849         PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0)
01850 #define PROTOCCALLSFFUN6( T0,UN,LN,T1,T2,T3,T4,T5,T6)                          \
01851         PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0)
01852 #define PROTOCCALLSFFUN7( T0,UN,LN,T1,T2,T3,T4,T5,T6,T7)                       \
01853         PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0)
01854 #define PROTOCCALLSFFUN8( T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8)                    \
01855         PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0)
01856 #define PROTOCCALLSFFUN9( T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9)                 \
01857         PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0)
01858 #define PROTOCCALLSFFUN10(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA)              \
01859         PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
01860 #define PROTOCCALLSFFUN11(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB)           \
01861         PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
01862 #define PROTOCCALLSFFUN12(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC)        \
01863         PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
01864 #define PROTOCCALLSFFUN13(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD)     \
01865         PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
01866 
01867 /* HP/UX 9.01 cc requires the blank between '_Icf(3,G,T0,UN,LN) CCCF(T1,1,0)' */
01868 
01869 #ifndef __CF__KnR
01870 #define PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)  \
01871  _(T0,_cfPU)(CFC_(UN,LN))(CF_NULL_PROTO); static _Icf(2,U,T0,CFFUN(UN),0)(     \
01872    CFARGT14FS(UCF,HCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) )          \
01873 {       CFARGT14S(VCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)    _(T0,_cfE) \
01874  CCF(LN,T1,1)  CCF(LN,T2,2)  CCF(LN,T3,3)  CCF(LN,T4,4)  CCF(LN,T5,5)          \
01875  CCF(LN,T6,6)  CCF(LN,T7,7)  CCF(LN,T8,8)  CCF(LN,T9,9)  CCF(LN,TA,10)         \
01876  CCF(LN,TB,11) CCF(LN,TC,12) CCF(LN,TD,13) CCF(LN,TE,14)    _Icf(3,G,T0,UN,LN) \
01877  CFARGT14(CCCF,JCF,ABSOFT_cf1(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)); \
01878  WCF(T1,A1,1)   WCF(T2,A2,2)   WCF(T3,A3,3)   WCF(T4,A4,4)  WCF(T5,A5,5)       \
01879  WCF(T6,A6,6)   WCF(T7,A7,7)   WCF(T8,A8,8)   WCF(T9,A9,9)  WCF(TA,A10,10)     \
01880  WCF(TB,A11,11) WCF(TC,A12,12) WCF(TD,A13,13) WCF(TE,A14,14) _(T0,_cfX)}
01881 #else
01882 #define PROTOCCALLSFFUN14(T0,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)  \
01883  _(T0,_cfPU)(CFC_(UN,LN))(CF_NULL_PROTO); static _Icf(2,U,T0,CFFUN(UN),0)(     \
01884    CFARGT14FS(UUCF,HHCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) )        \
01885  CFARGT14FS(UUUCF,HHHCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) ;        \
01886 {       CFARGT14S(VCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)    _(T0,_cfE) \
01887  CCF(LN,T1,1)  CCF(LN,T2,2)  CCF(LN,T3,3)  CCF(LN,T4,4)  CCF(LN,T5,5)          \
01888  CCF(LN,T6,6)  CCF(LN,T7,7)  CCF(LN,T8,8)  CCF(LN,T9,9)  CCF(LN,TA,10)         \
01889  CCF(LN,TB,11) CCF(LN,TC,12) CCF(LN,TD,13) CCF(LN,TE,14)    _Icf(3,G,T0,UN,LN) \
01890  CFARGT14(CCCF,JCF,ABSOFT_cf1(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)); \
01891  WCF(T1,A1,1)   WCF(T2,A2,2)   WCF(T3,A3,3)   WCF(T4,A4,4)   WCF(T5,A5,5)      \
01892  WCF(T6,A6,6)   WCF(T7,A7,7)   WCF(T8,A8,8)   WCF(T9,A9,9)   WCF(TA,A10,10)    \
01893  WCF(TB,A11,11) WCF(TC,A12,12) WCF(TD,A13,13) WCF(TE,A14,14) _(T0,_cfX)}
01894 #endif
01895 
01896 /*-------------------------------------------------------------------------*/
01897 
01898 /*               UTILITIES FOR FORTRAN TO CALL C ROUTINES                  */
01899 
01900 #ifdef OLD_VAXC                                /* Prevent %CC-I-PARAMNOTUSED. */
01901 #pragma nostandard
01902 #endif
01903 
01904 #if defined(vmsFortran) || defined(CRAYFortran)
01905 #define   DCF(TN,I)
01906 #define  DDCF(TN,I)
01907 #define DDDCF(TN,I)
01908 #else
01909 #define   DCF(TN,I)          HCF(TN,I)
01910 #define  DDCF(TN,I)         HHCF(TN,I)
01911 #define DDDCF(TN,I)        HHHCF(TN,I)
01912 #endif
01913 
01914 #define QCF(TN,I)       _(TN,_cfSTR)(1,Q,_(B,I), 0,0,0,0)
01915 #define  DEFAULT_cfQ(B)
01916 #define  LOGICAL_cfQ(B)
01917 #define PLOGICAL_cfQ(B)
01918 #define  STRINGV_cfQ(B) char *B; unsigned int _(B,N);
01919 #define   STRING_cfQ(B) char *B=NULL;
01920 #define  PSTRING_cfQ(B) char *B=NULL;
01921 #define PSTRINGV_cfQ(B) STRINGV_cfQ(B)
01922 #define PNSTRING_cfQ(B) char *B=NULL;
01923 #define PPSTRING_cfQ(B)
01924 
01925 #ifdef     __sgi   /* Else SGI gives warning 182 contrary to its C LRM A.17.7 */
01926 #define ROUTINE_orig    *(void**)& 
01927 #else
01928 #define ROUTINE_orig     (void *)  
01929 #endif
01930 
01931 #define ROUTINE_1     ROUTINE_orig   
01932 #define ROUTINE_2     ROUTINE_orig   
01933 #define ROUTINE_3     ROUTINE_orig   
01934 #define ROUTINE_4     ROUTINE_orig   
01935 #define ROUTINE_5     ROUTINE_orig   
01936 #define ROUTINE_6     ROUTINE_orig   
01937 #define ROUTINE_7     ROUTINE_orig   
01938 #define ROUTINE_8     ROUTINE_orig   
01939 #define ROUTINE_9     ROUTINE_orig   
01940 #define ROUTINE_10    ROUTINE_orig   
01941 #define ROUTINE_11    ROUTINE_orig   
01942 #define ROUTINE_12    ROUTINE_orig   
01943 #define ROUTINE_13    ROUTINE_orig   
01944 #define ROUTINE_14    ROUTINE_orig   
01945 #define ROUTINE_15    ROUTINE_orig   
01946 #define ROUTINE_16    ROUTINE_orig   
01947 #define ROUTINE_17    ROUTINE_orig   
01948 #define ROUTINE_18    ROUTINE_orig   
01949 #define ROUTINE_19    ROUTINE_orig   
01950 #define ROUTINE_20    ROUTINE_orig   
01951 #define ROUTINE_21    ROUTINE_orig   
01952 #define ROUTINE_22    ROUTINE_orig   
01953 #define ROUTINE_23    ROUTINE_orig   
01954 #define ROUTINE_24    ROUTINE_orig   
01955 #define ROUTINE_25    ROUTINE_orig   
01956 #define ROUTINE_26    ROUTINE_orig   
01957 #define ROUTINE_27    ROUTINE_orig   
01958 
01959 #define TCF(NAME,TN,I,M)              _SEP_(TN,M,cfCOMMA) _(TN,_cfT)(NAME,I,_(A,I),_(B,I),_(C,I))
01960 #define           BYTE_cfT(M,I,A,B,D) *A
01961 #define         DOUBLE_cfT(M,I,A,B,D) *A
01962 #define          FLOAT_cfT(M,I,A,B,D) *A
01963 #define            INT_cfT(M,I,A,B,D) *A
01964 #define        LOGICAL_cfT(M,I,A,B,D)  F2CLOGICAL(*A)
01965 #define           LONG_cfT(M,I,A,B,D) *A
01966 #define          SHORT_cfT(M,I,A,B,D) *A
01967 #define          BYTEV_cfT(M,I,A,B,D)  A
01968 #define        DOUBLEV_cfT(M,I,A,B,D)  A
01969 #define         FLOATV_cfT(M,I,A,B,D)  VOIDP A
01970 #define           INTV_cfT(M,I,A,B,D)  A
01971 #define       LOGICALV_cfT(M,I,A,B,D)  A
01972 #define          LONGV_cfT(M,I,A,B,D)  A
01973 #define         SHORTV_cfT(M,I,A,B,D)  A
01974 #define         BYTEVV_cfT(M,I,A,B,D)  (void *)A /* We have to cast to void *,*/
01975 #define        BYTEVVV_cfT(M,I,A,B,D)  (void *)A /* since we don't know the   */
01976 #define       BYTEVVVV_cfT(M,I,A,B,D)  (void *)A /* dimensions of the array.  */
01977 #define      BYTEVVVVV_cfT(M,I,A,B,D)  (void *)A /* i.e. Unfortunately, can't */
01978 #define     BYTEVVVVVV_cfT(M,I,A,B,D)  (void *)A /* check that the type       */
01979 #define    BYTEVVVVVVV_cfT(M,I,A,B,D)  (void *)A /* matches the prototype.    */
01980 #define       DOUBLEVV_cfT(M,I,A,B,D)  (void *)A
01981 #define      DOUBLEVVV_cfT(M,I,A,B,D)  (void *)A
01982 #define     DOUBLEVVVV_cfT(M,I,A,B,D)  (void *)A
01983 #define    DOUBLEVVVVV_cfT(M,I,A,B,D)  (void *)A
01984 #define   DOUBLEVVVVVV_cfT(M,I,A,B,D)  (void *)A
01985 #define  DOUBLEVVVVVVV_cfT(M,I,A,B,D)  (void *)A
01986 #define        FLOATVV_cfT(M,I,A,B,D)  (void *)A
01987 #define       FLOATVVV_cfT(M,I,A,B,D)  (void *)A
01988 #define      FLOATVVVV_cfT(M,I,A,B,D)  (void *)A
01989 #define     FLOATVVVVV_cfT(M,I,A,B,D)  (void *)A
01990 #define    FLOATVVVVVV_cfT(M,I,A,B,D)  (void *)A
01991 #define   FLOATVVVVVVV_cfT(M,I,A,B,D)  (void *)A
01992 #define          INTVV_cfT(M,I,A,B,D)  (void *)A  
01993 #define         INTVVV_cfT(M,I,A,B,D)  (void *)A  
01994 #define        INTVVVV_cfT(M,I,A,B,D)  (void *)A  
01995 #define       INTVVVVV_cfT(M,I,A,B,D)  (void *)A
01996 #define      INTVVVVVV_cfT(M,I,A,B,D)  (void *)A
01997 #define     INTVVVVVVV_cfT(M,I,A,B,D)  (void *)A
01998 #define      LOGICALVV_cfT(M,I,A,B,D)  (void *)A
01999 #define     LOGICALVVV_cfT(M,I,A,B,D)  (void *)A
02000 #define    LOGICALVVVV_cfT(M,I,A,B,D)  (void *)A
02001 #define   LOGICALVVVVV_cfT(M,I,A,B,D)  (void *)A
02002 #define  LOGICALVVVVVV_cfT(M,I,A,B,D)  (void *)A
02003 #define LOGICALVVVVVVV_cfT(M,I,A,B,D)  (void *)A
02004 #define         LONGVV_cfT(M,I,A,B,D)  (void *)A
02005 #define        LONGVVV_cfT(M,I,A,B,D)  (void *)A
02006 #define       LONGVVVV_cfT(M,I,A,B,D)  (void *)A
02007 #define      LONGVVVVV_cfT(M,I,A,B,D)  (void *)A
02008 #define     LONGVVVVVV_cfT(M,I,A,B,D)  (void *)A
02009 #define    LONGVVVVVVV_cfT(M,I,A,B,D)  (void *)A
02010 #define        SHORTVV_cfT(M,I,A,B,D)  (void *)A
02011 #define       SHORTVVV_cfT(M,I,A,B,D)  (void *)A
02012 #define      SHORTVVVV_cfT(M,I,A,B,D)  (void *)A
02013 #define     SHORTVVVVV_cfT(M,I,A,B,D)  (void *)A
02014 #define    SHORTVVVVVV_cfT(M,I,A,B,D)  (void *)A
02015 #define   SHORTVVVVVVV_cfT(M,I,A,B,D)  (void *)A
02016 #define          PBYTE_cfT(M,I,A,B,D)  A
02017 #define        PDOUBLE_cfT(M,I,A,B,D)  A
02018 #define         PFLOAT_cfT(M,I,A,B,D)  VOIDP A
02019 #define           PINT_cfT(M,I,A,B,D)  A
02020 #define       PLOGICAL_cfT(M,I,A,B,D)  ((*A=F2CLOGICAL(*A)),A)
02021 #define          PLONG_cfT(M,I,A,B,D)  A
02022 #define         PSHORT_cfT(M,I,A,B,D)  A
02023 #define          PVOID_cfT(M,I,A,B,D)  A
02024 #if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
02025 #define        ROUTINE_cfT(M,I,A,B,D)  _(ROUTINE_,I)  (*A)
02026 #else
02027 #define        ROUTINE_cfT(M,I,A,B,D)  _(ROUTINE_,I)    A
02028 #endif
02029 /* A == pointer to the characters
02030    D == length of the string, or of an element in an array of strings
02031    E == number of elements in an array of strings                             */
02032 #define TTSTR(    A,B,D)                                                       \
02033            ((B=_cf_malloc(D+1))[D]='\0', memcpy(B,A,D), kill_trailing(B,' '))
02034 #define TTTTSTR(  A,B,D)   (!(D<4||A[0]||A[1]||A[2]||A[3]))?NULL:              \
02035                             memchr(A,'\0',D)                 ?A   : TTSTR(A,B,D)
02036 #define TTTTSTRV( A,B,D,E) (_(B,N)=E,B=_cf_malloc(_(B,N)*(D+1)), (void *)      \
02037   vkill_trailing(f2cstrv(A,B,D+1, _(B,N)*(D+1)), D+1,_(B,N)*(D+1),' '))
02038 #ifdef vmsFortran
02039 #define         STRING_cfT(M,I,A,B,D)  TTTTSTR( A->dsc$a_pointer,B,A->dsc$w_length)
02040 #define        STRINGV_cfT(M,I,A,B,D)  TTTTSTRV(A->dsc$a_pointer, B,           \
02041                                              A->dsc$w_length , A->dsc$l_m[0])
02042 #define        PSTRING_cfT(M,I,A,B,D)    TTSTR( A->dsc$a_pointer,B,A->dsc$w_length)
02043 #define       PPSTRING_cfT(M,I,A,B,D)           A->dsc$a_pointer
02044 #else
02045 #ifdef CRAYFortran
02046 #define         STRING_cfT(M,I,A,B,D)  TTTTSTR( _fcdtocp(A),B,_fcdlen(A))
02047 #define        STRINGV_cfT(M,I,A,B,D)  TTTTSTRV(_fcdtocp(A),B,_fcdlen(A),      \
02048                               num_elem(_fcdtocp(A),_fcdlen(A),_3(M,_STRV_A,I)))
02049 #define        PSTRING_cfT(M,I,A,B,D)    TTSTR( _fcdtocp(A),B,_fcdlen(A))
02050 #define       PPSTRING_cfT(M,I,A,B,D)           _fcdtocp(A)
02051 #else
02052 #define         STRING_cfT(M,I,A,B,D)  TTTTSTR( A,B,D)
02053 #define        STRINGV_cfT(M,I,A,B,D)  TTTTSTRV(A,B,D, num_elem(A,D,_3(M,_STRV_A,I)))
02054 #define        PSTRING_cfT(M,I,A,B,D)    TTSTR( A,B,D)
02055 #define       PPSTRING_cfT(M,I,A,B,D)           A
02056 #endif
02057 #endif
02058 #define       PNSTRING_cfT(M,I,A,B,D)    STRING_cfT(M,I,A,B,D)
02059 #define       PSTRINGV_cfT(M,I,A,B,D)   STRINGV_cfT(M,I,A,B,D)
02060 #define           CF_0_cfT(M,I,A,B,D)
02061 
02062 #define RCF(TN,I)           _(TN,_cfSTR)(3,R,_(A,I),_(B,I),_(C,I),0,0)
02063 #define  DEFAULT_cfR(A,B,D)
02064 #define  LOGICAL_cfR(A,B,D)
02065 #define PLOGICAL_cfR(A,B,D) *A=C2FLOGICAL(*A);
02066 #define   STRING_cfR(A,B,D) if (B) _cf_free(B);
02067 #define  STRINGV_cfR(A,B,D) _cf_free(B);
02068 /* A and D as defined above for TSTRING(V) */
02069 #define RRRRPSTR( A,B,D)    if (B) memcpy(A,B, _cfMIN(strlen(B),D)),           \
02070                   (D>strlen(B)?memset(A+strlen(B),' ', D-strlen(B)):0), _cf_free(B);
02071 #define RRRRPSTRV(A,B,D)    c2fstrv(B,A,D+1,(D+1)*_(B,N)), _cf_free(B);
02072 #ifdef vmsFortran
02073 #define  PSTRING_cfR(A,B,D) RRRRPSTR( A->dsc$a_pointer,B,A->dsc$w_length)
02074 #define PSTRINGV_cfR(A,B,D) RRRRPSTRV(A->dsc$a_pointer,B,A->dsc$w_length)
02075 #else
02076 #ifdef CRAYFortran
02077 #define  PSTRING_cfR(A,B,D) RRRRPSTR( _fcdtocp(A),B,_fcdlen(A))
02078 #define PSTRINGV_cfR(A,B,D) RRRRPSTRV(_fcdtocp(A),B,_fcdlen(A))
02079 #else
02080 #define  PSTRING_cfR(A,B,D) RRRRPSTR( A,B,D)
02081 #define PSTRINGV_cfR(A,B,D) RRRRPSTRV(A,B,D)
02082 #endif
02083 #endif
02084 #define PNSTRING_cfR(A,B,D) PSTRING_cfR(A,B,D)
02085 #define PPSTRING_cfR(A,B,D)
02086 
02087 #define    BYTE_cfFZ(UN,LN) INTEGER_BYTE     FCALLSC_QUALIFIER fcallsc(UN,LN)(
02088 #define  DOUBLE_cfFZ(UN,LN) DOUBLE_PRECISION FCALLSC_QUALIFIER fcallsc(UN,LN)(
02089 #define     INT_cfFZ(UN,LN) int   FCALLSC_QUALIFIER fcallsc(UN,LN)(
02090 #define LOGICAL_cfFZ(UN,LN) int   FCALLSC_QUALIFIER fcallsc(UN,LN)(
02091 #define    LONG_cfFZ(UN,LN) long  FCALLSC_QUALIFIER fcallsc(UN,LN)(
02092 #define   SHORT_cfFZ(UN,LN) short FCALLSC_QUALIFIER fcallsc(UN,LN)(
02093 #define    VOID_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(
02094 #ifndef __CF__KnR
02095 /* The void is req'd by the Apollo, to make this an ANSI function declaration.
02096    The Apollo promotes K&R float functions to double. */
02097 #define   FLOAT_cfFZ(UN,LN) FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(void
02098 #ifdef vmsFortran
02099 #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(fstring *AS
02100 #else
02101 #ifdef CRAYFortran
02102 #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(_fcd     AS
02103 #else
02104 #if  defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
02105 #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(char    *AS
02106 #else
02107 #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(char    *AS, unsigned D0
02108 #endif
02109 #endif
02110 #endif
02111 #else
02112 #if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
02113 #define   FLOAT_cfFZ(UN,LN) FORTRAN_REAL      FCALLSC_QUALIFIER fcallsc(UN,LN)(
02114 #else
02115 #define   FLOAT_cfFZ(UN,LN) FLOATFUNCTIONTYPE FCALLSC_QUALIFIER fcallsc(UN,LN)(
02116 #endif
02117 #if defined(vmsFortran) || defined(CRAYFortran) || defined(AbsoftUNIXFortran)
02118 #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(AS
02119 #else
02120 #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(AS, D0
02121 #endif
02122 #endif
02123 
02124 #define    BYTE_cfF(UN,LN)     BYTE_cfFZ(UN,LN)
02125 #define  DOUBLE_cfF(UN,LN)   DOUBLE_cfFZ(UN,LN)
02126 #ifndef __CF_KnR
02127 #define   FLOAT_cfF(UN,LN)  FORTRAN_REAL FCALLSC_QUALIFIER fcallsc(UN,LN)(
02128 #else
02129 #define   FLOAT_cfF(UN,LN)    FLOAT_cfFZ(UN,LN)
02130 #endif
02131 #define     INT_cfF(UN,LN)      INT_cfFZ(UN,LN)
02132 #define LOGICAL_cfF(UN,LN)  LOGICAL_cfFZ(UN,LN)
02133 #define    LONG_cfF(UN,LN)     LONG_cfFZ(UN,LN)
02134 #define   SHORT_cfF(UN,LN)    SHORT_cfFZ(UN,LN)
02135 #define    VOID_cfF(UN,LN)     VOID_cfFZ(UN,LN)
02136 #define  STRING_cfF(UN,LN)   STRING_cfFZ(UN,LN),
02137 
02138 #define     INT_cfFF
02139 #define    VOID_cfFF
02140 #ifdef vmsFortran
02141 #define  STRING_cfFF           fstring *AS; 
02142 #else
02143 #ifdef CRAYFortran
02144 #define  STRING_cfFF           _fcd     AS;
02145 #else
02146 #define  STRING_cfFF           char    *AS; unsigned D0;
02147 #endif
02148 #endif
02149 
02150 #define     INT_cfL            A0=
02151 #define  STRING_cfL            A0=
02152 #define    VOID_cfL                        
02153 
02154 #define    INT_cfK
02155 #define   VOID_cfK
02156 /* KSTRING copies the string into the position provided by the caller. */
02157 #ifdef vmsFortran
02158 #define STRING_cfK                                                             \
02159  memcpy(AS->dsc$a_pointer,A0,_cfMIN(AS->dsc$w_length,(A0==NULL?0:strlen(A0))));\
02160  AS->dsc$w_length>(A0==NULL?0:strlen(A0))?                                     \
02161   memset(AS->dsc$a_pointer+(A0==NULL?0:strlen(A0)),' ',                        \
02162          AS->dsc$w_length-(A0==NULL?0:strlen(A0))):0;
02163 #else
02164 #ifdef CRAYFortran
02165 #define STRING_cfK                                                             \
02166  memcpy(_fcdtocp(AS),A0, _cfMIN(_fcdlen(AS),(A0==NULL?0:strlen(A0))) );        \
02167  _fcdlen(AS)>(A0==NULL?0:strlen(A0))?                                          \
02168   memset(_fcdtocp(AS)+(A0==NULL?0:strlen(A0)),' ',                             \
02169          _fcdlen(AS)-(A0==NULL?0:strlen(A0))):0;
02170 #else
02171 #define STRING_cfK         memcpy(AS,A0, _cfMIN(D0,(A0==NULL?0:strlen(A0))) ); \
02172                  D0>(A0==NULL?0:strlen(A0))?memset(AS+(A0==NULL?0:strlen(A0)), \
02173                                             ' ', D0-(A0==NULL?0:strlen(A0))):0;
02174 #endif
02175 #endif
02176 
02177 /* Note that K.. and I.. can't be combined since K.. has to access data before
02178 R.., in order for functions returning strings which are also passed in as
02179 arguments to work correctly. Note that R.. frees and hence may corrupt the
02180 string. */
02181 #define    BYTE_cfI  return A0;
02182 #define  DOUBLE_cfI  return A0;
02183 #if ! (defined(FLOATFUNCTIONTYPE)&&defined(ASSIGNFLOAT)&&defined(RETURNFLOAT))
02184 #define   FLOAT_cfI  return A0;
02185 #else
02186 #define   FLOAT_cfI  RETURNFLOAT(A0);
02187 #endif
02188 #define     INT_cfI  return A0;
02189 #ifdef hpuxFortran800
02190 /* Incredibly, functions must return true as 1, elsewhere .true.==0x01000000. */
02191 #define LOGICAL_cfI  return ((A0)?1:0);
02192 #else
02193 #define LOGICAL_cfI  return C2FLOGICAL(A0);
02194 #endif
02195 #define    LONG_cfI  return A0;
02196 #define   SHORT_cfI  return A0;
02197 #define  STRING_cfI  return   ;
02198 #define    VOID_cfI  return   ;
02199 
02200 #ifdef OLD_VAXC                                  /* Allow %CC-I-PARAMNOTUSED. */
02201 #pragma standard
02202 #endif
02203 
02204 #define FCALLSCSUB0( CN,UN,LN)             FCALLSCFUN0(VOID,CN,UN,LN)
02205 #define FCALLSCSUB1( CN,UN,LN,T1)          FCALLSCFUN1(VOID,CN,UN,LN,T1)
02206 #define FCALLSCSUB2( CN,UN,LN,T1,T2)       FCALLSCFUN2(VOID,CN,UN,LN,T1,T2)
02207 #define FCALLSCSUB3( CN,UN,LN,T1,T2,T3)    FCALLSCFUN3(VOID,CN,UN,LN,T1,T2,T3)
02208 #define FCALLSCSUB4( CN,UN,LN,T1,T2,T3,T4) \
02209     FCALLSCFUN4(VOID,CN,UN,LN,T1,T2,T3,T4)
02210 #define FCALLSCSUB5( CN,UN,LN,T1,T2,T3,T4,T5) \
02211     FCALLSCFUN5(VOID,CN,UN,LN,T1,T2,T3,T4,T5)
02212 #define FCALLSCSUB6( CN,UN,LN,T1,T2,T3,T4,T5,T6) \
02213     FCALLSCFUN6(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6)       
02214 #define FCALLSCSUB7( CN,UN,LN,T1,T2,T3,T4,T5,T6,T7) \
02215     FCALLSCFUN7(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7)
02216 #define FCALLSCSUB8( CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8) \
02217     FCALLSCFUN8(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8)
02218 #define FCALLSCSUB9( CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9) \
02219     FCALLSCFUN9(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9)
02220 #define FCALLSCSUB10(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA) \
02221    FCALLSCFUN10(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA)
02222 #define FCALLSCSUB11(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB) \
02223    FCALLSCFUN11(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB)
02224 #define FCALLSCSUB12(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC) \
02225    FCALLSCFUN12(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC)
02226 #define FCALLSCSUB13(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD) \
02227    FCALLSCFUN13(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD)
02228 #define FCALLSCSUB14(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) \
02229    FCALLSCFUN14(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
02230 #define FCALLSCSUB15(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF) \
02231    FCALLSCFUN15(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF)
02232 #define FCALLSCSUB16(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG) \
02233    FCALLSCFUN16(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG)
02234 #define FCALLSCSUB17(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH) \
02235    FCALLSCFUN17(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH)
02236 #define FCALLSCSUB18(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI) \
02237    FCALLSCFUN18(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI)
02238 #define FCALLSCSUB19(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ) \
02239    FCALLSCFUN19(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ)
02240 #define FCALLSCSUB20(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
02241    FCALLSCFUN20(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK)
02242 #define FCALLSCSUB21(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL) \
02243    FCALLSCFUN21(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL)
02244 #define FCALLSCSUB22(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM) \
02245    FCALLSCFUN22(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM)
02246 #define FCALLSCSUB23(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN) \
02247    FCALLSCFUN23(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN)
02248 #define FCALLSCSUB24(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO) \
02249    FCALLSCFUN24(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO)
02250 #define FCALLSCSUB25(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP) \
02251    FCALLSCFUN25(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP)
02252 #define FCALLSCSUB26(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ) \
02253    FCALLSCFUN26(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ)
02254 #define FCALLSCSUB27(CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) \
02255    FCALLSCFUN27(VOID,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)
02256 
02257 
02258 #define FCALLSCFUN1( T0,CN,UN,LN,T1) \
02259         FCALLSCFUN5 (T0,CN,UN,LN,T1,CF_0,CF_0,CF_0,CF_0)
02260 #define FCALLSCFUN2( T0,CN,UN,LN,T1,T2) \
02261         FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,CF_0,CF_0,CF_0)
02262 #define FCALLSCFUN3( T0,CN,UN,LN,T1,T2,T3) \
02263         FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,T3,CF_0,CF_0)
02264 #define FCALLSCFUN4( T0,CN,UN,LN,T1,T2,T3,T4) \
02265         FCALLSCFUN5 (T0,CN,UN,LN,T1,T2,T3,T4,CF_0)
02266 #define FCALLSCFUN5( T0,CN,UN,LN,T1,T2,T3,T4,T5) \
02267         FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,CF_0,CF_0,CF_0,CF_0,CF_0)
02268 #define FCALLSCFUN6( T0,CN,UN,LN,T1,T2,T3,T4,T5,T6) \
02269         FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,CF_0,CF_0,CF_0,CF_0)
02270 #define FCALLSCFUN7( T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7) \
02271         FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,CF_0,CF_0,CF_0)
02272 #define FCALLSCFUN8( T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8) \
02273         FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,CF_0,CF_0)
02274 #define FCALLSCFUN9( T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9) \
02275         FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,CF_0)
02276 #define FCALLSCFUN10(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA) \
02277         FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,CF_0,CF_0,CF_0,CF_0)
02278 #define FCALLSCFUN11(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB) \
02279         FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,CF_0,CF_0,CF_0)
02280 #define FCALLSCFUN12(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC) \
02281         FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,CF_0,CF_0)
02282 #define FCALLSCFUN13(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD) \
02283         FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,CF_0)
02284 
02285 
02286 #define FCALLSCFUN15(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF) \
02287         FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,CF_0,CF_0,CF_0,CF_0,CF_0)
02288 #define FCALLSCFUN16(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG) \
02289         FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,CF_0,CF_0,CF_0,CF_0)
02290 #define FCALLSCFUN17(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH) \
02291         FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,CF_0,CF_0,CF_0)
02292 #define FCALLSCFUN18(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI) \
02293         FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,CF_0,CF_0)
02294 #define FCALLSCFUN19(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ) \
02295         FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,CF_0)
02296 #define FCALLSCFUN20(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK) \
02297         FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
02298 #define FCALLSCFUN21(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL) \
02299         FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,CF_0,CF_0,CF_0,CF_0,CF_0,CF_0)
02300 #define FCALLSCFUN22(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM) \
02301         FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,CF_0,CF_0,CF_0,CF_0,CF_0)
02302 #define FCALLSCFUN23(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN) \
02303         FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,CF_0,CF_0,CF_0,CF_0)
02304 #define FCALLSCFUN24(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO) \
02305         FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,CF_0,CF_0,CF_0)
02306 #define FCALLSCFUN25(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP) \
02307         FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,CF_0,CF_0)
02308 #define FCALLSCFUN26(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ) \
02309         FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,CF_0)
02310 
02311 
02312 #ifndef __CF__KnR
02313 #define FCALLSCFUN0(T0,CN,UN,LN) CFextern _(T0,_cfFZ)(UN,LN) ABSOFT_cf2(T0))   \
02314         {_Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN(); _Icf(0,K,T0,0,0) _(T0,_cfI)}
02315 
02316 #define FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)    \
02317                                  CFextern _(T0,_cfF)(UN,LN)                    \
02318  CFARGT14(NCF,DCF,ABSOFT_cf2(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE) )  \
02319  {                 CFARGT14S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)    \
02320   _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0)      CN(    TCF(LN,T1,1,0)  TCF(LN,T2,2,1) \
02321     TCF(LN,T3,3,1)  TCF(LN,T4,4,1) TCF(LN,T5,5,1)  TCF(LN,T6,6,1)  TCF(LN,T7,7,1) \
02322     TCF(LN,T8,8,1)  TCF(LN,T9,9,1) TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
02323     TCF(LN,TD,13,1) TCF(LN,TE,14,1) );                          _Icf(0,K,T0,0,0) \
02324                    CFARGT14S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)  _(T0,_cfI) }
02325 
02326 #define FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)   \
02327                                  CFextern _(T0,_cfF)(UN,LN)                    \
02328  CFARGT27(NCF,DCF,ABSOFT_cf2(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR) ) \
02329  {                 CFARGT27S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)   \
02330   _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0)      CN(     TCF(LN,T1,1,0)  TCF(LN,T2,2,1)  \
02331     TCF(LN,T3,3,1)  TCF(LN,T4,4,1)  TCF(LN,T5,5,1)  TCF(LN,T6,6,1)  TCF(LN,T7,7,1)  \
02332     TCF(LN,T8,8,1)  TCF(LN,T9,9,1)  TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
02333     TCF(LN,TD,13,1) TCF(LN,TE,14,1) TCF(LN,TF,15,1) TCF(LN,TG,16,1) TCF(LN,TH,17,1) \
02334     TCF(LN,TI,18,1) TCF(LN,TJ,19,1) TCF(LN,TK,20,1) TCF(LN,TL,21,1) TCF(LN,TM,22,1) \
02335     TCF(LN,TN,23,1) TCF(LN,TO,24,1) TCF(LN,TP,25,1) TCF(LN,TQ,26,1) TCF(LN,TR,27,1) ); _Icf(0,K,T0,0,0) \
02336                    CFARGT27S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)  _(T0,_cfI) }
02337 
02338 #else
02339 #define FCALLSCFUN0(T0,CN,UN,LN) CFextern _(T0,_cfFZ)(UN,LN) ABSOFT_cf3(T0)) _Icf(0,FF,T0,0,0)\
02340         {_Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0) CN(); _Icf(0,K,T0,0,0) _(T0,_cfI)}
02341 
02342 #define FCALLSCFUN14(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)    \
02343                                  CFextern _(T0,_cfF)(UN,LN)                    \
02344  CFARGT14(NNCF,DDCF,ABSOFT_cf3(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)) _Icf(0,FF,T0,0,0) \
02345        CFARGT14FS(NNNCF,DDDCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE);   \
02346  {                 CFARGT14S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)    \
02347   _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0)      CN(  TCF(LN,T1,1,0) TCF(LN,T2,2,1) \
02348     TCF(LN,T3,3,1) TCF(LN,T4,4,1) TCF(LN,T5,5,1) TCF(LN,T6,6,1) TCF(LN,T7,7,1) \
02349     TCF(LN,T8,8,1) TCF(LN,T9,9,1) TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
02350     TCF(LN,TD,13,1) TCF(LN,TE,14,1) );                          _Icf(0,K,T0,0,0) \
02351                    CFARGT14S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)  _(T0,_cfI)}
02352 
02353 #define FCALLSCFUN27(T0,CN,UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)  \
02354                                  CFextern _(T0,_cfF)(UN,LN)                    \
02355  CFARGT27(NNCF,DDCF,ABSOFT_cf3(T0),T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)) _Icf(0,FF,T0,0,0) \
02356        CFARGT27FS(NNNCF,DDDCF,_Z,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR); \
02357  {                 CFARGT27S(QCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)  \
02358   _Icf(2,UU,T0,A0,0); _Icf(0,L,T0,0,0)      CN(     TCF(LN,T1,1,0)  TCF(LN,T2,2,1)  \
02359     TCF(LN,T3,3,1)  TCF(LN,T4,4,1)  TCF(LN,T5,5,1)  TCF(LN,T6,6,1)  TCF(LN,T7,7,1)  \
02360     TCF(LN,T8,8,1)  TCF(LN,T9,9,1)  TCF(LN,TA,10,1) TCF(LN,TB,11,1) TCF(LN,TC,12,1) \
02361     TCF(LN,TD,13,1) TCF(LN,TE,14,1) TCF(LN,TF,15,1) TCF(LN,TG,16,1) TCF(LN,TH,17,1) \
02362     TCF(LN,TI,18,1) TCF(LN,TJ,19,1) TCF(LN,TK,20,1) TCF(LN,TL,21,1) TCF(LN,TM,22,1) \
02363     TCF(LN,TN,23,1) TCF(LN,TO,24,1) TCF(LN,TP,25,1) TCF(LN,TQ,26,1) TCF(LN,TR,27,1) ); _Icf(0,K,T0,0,0) \
02364                    CFARGT27S(RCF,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE,TF,TG,TH,TI,TJ,TK,TL,TM,TN,TO,TP,TQ,TR)  _(T0,_cfI)}
02365 
02366 #endif
02367 
02368 
02369 #endif   /* __CFORTRAN_LOADED */
Generated on Thu Mar 16 18:10:08 2006 for nco by  doxygen 1.4.4