Home
last modified time | relevance | path

Searched refs:IPOS2 (Results 1 – 25 of 26) sorted by relevance

12

/dports/science/dynare/dynare-4.6.4/contrib/dmm/
H A Dfindinput.for37 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 Dzfac_sol_pool.F33 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 Ddfac_sol_pool.F33 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 Dsfac_sol_pool.F33 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 Dcfac_sol_pool.F33 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 Ddfac_asm_ELT.F95 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 Dzfac_asm_ELT.F95 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 Dcfac_asm_ELT.F95 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 Dsfac_asm_ELT.F95 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 Dherrdn.F6832 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 Dabawalk.F2195 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 Dsmumps_part3.F2592 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 Ddmumps_part3.F2592 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 Dcmumps_part3.F2592 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 Dzmumps_part3.F2592 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 Dcmumps_part3.F2592 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 Dsmumps_part3.F2592 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 Dzmumps_part3.F2592 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 Ddmumps_part3.F2592 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 Dcmumps_part3.F2592 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 Ddmumps_part3.F2592 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 Dsmumps_part3.F2592 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 Dzmumps_part3.F2592 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 Dso_eres.F1463 IPOS2 = (IB-1)*NBAS(ISYMA)+IA+IOFF
1465 FOCK(IPOS1) = FOCK(IPOS2)
1466 FOCK(IPOS2) = TMP
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp32.F7781 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

12