mumps_ooc_common.F File Reference

Go to the source code of this file.

Data Types
type	mumps_ooc_common::io_block

Modules
module	mumps_ooc_common

Functions/Subroutines
subroutine	mumps_ooc_convert_2inttobigint (int1, int2, bigint)
subroutine	mumps_ooc_convert_bigintto2int (int1, int2, bigint)
subroutine	mumps_ooc_init_filetype (typef_l, typef_u, typef_cb, k201, k251, k50, typef_invalid)
integer function	mumps_ooc_get_fct_type (fwdorbwd, mtype, k201, k50)

Variables
integer, parameter	mumps_ooc_common::fct = 0
integer, parameter, public	mumps_ooc_common::typef_invalid = -999999
integer, public	mumps_ooc_common::typef_l
integer, public	mumps_ooc_common::typef_u
integer, public	mumps_ooc_common::typef_cb
integer	mumps_ooc_common::ooc_nb_file_type
integer	mumps_ooc_common::ooc_fct_type
integer, dimension(:,:), pointer	mumps_ooc_common::ooc_inode_sequence
integer(8), dimension(:,:), pointer	mumps_ooc_common::ooc_vaddr
integer, dimension(:), pointer	mumps_ooc_common::keep_ooc
integer	mumps_ooc_common::icntl1
integer(8), dimension(:), allocatable	mumps_ooc_common::addvirtlibre
logical, save	mumps_ooc_common::strat_io_async
logical, save	mumps_ooc_common::with_buf
logical, save	mumps_ooc_common::solve
integer, dimension(:), pointer	mumps_ooc_common::step_ooc
integer, dimension(:), pointer	mumps_ooc_common::procnode_ooc
integer, save	mumps_ooc_common::myid_ooc
integer, save	mumps_ooc_common::slavef_ooc
integer, save	mumps_ooc_common::low_level_strat_io
integer(8), save	mumps_ooc_common::hbuf_size
integer(8), save	mumps_ooc_common::dim_buf_io
integer	mumps_ooc_common::err_str_ooc_max_len
character(len=1), dimension(err_str_ooc_max_len)	mumps_ooc_common::err_str_ooc
integer	mumps_ooc_common::dim_err_str_ooc
integer, public	mumps_ooc_common::strat_write_max
integer, public	mumps_ooc_common::strat_try_write

Function/Subroutine Documentation

mumps_ooc_convert_2inttobigint()

subroutine mumps_ooc_convert_2inttobigint	(	integer	int1,
		integer	int2,
		integer(8)	bigint )

Definition at line 48 of file mumps_ooc_common.F.

      IMPLICIT NONE
      INTEGER INT1,INT2
      INTEGER(8) BIGINT
      INTEGER(8) TMP1,TMP2,CONV
      parameter(conv=1073741824_8) 
      tmp1=int(int1,kind=kind(tmp1))
      tmp2=int(int2,kind=kind(tmp2))
      bigint=(tmp1*conv)+tmp2
      RETURN

mumps_ooc_convert_bigintto2int()

subroutine mumps_ooc_convert_bigintto2int	(	integer	int1,
		integer	int2,
		integer(8)	bigint )

Definition at line 59 of file mumps_ooc_common.F.

      IMPLICIT NONE
      INTEGER INT1,INT2
      INTEGER(8) BIGINT
      INTEGER(8) TMP1,TMP2,CONV
      parameter(conv=1073741824_8) 
      tmp1=bigint/conv
      tmp2=mod(bigint,conv)
      int1=int(tmp1)
      int2=int(tmp2)
      RETURN

mumps_ooc_get_fct_type()

integer function mumps_ooc_get_fct_type	(	character(len=1), intent(in)	fwdorbwd,
		integer, intent(in)	mtype,
		integer, intent(in)	k201,
		integer, intent(in)	k50 )

Definition at line 95 of file mumps_ooc_common.F.

      USE mumps_ooc_common 
      INTEGER,     intent(in) :: MTYPE, K201, K50
      CHARACTER(len=1), intent(in) :: FWDORBWD
      IF ( (typef_l .NE. 1 .AND. typef_l .NE. typef_invalid)
     &     .OR. (typef_u .NE. 1 .AND. typef_u .NE. 2 .AND.
     &           typef_u .NE. typef_invalid) ) THEN
        WRITE(*,*) "Internal error 1 in MUMPS_OOC_GET_FCT_TYPE",
     &              typef_l, typef_u
        CALL mumps_abort()
      ENDIF
      IF (fwdorbwd .NE. 'F' .AND. fwdorbwd .NE. 'B') THEN
        WRITE(*,*) "Internal error in MUMPS_OOC_GET_FCT_TYPE,",fwdorbwd
        CALL mumps_abort()
      ENDIF
      IF (k201 .EQ. 1) THEN  
        IF (fwdorbwd .EQ. 'F') THEN
         IF((mtype.NE.1).AND.(k50.EQ.0))THEN
           mumps_ooc_get_fct_type=typef_u
         ELSE
           mumps_ooc_get_fct_type=typef_l
         ENDIF
        ELSE 
          IF(k50.EQ.0)THEN
            IF(mtype.NE.1)THEN
              mumps_ooc_get_fct_type=typef_l
            ELSE
              mumps_ooc_get_fct_type=typef_u
            ENDIF
          ELSE
            mumps_ooc_get_fct_type=typef_l
          ENDIF
        ENDIF
      ELSE  
        mumps_ooc_get_fct_type = 1
      ENDIF
      RETURN

mumps_ooc_init_filetype()

subroutine mumps_ooc_init_filetype	(	integer, intent(out)	typef_l,
		integer, intent(out)	typef_u,
		integer, intent(out)	typef_cb,
		integer, intent(in)	k201,
		integer, intent(in)	k251,
		integer, intent(in)	k50,
		integer, intent(in)	typef_invalid )

Definition at line 71 of file mumps_ooc_common.F.

      IMPLICIT NONE
      INTEGER, intent(out):: TYPEF_L, TYPEF_U, TYPEF_CB
      INTEGER, intent(in) :: K201, K251, K50
      INTEGER, intent(in) :: TYPEF_INVALID
      IF (k201 .EQ. 1 .AND. k50.EQ.0) THEN
        IF ( k251.NE.2 ) THEN
          typef_l  = 1
          typef_u  = 2
          typef_cb = 3 
        ELSE
          typef_u  = 1
          typef_l  = typef_invalid 
          typef_cb = 2 
        ENDIF
      ELSE 
         typef_l = 1
         typef_u = typef_invalid 
         typef_cb=2 
      ENDIF
      RETURN