program#system diagnosticlibraries
import use imas_schemas
use imas_routines
implicit none
integer :: idx, i, arraySize
type (type_equilibrium), pointer :: eqArray(:) ! <= Array !!!
call imas_open('IDS', 14, 4, idx)
call imas_get(idx, 'equilibrium', eqArray)
arraySize = size(eqArray)
write (*,*) "Number of slices: ", arraySize
do i=1, arraySize
write (*,*) "Time: ", eqArray(i)%time
write (*,*) "Value of r: ", eqArray(i)%eqgeometry%boundary(1)%r(1)
write (*,*) "Value of z: ", eqArray(i)%eqgeometry%boundary(1)%z(1)
enddo
call imas_close(idx)
end programsys
import numpy
#UAL library
import ual
#Open the database
itm_obj = ual.itm(11,22)
itm_obj.open()
cpo = my_itm_obj.pfsystems
#Get data
cpo.getSlice(2, 1)
#SCALARS
print 'Time : ' + str(cpo.time)
print 'VALUE = ' + str(ids.x.y)
#close the pulse file
itm_obj.close() |