|
◆ 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] | this | oggetto da distruggere |
[in] | dataonly | dealloca 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))
558 print*, "---- ana vector ----"
560 print*, "->>>>>>>>> anavar -"
561 call display(this%anavar)
563 print*, "->>>>>>>>> anaattr -"
564 call display(this%anaattr)
566 print*, "->>>>>>>>> anavarattr -"
567 call display(this%anavarattr)
569 print*, "-- ana data section (first point) --"
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)
592 if ( associated(this%volanar)) then
593 do i=1, size(this%anavar%r)
|