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