Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2024-05-18 08:30:30

0001 #ifndef _ZEBRA_H
0002 #define _ZEBRA_H
0003 #include <cfortran/cfortran.h>
0004 
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 PROTOCCALLSFSUB1(MZEBRA,mzebra,INT)
0009 #define MZEBRA(A1)    CCALLSFSUB1(MZEBRA,mzebra,INT,A1)
0010 
0011 PROTOCCALLSFSUB2(MZPAW,mzpaw,INT,STRING)
0012 #define MZPAW(A1,A2)  CCALLSFSUB2(MZPAW,mzpaw,INT,STRING,A1,A2)
0013 #ifdef __cplusplus
0014 } /* extern "C" */
0015 #endif
0016 
0017 #endif /* #ifndef _ZEBRA_H */