mumps_fac_descband_data_m Module Reference

Data Types
type	descband_struc_t

Functions/Subroutines
subroutine, public	mumps_fdbd_init (initial_size, info)
logical function, public	mumps_fdbd_is_descband_stored (inode, iwhandler)
subroutine, public	mumps_fdbd_save_descband (inode, lbufr, bufr, iwhandler, info)
subroutine, public	mumps_fdbd_retrieve_descband (iwhandler, descband_struc)
subroutine, public	mumps_fdbd_free_descband_struc (iwhandler)
subroutine, public	mumps_fdbd_end (info1)

Variables
integer, save, public	inode_waited_for
type(descband_struc_t), dimension(:), pointer, save	fdbd_array

Function/Subroutine Documentation

mumps_fdbd_end()

subroutine, public mumps_fac_descband_data_m::mumps_fdbd_end

(

integer, intent(in)

info1

)

Definition at line 128 of file fac_descband_data_m.F.

       INTEGER, INTENT(IN) :: INFO1
       INTEGER :: I, IWHANDLER
       IF (.NOT. associated(fdbd_array)) THEN
         WRITE(*,*) "Internal error 1 in MUMPS_FAC_FDBD_END"
         CALL mumps_abort()
       ENDIF
       DO i=1, size(fdbd_array)
         IF (fdbd_array(i)%INODE .GE. 0) THEN
           IF (info1 .GE.0) THEN
             WRITE(*,*) "Internal error 2 in MUMPS_FAC_FDBD_END",i
             CALL mumps_abort()
           ELSE
             iwhandler=i
             CALL mumps_fdbd_free_descband_struc(iwhandler)
           ENDIF
         ENDIF
       ENDDO
       DEALLOCATE(fdbd_array)
       RETURN

mumps_fdbd_free_descband_struc()

subroutine, public mumps_fac_descband_data_m::mumps_fdbd_free_descband_struc

(

integer, intent(inout)

iwhandler

)

Definition at line 116 of file fac_descband_data_m.F.

       USE mumps_front_data_mgt_m, ONLY : mumps_fdm_end_idx
       INTEGER, INTENT(INOUT) :: IWHANDLER
       TYPE (DESCBAND_STRUC_T), POINTER :: DESCBAND_STRUC
       descband_struc => fdbd_array(iwhandler)
       descband_struc%INODE = -7777 
       descband_struc%LBUFR = -7777
       DEALLOCATE(descband_struc%BUFR)
       NULLIFY(descband_struc%BUFR)
       CALL mumps_fdm_end_idx('A', 'DESCBAND', iwhandler)
       RETURN

mumps_fdbd_init()

subroutine, public mumps_fac_descband_data_m::mumps_fdbd_init	(	integer, intent(in)	initial_size,
		integer, dimension(2), intent(inout)	info )

Definition at line 30 of file fac_descband_data_m.F.

       INTEGER, INTENT(IN) :: INITIAL_SIZE
       INTEGER, INTENT(INOUT) :: INFO(2)
       INTEGER :: I, IERR
       ALLOCATE(fdbd_array( initial_size ), stat=ierr)
       IF (ierr > 0 ) THEN
         info(1)=-13
         info(2)=initial_size
         RETURN
       ENDIF
       DO i=1, initial_size
         fdbd_array(i)%INODE=-9999
         fdbd_array(i)%LBUFR=-9999
         NULLIFY(fdbd_array(i)%BUFR)
       ENDDO
       inode_waited_for = -1
       RETURN

mumps_fdbd_is_descband_stored()

logical function, public mumps_fac_descband_data_m::mumps_fdbd_is_descband_stored	(	integer, intent(in)	inode,
		integer, intent(out)	iwhandler )

Definition at line 48 of file fac_descband_data_m.F.

       LOGICAL :: MUMPS_FDBD_IS_DESCBAND_STORED 
       INTEGER, INTENT(IN) :: INODE
       INTEGER, INTENT(OUT) :: IWHANDLER
       INTEGER :: I
       DO i = 1, size(fdbd_array)
         IF (fdbd_array(i)%INODE .EQ. inode) THEN
           iwhandler = i
           mumps_fdbd_is_descband_stored = .true.
           RETURN
         ENDIF
       ENDDO
       mumps_fdbd_is_descband_stored = .false.
       RETURN

mumps_fdbd_retrieve_descband()

subroutine, public mumps_fac_descband_data_m::mumps_fdbd_retrieve_descband	(	integer, intent(in)	iwhandler,
		type (descband_struc_t), pointer	descband_struc )

Definition at line 106 of file fac_descband_data_m.F.

       INTEGER, INTENT(IN) :: IWHANDLER
#if defined(MUMPS_F2003)
       TYPE (DESCBAND_STRUC_T), POINTER, INTENT(OUT) :: DESCBAND_STRUC
#else
       TYPE (DESCBAND_STRUC_T), POINTER :: DESCBAND_STRUC
#endif
       descband_struc => fdbd_array(iwhandler)
       RETURN

mumps_fdbd_save_descband()

subroutine, public mumps_fac_descband_data_m::mumps_fdbd_save_descband	(	integer, intent(in)	inode,
		integer, intent(in)	lbufr,
		integer, dimension(lbufr), intent(in)	bufr,
		integer, intent(out)	iwhandler,
		integer, dimension(2), intent(inout)	info )

Definition at line 63 of file fac_descband_data_m.F.

       USE mumps_front_data_mgt_m, ONLY : mumps_fdm_start_idx
       INTEGER, INTENT(IN) :: INODE, LBUFR, BUFR(LBUFR)
       INTEGER, INTENT(INOUT) :: INFO(2)
       INTEGER, INTENT(OUT) :: IWHANDLER
       TYPE(DESCBAND_STRUC_T), POINTER, DIMENSION(:) :: FDBD_ARRAY_TMP
       INTEGER :: OLD_SIZE, NEW_SIZE, I, IERR
       iwhandler = -1
       CALL mumps_fdm_start_idx('A', 'DESCBAND', iwhandler, info)
       IF (info(1) .LT. 0) RETURN
       IF (iwhandler > size(fdbd_array)) THEN
         old_size = size(fdbd_array)
         new_size = max( (old_size * 3) / 2 + 1, iwhandler)
         ALLOCATE(fdbd_array_tmp(new_size),stat=ierr)
         IF (ierr.GT.0) THEN
           info(1)=-13
           info(2)=new_size
           RETURN
         ENDIF
         DO i=1, old_size
           fdbd_array_tmp(i)=fdbd_array(i)
         ENDDO
         DO i=old_size+1, new_size
           fdbd_array_tmp(i)%INODE = -9999
           fdbd_array_tmp(i)%LBUFR = -9999
           NULLIFY(fdbd_array_tmp(i)%BUFR)
         ENDDO
         DEALLOCATE(fdbd_array)
         fdbd_array=>fdbd_array_tmp
         NULLIFY(fdbd_array_tmp)
       ENDIF
       fdbd_array(iwhandler)%INODE = inode
       fdbd_array(iwhandler)%LBUFR = lbufr
       ALLOCATE(fdbd_array(iwhandler)%BUFR(lbufr), stat=ierr)
       IF (ierr > 0 ) THEN
         info(1)=-13
         info(2)=lbufr
         RETURN
       ENDIF
       fdbd_array(iwhandler)%BUFR = bufr
       RETURN

Variable Documentation

fdbd_array

type (descband_struc_t), dimension(:), pointer, save mumps_fac_descband_data_m::fdbd_array

Definition at line 28 of file fac_descband_data_m.F.

       TYPE (DESCBAND_STRUC_T), POINTER, DIMENSION(:), SAVE::FDBD_ARRAY

inode_waited_for

integer, save, public mumps_fac_descband_data_m::inode_waited_for

Definition at line 17 of file fac_descband_data_m.F.

       INTEGER, SAVE :: INODE_WAITED_FOR