libsim Versione 7.2.1

◆ geo_coordvect_delete()

subroutine geo_coordvect_delete ( type(geo_coordvect), intent(inout) this)

Distrugge l'oggetto in maniera pulita, liberando l'eventuale spazio dinamicamente allocato.

Definizione alla linea 742 del file geo_coord_class.F90.

743 IF (ns > 0) THEN ! Alloco e leggo il mio oggetto
744 ALLOCATE(this(ns))
745 rewind(u)
746 DO i = 1, ns
747 CALL import(this(i), unitsim=u)
748 ENDDO

Generated with Doxygen.