/dports/science/dynare/dynare-4.6.4/contrib/dmm/ |
H A D | findinput.for | 37 INTEGER IPOS,IPOS2 55 IPOS2 = IPOS 57 READ(STR1(IPOS2:IPOS2),*) OSTR 58 IPOS2 = IPOS2 + 1 60 IF (IPOS2-1.GT.IPOS) THEN 61 READ(STR1(IPOS:IPOS2-2),'(F20.10)') NUM 62 READ(STR1(IPOS:IPOS2-2),*) NUM
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zfac_sol_pool.F | 33 INTEGER IPOS1, IPOS2, ISWAP local 148 IPOS2 = LPOOL - 2 - NBTOP + 1 150 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 152 IF ( POOL(IPOS2) < 0 ) GOTO 30 155 IF ( POOL(IPOS2) > N ) GOTO 30 160 POOL(IPOS1) = POOL(IPOS2) 161 POOL(IPOS2) = ISWAP 163 IPOS2 = IPOS2 + 1
|
H A D | dfac_sol_pool.F | 33 INTEGER IPOS1, IPOS2, ISWAP local 148 IPOS2 = LPOOL - 2 - NBTOP + 1 150 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 152 IF ( POOL(IPOS2) < 0 ) GOTO 30 155 IF ( POOL(IPOS2) > N ) GOTO 30 160 POOL(IPOS1) = POOL(IPOS2) 161 POOL(IPOS2) = ISWAP 163 IPOS2 = IPOS2 + 1
|
H A D | sfac_sol_pool.F | 33 INTEGER IPOS1, IPOS2, ISWAP local 148 IPOS2 = LPOOL - 2 - NBTOP + 1 150 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 152 IF ( POOL(IPOS2) < 0 ) GOTO 30 155 IF ( POOL(IPOS2) > N ) GOTO 30 160 POOL(IPOS1) = POOL(IPOS2) 161 POOL(IPOS2) = ISWAP 163 IPOS2 = IPOS2 + 1
|
H A D | cfac_sol_pool.F | 33 INTEGER IPOS1, IPOS2, ISWAP local 148 IPOS2 = LPOOL - 2 - NBTOP + 1 150 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 152 IF ( POOL(IPOS2) < 0 ) GOTO 30 155 IF ( POOL(IPOS2) > N ) GOTO 30 160 POOL(IPOS1) = POOL(IPOS2) 161 POOL(IPOS2) = ISWAP 163 IPOS2 = IPOS2 + 1
|
H A D | dfac_asm_ELT.F | 95 INTEGER :: IPOS, IPOS1, IPOS2, JPOS, IJROW local 190 IPOS2 = 0 193 IPOS2 = mod(I,NBCOLF) 195 ICT12 = POSELT + int(IPOS2-1,8)*int(NBCOLF,8) 200 IF ( IPOS2.EQ.0 .AND. J.LE.0) CYCLE 206 IF ( (IPOS1.GE.JPOS) .AND. (IPOS2.GT.0) ) THEN
|
H A D | zfac_asm_ELT.F | 95 INTEGER :: IPOS, IPOS1, IPOS2, JPOS, IJROW local 190 IPOS2 = 0 193 IPOS2 = mod(I,NBCOLF) 195 ICT12 = POSELT + int(IPOS2-1,8)*int(NBCOLF,8) 200 IF ( IPOS2.EQ.0 .AND. J.LE.0) CYCLE 206 IF ( (IPOS1.GE.JPOS) .AND. (IPOS2.GT.0) ) THEN
|
H A D | cfac_asm_ELT.F | 95 INTEGER :: IPOS, IPOS1, IPOS2, JPOS, IJROW local 190 IPOS2 = 0 193 IPOS2 = mod(I,NBCOLF) 195 ICT12 = POSELT + int(IPOS2-1,8)*int(NBCOLF,8) 200 IF ( IPOS2.EQ.0 .AND. J.LE.0) CYCLE 206 IF ( (IPOS1.GE.JPOS) .AND. (IPOS2.GT.0) ) THEN
|
H A D | sfac_asm_ELT.F | 95 INTEGER :: IPOS, IPOS1, IPOS2, JPOS, IJROW local 190 IPOS2 = 0 193 IPOS2 = mod(I,NBCOLF) 195 ICT12 = POSELT + int(IPOS2-1,8)*int(NBCOLF,8) 200 IF ( IPOS2.EQ.0 .AND. J.LE.0) CYCLE 206 IF ( (IPOS1.GE.JPOS) .AND. (IPOS2.GT.0) ) THEN
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
H A D | herrdn.F | 6832 IF (IPOS2 .EQ. 0 .OR. (IPOS2 .GT. 10)) THEN 6872 IF ((IPOS2 .EQ. 0) .OR. (IPOS2 .GT. 7)) THEN 6906 IF (IPOS2 .EQ. 0 .OR. (IPOS2 .GT. 11)) THEN 6953 IF (IPOS2 .EQ. 0 .OR. (IPOS2 .GT. 11)) THEN 7115 IF (IPOS2 .EQ. 0 .OR. (IPOS2 .GT. 7)) THEN 7126 IF (IPOS2 .EQ. 0 .OR. (IPOS2 .GT. 6)) THEN 7143 IF (IPOS2 .EQ. 0 .OR. (IPOS2. GT. 5)) THEN 7218 IF (IPOS2 .EQ. 0 .OR. (IPOS2 .GT. 7)) THEN 7369 IF (IPOS2 .EQ. 0 .OR. (IPOS2 .GT. 7)) THEN 7379 IF (IPOS2 .EQ. 0 .OR. (IPOS2 .GT. 6)) THEN [all …]
|
H A D | abawalk.F | 2195 IPOS2 = INDEX(MLINE(NMLINE_4)(IPOS:),' ') 2196 DO ICHARP = IPOS, IPOS + IPOS2 - 1
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | smumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5730 & IPOS1, IPOS2, AII, II, IELL 5827 IPOS2 = 0 [all …]
|
H A D | dmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5730 & IPOS1, IPOS2, AII, II, IELL 5827 IPOS2 = 0 [all …]
|
H A D | cmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5734 & IPOS1, IPOS2, AII, II, IELL 5831 IPOS2 = 0 [all …]
|
H A D | zmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5734 & IPOS1, IPOS2, AII, II, IELL 5831 IPOS2 = 0 [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5734 & IPOS1, IPOS2, AII, II, IELL 5831 IPOS2 = 0 [all …]
|
H A D | smumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP local 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5730 & IPOS1, IPOS2, AII, II, IELL local 5827 IPOS2 = 0 [all …]
|
H A D | zmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5734 & IPOS1, IPOS2, AII, II, IELL 5831 IPOS2 = 0 [all …]
|
H A D | dmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5730 & IPOS1, IPOS2, AII, II, IELL 5827 IPOS2 = 0 [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP local 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5734 & IPOS1, IPOS2, AII, II, IELL local 5831 IPOS2 = 0 [all …]
|
H A D | dmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP local 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5730 & IPOS1, IPOS2, AII, II, IELL local 5827 IPOS2 = 0 [all …]
|
H A D | smumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP local 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5730 & IPOS1, IPOS2, AII, II, IELL local 5827 IPOS2 = 0 [all …]
|
H A D | zmumps_part3.F | 2592 INTEGER IPOS1, IPOS2, ISWAP local 2707 IPOS2 = LPOOL - 2 - NBTOP + 1 2709 IF ( IPOS2 == LPOOL - 2 ) GOTO 20 2711 IF ( POOL(IPOS2) < 0 ) GOTO 30 2714 IF ( POOL(IPOS2) > N ) GOTO 30 2719 POOL(IPOS1) = POOL(IPOS2) 2720 POOL(IPOS2) = ISWAP 2722 IPOS2 = IPOS2 + 1 5734 & IPOS1, IPOS2, AII, II, IELL local 5831 IPOS2 = 0 [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/soppa/ |
H A D | so_eres.F | 1463 IPOS2 = (IB-1)*NBAS(ISYMA)+IA+IOFF 1465 FOCK(IPOS1) = FOCK(IPOS2) 1466 FOCK(IPOS2) = TMP
|
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
H A D | dp32.F | 7781 IPOS2=0 7961 IPOS2=IMIN 7971 IPOS2=IMIN 7978 IPOS2=IMIN 7982 IPOS2=IMIN 8008 WRITE(ICOUT,591)IPOS2,I2 8027 DO610I=IPOS2,IWIDTH 8128 WRITE(ICOUT,9012)IEND1,IEND2,IPOS1,IPOS2,N2
|