00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012
00013 PTRTYPE lcgobcreate() ;
00014 PTRTYPE lcgobcreatefixed( int nint, int nfloat, int ndouble ) ;
00015 int lcgobdelete( PTRTYPE genericobject ) ;
00016
00017 int lcgobid( PTRTYPE genericobject ) ;
00018 int lcgobgetnint( PTRTYPE genericobject ) ;
00019 int lcgobgetnfloat( PTRTYPE genericobject ) ;
00020 int lcgobgetndouble( PTRTYPE genericobject ) ;
00021 int lcgobgetintval( PTRTYPE genericobject, int index ) ;
00022 float lcgobgetfloatval( PTRTYPE genericobject, int index ) ;
00023 double lcgobgetdoubleval( PTRTYPE genericobject, int index ) ;
00024
00025 int lcgobsetintval( PTRTYPE genericobject, int index, int value) ;
00026 int lcgobsetfloatval( PTRTYPE genericobject, int index, float value) ;
00027 int lcgobsetdoubleval( PTRTYPE genericobject, int index, double value) ;
00028
00029 bool lcgobisfixedsize(PTRTYPE genericobject) ;
00030 char* lcgobgettypename(PTRTYPE genericobject) ;
00031 char* lcgobgetdatadescription(PTRTYPE genericobject) ;
00032
00033
00034 extern "C"{
00035 FCALLSCFUN0(CFORTRANPNTR, lcgobcreate, LCGOBCREATE, lcgobcreate )
00036 FCALLSCFUN3(CFORTRANPNTR, lcgobcreatefixed, LCGOBCREATEFIXED, lcgobcreatefixed, INT, INT, INT )
00037 FCALLSCFUN1(INT, lcgobdelete, LCGOBDELETE, lcgobdelete, CFORTRANPNTR )
00038
00039 FCALLSCFUN1(INT, lcgobid, LCGOBID, lcgobid, CFORTRANPNTR )
00040 FCALLSCFUN1(INT, lcgobgetnint, LCGOBGETNINT, lcgobgetnint, CFORTRANPNTR )
00041 FCALLSCFUN1(INT, lcgobgetnfloat, LCGOBGETNFLOAT, lcgobgetnfloat, CFORTRANPNTR )
00042 FCALLSCFUN1(INT, lcgobgetndouble, LCGOBGETNDOUBLE, lcgobgetndouble, CFORTRANPNTR )
00043 FCALLSCFUN2(INT, lcgobgetintval, LCGOBGETINTVAL, lcgobgetintval, CFORTRANPNTR, INT )
00044 FCALLSCFUN2(FLOAT, lcgobgetfloatval, LCGOBGETFLOATVAL, lcgobgetfloatval, CFORTRANPNTR, INT )
00045 FCALLSCFUN2(DOUBLE, lcgobgetdoubleval, LCGOBGETDOUBLEVAL, lcgobgetdoubleval, CFORTRANPNTR, INT )
00046
00047 FCALLSCFUN3(INT, lcgobsetintval, LCGOBSETINTVAL, lcgobsetintval, CFORTRANPNTR, INT, INT )
00048 FCALLSCFUN3(INT, lcgobsetfloatval, LCGOBSETFLOATVAL, lcgobsetfloatval, CFORTRANPNTR, INT, FLOAT )
00049 FCALLSCFUN3(INT, lcgobsetdoubleval, LCGOBSETDOUBLEVAL, lcgobsetdoubleval, CFORTRANPNTR, INT, DOUBLE )
00050
00051 FCALLSCFUN1(LOGICAL, lcgobisfixedsize, LCGOBISFIXEDSIZE, lcgobisfixedsize, CFORTRANPNTR )
00052 FCALLSCFUN1(STRING, lcgobgettypename, LCGOBGETTYPENAME, lcgobgettypename, CFORTRANPNTR )
00053 FCALLSCFUN1(STRING, lcgobgetdatadescription, LCGOBGETDATADESCRIPTION, lcgobgetdatadescription, CFORTRANPNTR )
00054 }
00055