*** cfortran.h	Fri Feb 25 08:14:12 2000
--- new_cfortran.h	Tue Dec 18 15:49:22 2001
***************
*** 1,6 ****
  /* cfortran.h  4.1 */          /* anonymous ftp@zebra.desy.de */
  /* Burkhard Burow  burow@desy.de                 1990 - 1998. */
- 
  #ifndef __CFORTRAN_LOADED
  #define __CFORTRAN_LOADED
  
--- 1,5 ----
***************
*** 10,15 ****
--- 9,20 ----
     MODIFYING, COPYING AND DISTRIBUTING THE CFORTRAN.H PACKAGE.
  */
  
+ /*
+   IMPORTANT NOTE: This is a MODIFIED VERSION of the original
+   cfortran.h 4.1, with modifications marked by preceding them with a comment:
+   **** MODIFIED from 4.1 ****
+  */
+ 
  /* 
    Avoid symbols already used by compilers and system *.h:
    __ - OSF1 zukal06 V3.0 347 alpha, cc -c -std1 cfortest.c
***************
*** 165,175 ****
  
  /* Throughout cfortran.h we use: UN = Uppercase Name.  LN = Lowercase Name.   */
  
! #if defined(f2cFortran) || defined(NAGf90Fortran) || defined(DECFortran) || defined(mipsFortran) || defined(apolloFortran) || defined(sunFortran) || defined(CONVEXFortran) || defined(SXFortran) || defined(extname) || defined(pgiFortran)
  #define CFC_(UN,LN)            _(LN,_)      /* Lowercase FORTRAN symbols.     */
  #define orig_fcallsc(UN,LN)    CFC_(UN,LN)
  #else 
! #if defined(CRAYFortran) || defined(PowerStationFortran) || defined(AbsoftProFortran)
  #ifdef _CRAY          /* (UN), not UN, circumvents CRAY preprocessor bug.     */
  #define CFC_(UN,LN)            (UN)         /* Uppercase FORTRAN symbols.     */
  #else                 /* At least VISUAL_CPLUSPLUS barfs on (UN), so need UN. */
--- 170,182 ----
  
  /* Throughout cfortran.h we use: UN = Uppercase Name.  LN = Lowercase Name.   */
  
! /* **** MODIFIED from 4.1 **** */
! #if defined(f2cFortran) || defined(NAGf90Fortran) || defined(DECFortran) || defined(mipsFortran) || defined(apolloFortran) || defined(sunFortran) || defined(CONVEXFortran) || defined(SXFortran) || defined(extname) || defined(pgiFortran) || defined(AbsoftProFortran)
  #define CFC_(UN,LN)            _(LN,_)      /* Lowercase FORTRAN symbols.     */
  #define orig_fcallsc(UN,LN)    CFC_(UN,LN)
  #else 
! /* **** MODIFIED from 4.1 **** */
! #if defined(CRAYFortran) || defined(PowerStationFortran) 
  #ifdef _CRAY          /* (UN), not UN, circumvents CRAY preprocessor bug.     */
  #define CFC_(UN,LN)            (UN)         /* Uppercase FORTRAN symbols.     */
  #else                 /* At least VISUAL_CPLUSPLUS barfs on (UN), so need UN. */
***************
*** 363,370 ****
  #define C2FLOGICAL(L) _btol(L)
  #define F2CLOGICAL(L) _ltob(&(L))     /* Strangely _ltob() expects a pointer. */
  #else
! #if defined(IBMR2Fortran) || defined(vmsFortran) || defined(DECFortran) || defined(AbsoftUNIXFortran)
! /* How come no AbsoftProFortran ? */
  #define C2FLOGICAL(L) ((L)?(L)|1:(L)&~(int)1)
  #define F2CLOGICAL(L) ((L)&1?(L):0)
  #else
--- 370,377 ----
  #define C2FLOGICAL(L) _btol(L)
  #define F2CLOGICAL(L) _ltob(&(L))     /* Strangely _ltob() expects a pointer. */
  #else
! /* **** MODIFIED from 4.1 **** */
! #if defined(IBMR2Fortran) || defined(vmsFortran) || defined(DECFortran) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
  #define C2FLOGICAL(L) ((L)?(L)|1:(L)&~(int)1)
  #define F2CLOGICAL(L) ((L)&1?(L):0)
  #else
***************
*** 637,643 ****
  #define INTVVVVVVV_cfV(T,A,B,F)
  #define PINT_cfV(      T,A,B,F) _(T,_cfVP)(A,B)
  #define PVOID_cfV(     T,A,B,F)
! #if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
  #define    ROUTINE_cfV(T,A,B,F) void (*B)(CF_NULL_PROTO) = (cfCAST_FUNCTION)A;
  #else
  #define    ROUTINE_cfV(T,A,B,F)
--- 644,651 ----
  #define INTVVVVVVV_cfV(T,A,B,F)
  #define PINT_cfV(      T,A,B,F) _(T,_cfVP)(A,B)
  #define PVOID_cfV(     T,A,B,F)
! /* **** MODIFIED from 4.1 **** */
! #if defined(apolloFortran) || defined(hpuxFortran800) || defined(AbsoftUNIXFortran)
  #define    ROUTINE_cfV(T,A,B,F) void (*B)(CF_NULL_PROTO) = (cfCAST_FUNCTION)A;
  #else
  #define    ROUTINE_cfV(T,A,B,F)
***************
*** 842,848 ****
  #endif
  #endif
  
! #if defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
  /* In addition to explicit Absoft stuff, only Absoft requires:
     - DEFAULT coming from _cfSTR.
       DEFAULT could have been called e.g. INT, but keep it for clarity.
--- 850,857 ----
  #endif
  #endif
  
! /* **** MODIFIED from 4.1 **** */
! #if defined(AbsoftUNIXFortran) 
  /* In addition to explicit Absoft stuff, only Absoft requires:
     - DEFAULT coming from _cfSTR.
       DEFAULT could have been called e.g. INT, but keep it for clarity.
***************
*** 1420,1426 ****
  #ifdef vmsFortran
  #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)(&A0
  #else
! #if defined(CRAYFortran) || defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
  #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)( A0
  #else
  #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)( A0,MAX_LEN_FORTRAN_FUNCTION_STRING
--- 1429,1436 ----
  #ifdef vmsFortran
  #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)(&A0
  #else
! /* **** MODIFIED from 4.1 **** */
! #if defined(CRAYFortran) || defined(AbsoftUNIXFortran)
  #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)( A0
  #else
  #define STRING_cfGZ(T,UN,LN)    CFC_(UN,LN)( A0,MAX_LEN_FORTRAN_FUNCTION_STRING
***************
*** 2008,2014 ****
  #ifdef CRAYFortran
  #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(_fcd     AS
  #else
! #if  defined(AbsoftUNIXFortran) || defined(AbsoftProFortran)
  #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(char    *AS
  #else
  #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(char    *AS, unsigned D0
--- 2018,2025 ----
  #ifdef CRAYFortran
  #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(_fcd     AS
  #else
! /* **** MODIFIED from 4.1 **** */
! #if  defined(AbsoftUNIXFortran) 
  #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(char    *AS
  #else
  #define  STRING_cfFZ(UN,LN) void  FCALLSC_QUALIFIER fcallsc(UN,LN)(char    *AS, unsigned D0
***************
*** 2274,2276 ****
--- 2285,2288 ----
  
  
  #endif	 /* __CFORTRAN_LOADED */
+