array_release_i1d Subroutine

private subroutine array_release_i1d(array)

Arguments

TypeIntentOptionalAttributesName
type(array_i1d_obj), intent(inout) :: array

Contents

Source Code


Source Code

   SUBROUTINE array_release_i1d(array)
      TYPE(array_i1d_obj), INTENT(INOUT)                 :: array

      IF (ASSOCIATED(array%low)) THEN
         array%low%refcount = array%low%refcount - 1
         IF (array%low%refcount .EQ. 0) THEN
            DEALLOCATE (array%low%data)
            DEALLOCATE (array%low)
         END IF
      END IF
   END SUBROUTINE array_release_i1d