Home
last modified time | relevance | path

Searched refs:LBUFRX (Results 1 – 16 of 16) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dcfac_par_m.F103 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 Ddfac_par_m.F103 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 Dzfac_par_m.F103 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 Dsfac_par_m.F103 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 Dsmumps_part5.F2515 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 Ddmumps_part5.F2515 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 Dcmumps_part5.F2517 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 Dzmumps_part5.F2517 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 Dzmumps_part5.F2517 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 Dcmumps_part5.F2517 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 Dsmumps_part5.F2515 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 Ddmumps_part5.F2515 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 Dcmumps_part5.F2517 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 Ddmumps_part5.F2515 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 Dzmumps_part5.F2517 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 Dsmumps_part5.F2515 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 )