Searched refs:LENRUL (Results 1 – 2 of 2) sorted by relevance
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp3.F | 999 LENRUL = 5
1002 LENRUL = 6
1005 LENRUL = 6
1018 INPNTS = INWGTS + LENRUL*4
9227 INTEGER I, LENRUL, NDIM
9250 DO 200 I = 1,LENRUL
31168 DOUBLE PRECISION W(LENRUL,4), G(NDIM,LENRUL)
31182 DO 100 I = 1,LENRUL
31212 RULPTS(LENRUL) = 2**NDIM
31215 G(I,LENRUL) = LAM3
[all …]
|
| H A D | dp43.F | 12329 SUBROUTINE RULNRM( LENRUL, NUMNUL, RULPTS, W, RULCON ) argument
12330 INTEGER LENRUL, NUMNUL, I, J, K, RULPTS(*) local
12331 DOUBLE PRECISION ALPHA, NORMCF, NORMNL, W(LENRUL, *), RULCON
12336 DO 100 I = 1,LENRUL
12340 DO 300 I = 1,LENRUL
12345 DO 500 I = 1,LENRUL
12349 DO 600 I = 1,LENRUL
12354 DO 700 I = 1,LENRUL
12358 DO 800 I = 1,LENRUL
12363 DO 950 I = 1,LENRUL
|