libsim Versione 7.1.11

◆ 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.

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

Generated with Doxygen.