Back to home page

EIC code displayed by LXR

 
 

    


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

0001 #ifndef _PAW_H
0002 #define _PAW_H
0003 #include <cfortran/cfortran.h>
0004 
0005 #ifdef __cplusplus
0006 extern "C" {
0007 #endif
0008 PROTOCCALLSFSUB2(PAW,paw,INT,INT)
0009 #define PAW(A1,A2)  CCALLSFSUB2(PAW,paw,INT,INT,A1,A2)
0010 
0011 PROTOCCALLSFSUB0(PAEXIT,paexit)
0012 #define PAEXIT() CCALLSFSUB0(PAEXIT,paexit)
0013 
0014 #ifdef __cplusplus
0015 } /* extern "C" */
0016 #endif
0017 
0018 #endif /* #ifndef _PAW_H */