...
CHEAT SHEET | ||||||||
ITM | IMAS | |||||||
---|---|---|---|---|---|---|---|---|
use euitm_schemas | use ids_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_ | put_non_timedclose(idx | ,"<cpo_name>", cpo) | call | ids_put_non_timed(idx,"<ids_name>",idsimas_close(idx) | ||||
call euitm_ | putenable_mem_ | slicecache(idx | , '<cpo_name>', cpo) | call | idsimas_enable_ | putmem_ | slicecache(idx | , '<ids_name>', ids) |
call euitm_disable_deallocatemem_cache(cpoArrayidx) | call ids_deallocate(idsimas_disable_mem_cache(idx) | |||||||
call euitm_flush_closeall(idx) | call imas_closeflush_all(idx) |
4. Open example file
...