/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cfac_par_m.F | 103 INTEGER(8) :: LBUFRX local 620 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 622 IF ( LRLU .GT. LBUFRX ) THEN 624 LBUFRX=LRLU 627 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 630 CALL MUMPS_SET_IERROR(LBUFRX, INFO(2) ) 633 & 'of size before CMUMPS_FACTO_ROOT', LBUFRX 643 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP,
|
H A D | dfac_par_m.F | 103 INTEGER(8) :: LBUFRX local 620 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 622 IF ( LRLU .GT. LBUFRX ) THEN 624 LBUFRX=LRLU 627 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 630 CALL MUMPS_SET_IERROR(LBUFRX, INFO(2) ) 633 & 'of size before DMUMPS_FACTO_ROOT', LBUFRX 643 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP,
|
H A D | zfac_par_m.F | 103 INTEGER(8) :: LBUFRX local 620 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 622 IF ( LRLU .GT. LBUFRX ) THEN 624 LBUFRX=LRLU 627 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 630 CALL MUMPS_SET_IERROR(LBUFRX, INFO(2) ) 633 & 'of size before ZMUMPS_FACTO_ROOT', LBUFRX 643 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP,
|
H A D | sfac_par_m.F | 103 INTEGER(8) :: LBUFRX local 620 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 622 IF ( LRLU .GT. LBUFRX ) THEN 624 LBUFRX=LRLU 627 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 630 CALL MUMPS_SET_IERROR(LBUFRX, INFO(2) ) 633 & 'of size before SMUMPS_FACTO_ROOT', LBUFRX 643 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP,
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | smumps_part5.F | 2515 INTEGER(8) :: LBUFRX 3018 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3020 IF ( LRLU .GT. LBUFRX ) THEN 3022 LBUFRX=LRLU 3025 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3028 CALL MUMPS_731(LBUFRX, INFO(2) ) 3031 & 'of size before SMUMPS_146', LBUFRX 3041 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | dmumps_part5.F | 2515 INTEGER(8) :: LBUFRX 3018 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3020 IF ( LRLU .GT. LBUFRX ) THEN 3022 LBUFRX=LRLU 3025 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3028 CALL MUMPS_731(LBUFRX, INFO(2) ) 3031 & 'of size before DMUMPS_146', LBUFRX 3041 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | cmumps_part5.F | 2517 INTEGER(8) :: LBUFRX 3020 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3022 IF ( LRLU .GT. LBUFRX ) THEN 3024 LBUFRX=LRLU 3027 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3030 CALL MUMPS_731(LBUFRX, INFO(2) ) 3033 & 'of size before CMUMPS_146', LBUFRX 3043 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | zmumps_part5.F | 2517 INTEGER(8) :: LBUFRX 3020 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3022 IF ( LRLU .GT. LBUFRX ) THEN 3024 LBUFRX=LRLU 3027 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3030 CALL MUMPS_731(LBUFRX, INFO(2) ) 3033 & 'of size before ZMUMPS_146', LBUFRX 3043 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | zmumps_part5.F | 2517 INTEGER(8) :: LBUFRX 3020 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3022 IF ( LRLU .GT. LBUFRX ) THEN 3024 LBUFRX=LRLU 3027 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3030 CALL MUMPS_731(LBUFRX, INFO(2) ) 3033 & 'of size before ZMUMPS_146', LBUFRX 3043 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | cmumps_part5.F | 2517 INTEGER(8) :: LBUFRX 3020 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3022 IF ( LRLU .GT. LBUFRX ) THEN 3024 LBUFRX=LRLU 3027 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3030 CALL MUMPS_731(LBUFRX, INFO(2) ) 3033 & 'of size before CMUMPS_146', LBUFRX 3043 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | smumps_part5.F | 2515 INTEGER(8) :: LBUFRX local 3018 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3020 IF ( LRLU .GT. LBUFRX ) THEN 3022 LBUFRX=LRLU 3025 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3028 CALL MUMPS_731(LBUFRX, INFO(2) ) 3031 & 'of size before SMUMPS_146', LBUFRX 3041 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | dmumps_part5.F | 2515 INTEGER(8) :: LBUFRX 3018 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3020 IF ( LRLU .GT. LBUFRX ) THEN 3022 LBUFRX=LRLU 3025 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3028 CALL MUMPS_731(LBUFRX, INFO(2) ) 3031 & 'of size before DMUMPS_146', LBUFRX 3041 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part5.F | 2517 INTEGER(8) :: LBUFRX local 3020 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3022 IF ( LRLU .GT. LBUFRX ) THEN 3024 LBUFRX=LRLU 3027 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3030 CALL MUMPS_731(LBUFRX, INFO(2) ) 3033 & 'of size before CMUMPS_146', LBUFRX 3043 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | dmumps_part5.F | 2515 INTEGER(8) :: LBUFRX local 3018 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3020 IF ( LRLU .GT. LBUFRX ) THEN 3022 LBUFRX=LRLU 3025 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3028 CALL MUMPS_731(LBUFRX, INFO(2) ) 3031 & 'of size before DMUMPS_146', LBUFRX 3041 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | zmumps_part5.F | 2517 INTEGER(8) :: LBUFRX local 3020 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3022 IF ( LRLU .GT. LBUFRX ) THEN 3024 LBUFRX=LRLU 3027 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3030 CALL MUMPS_731(LBUFRX, INFO(2) ) 3033 & 'of size before ZMUMPS_146', LBUFRX 3043 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|
H A D | smumps_part5.F | 2515 INTEGER(8) :: LBUFRX local 3018 LBUFRX = min(int(root%MBLOCK,8)*int(root%NBLOCK,8), 3020 IF ( LRLU .GT. LBUFRX ) THEN 3022 LBUFRX=LRLU 3025 ALLOCATE( BUFRX( LBUFRX ), stat = IERR ) 3028 CALL MUMPS_731(LBUFRX, INFO(2) ) 3031 & 'of size before SMUMPS_146', LBUFRX 3041 & BUFRX(1), LBUFRX, KEEP,KEEP8, DKEEP )
|