cmumps_lr_type Module Reference

Data Types
type	lrb_type

Functions/Subroutines
subroutine	dealloc_lrb (lrb_out, keep8, k34)
subroutine	dealloc_blr_panel (blr_panel, iend, keep8, k34, ibeg_in)

Function/Subroutine Documentation

dealloc_blr_panel()

subroutine cmumps_lr_type::dealloc_blr_panel	(	type(lrb_type), dimension(:), intent(inout)	blr_panel,
		integer, intent(in)	iend,
		integer(8), dimension(150)	keep8,
		integer, intent(in)	k34,
		integer, intent(in), optional	ibeg_in )

Definition at line 55 of file clr_type.F.

        INTEGER, INTENT(IN)           :: IEND
        TYPE(LRB_TYPE), INTENT(INOUT) :: BLR_PANEL(:)
        INTEGER(8) :: KEEP8(150)
        INTEGER, INTENT(IN) :: K34
        INTEGER, INTENT(IN), OPTIONAL :: IBEG_IN
        INTEGER :: I, IBEG
        IF (present(ibeg_in)) THEN
          ibeg = ibeg_in
        ELSE
          ibeg = 1
        ENDIF
        IF (iend.GE.ibeg) THEN
          IF (blr_panel(1)%M.NE.0) THEN
            DO i=ibeg, iend
              CALL dealloc_lrb(blr_panel(i), keep8, k34)
            ENDDO
          ENDIF
        ENDIF

dealloc_lrb()

subroutine cmumps_lr_type::dealloc_lrb	(	type(lrb_type), intent(inout)	lrb_out,
		integer(8), dimension(150)	keep8,
		integer	k34 )

Definition at line 23 of file clr_type.F.

        TYPE(LRB_TYPE), INTENT(INOUT) :: LRB_OUT
        INTEGER(8) :: KEEP8(150)
        INTEGER :: K34
        INTEGER :: MEM, IDUMMY, JDUMMY
        IF (lrb_out%M.EQ.0) RETURN
        IF (lrb_out%N.EQ.0) RETURN
        mem = 0
          IF (lrb_out%ISLR) THEN
            IF (associated(lrb_out%Q)) THEN
              mem = mem + size(lrb_out%Q)
              DEALLOCATE (lrb_out%Q)
              NULLIFY(lrb_out%Q)
            ENDIF
            IF (associated(lrb_out%R)) THEN
              mem = mem + size(lrb_out%R)
              DEALLOCATE (lrb_out%R)
              NULLIFY(lrb_out%R)
            ENDIF
          ELSE
            IF (associated(lrb_out%Q)) THEN
              mem = mem + size(lrb_out%Q)
              DEALLOCATE (lrb_out%Q)
              NULLIFY(lrb_out%Q)
            ENDIF
          ENDIF
        CALL mumps_dm_fac_upd_dyn_memcnts(-int(mem,8),
     &        .true., keep8, 
     &        idummy, jdummy,    
     &        .true., .true.)