libsim Versione 7.2.4
|
◆ vol7d_delete()
Distrugge l'oggetto in maniera pulita, liberando l'eventuale memoria dinamicamente allocata. Permette di distruggere la sola parte di dati mantenendo l'anagrafica.
Definizione alla linea 543 del file vol7d_class.F90. 544 do i =1,size(this%level)
545 call display(this%level(i))
546 end do
547end if
548
549IF (ASSOCIATED(this%timerange))then
550 print*,"---- timerange vector ----"
551 print*,"elements=",size(this%timerange)
552 do i =1,size(this%timerange)
553 call display(this%timerange(i))
554 end do
555end if
556
557
558print*,"---- ana vector ----"
559print*,""
560print*,"->>>>>>>>> anavar -"
561call display(this%anavar)
562print*,""
563print*,"->>>>>>>>> anaattr -"
564call display(this%anaattr)
565print*,""
566print*,"->>>>>>>>> anavarattr -"
567call display(this%anavarattr)
568
569print*,"-- ana data section (first point) --"
570
571idat=imiss
572rdat=rmiss
573ddat=dmiss
574bdat=ibmiss
575cdat=cmiss
576
577!ntime = MIN(SIZE(this%time),nprint)
578!ntimerange = MIN(SIZE(this%timerange),nprint)
579!nlevel = MIN(SIZE(this%level),nprint)
580!nnetwork = MIN(SIZE(this%network),nprint)
581!nana = MIN(SIZE(this%ana),nprint)
582
583IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0) THEN
584if (associated(this%volanai)) then
585 do i=1,size(this%anavar%i)
586 idat=this%volanai(1,i,1)
587 if (associated(this%anavar%i)) call display(this%anavar%i(i),idat,rdat,ddat,bdat,cdat)
|