#include <cx/Geometry.h>void cxGeoInit()
subroutine cxGeoInit
This may be done by using an initialization hook function (see IRIS Explorer Module Writer's Guide), or by testing a flag.
In C:
static int geometry_init = 1;
if ( geometry_init )
{
geometry_init = 0;
cxGeoInit();
}
In Fortran:
logical first
data first/.true./
if ( first ) then
first = .false.
call cxGeoInit()
endif