28 lines
527 B
Prolog
28 lines
527 B
Prolog
PRO PCRDV_E , $ ; @METAGS interval
|
|
|
|
;-Input-------------
|
|
initialization_flag , $
|
|
;-KEYWORD-----------
|
|
BLOCK=BLOCK , $
|
|
RESTORE = RESTORE
|
|
;--Opzioni di compilazione--
|
|
COMPILE_OPT STRICTARR
|
|
|
|
IF KEYWORD_SET(RESTORE) THEN RETURN
|
|
|
|
DSRM_Lib
|
|
|
|
log_window , /active
|
|
|
|
IF (N_ELEMENTS(initialization_flag) EQ 0) THEN $
|
|
BEGIN
|
|
initialization_flag = 0
|
|
ENDIF
|
|
ptr_id=ptr_new(/allocate)
|
|
|
|
main_pcrdv, initialization_flag,ptr_id
|
|
|
|
IF KEYWORD_SET(block) then wait_death,*ptr_id
|
|
PTR_FREE,ptr_id
|
|
|
|
END ; interval |