libsim  Versione 7.1.9

◆ vol7d_varvect_delete()

elemental subroutine vol7d_varvect_delete ( type(vol7d_varvect), intent(inout)  this)

Distrugge l'oggetto in maniera pulita, liberando l'eventuale memoria dinamicamente allocata.

Parametri
[in,out]thisoggetto da distruggere

Definizione alla linea 87 del file vol7d_varvect_class.f90.

88 TYPE(vol7d_varvect),INTENT(INOUT) :: this
89 
90 IF (ASSOCIATED(this%r)) DEALLOCATE(this%r)
91 IF (ASSOCIATED(this%d)) DEALLOCATE(this%d)
92 IF (ASSOCIATED(this%i)) DEALLOCATE(this%i)
93 IF (ASSOCIATED(this%b)) DEALLOCATE(this%b)
94 IF (ASSOCIATED(this%c)) DEALLOCATE(this%c)
95 

Generated with Doxygen.