Lines Matching refs:NUMSET

6365         NUMSET=0
6372           NUMSET=0
6375             NUMSET=NUMSET+1
6376             XIDTEM(NUMSET)=REAL(NUMSET)
6380               X(J)=XIDTEM(NUMSET)
6386             NUMSET=NUMSET+1
6387             XIDTEM(NUMSET)=REAL(NUMSET)
6389               X(J)=XIDTEM(NUMSET)
6397       CALL DISTIN(X,N,IWRITE,XIDTEM,NUMSET,IBUGG3,IERROR)
6399       IF(NUMSET.LT.1)THEN
6411       CALL SORT(XIDTEM,NUMSET,XIDTEM)
6414      1   ICASPL.EQ.'RACC') .AND.NUMSET.EQ.N)THEN
6423         WRITE(ICOUT,198)NUMSET
6431       ANUMSE=NUMSET
6458       NUMTMP=NUMSET
6459       IF(MAXSET.GE.1 .AND. MAXSET.LT.NUMSET)THEN
6558       IF(N.EQ.NUMSET .AND. ICASPL.NE.'1352' .AND. ICASPL.NE.'1CUS')THEN
6564         IF(1+NBEF.GT.NUMSET-NAFT)THEN
6667         DO1110ISET=1,NUMSET
6750         DO1210ISET=1,NUMSET
6848         DO1310ISET=1,NUMSET
6945         DO1410ISET=1,NUMSET
7052         DO1510ISET=1,NUMSET
7063         DO1550ISET=1,NUMSET
7116         ANUMSE=NUMSET
7117         DO1610ISET=1,NUMSET
7128         DO1650ISET=1,NUMSET
7174         DO1710ISET=1,NUMSET
7183         DO1750ISET=1,NUMSET
7230         ANUMSE=NUMSET
7231         DO1810ISET=1,NUMSET
7240         DO1850ISET=1,NUMSET
7303         DO1910ISET=1,NUMSET
7335           IF(N.NE.NUMSET)THEN
7397         IF(N.EQ.NUMSET)THEN
7405           DO2010ISET=1,NUMSET
7456         IF(1+NBEF.GT.NUMSET-NAFT)THEN
7465           WRITE(ICOUT,2268)KWIDTH,NUMSET
7471         DO2090ISET=1,NUMSET
7473           IF(N.EQ.NUMSET)THEN
7485           ELSEIF(ISET.GT.NUMSET-NAFT)THEN
7486             ISTOP=NUMSET
7487             DENOM=REAL(NUMSET-(ISET-NBEF)+1)
7502           IF(N.NE.NUMSET)THEN
7551         IF(N.EQ.NUMSET)THEN
7559           DO2110ISET=1,NUMSET
7607         IF(1+NBEF.GT.NUMSET-NAFT)THEN
7616           WRITE(ICOUT,2268)KWIDTH,NUMSET
7624         DO2190ISET=1,NUMSET
7628           IF(N.NE.NUMSET)THEN
7636             ELSEIF(ISET.GT.NUMSET-NAFT)THEN
7637               ISTOP=NUMSET
7638               DENOM=REAL(NUMSET-(ISET-NBEF)+1)
7652             ELSEIF(ISET.GT.NUMSET-NAFT)THEN
7653               ISTOP=NUMSET
7714         IF(N.EQ.NUMSET)THEN
7722           DO2210ISET=1,NUMSET
7774         IF(1+NBEF.GT.NUMSET-NAFT)THEN
7783           WRITE(ICOUT,2268)KWIDTH,NUMSET
7793         DO2290ISET=1,NUMSET
7797           IF(N.NE.NUMSET)THEN
7805             ELSEIF(ISET.GT.NUMSET-NAFT)THEN
7806               ISTOP=NUMSET
7807               DENOM=REAL(NUMSET-(ISET-NBEF)+1)
7821             ELSEIF(ISET.GT.NUMSET-NAFT)THEN
7822               ISTOP=NUMSET
7894         DO2310ISET=1,NUMSET
8008         DO2410ISET=1,NUMSET
8087         WRITE(ICOUT,9012)IERROR,ICASPL,N,NUMSET,N2