libsim  Versione 7.1.9

◆ vol7d_delete()

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

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

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
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)

Generated with Doxygen.