program#system diagnosticlibraries
import sys
import use imas_schemas
use imas_routines
implicit none
integer :: idx, i, arraySize
type (type_equilibrium) :: equilibrium
real(IMAS_R8), pointer :: timeVector(:)
real(IMAS_R8) :: time
call imas_open('IDS', 14, 4, idx)
call imas_get_times(idx, 'equilibrium',timeVector)
arraySize = size(timeVector)
write (*,*) "Number of slices: ", arraySize
write (*,*) "Time vector: ", timeVector
do i = 1, arraySize
time = timeVector(i)
call imas_get_slice(idx, 'equilibrium', equilibrium, time, 1)
write (*,*) "Time [", time, "]: ", equilibrium%time
write (*,*) "Value of r: ", equilibrium%eqgeometry%boundary(1)%r(1)
write (*,*) "Value of z: ", equilibrium%eqgeometry%boundary(1)%z(1)
enddo
call imas_close(idx)
end programnumpy
#UAL library
import imas
#Open a database
imas_obj = imas.ids(11,22)
imas_obj.open()
ids = imas_obj.core_profiles
#Get data
ids.getSlice(2, 1)
#SCALARS
print 'Time : ' + str(ids.time)
print 'VALUE = ' + str(ids.x.y.z)
#close the pulse file
imas_obj.close() |