The tools below allow you to directly access the ITM data base without using the Universal Access Layer (UAL) . This may prove useful when the UAL is not available.
unix prompt> printcpo <shot> <run> <treename>where the parameters are the shot number, the run number, and the name of the MDSPLUS tree. If no parameters are provided, a default value of 1 is used for the shot number and the run number, while the treename default to euitm.
unix prompt> printcpo 3 2In the current version, the program writes out the dimension of a field array, while it writes out the values of a scalar field to standard out.
use euitm_printcpoCall the routine like this:
call printcpo(<cpo variable>)
... type(type_equilibrium),pointer :: equilibrium(:) => null() ... call euitm_get(idx, 'equilibrium', equilibrium) ... call printcpo(equilibrium)The program files are hosted by the Gforge project itmshared.
svn checkout https://gforge6.eufus.eu/svn/itmshared/branches/perlprintcpo target_dirTo build the program and the routines, just use the make facility:
unix prompt> makeThe make uses the pgi compiler.