|
◆ 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] | this | oggetto da distruggere |
[in] | dataonly | dealloca solo i dati, tenendo l'anagrafica, (default .FALSE.) |
Definizione alla linea 568 del file vol7d_class.F90.
568 print*, "-- ana data section (first point) --" 582 IF ( SIZE(this%ana) > 0 .AND. SIZE(this%network) > 0) THEN 583 if ( associated(this%volanai)) then 584 do i=1, size(this%anavar%i) 585 idat=this%volanai(1,i,1) 586 if ( associated(this%anavar%i)) call display(this%anavar%i(i),idat,rdat,ddat,bdat,cdat) 591 if ( associated(this%volanar)) then 592 do i=1, size(this%anavar%r) 593 rdat=this%volanar(1,i,1) 594 if ( associated(this%anavar%r)) call display(this%anavar%r(i),idat,rdat,ddat,bdat,cdat) 599 if ( associated(this%volanad)) then 600 do i=1, size(this%anavar%d) 601 ddat=this%volanad(1,i,1) 602 if ( associated(this%anavar%d)) call display(this%anavar%d(i),idat,rdat,ddat,bdat,cdat) 607 if ( associated(this%volanab)) then 608 do i=1, size(this%anavar%b) 609 bdat=this%volanab(1,i,1) 610 if ( associated(this%anavar%b)) call display(this%anavar%b(i),idat,rdat,ddat,bdat,cdat)
|