PolyDeltaF_F.H Source File

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 // Prototype for Fortran procedure fastpolyksum ...
00026 //
00027 #define FORT_FASTPOLYKSUM FORTRAN_NAME( FASTPOLYKSUM ,fastpolyksum )
00028 void 
00029 FORT_FASTPOLYKSUM(
00030       CHFp_FRA(sum)
00031       ,CHFp_CONST_REALVECT(force)
00032       ,CHFp_CONST_REALVECT(position)
00033       ,CHFp_BOX(box)
00034       ,CHFp_CONST_REAL(dx)
00035       ,CHFp_CONST_REAL(epsilon)
00036       ,CHFp_CONST_REAL(scaleFactor) );
00037 
00038 }
00039 
00040 #endif