/dports/math/mumps/mumps-5.1.2/src/ |
H A D | dfac_distrib_distentry.F | 41 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 D | cfac_distrib_distentry.F | 41 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 D | sfac_distrib_distentry.F | 41 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 D | zfac_distrib_distentry.F | 41 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 D | carrowheads.F | 212 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 D | sarrowheads.F | 212 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 D | zarrowheads.F | 212 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 D | darrowheads.F | 212 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 D | cana_aux.F | 3551 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 D | dana_aux.F | 3551 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 D | zana_aux.F | 3551 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 D | sana_aux.F | 3551 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 D | linsp.f | 586 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 D | vms.for | 528 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 D | smumps_part5.F | 5997 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 D | dmumps_part5.F | 5997 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 D | cmumps_part5.F | 5998 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 D | zmumps_part5.F | 5998 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 D | zmumps_part5.F | 5998 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 D | cmumps_part5.F | 5998 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 D | smumps_part5.F | 5997 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 D | dmumps_part5.F | 5997 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 D | cmumps_part5.F | 5998 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 D | dmumps_part5.F | 5997 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 D | zmumps_part5.F | 5998 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 …]
|