libsim Versione 7.2.4

◆ vol7d_delete()

elemental subroutine vol7d_delete ( type(vol7d), intent(inout) this,
logical, intent(in), optional dataonly )

Distrugge l'oggetto in maniera pulita, liberando l'eventuale memoria dinamicamente allocata.

Permette di distruggere la sola parte di dati mantenendo l'anagrafica.

Parametri
[in,out]thisoggetto da distruggere
[in]dataonlydealloca solo i dati, tenendo l'anagrafica, (default .FALSE.)

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)

Generated with Doxygen.