00001 #ifndef _POLYDELTAF_F_H_ 00002 #define _POLYDELTAF_F_H_ 00003 00004 #include "FORT_PROTO.H" 00005 #include "REAL.H" 00006 00007 extern "C" 00008 { 00009 00010 // Prototype for Fortran procedure polyksum ... 00011 // 00012 #define FORT_POLYKSUM FORTRAN_NAME( POLYKSUM ,polyksum ) 00013 void 00014 FORT_POLYKSUM( 00015 CHFp_FRA1(sum) 00016 ,CHFp_CONST_REALVECT(force) 00017 ,CHFp_CONST_REALVECT(position) 00018 ,CHFp_CONST_REALVECT(origin) 00019 ,CHFp_BOX(box) 00020 ,CHFp_CONST_REAL(dx) 00021 ,CHFp_CONST_REAL(epsilon) 00022 ,CHFp_CONST_REAL(scaleFactor) 00023 ,CHFp_INT(comp) ); 00024 00025 } 00026 00027 #endif
1.3.2