libsim  Versione7.2.3

◆ 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 554 del file vol7d_class.F90.

554  end do
555 end if
556 
557 
558 print*,"---- ana vector ----"
559 print*,""
560 print*,"->>>>>>>>> anavar -"
561 call display(this%anavar)
562 print*,""
563 print*,"->>>>>>>>> anaattr -"
564 call display(this%anaattr)
565 print*,""
566 print*,"->>>>>>>>> anavarattr -"
567 call display(this%anavarattr)
568 
569 print*,"-- ana data section (first point) --"
570 
571 idat=imiss
572 rdat=rmiss
573 ddat=dmiss
574 bdat=ibmiss
575 cdat=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 
583 IF (SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0) THEN
584 if (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)
588  end do
589 end if
590 idat=imiss
591 
592 if (associated(this%volanar)) then
593  do i=1,size(this%anavar%r)
594  rdat=this%volanar(1,i,1)
595  if (associated(this%anavar%r)) call display(this%anavar%r(i),idat,rdat,ddat,bdat,cdat)
596  end do
597 end if

Generated with Doxygen.