Home
last modified time | relevance | path

Searched refs:NCHANG (Results 1 – 7 of 7) sorted by relevance

/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp26.F3312 NCHANG=0
3334 NCHANG=NCHANG+1
3335 IOLD(NCHANG)=IHARG(ILOC2)
3336 IOLD2(NCHANG)=IHARG2(ILOC2)
3337 INEW(NCHANG)=IHARG(ILOC3)
3338 INEW2(NCHANG)=IHARG2(ILOC3)
3378 IF(IPRINT.EQ.'ON' .AND. IFEEDB.EQ.'ON' .AND. NCHANG.GT.0 .AND.
3392 CALL COMPIC(IFUNC3,N3,IOLD,IOLD2,INEW,INEW2,NCHANG,IFUNC3,N3,
H A Ddp25.F3620 NCHANG=0
3681 NCHANG=NCHANG+1
3682 IOLD(NCHANG)=IHARG(ILOC2)
3683 IOLD2(NCHANG)=IHARG2(ILOC2)
3684 INEW(NCHANG)=IHARG(ILOC3)
3685 INEW2(NCHANG)=IHARG2(ILOC3)
3720 CALL COMPIC(IFUNC3,N3,IOLD,IOLD2,INEW,INEW2,NCHANG,IFUNC3,N3,
H A Ddp12.F18649 NCHANG=0
18698 NCHANG=NCHANG+1
18699 IOLD(NCHANG)=IHARG(ILOC2)
18700 IOLD2(NCHANG)=IHARG2(ILOC2)
18701 INEW(NCHANG)=IHARG(ILOC3)
18702 INEW2(NCHANG)=IHARG2(ILOC3)
18753 IF(NCHANG.LE.0)GOTO6490
18769 CALL COMPIC(IFUNC4,N4,IOLD,IOLD2,INEW,INEW2,NCHANG,
18874 CALL COMPIC(IFUNC3,N3,IOLD,IOLD2,INEW,INEW2,NCHANG,
H A Ddp21.F11009 NCHANG=0
11049 NCHANG=NCHANG+1
11050 IOLD(NCHANG)=IHARG(ILOC2)
11051 IOLD2(NCHANG)=IHARG2(ILOC2)
11052 INEW(NCHANG)=IHARG(ILOC3)
11053 INEW2(NCHANG)=IHARG2(ILOC3)
21196 NCHANG=0
21218 NCHANG=NCHANG+1
21219 IOLD(NCHANG)=IHARG(ILOC2)
21220 IOLD2(NCHANG)=IHARG2(ILOC2)
[all …]
H A Ddp5.F6945 SUBROUTINE COMPIC(IFUNC1,N1,IOLD,IOLD2,INEW,INEW2,NCHANG, argument
7046 WRITE(ICOUT,54)NCHANG
7049 DO55I=1,NCHANG
7085 IF(NCHANG.LE.0)GOTO190
7097 DO200J=1,NCHANG
7304 WRITE(ICOUT,9012)IBUGA3,N1,NCHANG,NUMASC,NUMAS2
7310 DO9015I=1,NCHANG
H A Ddp17.F10695 NCHANG=0
10717 NCHANG=NCHANG+1
10718 IOLD(NCHANG)=IHARG(ILOC2)
10719 IOLD2(NCHANG)=IHARG2(ILOC2)
10720 INEW(NCHANG)=IHARG(ILOC3)
10721 INEW2(NCHANG)=IHARG2(ILOC3)
10762 IF(IPRINT.EQ.'ON' .AND. IFEEDB.EQ.'ON' .AND. NCHANG.GT.0 .AND.
10776 CALL COMPIC(IFUNC3,N3,IOLD,IOLD2,INEW,INEW2,NCHANG,IFUNC3,N3,
H A Ddp16.F405 NCHANG=0
427 NCHANG=NCHANG+1
428 IOLD(NCHANG)=IHARG(ILOC2)
429 IOLD2(NCHANG)=IHARG2(ILOC2)
430 INEW(NCHANG)=IHARG(ILOC3)
431 INEW2(NCHANG)=IHARG2(ILOC3)
477 IF(NCHANG.LE.0)GOTO6490
490 CALL COMPIC(IFUNC3,N3,IOLD,IOLD2,INEW,INEW2,NCHANG,