Page History

use euitm_schemas

use euitm_routines

use ids_routines

type (type_<cpo_name>) :: cpo 

type (ids_<ids_name>) :: ids 

type (type_<cpo_name>), pointer :: cpoArray(:) ! <= Array !!!

type (ids_<ids_name>) :: ids <== SINGLE OBJ !!!

call euitm_create('euitm', shot, run, refShot, refRun, idx)

call imas_create('ids', shot, run, refShot, refRun, idx)

call euitm_open('euitm', shot, run, idx)

call imas_open('ids', shot, run, idx)

call euitm_createput('euitm', shot, run, refShot, refRun, idx)call imas_create('ids', shot, run, refShot, refRun, idxidx, '<cpo_name>', cpoArray) <== ARRAY!

call ids_put(idx, '<ids_name>', ids)  <== SINGLE OBJ

call euitm_put_non_timed(idx,"<cpo_name>", cpo)

call ids_put_non_timed(idx,"<ids_name>",ids)

call euitm_put_slice(idx, '<cpo_name>', cpoArraycpo) ! ARRAY!

call ids_putput_slice(idx, '<ids_name>', ids) ! SINGLE OBJ

call euitm_deallocate(cpoArray)

call ids_deallocate(ids)

call euitm_

close(idx

)

call 

imas_close(idx)

call euitm_

enable_mem_

cache(idx

)

call 

imas_enable_

mem_

cache(idx

)

call euitm_disable_deallocatemem_cache(cpoArrayidx)

call ids_deallocate(idsimas_disable_mem_cache(idx)

call euitm_flush_closeall(idx)

call imas_closeflush_all(idx)