|
◆ 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 554 del file vol7d_class.F90.
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) 594 rdat=this%volanar(1,i,1) 595 if ( associated(this%anavar%r)) call display(this%anavar%r(i),idat,rdat,ddat,bdat,cdat)
|