#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