Deallocazione della memoria.
742 indcdativarr =
index(qccli%extreme%dativar%r, qccli%v7d%dativar%r(inddativarr))
746 call l4f_log(l4f_debug,
"normalize data Index:"// to_char(indctime)//to_char(indclevel)//&
747 to_char(indctimerange)//to_char(indcdativarr)//to_char(indcnetwork))
751 if (indctime <= 0 .or. indclevel <= 0 .or. indctimerange <= 0 .or. indcdativarr <= 0 &
752 .or. indcnetwork <= 0 )
then 753 qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,&
754 inddativarr, indnetwork ) = rmiss