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