file: include/felisa.h


#include<veclib.h>

extern "C"
{
// C++ needs prototypes

#if UNDERSCORE
void fgcurv_ (int *, int *, double *, double *, double *, int *);
void fgsurf_ (int *, int *, int *, double *, double *, double *, double *, int *);
void settolg_(double *);
void locuv_  (int *, double *, double *, int *, int *, double *);

# define fgcurv(ider,nu,r,un,rp,ier) \
    (_vlib_ireg[0] = ider,\
     _vlib_ireg[1] = nu,_vlib_dreg[0]=un, \
      fgcurv_(_vlib_ireg,_vlib_ireg+1,r,_vlib_dreg,rp,ier))

# define fgsurf(ider,nu,nv,r,un,vn,rp,ier) \
    (_vlib_ireg[0] = ider,\
     _vlib_ireg[1] = nu,\
     _vlib_ireg[2] = nv,\
     _vlib_dreg[0] = un,\
     _vlib_dreg[1] = vn,\
       fgsurf_(_vlib_ireg,_vlib_ireg+1,_vlib_ireg+2,r,_vlib_dreg,_vlib_dreg+1,rp,ier))

# define settolg(tol) \
   (_vlib_dreg[0]=tol, settolg_(_vlib_dreg))

# define locuv( np, xg, xl, nu, nv, r ) \
    (_vlib_ireg[0] = np, _vlib_ireg[1] = nu,_vlib_ireg[2]=nv, \
      locuv_(_vlib_ireg,xg,xl,_vlib_ireg+1,_vlib_ireg+2,r))
#
#else
#
#ifdef _CRAY /* Crays */
#
void FGCURV (int *, int *, double *, double *, double *, int *);
void FGSURF (int *, int *, int *, double *, double *, double *, double *, int *);
void SETTOLG (double *);
void LOCUV (int *, double *, double *, int *, int *, double *);

# define fgcurv(ider,nu,r,un,rp,ier) \
    (_vlib_ireg[0] = ider,\
     _vlib_ireg[1] = nu,_vlib_dreg[0]=un, \
      FGCURV(_vlib_ireg,_vlib_ireg+1,r,_vlib_dreg,rp,ier))

# define fgsurf(ider,nu,nv,r,un,vn,rp,ier) \
    (_vlib_ireg[0] = ider,\
     _vlib_ireg[1] = nu,\
     _vlib_ireg[2] = nv,\
     _vlib_dreg[0] = un,\
     _vlib_dreg[1] = vn,\
       FGSURF(_vlib_ireg,_vlib_ireg+1,_vlib_ireg+2,r,_vlib_dreg,_vlib_dreg+1,rp,ier))

# define settolg(tol) \
   (_vlib_dreg[0]=tol, SETTOLG(_vlib_dreg))

# define locuv( np, xg, xl, nu, nv, r ) \
    (_vlib_ireg[0] = np, _vlib_ireg[1] = nu,_vlib_ireg[2]=nv, \
      LOCUV(_vlib_ireg,xg,xl,_vlib_ireg+1,_vlib_ireg+2,r))
#
#else  /* AIX, HPUX */
#
void fgcurv (int *, int *, double *, double *, double *, int *);        //OVERLOAD CALL: fgcurv: felisa.h(?), felisa.h(?), felisa.h(?)
void fgsurf (int *, int *, int *, double *, double *, double *, double *, int *);        //OVERLOAD CALL: fgsurf: felisa.h(?), felisa.h(?), felisa.h(?)
void settolg(double *);        //OVERLOAD CALL: settolg: felisa.h(?), felisa.h(?), felisa.h(?)
void locuv  (int *, double *, double *, int *, int *, double *);        //OVERLOAD CALL: locuv: felisa.h(?), felisa.h(?), felisa.h(?)

# define fgcurv(ider,nu,r,un,rp,ier) \
    (_vlib_ireg[0] = ider,\
     _vlib_ireg[1] = nu,_vlib_dreg[0]=un, \
      fgcurv(_vlib_ireg,_vlib_ireg+1,r,_vlib_dreg,rp,ier))        //OVERLOAD CALL: fgcurv: felisa.h(?), felisa.h(?), felisa.h(?)

# define fgsurf(ider,nu,nv,r,un,vn,rp,ier) \
    (_vlib_ireg[0] = ider,\
     _vlib_ireg[1] = nu,\
     _vlib_ireg[2] = nv,\
     _vlib_dreg[0] = un,\
     _vlib_dreg[1] = vn,\
       fgsurf(_vlib_ireg,_vlib_ireg+1,_vlib_ireg+2,r,_vlib_dreg,_vlib_dreg+1,rp,ier))        //OVERLOAD CALL: fgsurf: felisa.h(?), felisa.h(?), felisa.h(?)

# define settolg(tol) \
   (_vlib_dreg[0]=tol, settolg(_vlib_dreg))        //OVERLOAD CALL: settolg: felisa.h(?), felisa.h(?), felisa.h(?)

# define locuv( np, xg, xl, nu, nv, r ) \
    (_vlib_ireg[0] = np, _vlib_ireg[1] = nu,_vlib_ireg[2]=nv, \
      locuv(_vlib_ireg,xg,xl,_vlib_ireg+1,_vlib_ireg+2,r))        //OVERLOAD CALL: locuv: felisa.h(?), felisa.h(?), felisa.h(?)
#
#endif
#
#endif



}



Back to Source File Index


C++ to HTML Conversion by ctoohtml