00001 00055 #include "../../src/aaa_inc/apbscfg.h" 00056 #if defined(VF77_UPPERCASE) 00057 # if defined(VF77_NOUNDERSCORE) 00058 # define VF77_MANGLE(name,NAME) NAME 00059 # elif defined(VF77_ONEUNDERSCORE) 00060 # define VF77_MANGLE(name,NAME) NAME ## _ 00061 # else 00062 # define VF77_MANGLE(name,NAME) name 00063 # endif 00064 #else 00065 # if defined(VF77_NOUNDERSCORE) 00066 # define VF77_MANGLE(name,NAME) name 00067 # elif defined(VF77_ONEUNDERSCORE) 00068 # define VF77_MANGLE(name,NAME) name ## _ 00069 # else 00070 # define VF77_MANGLE(name,NAME) name 00071 # endif 00072 #endif 00073 00074 #define F77SORGOSTUB VF77_MANGLE(sorgo_stub, SORGO_STUB) 00075 int F77SORGOSTUB(int *nx,int *ny,int *nz,int *itmax,double *oCn, 00076 double *ccn,double *fcn,double *oEn, 00077 double *oNn,double *uCn,double *xn, 00078 double *rn,double *omega) 00079 { 00080 #ifdef DEBUG_MAC_OSX_OCL 00081 nsordnew_(*nx,*ny,*nz,*itmax,oCn,ccn,fcn,oEn,oNn,uCn,xn,rn,*omega); 00082 return 1; 00083 #else 00084 return 0; 00085 #endif 00086 } 00087 00088