mumps_memory_mod::mumps_dealloc Interface Reference

Public Member Functions
subroutine	mumps_idealloc (a1, a2, a3, a4, a5, a6, a7, memcnt)

Detailed Description

Definition at line 15 of file mumps_memory_mod.F.

Member Function/Subroutine Documentation

mumps_idealloc()

subroutine mumps_memory_mod::mumps_dealloc::mumps_idealloc	(	integer, dimension(:), pointer	a1,
		integer, dimension(:), optional, pointer	a2,
		integer, dimension(:), optional, pointer	a3,
		integer, dimension(:), optional, pointer	a4,
		integer, dimension(:), optional, pointer	a5,
		integer, dimension(:), optional, pointer	a6,
		integer, dimension(:), optional, pointer	a7,
		integer(8), optional	memcnt )

Definition at line 832 of file mumps_memory_mod.F.

      INTEGER, POINTER :: A1(:)
      INTEGER, POINTER, OPTIONAL :: A2(:), A3(:), A4(:), A5(:),
     &     A6(:), A7(:)
      INTEGER(8), OPTIONAL :: MEMCNT
      INTEGER(8) :: IMEMCNT
      imemcnt = 0
      IF(associated(a1)) THEN
         imemcnt = imemcnt+int(size(a1),8)*isize
         DEALLOCATE(a1)
         NULLIFY(a1)
      END IF
      IF(present(a2)) THEN
         IF(associated(a2)) THEN
            imemcnt = imemcnt+int(size(a2),8)*isize
            DEALLOCATE(a2)
            NULLIFY(a2)
         END IF
      END IF
      IF(present(a3)) THEN
         IF(associated(a3)) THEN
            imemcnt = imemcnt+int(size(a3),8)*isize
            DEALLOCATE(a3)
            NULLIFY(a3)
         END IF
      END IF
      IF(present(a4)) THEN
         IF(associated(a4)) THEN
            imemcnt = imemcnt+int(size(a4),8)*isize
            DEALLOCATE(a4)
            NULLIFY(a4)
         END IF
      END IF
      IF(present(a5)) THEN
         IF(associated(a5)) THEN
            imemcnt = imemcnt+int(size(a5),8)*isize
            DEALLOCATE(a5)
            NULLIFY(a5)
         END IF
      END IF
      IF(present(a6)) THEN
         IF(associated(a6)) THEN
            imemcnt = imemcnt+int(size(a6),8)*isize
            DEALLOCATE(a6)
            NULLIFY(a6)
         END IF
      END IF
      IF(present(a7)) THEN
         IF(associated(a7)) THEN
            imemcnt = imemcnt+int(size(a7),8)*isize
            DEALLOCATE(a7)
            NULLIFY(a7)
         END IF
      END IF
      IF(present(memcnt)) memcnt = memcnt-imemcnt
      RETURN

---

The documentation for this interface was generated from the following file:

• engine/extlib/MUMPS_5.5.1/src/mumps_memory_mod.F