/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zfac_mem_free_block_cb.F | 17 & IWPOSCB, LA, KEEP, KEEP8, IN_PLACE_STATS argument 27 INTEGER(8) KEEP8(150) local 52 KEEP8(70) = KEEP8(70) + SIZFR_BLOCK_EFF 53 KEEP8(71) = KEEP8(71) + SIZFR_BLOCK_EFF 60 & LA-LRLUS,0_8,MEM_INC,KEEP,KEEP8,LRLUS) 77 KEEP8(70) = KEEP8(70) + SIZFR_BLOCK_EFF 78 KEEP8(71) = KEEP8(71) + SIZFR_BLOCK_EFF 81 & LA-LRLUS,0_8,-SIZFR_BLOCK_EFF,KEEP,KEEP8,LRLUS)
|
H A D | dfac_mem_free_block_cb.F | 17 & IWPOSCB, LA, KEEP, KEEP8, IN_PLACE_STATS argument 27 INTEGER(8) KEEP8(150) local 52 KEEP8(70) = KEEP8(70) + SIZFR_BLOCK_EFF 53 KEEP8(71) = KEEP8(71) + SIZFR_BLOCK_EFF 60 & LA-LRLUS,0_8,MEM_INC,KEEP,KEEP8,LRLUS) 77 KEEP8(70) = KEEP8(70) + SIZFR_BLOCK_EFF 78 KEEP8(71) = KEEP8(71) + SIZFR_BLOCK_EFF 81 & LA-LRLUS,0_8,-SIZFR_BLOCK_EFF,KEEP,KEEP8,LRLUS)
|
H A D | sfac_mem_free_block_cb.F | 17 & IWPOSCB, LA, KEEP, KEEP8, IN_PLACE_STATS argument 27 INTEGER(8) KEEP8(150) local 52 KEEP8(70) = KEEP8(70) + SIZFR_BLOCK_EFF 53 KEEP8(71) = KEEP8(71) + SIZFR_BLOCK_EFF 60 & LA-LRLUS,0_8,MEM_INC,KEEP,KEEP8,LRLUS) 77 KEEP8(70) = KEEP8(70) + SIZFR_BLOCK_EFF 78 KEEP8(71) = KEEP8(71) + SIZFR_BLOCK_EFF 81 & LA-LRLUS,0_8,-SIZFR_BLOCK_EFF,KEEP,KEEP8,LRLUS)
|
H A D | cfac_mem_free_block_cb.F | 17 & IWPOSCB, LA, KEEP, KEEP8, IN_PLACE_STATS argument 27 INTEGER(8) KEEP8(150) local 52 KEEP8(70) = KEEP8(70) + SIZFR_BLOCK_EFF 53 KEEP8(71) = KEEP8(71) + SIZFR_BLOCK_EFF 60 & LA-LRLUS,0_8,MEM_INC,KEEP,KEEP8,LRLUS) 77 KEEP8(70) = KEEP8(70) + SIZFR_BLOCK_EFF 78 KEEP8(71) = KEEP8(71) + SIZFR_BLOCK_EFF 81 & LA-LRLUS,0_8,-SIZFR_BLOCK_EFF,KEEP,KEEP8,LRLUS)
|
H A D | cfac_b.F | 51 INTEGER(8) KEEP8(150) local 116 KEEP8(67) = LRLUS 117 KEEP8(68) = LRLUS 118 KEEP8(69) = LRLUS 119 KEEP8(70) = LRLUS 120 KEEP8(71) = LRLUS 158 & KEEP,KEEP8, 174 KEEP8(31) = POSFAC 179 KEEP8(67) = LA - KEEP8(67) 180 KEEP8(68) = LA - KEEP8(68) [all …]
|
H A D | zfac_b.F | 51 INTEGER(8) KEEP8(150) local 116 KEEP8(67) = LRLUS 117 KEEP8(68) = LRLUS 118 KEEP8(69) = LRLUS 119 KEEP8(70) = LRLUS 120 KEEP8(71) = LRLUS 158 & KEEP,KEEP8, 174 KEEP8(31) = POSFAC 179 KEEP8(67) = LA - KEEP8(67) 180 KEEP8(68) = LA - KEEP8(68) [all …]
|
H A D | dfac_b.F | 51 INTEGER(8) KEEP8(150) local 116 KEEP8(67) = LRLUS 117 KEEP8(68) = LRLUS 118 KEEP8(69) = LRLUS 119 KEEP8(70) = LRLUS 120 KEEP8(71) = LRLUS 158 & KEEP,KEEP8, 174 KEEP8(31) = POSFAC 179 KEEP8(67) = LA - KEEP8(67) 180 KEEP8(68) = LA - KEEP8(68) [all …]
|
H A D | sfac_b.F | 51 INTEGER(8) KEEP8(150) local 116 KEEP8(67) = LRLUS 117 KEEP8(68) = LRLUS 118 KEEP8(69) = LRLUS 119 KEEP8(70) = LRLUS 120 KEEP8(71) = LRLUS 158 & KEEP,KEEP8, 174 KEEP8(31) = POSFAC 179 KEEP8(67) = LA - KEEP8(67) 180 KEEP8(68) = LA - KEEP8(68) [all …]
|
H A D | zfac_process_contrib_type2.F | 33 INTEGER(8) KEEP8(150) local 56 INTEGER INTARR( KEEP8(27) ) 170 KEEP8(67) = min(LRLUS, KEEP8(67)) 171 KEEP8(70) = KEEP8(70) - LREQA 172 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 173 KEEP8(71) = KEEP8(71) - LREQA 174 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 210 & KEEP,KEEP8, MYID ) 219 & KEEP,KEEP8, MYID ) 360 KEEP8(70) = KEEP8(70) + LREQA [all …]
|
H A D | cfac_process_contrib_type2.F | 33 INTEGER(8) KEEP8(150) local 56 INTEGER INTARR( KEEP8(27) ) 57 COMPLEX DBLARR( KEEP8(26) ) 170 KEEP8(67) = min(LRLUS, KEEP8(67)) 171 KEEP8(70) = KEEP8(70) - LREQA 172 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 173 KEEP8(71) = KEEP8(71) - LREQA 174 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 210 & KEEP,KEEP8, MYID ) 360 KEEP8(70) = KEEP8(70) + LREQA [all …]
|
H A D | sfac_process_contrib_type2.F | 33 INTEGER(8) KEEP8(150) local 56 INTEGER INTARR( KEEP8(27) ) 57 REAL DBLARR( KEEP8(26) ) 170 KEEP8(67) = min(LRLUS, KEEP8(67)) 171 KEEP8(70) = KEEP8(70) - LREQA 172 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 173 KEEP8(71) = KEEP8(71) - LREQA 174 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 210 & KEEP,KEEP8, MYID ) 360 KEEP8(70) = KEEP8(70) + LREQA [all …]
|
H A D | dfac_process_contrib_type2.F | 33 INTEGER(8) KEEP8(150) local 56 INTEGER INTARR( KEEP8(27) ) 170 KEEP8(67) = min(LRLUS, KEEP8(67)) 171 KEEP8(70) = KEEP8(70) - LREQA 172 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 173 KEEP8(71) = KEEP8(71) - LREQA 174 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 210 & KEEP,KEEP8, MYID ) 219 & KEEP,KEEP8, MYID ) 360 KEEP8(70) = KEEP8(70) + LREQA [all …]
|
H A D | dfac_process_blfac_slave.F | 40 INTEGER(8) KEEP8(150) local 71 INTEGER INTARR( KEEP8(27) ) 173 KEEP8(67) = min(LRLUS, KEEP8(67)) 174 KEEP8(70) = KEEP8(70) - LAELL 175 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 176 KEEP8(71) = KEEP8(71) - LAELL 177 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 208 KEEP8(70) = KEEP8(70) + LAELL 209 KEEP8(71) = KEEP8(71) + LAELL 360 KEEP8(70) = KEEP8(70) + LAELL [all …]
|
H A D | zfac_process_blfac_slave.F | 40 INTEGER(8) KEEP8(150) local 71 INTEGER INTARR( KEEP8(27) ) 173 KEEP8(67) = min(LRLUS, KEEP8(67)) 174 KEEP8(70) = KEEP8(70) - LAELL 175 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 176 KEEP8(71) = KEEP8(71) - LAELL 177 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 208 KEEP8(70) = KEEP8(70) + LAELL 209 KEEP8(71) = KEEP8(71) + LAELL 360 KEEP8(70) = KEEP8(70) + LAELL [all …]
|
H A D | sfac_process_blfac_slave.F | 40 INTEGER(8) KEEP8(150) local 70 REAL DBLARR( KEEP8(26) ) 173 KEEP8(67) = min(LRLUS, KEEP8(67)) 174 KEEP8(70) = KEEP8(70) - LAELL 175 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 176 KEEP8(71) = KEEP8(71) - LAELL 177 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 208 KEEP8(70) = KEEP8(70) + LAELL 209 KEEP8(71) = KEEP8(71) + LAELL 360 KEEP8(70) = KEEP8(70) + LAELL [all …]
|
H A D | cfac_process_blfac_slave.F | 40 INTEGER(8) KEEP8(150) local 70 COMPLEX DBLARR( KEEP8(26) ) 173 KEEP8(67) = min(LRLUS, KEEP8(67)) 174 KEEP8(70) = KEEP8(70) - LAELL 175 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 176 KEEP8(71) = KEEP8(71) - LAELL 177 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 208 KEEP8(70) = KEEP8(70) + LAELL 209 KEEP8(71) = KEEP8(71) + LAELL 360 KEEP8(70) = KEEP8(70) + LAELL [all …]
|
H A D | zlr_type.F | 21 SUBROUTINE DEALLOC_LRB(LRB_OUT,KEEP8,IS_FACTOR) argument 24 INTEGER(8) :: KEEP8(150) local 33 KEEP8(70) = KEEP8(70) + int(MEM,8) 35 KEEP8(71) = KEEP8(71) + int(MEM,8) 53 SUBROUTINE DEALLOC_BLR_PANEL(BLR_PANEL, NB_BLR, KEEP8, IS_FACTOR) argument 56 INTEGER(8) :: KEEP8(150) local 62 CALL DEALLOC_LRB(BLR_PANEL(I), KEEP8, IS_FACTOR)
|
H A D | dlr_type.F | 21 SUBROUTINE DEALLOC_LRB(LRB_OUT,KEEP8,IS_FACTOR) argument 24 INTEGER(8) :: KEEP8(150) local 33 KEEP8(70) = KEEP8(70) + int(MEM,8) 35 KEEP8(71) = KEEP8(71) + int(MEM,8) 53 SUBROUTINE DEALLOC_BLR_PANEL(BLR_PANEL, NB_BLR, KEEP8, IS_FACTOR) argument 56 INTEGER(8) :: KEEP8(150) local 62 CALL DEALLOC_LRB(BLR_PANEL(I), KEEP8, IS_FACTOR)
|
H A D | clr_type.F | 21 SUBROUTINE DEALLOC_LRB(LRB_OUT,KEEP8,IS_FACTOR) argument 24 INTEGER(8) :: KEEP8(150) local 33 KEEP8(70) = KEEP8(70) + int(MEM,8) 35 KEEP8(71) = KEEP8(71) + int(MEM,8) 53 SUBROUTINE DEALLOC_BLR_PANEL(BLR_PANEL, NB_BLR, KEEP8, IS_FACTOR) argument 56 INTEGER(8) :: KEEP8(150) local 62 CALL DEALLOC_LRB(BLR_PANEL(I), KEEP8, IS_FACTOR)
|
H A D | slr_type.F | 21 SUBROUTINE DEALLOC_LRB(LRB_OUT,KEEP8,IS_FACTOR) argument 24 INTEGER(8) :: KEEP8(150) local 33 KEEP8(70) = KEEP8(70) + int(MEM,8) 35 KEEP8(71) = KEEP8(71) + int(MEM,8) 53 SUBROUTINE DEALLOC_BLR_PANEL(BLR_PANEL, NB_BLR, KEEP8, IS_FACTOR) argument 56 INTEGER(8) :: KEEP8(150) local 62 CALL DEALLOC_LRB(BLR_PANEL(I), KEEP8, IS_FACTOR)
|
H A D | dfac_mem_alloc_cb.F | 15 & MYID,N, KEEP,KEEP8,DKEEP, argument 29 INTEGER(8) KEEP8(150) local 172 KEEP8(67) = min(LRLUS, KEEP8(67)) 173 KEEP8(70) = KEEP8(70) - LREQCB_EFF 174 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 175 KEEP8(71) = KEEP8(71) - LREQCB_EFF 176 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 179 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS) 183 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS) 186 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS)
|
H A D | sfac_mem_alloc_cb.F | 15 & MYID,N, KEEP,KEEP8,DKEEP, argument 29 INTEGER(8) KEEP8(150) local 172 KEEP8(67) = min(LRLUS, KEEP8(67)) 173 KEEP8(70) = KEEP8(70) - LREQCB_EFF 174 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 175 KEEP8(71) = KEEP8(71) - LREQCB_EFF 176 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 179 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS) 183 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS) 186 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS)
|
H A D | cfac_mem_alloc_cb.F | 15 & MYID,N, KEEP,KEEP8,DKEEP, argument 29 INTEGER(8) KEEP8(150) local 172 KEEP8(67) = min(LRLUS, KEEP8(67)) 173 KEEP8(70) = KEEP8(70) - LREQCB_EFF 174 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 175 KEEP8(71) = KEEP8(71) - LREQCB_EFF 176 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 179 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS) 183 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS) 186 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS)
|
H A D | zfac_mem_alloc_cb.F | 15 & MYID,N, KEEP,KEEP8,DKEEP, argument 29 INTEGER(8) KEEP8(150) local 172 KEEP8(67) = min(LRLUS, KEEP8(67)) 173 KEEP8(70) = KEEP8(70) - LREQCB_EFF 174 KEEP8(68) = min(KEEP8(70), KEEP8(68)) 175 KEEP8(71) = KEEP8(71) - LREQCB_EFF 176 KEEP8(69) = min(KEEP8(71), KEEP8(69)) 179 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS) 183 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS) 186 & LA-LRLUS,0_8,LREQCB_EFF,KEEP,KEEP8,LRLUS)
|
H A D | cfac_par_m.F | 53 INTEGER(8) KEEP8(150) local 354 & INTARR,KEEP8(27),DBLARR,KEEP8(26), 372 & ICNTL, KEEP,KEEP8,DKEEP, INTARR,KEEP8(27), 404 & ICNTL, KEEP,KEEP8,DKEEP,INTARR,KEEP8(27),DBLARR,KEEP8(26), 423 & ICNTL, KEEP,KEEP8,DKEEP,INTARR,KEEP8(27),DBLARR,KEEP8(26), 490 & ICNTL, KEEP,KEEP8,DKEEP,INTARR,KEEP8(27),DBLARR,KEEP8(26), 687 KEEP8(31)=KEEP8(31)+ ITMP8 699 KEEP8(70) = KEEP8(70) + ITMP8 700 KEEP8(71) = KEEP8(71) + ITMP8 776 KEEP8(70) = KEEP8(70) + NFRONT8*NFRONT8 [all …]
|