Lines Matching refs:KOUNT
29489 SUBROUTINE BPADJU(IND1,IND2,L,NRANK,NCIRQ,KOUNT, argument
29499 INTEGER KOUNT,K,L,N,IV,IV1,IV2,D1,D2
29526 ALPHA(KOUNT)=ANGLE(L)+PI
29528 ALPHA(KOUNT)=ANGLE(L)
29534 ALPHA(KOUNT)=ANGLE(L)
29536 ALPHA(KOUNT)=ANGLE(L)+PI
29539 KAND1(KOUNT)=IND1(L)
29540 KAND2(KOUNT)=IND2(L)
29541 D(KOUNT)=DSIN(ALPHA(KOUNT))*X(IND1(L))
29542 + -DCOS(ALPHA(KOUNT))*Y(IND1(L))
29543 KOUNT=KOUNT+1
29705 INTEGER IV,IW1,IW2,NEXT,JFLAG,KOUNT,NUM,tel
29741 KOUNT=1
29745 CALL BPADJU(IND1,IND2,L,NRANK,NCIRQ,KOUNT,ALPHA,ANGLE,
29752 CALL BPADJU(IND1,IND2,L,NRANK,NCIRQ,KOUNT,ALPHA,ANGLE,
29798 CALL BPADJU(IND1,IND2,L,NRANK,NCIRQ,KOUNT,ALPHA,ANGLE,
29839 CALL BPADJU(IND1,IND2,L,NRANK,NCIRQ,KOUNT,ALPHA,
29865 CALL BPADJU(IND1,IND2,L,NRANK,NCIRQ,KOUNT,ALPHA,
29877 101 NUM=KOUNT-1