• Main Page
  • Related Pages
  • Modules
  • Namespaces
  • Data Structures
  • Files
  • File List
  • Globals

contrib/pmgZ/nsordrvdc.c

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 

Generated on Wed Oct 20 2010 11:12:17 for APBS by  doxygen 1.7.2