Data Types
type	maprow_struc_t

Functions/Subroutines
logical function, public	mumps_fmrd_is_maprow_stored (iwhandler)
subroutine, public	mumps_fmrd_init (initial_size, info)
subroutine, public	mumps_fmrd_save_maprow (iwhandler, inode, ison, nslaves_pere, nfront_pere, nass_pere, lmap, nfs4father, slaves_pere, trow, info)
subroutine	mumps_fmrd_store_maprow (iwhandler, maprow_struc, info)
subroutine	mumps_fmrd_fill_maprow (maprow_struc, inode, ison, nslaves_pere, nfront_pere, nass_pere, lmap, nfs4father, slaves_pere, trow, info)
subroutine, public	mumps_fmrd_free_maprow_struc (iwhandler)
subroutine, public	mumps_fmrd_retrieve_maprow (iwhandler, maprow_struc)
subroutine, public	mumps_fmrd_end (info1)

Variables
type(maprow_struc_t), dimension(:), pointer, save	fmrd_array

Function/Subroutine Documentation

◆ mumps_fmrd_end()

subroutine, public mumps_fac_maprow_data_m::mumps_fmrd_end ( integer, intent(in) info1 )

Definition at line 287 of file fac_maprow_data_m.F.

C
C      Purpose:
C      =======
C      Module final termination.
C
C      Arguments:
C      =========
C
       INTEGER, INTENT(IN) :: INFO1
C      Local variables:
C      ===============
       INTEGER :: I, IWHANDLER
C
       IF (.NOT. associated(fmrd_array)) THEN
         WRITE(*,*) "Internal error 1 in MUMPS_FAC_FMRD_END"
         CALL mumps_abort()
       ENDIF
       DO i=1, size(fmrd_array)
         IF (fmrd_array(i)%INODE .GE. 0) THEN
C          Node is not free: possible only in
C          case of fatal error (INFO1 < 0)
            IF (info1 .GE.0) THEN
C            Should have been freed earlier while consuming MAPLIG
             WRITE(*,*) "Internal error 2 in MUMPS_FAC_FMRD_END",i
             CALL mumps_abort()
           ELSE
C            May happen in case an error has forced finishing
C            factorization before all MAPROW msgs were processed.
C            We copy the loop index I in the local variable IWHANDLER
C            because there would otherwise be a risk for the loop index
C            I to be modified by MUMPS_FMRD_FREE_MAPROW_STRUC
             iwhandler=i
             CALL mumps_fmrd_free_maprow_struc(iwhandler)
           ENDIF
         ENDIF
       ENDDO
       DEALLOCATE(fmrd_array)
       RETURN

◆ mumps_fmrd_fill_maprow()

subroutine mumps_fac_maprow_data_m::mumps_fmrd_fill_maprow	(	type (maprow_struc_t), intent(out)	maprow_struc,
		integer, intent(in)	inode,
		integer, intent(in)	ison,
		integer, intent(in)	nslaves_pere,
		integer, intent(in)	nfront_pere,
		integer, intent(in)	nass_pere,
		integer, intent(in)	lmap,
		integer, intent(in)	nfs4father,
		integer, dimension(max(1,nslaves_pere)), intent(in)	slaves_pere,
		integer, dimension( lmap), intent(in)	trow,
		integer, dimension(2), intent(inout)	info )

private

Definition at line 183 of file fac_maprow_data_m.F.

C
C      Purpose:
C      =======
C      Fill the MAPROW_STRUC into
C
C      Arguments:
C      =========
C
       INTEGER, INTENT(IN) :: INODE, ISON, NSLAVES_PERE, NFRONT_PERE,
     &              NASS_PERE, LMAP, NFS4FATHER
       INTEGER, INTENT(IN) :: SLAVES_PERE(max(1,NSLAVES_PERE))
       INTEGER, INTENT(IN) :: TROW( LMAP)
       TYPE (MAPROW_STRUC_T), INTENT(OUT) :: MAPROW_STRUC
       INTEGER, INTENT(INOUT) :: INFO(2)
C
C      Local variables:
C      ===============
C
       INTEGER :: IERR, I
C
       maprow_struc%INODE        = inode
       maprow_struc%ISON         = ison
       maprow_struc%NSLAVES_PERE = nslaves_pere
       maprow_struc%NFRONT_PERE  = nfront_pere
       maprow_struc%NASS_PERE    = nass_pere
       maprow_struc%LMAP         = lmap
       maprow_struc%NFS4FATHER   = nfs4father
       ALLOCATE(maprow_struc%SLAVES_PERE(max(1,nslaves_pere)),
     &            maprow_struc%TROW(lmap), stat=ierr)
       IF (ierr .GT.0) THEN
           info(1) = -13
           info(2) = nslaves_pere + lmap
           RETURN
       ENDIF
       DO i=1, nslaves_pere
           maprow_struc%SLAVES_PERE(i) = slaves_pere(i)
       ENDDO
       DO i=1, lmap
           maprow_struc%TROW(i) = trow(i)
       ENDDO
       RETURN

◆ mumps_fmrd_free_maprow_struc()

subroutine, public mumps_fac_maprow_data_m::mumps_fmrd_free_maprow_struc ( integer, intent(inout) iwhandler )

Definition at line 232 of file fac_maprow_data_m.F.

       USE mumps_front_data_mgt_m, ONLY : mumps_fdm_end_idx
C
C      Purpose:
C      =======
C
C      Free internal arrays of MAPROW_STRUC.
C      Typically used after a MAPROW_STRUC has been retrieved
C      from the module and late-received message has finally
C      been processed.
C
C      MAPROW_STRUC normally corresponds to a local variable
C      of the calling routine and will not be reused.
C
C      Arguments:
C      =========
C
       INTEGER, INTENT(INOUT) :: IWHANDLER
C
C      Local variables:
C      ===============
C
       TYPE (MAPROW_STRUC_T), POINTER :: MAPROW_STRUC
C
       maprow_struc => fmrd_array(iwhandler)
       maprow_struc%INODE = -7777 ! Special value: negative means unused
       DEALLOCATE(maprow_struc%SLAVES_PERE, maprow_struc%TROW)
       NULLIFY     (maprow_struc%SLAVES_PERE, maprow_struc%TROW)
C      Release handler IWHANDLER and store it
C      in a new free position for future reuse
       CALL mumps_fdm_end_idx('A', 'MAPROW', iwhandler)
       RETURN

◆ mumps_fmrd_init()

subroutine, public mumps_fac_maprow_data_m::mumps_fmrd_init	(	integer, intent(in)	initial_size,
		integer, dimension(2), intent(inout)	info )

Definition at line 63 of file fac_maprow_data_m.F.

C
C      Purpose:
C      =======
C
C      Module initialization
C
C      Arguments
C      =========
C
       INTEGER, INTENT(IN) :: INITIAL_SIZE
       INTEGER, INTENT(INOUT) :: INFO(2)
C
C      Local variables
C      ===============
C
       INTEGER :: I, IERR
C
       ALLOCATE(fmrd_array( initial_size ), stat=ierr)
       IF (ierr > 0 ) THEN
         info(1)=-13
         info(2)=initial_size
         RETURN
       ENDIF
       DO i=1, initial_size
         fmrd_array(i)%INODE=-9999
         NULLIFY(fmrd_array(i)%SLAVES_PERE)
         NULLIFY(fmrd_array(i)%TROW)
       ENDDO
       RETURN

◆ mumps_fmrd_is_maprow_stored()

logical function, public mumps_fac_maprow_data_m::mumps_fmrd_is_maprow_stored ( integer, intent(in) iwhandler )

Definition at line 47 of file fac_maprow_data_m.F.

       LOGICAL :: MUMPS_FMRD_IS_MAPROW_STORED 
       INTEGER, INTENT(IN) :: IWHANDLER
       IF (iwhandler .LT. 0 .OR. iwhandler .GT. size(fmrd_array)) THEN
         mumps_fmrd_is_maprow_stored = .false.
       ELSE
         mumps_fmrd_is_maprow_stored =
     &                           (fmrd_array(iwhandler)%INODE .GE. 0 )
         IF (fmrd_array(iwhandler)%INODE .EQ.0) THEN
           WRITE(*,*) " Internal error 1 in MUMPS_FMRD_IS_MAPROW_STORED"
           CALL mumps_abort()
         ENDIF
       ENDIF
       RETURN

◆ mumps_fmrd_retrieve_maprow()

subroutine, public mumps_fac_maprow_data_m::mumps_fmrd_retrieve_maprow	(	integer, intent(in)	iwhandler,
		type (maprow_struc_t), pointer	maprow_struc )

Definition at line 266 of file fac_maprow_data_m.F.

C
C      Purpose:
C      =======
C
C      Given an IWHANDLER, return a pointer to a MAPROW structure,
C      containing information on a previously received MAPROW message.
C
C      Arguments:
C      =========
C
       INTEGER, INTENT(IN) :: IWHANDLER
#if defined(MUMPS_F2003)
       TYPE (MAPROW_STRUC_T), POINTER, INTENT(OUT) :: MAPROW_STRUC
#else
       TYPE (MAPROW_STRUC_T), POINTER :: MAPROW_STRUC
#endif
       maprow_struc => fmrd_array(iwhandler)
       RETURN

◆ mumps_fmrd_save_maprow()

subroutine, public mumps_fac_maprow_data_m::mumps_fmrd_save_maprow	(	integer, intent(inout)	iwhandler,
		integer, intent(in)	inode,
		integer, intent(in)	ison,
		integer, intent(in)	nslaves_pere,
		integer, intent(in)	nfront_pere,
		integer, intent(in)	nass_pere,
		integer, intent(in)	lmap,
		integer, intent(in)	nfs4father,
		integer, dimension (max(1,nslaves_pere)), intent(in)	slaves_pere,
		integer, dimension( lmap), intent(in)	trow,
		integer, dimension(2), intent(inout)	info )

Definition at line 95 of file fac_maprow_data_m.F.

C
C      Arguments:
C      =========
C
       INTEGER, INTENT(IN) :: INODE, ISON, NSLAVES_PERE, NFRONT_PERE,
     &                        NASS_PERE, LMAP, NFS4FATHER
       INTEGER, INTENT(IN) :: SLAVES_PERE (max(1,NSLAVES_PERE))
       INTEGER, INTENT(IN) :: TROW( LMAP)
       INTEGER, INTENT(INOUT) :: IWHANDLER, INFO(2)
C
C      Local variables:
C      ===============
C
       TYPE(MAPROW_STRUC_T) :: MAPROW_STRUC
C
       CALL mumps_fmrd_fill_maprow( maprow_struc,
     &   inode, ison, nslaves_pere, nfront_pere,
     &              nass_pere, lmap, nfs4father,
     &   slaves_pere, !size NSLAVES_PERE
     &   trow,        !size LMAP
     &   info)
       IF (info(1) .LT. 0) RETURN
       CALL mumps_fmrd_store_maprow(iwhandler, maprow_struc, info)
       RETURN

◆ mumps_fmrd_store_maprow()

subroutine mumps_fac_maprow_data_m::mumps_fmrd_store_maprow	(	integer, intent(inout)	iwhandler,
		type(maprow_struc_t), intent(in)	maprow_struc,
		integer, dimension(2), intent(inout)	info )

private

Definition at line 128 of file fac_maprow_data_m.F.

       USE mumps_front_data_mgt_m, ONLY : mumps_fdm_start_idx
C
C      Purpose:
C      =======
C
C      Given an IWHANDLER and a MAPROW structure, store the MAPROW
C      structure into the main array of the module.
C
C      If IWHANDLER is larger than the current array size, the
C      array is reallocated.
C
C      Arguments:
C      =========
C
       INTEGER, INTENT(INOUT) :: IWHANDLER, INFO(2)
       TYPE(MAPROW_STRUC_T), INTENT(IN) :: MAPROW_STRUC
C
C      Local variables:
C      ===============
C
       TYPE(MAPROW_STRUC_T), POINTER, DIMENSION(:) :: FMRD_ARRAY_TMP
       INTEGER :: OLD_SIZE, NEW_SIZE
       INTEGER :: I
       INTEGER :: IERR
C
       CALL mumps_fdm_start_idx('A', 'MAPROW', iwhandler, info)
       IF (info(1) .LT. 0) RETURN
       IF (iwhandler > size(fmrd_array)) THEN
C        Reallocate in a bigger array
         old_size = size(fmrd_array)
         new_size = max( (old_size * 3) / 2 + 1, iwhandler)
C        
         ALLOCATE(fmrd_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
           fmrd_array_tmp(i)=fmrd_array(i)
         ENDDO
C        Similar to code in MUMPS_FMRD_INIT:
         DO i=old_size+1, new_size
           fmrd_array_tmp(i)%INODE = -9999
           NULLIFY(fmrd_array_tmp(i)%SLAVES_PERE)
           NULLIFY(fmrd_array_tmp(i)%TROW)
         ENDDO
         DEALLOCATE(fmrd_array)
         fmrd_array=>fmrd_array_tmp
         NULLIFY(fmrd_array_tmp)
       ENDIF
       fmrd_array(iwhandler) = maprow_struc
       RETURN

Variable Documentation

◆ fmrd_array

type (maprow_struc_t), dimension(:), pointer, save mumps_fac_maprow_data_m::fmrd_array

Definition at line 45 of file fac_maprow_data_m.F.

45 TYPE (MAPROW_STRUC_T), POINTER, DIMENSION(:), SAVE :: FMRD_ARRAY

OpenRadioss 2025.1.11 OpenRadioss project

Data Types

Functions/Subroutines

Variables