Home
last modified time | relevance | path

Searched refs:KEEP8 (Results 1 – 25 of 406) sorted by relevance

12345678910>>...17

/dports/math/mumps/mumps-5.1.2/src/
H A Dzfac_mem_free_block_cb.F17 & 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 Ddfac_mem_free_block_cb.F17 & 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 Dsfac_mem_free_block_cb.F17 & 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 Dcfac_mem_free_block_cb.F17 & 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 Dcfac_b.F51 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 Dzfac_b.F51 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 Ddfac_b.F51 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 Dsfac_b.F51 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 Dzfac_process_contrib_type2.F33 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 Dcfac_process_contrib_type2.F33 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 Dsfac_process_contrib_type2.F33 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 Ddfac_process_contrib_type2.F33 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 Ddfac_process_blfac_slave.F40 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 Dzfac_process_blfac_slave.F40 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 Dsfac_process_blfac_slave.F40 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 Dcfac_process_blfac_slave.F40 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 Dzlr_type.F21 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 Ddlr_type.F21 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 Dclr_type.F21 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 Dslr_type.F21 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 Ddfac_mem_alloc_cb.F15 & 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 Dsfac_mem_alloc_cb.F15 & 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 Dcfac_mem_alloc_cb.F15 & 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 Dzfac_mem_alloc_cb.F15 & 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 Dcfac_par_m.F53 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 …]

12345678910>>...17