Home
last modified time | relevance | path

Searched refs:JOLD (Results 1 – 25 of 55) sorted by relevance

123

/dports/math/mumps/mumps-5.1.2/src/
H A Ddfac_distrib_distentry.F41 JOLD = JCN( K8 )
43 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
49 JSEND = JOLD
52 JNEW = PERM( JOLD )
56 JSEND = JOLD
58 ISEND = -JOLD
315 JOLD = id%JCN_loc(K8)
324 JSEND = JOLD
327 JNEW = PERM(JOLD)
331 JSEND = JOLD
[all …]
H A Dcfac_distrib_distentry.F41 JOLD = JCN( K8 )
43 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
49 JSEND = JOLD
52 JNEW = PERM( JOLD )
56 JSEND = JOLD
58 ISEND = -JOLD
315 JOLD = id%JCN_loc(K8)
324 JSEND = JOLD
327 JNEW = PERM(JOLD)
331 JSEND = JOLD
[all …]
H A Dsfac_distrib_distentry.F41 JOLD = JCN( K8 )
43 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
49 JSEND = JOLD
52 JNEW = PERM( JOLD )
56 JSEND = JOLD
58 ISEND = -JOLD
315 JOLD = id%JCN_loc(K8)
324 JSEND = JOLD
327 JNEW = PERM(JOLD)
331 JSEND = JOLD
[all …]
H A Dzfac_distrib_distentry.F41 JOLD = JCN( K8 )
43 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
49 JSEND = JOLD
52 JNEW = PERM( JOLD )
56 JSEND = JOLD
58 ISEND = -JOLD
315 JOLD = id%JCN_loc(K8)
324 JSEND = JOLD
327 JNEW = PERM(JOLD)
331 JSEND = JOLD
[all …]
H A Dcarrowheads.F212 INTEGER IOLD,JOLD,INEW,JNEW,ISEND,JSEND,DEST,I,IARR local
295 JOLD = ICN(K)
296 IF ( (IOLD.GT.N).OR.(JOLD.GT.N).OR.(IOLD.LT.1)
297 & .OR.(JOLD.LT.1) ) THEN
301 VAL = ASPK(K)*ROWSCA(IOLD)*COLSCA(JOLD)
305 IF (IOLD.EQ.JOLD) THEN
307 JSEND = JOLD
310 JNEW = PERM(JOLD)
314 JSEND = JOLD
316 ISEND = -JOLD
H A Dsarrowheads.F212 INTEGER IOLD,JOLD,INEW,JNEW,ISEND,JSEND,DEST,I,IARR local
295 JOLD = ICN(K)
296 IF ( (IOLD.GT.N).OR.(JOLD.GT.N).OR.(IOLD.LT.1)
297 & .OR.(JOLD.LT.1) ) THEN
301 VAL = ASPK(K)*ROWSCA(IOLD)*COLSCA(JOLD)
305 IF (IOLD.EQ.JOLD) THEN
307 JSEND = JOLD
310 JNEW = PERM(JOLD)
314 JSEND = JOLD
316 ISEND = -JOLD
H A Dzarrowheads.F212 INTEGER IOLD,JOLD,INEW,JNEW,ISEND,JSEND,DEST,I,IARR local
295 JOLD = ICN(K)
296 IF ( (IOLD.GT.N).OR.(JOLD.GT.N).OR.(IOLD.LT.1)
297 & .OR.(JOLD.LT.1) ) THEN
301 VAL = ASPK(K)*ROWSCA(IOLD)*COLSCA(JOLD)
305 IF (IOLD.EQ.JOLD) THEN
307 JSEND = JOLD
310 JNEW = PERM(JOLD)
314 JSEND = JOLD
316 ISEND = -JOLD
H A Ddarrowheads.F212 INTEGER IOLD,JOLD,INEW,JNEW,ISEND,JSEND,DEST,I,IARR local
295 JOLD = ICN(K)
296 IF ( (IOLD.GT.N).OR.(JOLD.GT.N).OR.(IOLD.LT.1)
297 & .OR.(JOLD.LT.1) ) THEN
301 VAL = ASPK(K)*ROWSCA(IOLD)*COLSCA(JOLD)
305 IF (IOLD.EQ.JOLD) THEN
307 JSEND = JOLD
310 JNEW = PERM(JOLD)
314 JSEND = JOLD
316 ISEND = -JOLD
H A Dcana_aux.F3551 INTEGER :: IOLD, JOLD, INEW, JNEW local
3578 JOLD = IJCN(K)
3579 IF ( (IOLD.GT.id%N).OR.(JOLD.GT.id%N).OR.(IOLD.LT.1)
3580 & .OR.(JOLD.LT.1) ) GOTO 70
3581 IF (IOLD.NE.JOLD) THEN
3583 JNEW = id%SYM_PERM(JOLD)
3588 IWORK1(JOLD) = IWORK1(JOLD) + 1_8
3594 IWORK1( JOLD ) = IWORK1( JOLD ) + 1_8
H A Ddana_aux.F3551 INTEGER :: IOLD, JOLD, INEW, JNEW local
3578 JOLD = IJCN(K)
3579 IF ( (IOLD.GT.id%N).OR.(JOLD.GT.id%N).OR.(IOLD.LT.1)
3580 & .OR.(JOLD.LT.1) ) GOTO 70
3581 IF (IOLD.NE.JOLD) THEN
3583 JNEW = id%SYM_PERM(JOLD)
3588 IWORK1(JOLD) = IWORK1(JOLD) + 1_8
3594 IWORK1( JOLD ) = IWORK1( JOLD ) + 1_8
H A Dzana_aux.F3551 INTEGER :: IOLD, JOLD, INEW, JNEW local
3578 JOLD = IJCN(K)
3579 IF ( (IOLD.GT.id%N).OR.(JOLD.GT.id%N).OR.(IOLD.LT.1)
3580 & .OR.(JOLD.LT.1) ) GOTO 70
3581 IF (IOLD.NE.JOLD) THEN
3583 JNEW = id%SYM_PERM(JOLD)
3588 IWORK1(JOLD) = IWORK1(JOLD) + 1_8
3594 IWORK1( JOLD ) = IWORK1( JOLD ) + 1_8
H A Dsana_aux.F3551 INTEGER :: IOLD, JOLD, INEW, JNEW local
3578 JOLD = IJCN(K)
3579 IF ( (IOLD.GT.id%N).OR.(JOLD.GT.id%N).OR.(IOLD.LT.1)
3580 & .OR.(JOLD.LT.1) ) GOTO 70
3581 IF (IOLD.NE.JOLD) THEN
3583 JNEW = id%SYM_PERM(JOLD)
3588 IWORK1(JOLD) = IWORK1(JOLD) + 1_8
3594 IWORK1( JOLD ) = IWORK1( JOLD ) + 1_8
/dports/science/siconos/siconos-4.4.0/externals/hairer/
H A Dlinsp.f586 JOLD = JVECT(I)
593 * JOLD.GT.0) GO TO 30
598 JNEW = IW1(JOLD,2)
602 IF (LP.NE.0) WRITE (LP,99998) IOLD, JOLD
624 IF (LP.NE.0) WRITE (LP,99997) IOLD, JOLD
631 IF (LP.NE.0) WRITE (LP,99997) IOLD, JOLD
640 JOLD = JVECT(MIDPT)
1709 JOLD = ICN(JJ)
1710 ICN(JJ) = -IPC(JOLD)
2794 JOLD=ICN(J)
[all …]
/dports/science/libccp4/libccp4-6.5.1/fortran/
H A Dvms.for528 INTEGER I,J,JOLD
563 JOLD = (I-1)*5 + 1
567 IF (KEYB(JOLD).NE.7) THEN
576 KEYBUF(J+1) = KEYB(JOLD+1)
580 KEYBUF(J+2) = KEYB(JOLD+2)
584 KEYBUF(J+3) = DATASIZ * KEYB(JOLD+3)
585 IF (KEYB(JOLD+4).NE.0) THEN
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dsmumps_part5.F5997 JOLD = JCN( K )
5999 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6005 JSEND = JOLD
6008 JNEW = PERM( JOLD )
6012 JSEND = JOLD
6014 ISEND = -JOLD
6226 JOLD = id%JCN_loc(K)
6235 JSEND = JOLD
6238 JNEW = PERM(JOLD)
6242 JSEND = JOLD
[all …]
H A Ddmumps_part5.F5997 JOLD = JCN( K )
5999 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6005 JSEND = JOLD
6008 JNEW = PERM( JOLD )
6012 JSEND = JOLD
6014 ISEND = -JOLD
6226 JOLD = id%JCN_loc(K)
6235 JSEND = JOLD
6238 JNEW = PERM(JOLD)
6242 JSEND = JOLD
[all …]
H A Dcmumps_part5.F5998 JOLD = JCN( K )
6000 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6006 JSEND = JOLD
6009 JNEW = PERM( JOLD )
6013 JSEND = JOLD
6015 ISEND = -JOLD
6227 JOLD = id%JCN_loc(K)
6236 JSEND = JOLD
6239 JNEW = PERM(JOLD)
6243 JSEND = JOLD
[all …]
H A Dzmumps_part5.F5998 JOLD = JCN( K )
6000 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6006 JSEND = JOLD
6009 JNEW = PERM( JOLD )
6013 JSEND = JOLD
6015 ISEND = -JOLD
6227 JOLD = id%JCN_loc(K)
6236 JSEND = JOLD
6239 JNEW = PERM(JOLD)
6243 JSEND = JOLD
[all …]
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dzmumps_part5.F5998 JOLD = JCN( K )
6000 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6006 JSEND = JOLD
6009 JNEW = PERM( JOLD )
6013 JSEND = JOLD
6015 ISEND = -JOLD
6227 JOLD = id%JCN_loc(K)
6236 JSEND = JOLD
6239 JNEW = PERM(JOLD)
6243 JSEND = JOLD
[all …]
H A Dcmumps_part5.F5998 JOLD = JCN( K )
6000 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6006 JSEND = JOLD
6009 JNEW = PERM( JOLD )
6013 JSEND = JOLD
6015 ISEND = -JOLD
6227 JOLD = id%JCN_loc(K)
6236 JSEND = JOLD
6239 JNEW = PERM(JOLD)
6243 JSEND = JOLD
[all …]
H A Dsmumps_part5.F5997 JOLD = JCN( K )
5999 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6005 JSEND = JOLD
6008 JNEW = PERM( JOLD )
6012 JSEND = JOLD
6014 ISEND = -JOLD
6226 JOLD = id%JCN_loc(K)
6235 JSEND = JOLD
6238 JNEW = PERM(JOLD)
6242 JSEND = JOLD
[all …]
H A Ddmumps_part5.F5997 JOLD = JCN( K )
5999 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6005 JSEND = JOLD
6008 JNEW = PERM( JOLD )
6012 JSEND = JOLD
6014 ISEND = -JOLD
6226 JOLD = id%JCN_loc(K)
6235 JSEND = JOLD
6238 JNEW = PERM(JOLD)
6242 JSEND = JOLD
[all …]
/dports/math/mumps4/MUMPS_4.10.0/src/
H A Dcmumps_part5.F5998 JOLD = JCN( K )
6000 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6006 JSEND = JOLD
6009 JNEW = PERM( JOLD )
6013 JSEND = JOLD
6015 ISEND = -JOLD
6227 JOLD = id%JCN_loc(K)
6236 JSEND = JOLD
6239 JNEW = PERM(JOLD)
6243 JSEND = JOLD
[all …]
H A Ddmumps_part5.F5997 JOLD = JCN( K )
5999 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6005 JSEND = JOLD
6008 JNEW = PERM( JOLD )
6012 JSEND = JOLD
6014 ISEND = -JOLD
6226 JOLD = id%JCN_loc(K)
6235 JSEND = JOLD
6238 JNEW = PERM(JOLD)
6242 JSEND = JOLD
[all …]
H A Dzmumps_part5.F5998 JOLD = JCN( K )
6000 & JOLD .GT. N .OR. JOLD .LT. 1 ) THEN
6006 JSEND = JOLD
6009 JNEW = PERM( JOLD )
6013 JSEND = JOLD
6015 ISEND = -JOLD
6227 JOLD = id%JCN_loc(K)
6236 JSEND = JOLD
6239 JNEW = PERM(JOLD)
6243 JSEND = JOLD
[all …]

123