Lines Matching refs:IERROR
2 1 ISUBRO,IBUGG2,IBUGG3,IBUGQ,IFOUND,IERROR)
52 CHARACTER*4 IERROR
98 IERROR='NO'
391 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
392 IF(IERROR.EQ.'YES')GOTO9000
446 1 IBUGG3,ISUBRO,IFOUND,IERROR)
447 IF(IERROR.EQ.'YES')GOTO9000
457 1 Y,X,D,NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
472 WRITE(ICOUT,9012)IFOUND,IERROR,ICASPL,IAND1,IAND2
491 1 Y2,X2,D2,N2,NPLOTV,IBUGG3,ISUBRO,IERROR)
518 CHARACTER*4 IERROR
545 IERROR='NO'
583 IERROR='YES'
603 IERROR='YES'
627 IERROR='YES'
642 1 IBUGG3,ISUBRO,IERROR)
643 IF(IERROR.EQ.'YES')GOTO9000
958 WRITE(ICOUT,9012)ICASPL,IERROR,N2
972 1IFOUND,IERROR)
1018 CHARACTER*4 IERROR
1031 IERROR='NO'
1050 IERROR='YES'
1100 IERROR='YES'
1147 IERROR='YES'
1194 IERROR='YES'
1243 IERROR='YES'
1290 IERROR='YES'
1340 IERROR='YES'
1384 1IFOUND,IERROR)
1430 CHARACTER*4 IERROR
1443 IERROR='NO'
1462 IERROR='YES'
1512 IERROR='YES'
1559 IERROR='YES'
1606 IERROR='YES'
1655 IERROR='YES'
1702 IERROR='YES'
1752 IERROR='YES'
1796 1IFOUND,IERROR)
1842 CHARACTER*4 IERROR
1855 IERROR='NO'
1874 IERROR='YES'
1924 IERROR='YES'
1971 IERROR='YES'
2018 IERROR='YES'
2067 IERROR='YES'
2114 IERROR='YES'
2163 IERROR='YES'
2208 1IFOUND,IERROR)
2243 CHARACTER*4 IERROR
2258 IERROR='NO'
2272 IERROR='YES'
2341 1ITITTE,NCTITL,ITIAUT,IBUGP2,IFOUND,IERROR)
2398 CHARACTER*4 IERROR
2419 IERROR='NO'
2475 IERROR='YES'
2597 SUBROUTINE DPTIDS(IHARG,ARG,NUMARG,PDEFDS,PTITDS,IFOUND,IERROR) argument
2626 CHARACTER*4 IERROR
2640 IERROR='NO'
2681 SUBROUTINE DPTITH(IHARG,ARG,NUMARG,PDEFTH,PTITTH,IFOUND,IERROR) argument
2710 CHARACTER*4 IERROR
2724 IERROR='NO'
2765 1IFOUND,IERROR)
2806 CHARACTER*4 IERROR
2821 IERROR='NO'
3177 1IFOUND,IERROR)
3214 CHARACTER*4 IERROR
3228 IERROR='NO'
3554 1IFOUND,IERROR)
3596 CHARACTER*4 IERROR
3611 IERROR='NO'
3937 1IFOUND,IERROR)
3981 CHARACTER*4 IERROR
3996 IERROR='NO'
4325 1 IFOUND,IERROR)
4377 CHARACTER*4 IERROR
4395 IERROR='NO'
4428 IERROR='YES'
4784 1IFOUND,IERROR)
4826 CHARACTER*4 IERROR
4841 IERROR='NO'
5167 1IFOUND,IERROR)
5205 CHARACTER*4 IERROR
5220 IERROR='NO'
5257 IERROR='YES'
5306 IERROR='YES'
5351 IERROR='YES'
5396 IERROR='YES'
5442 IERROR='YES'
5487 IERROR='YES'
5535 IERROR='YES'
5587 1IFOUND,IERROR)
5629 CHARACTER*4 IERROR
5644 IERROR='NO'
5970 1 IFOUND,IERROR)
6017 CHARACTER*4 IERROR
6032 IERROR='NO'
6349 1IFOUND,IERROR)
6391 CHARACTER*4 IERROR
6406 IERROR='NO'
6735 1IFOUND,IERROR)
6774 CHARACTER*4 IERROR
6789 IERROR='NO'
6819 IERROR='YES'
6871 IERROR='YES'
6920 IERROR='YES'
6969 IERROR='YES'
7020 IERROR='YES'
7069 IERROR='YES'
7121 IERROR='YES'
7179 1IFOUND,IERROR)
7221 CHARACTER*4 IERROR
7236 IERROR='NO'
7565 1IFOUND,IERROR)
7604 CHARACTER*4 IERROR
7619 IERROR='NO'
7646 IERROR='YES'
7697 IERROR='YES'
7745 IERROR='YES'
7793 IERROR='YES'
7843 IERROR='YES'
7891 IERROR='YES'
7942 IERROR='YES'
8000 1IFOUND,IERROR)
8039 CHARACTER*4 IERROR
8053 IERROR='NO'
8373 1 ISUBRO,IBUGA2,IBUGA3,IBUGQ,IFOUND,IERROR)
8416 CHARACTER*4 IERROR
8492 IERROR='NO'
8552 1 IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
8553 IF(IERROR.EQ.'YES')GOTO9000
8609 IERROR='YES'
8649 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
8650 IF(IERROR.EQ.'NO')THEN
8661 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
8662 IF(IERROR.EQ.'NO')THEN
8674 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
8675 IF(IERROR.EQ.'YES')GOTO9000
8697 IERROR='YES'
8711 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
8712 IF(IERROR.EQ.'YES')GOTO9000
8732 IERROR='YES'
8774 1 IBUGA3,ISUBRO,IFOUND,IERROR)
8775 IF(IERROR.EQ.'YES')GOTO9000
8807 1 ICASAN,ISUBRO,IBUGA3,IERROR)
8815 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
8855 1 IBUGA3,ISUBRO,IFOUND,IERROR)
8856 IF(IERROR.EQ.'YES')GOTO9000
8888 1 ICASAN,ISUBRO,IBUGA3,IERROR)
8898 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
9005 1 IBUGA3,ISUBRO,IERROR)
9034 1 ICASAN,ISUBRO,IBUGA3,IERROR)
9045 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
9074 1 ICASAN,ISUBRO,IBUGA3,IERROR)
9085 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
9117 1 ICASAN,ISUBRO,IBUGA3,IERROR)
9127 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
9163 1 ICASAN,ISUBRO,IBUGA3,IERROR)
9173 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
9213 1 ICASAN,ISUBRO,IBUGA3,IERROR)
9223 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
9267 1 ICASAN,ISUBRO,IBUGA3,IERROR)
9277 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
9303 WRITE(ICOUT,9016)IFOUND,IERROR
9316 1 ICASAN,ISUBRO,IBUGA3,IERROR)
9352 CHARACTER*4 IERROR
9406 IERROR='NO'
9470 IERROR='YES'
9503 1 IBUGA3,ISUBRO,IERROR)
9506 1 IBUGA3,ISUBRO,IERROR)
9669 1 ISUBRO,IBUGA3,IERROR)
9677 1 ISUBRO,IBUGA3,IERROR)
9691 WRITE(ICOUT,9012)N,IBUGA3,IERROR
9705 1 ISUBRO,IBUGA3,IERROR)
9782 CHARACTER*4 IERROR
9849 IERROR='NO'
9873 IERROR='YES'
9943 IERROR='YES'
10131 1 IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
10173 CHARACTER*4 IERROR
10247 IERROR='NO'
10394 1 IBUGA2,IERROR)
10416 IERROR='YES'
10433 IERROR='YES'
10446 IERROR='YES'
10459 IERROR='YES'
10471 IERROR='YES'
10515 1 IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
10516 IF(IERROR.EQ.'YES')GOTO9000
10572 IERROR='YES'
10623 1 ISUBRO,IBUGA3,IERROR)
10628 1 ISUBRO,IBUGA3,IERROR)
10634 1 ISUBRO,IBUGA3,IERROR)
10646 1 IBUGA3,ISUBRO,IFOUND,IERROR)
10647 IF(IERROR.EQ.'YES')GOTO9000
10662 1 ISUBRO,IBUGA3,IERROR)
10667 1 ISUBRO,IBUGA3,IERROR)
10673 1 ISUBRO,IBUGA3,IERROR)
10720 1 IBUGA3,ISUBRO,IFOUND,IERROR)
10721 IF(IERROR.EQ.'YES')GOTO9000
10753 1 ISUBRO,IBUGA3,IERROR)
10758 1 ISUBRO,IBUGA3,IERROR)
10763 1 ISUBRO,IBUGA3,IERROR)
10769 1 ISUBRO,IBUGA3,IERROR)
10865 1 IBUGA3,ISUBRO,IERROR)
10896 1 ISUBRO,IBUGA3,IERROR)
10901 1 ISUBRO,IBUGA3,IERROR)
10906 1 ISUBRO,IBUGA3,IERROR)
10912 1 ISUBRO,IBUGA3,IERROR)
10942 1 ISUBRO,IBUGA3,IERROR)
10947 1 ISUBRO,IBUGA3,IERROR)
10952 1 ISUBRO,IBUGA3,IERROR)
10958 1 ISUBRO,IBUGA3,IERROR)
10992 1 ISUBRO,IBUGA3,IERROR)
10997 1 ISUBRO,IBUGA3,IERROR)
11002 1 ISUBRO,IBUGA3,IERROR)
11008 1 ISUBRO,IBUGA3,IERROR)
11046 1 ISUBRO,IBUGA3,IERROR)
11051 1 ISUBRO,IBUGA3,IERROR)
11056 1 ISUBRO,IBUGA3,IERROR)
11062 1 ISUBRO,IBUGA3,IERROR)
11104 1 ISUBRO,IBUGA3,IERROR)
11109 1 ISUBRO,IBUGA3,IERROR)
11114 1 ISUBRO,IBUGA3,IERROR)
11120 1 ISUBRO,IBUGA3,IERROR)
11166 1 ISUBRO,IBUGA3,IERROR)
11171 1 ISUBRO,IBUGA3,IERROR)
11176 1 ISUBRO,IBUGA3,IERROR)
11182 1 ISUBRO,IBUGA3,IERROR)
11202 IF(IERROR.EQ.'YES')THEN
11216 WRITE(ICOUT,9012)IFOUND,IERROR,ICASAN
11226 1 ISUBRO,IBUGA3,IERROR)
11277 CHARACTER*4 IERROR
11300 IERROR='NO'
11347 IERROR='YES'
11384 CALL MEAN(X,N,IWRITE,XMEAN,IBUGA3,IERROR)
11385 CALL SD(X,N,IWRITE,XSD,IBUGA3,IERROR)
11480 IERROR='YES'
11513 1IBUGP2,IFOUND,IERROR)
11546 CHARACTER*4 IERROR
11565 IERROR='NO'
11580 WRITE(ICOUT,52)IBUGP2,IFOUND,IERROR
11731 WRITE(ICOUT,9012)IBUGP2,IFOUND,IERROR
11766 1IBUGP2,IFOUND,IERROR)
11802 CHARACTER*4 IERROR
11823 IERROR='NO'
11838 WRITE(ICOUT,52)IBUGP2,IFOUND,IERROR
12006 WRITE(ICOUT,9012)IBUGP2,IFOUND,IERROR
12039 1IBUGP2,IFOUND,IERROR)
12073 CHARACTER*4 IERROR
12093 IERROR='NO'
12109 WRITE(ICOUT,52)IBUGP2,IFOUND,IERROR
12264 WRITE(ICOUT,9012)IBUGP2,IFOUND,IERROR
12297 1IBUGP2,IFOUND,IERROR)
12331 CHARACTER*4 IERROR
12351 IERROR='NO'
12367 WRITE(ICOUT,52)IBUGP2,IFOUND,IERROR
12522 WRITE(ICOUT,9012)IBUGP2,IFOUND,IERROR
12555 1IBUGP2,IFOUND,IERROR)
12588 CHARACTER*4 IERROR
12607 IERROR='NO'
12622 WRITE(ICOUT,52)IBUGP2,IFOUND,IERROR
12773 WRITE(ICOUT,9012)IBUGP2,IFOUND,IERROR
12806 1 IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
12842 CHARACTER*4 IERROR
12903 IERROR='NO'
12960 1 IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
12961 IF(IERROR.EQ.'YES')GOTO9000
12991 1 IBUGA3,ISUBRO,IFOUND,IERROR)
13005 1ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
13006 IF(IERROR.EQ.'YES')THEN
13041 1 ISUBRO,IBUGA3,IERROR)
13055 WRITE(ICOUT,9016)IFOUND,IERROR
13066 1 ISUBRO,IBUGA3,IERROR)
13123 CHARACTER*4 IERROR
13187 IERROR='NO'
13230 IERROR='YES'
13245 IERROR='YES'
13265 1 ISUBRO,IBUGA3,IERROR)
13302 1 ISUBRO,IBUGA3,IERROR)
13377 IERROR='YES'
13399 IERROR='YES'
13416 1 ISUBRO,IBUGA3,IERROR)
13537 1 ISUBRO,IBUGA3,IERROR)
13660 1 ISUBRO,IBUGA3,IERROR)
13747 1 ISUBRO,IBUGA3,IERROR)
13813 1 ISUBRO,IBUGA3,IERROR)
13898 1 ISUBRO,IBUGA3,IERROR)
13975 1 ISUBRO,IBUGA3,IERROR)
14038 1 ISUBRO,IBUGA3,IERROR)
14052 WRITE(ICOUT,9012)N,IBUGA3,IERROR
14067 1 ISUBRO,IBUGA3,IERROR)
14107 CHARACTER*4 IERROR
14162 IERROR='NO'
14209 IERROR='YES'
14242 CALL INTARR(Y,N,IWRITE,XTEMP1,NX,IBUGA3,IERROR)
14473 1 ISUBRO,IBUGA3,IERROR)
14599 1 ISUBRO,IBUGA3,IERROR)
14634 1 ISUBRO,IBUGA3,IERROR)
14703 1 ISUBRO,IBUGA3,IERROR)
14737 IERROR='YES'
14748 IERROR='YES'
14844 1 ISUBRO,IBUGA3,IERROR)
14921 1 ISUBRO,IBUGA3,IERROR)
14961 1 ISUBRO,IBUGA3,IERROR)
15030 1 ISUBRO,IBUGA3,IERROR)
15065 IERROR='YES'
15079 IERROR='YES'
15179 1 ISUBRO,IBUGA3,IERROR)
15256 1 ISUBRO,IBUGA3,IERROR)
15296 1 ISUBRO,IBUGA3,IERROR)
15365 1 ISUBRO,IBUGA3,IERROR)
15379 WRITE(ICOUT,9012)N,IBUGA3,IERROR
15605 1 IBUGD2,IFOUND,IERROR)
15706 CHARACTER*4 IERROR
15762 IERROR='NO'
15763 IERRG4=IERROR
15850 WRITE(ICOUT,89)IBUGD2,IERROR
15999 IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X1,X1,IBUGD2,ISUBRO,IERROR)
16004 IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y1,Y1,IBUGD2,ISUBRO,IERROR)
16013 IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X2,X2,IBUGD2,ISUBRO,IERROR)
16019 IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y2,Y2,IBUGD2,ISUBRO,IERROR)
16026 IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X3,X3,IBUGD2,ISUBRO,IERROR)
16032 IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y3,Y3,IBUGD2,ISUBRO,IERROR)
16103 WRITE(ICOUT,9029)IBUGD2,IERROR
16111 1IPREC,IFOUND,IERROR)
16148 CHARACTER*4 IERROR
16163 IERROR='NO'
16191 IERROR='YES'
16229 1 IBUGG2,IBUGG3,ISUBRO,IBUGQ,IFOUND,IERROR)
16255 CHARACTER*4 IERROR
16306 IERROR='NO'
16334 WRITE(ICOUT,55)IFOUND,IERROR
16390 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
16391 IF(IERROR.EQ.'YES')GOTO9000
16421 1 IBUGG3,ISUBRO,IFOUND,IERROR)
16440 1 IBUGG3,ISUBRO,IERROR)
16454 WRITE(ICOUT,9012)IFOUND,IERROR
16479 1 IBUGG3,ISUBRO,IERROR)
16502 CHARACTER*4 IERROR
16527 IERROR='NO'
16539 WRITE(ICOUT,53)ICASPL,IREPL,IBUGG3,IERROR
16597 IERROR='YES'
16618 IERROR='YES'
16630 CALL DISTIN(GROUP,N,IWRITE,TEMP1,NDIST,IBUGG3,IERROR)
16669 WRITE(ICOUT,9012)IFOUND,IERROR
16691 1 ISUBRO,IBUGA3,IERROR)
16762 CHARACTER*4 IERROR
16804 IERROR='YES'
16817 IERROR='YES'
16831 IERROR='YES'
16864 1 IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
16899 CHARACTER*4 IERROR
16952 IERROR='NO'
17078 1 IBUGA2,IERROR)
17101 IERROR='YES'
17146 1 IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
17147 IF(IERROR.EQ.'YES')GOTO9000
17185 IERROR='YES'
17229 1 IBUGA3,ISUBRO,IFOUND,IERROR)
17230 IF(IERROR.EQ.'YES')GOTO9000
17251 1 IBUGA3,ISUBRO,IFOUND,IERROR)
17252 IF(IERROR.EQ.'YES')GOTO9000
17292 1 IBUGA3,ISUBRO,IERROR)
17293 IF(IERROR.EQ.'YES')GOTO9000
17338 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
17355 WRITE(ICOUT,9016)IFOUND,IERROR
17371 1 IBUGA3,ISUBRO,IERROR)
17420 CHARACTER*4 IERROR
17473 IERROR='NO'
17561 1 ISUBRO,IBUGA3,IERROR)
17717 1 ISUBRO,IBUGA3,IERROR)
17825 1 ISUBRO,IBUGA3,IERROR)
17871 1 ISUBRO,IBUGA3,IERROR)
17917 1 ISUBRO,IBUGA3,IERROR)
17940 1 ISUBRO,IBUGA3,IERROR)
17941 IF(IERROR.EQ.'YES')GOTO9000
18199 1 ISUBRO,IBUGA3,IERROR)
18345 1 ISUBRO,IBUGA3,IERROR)
18397 1 ISUBRO,IBUGA3,IERROR)
18449 1 ISUBRO,IBUGA3,IERROR)
18467 1 ISUBRO,IBUGA3,IERROR)
18468 IF(IERROR.EQ.'YES')GOTO9000
18685 1 ISUBRO,IBUGA3,IERROR)
18791 1 ISUBRO,IBUGA3,IERROR)
18837 1 ISUBRO,IBUGA3,IERROR)
18883 1 ISUBRO,IBUGA3,IERROR)
18908 1 ISUBRO,IBUGA3,IERROR)
18949 CHARACTER*4 IERROR
18968 IERROR='NO'
19010 IERROR='YES'
19038 CALL MEAN(X,N,IWRITE,XMEAN,IBUGA3,IERROR)
19039 CALL SD(X,N,IWRITE,XSD,IBUGA3,IERROR)
19040 CALL SDMEAN(X,N,IWRITE,XSDM,IBUGA3,IERROR)
19085 WRITE(ICOUT,9012)IBUGA3,IERROR
19105 1 ISUBRO,IBUGA3,IERROR)
19152 CHARACTER*4 IERROR
19171 IERROR='NO'
19231 IERROR='YES'
19261 IERROR='YES'
19285 CALL MEAN(Y1,N1,IWRITE,Y1MEAN,IBUGA3,IERROR)
19286 CALL SD(Y1,N1,IWRITE,Y1SD,IBUGA3,IERROR)
19288 CALL SDMEAN(Y1,N1,IWRITE,Y1SDM,IBUGA3,IERROR)
19290 CALL MEAN(Y2,N2,IWRITE,Y2MEAN,IBUGA3,IERROR)
19291 CALL SD(Y2,N2,IWRITE,Y2SD,IBUGA3,IERROR)
19293 CALL SDMEAN(Y2,N2,IWRITE,Y2SDM,IBUGA3,IERROR)
19369 WRITE(ICOUT,9012)IERROR
19394 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
19418 CHARACTER*4 IERROR
19487 1 IBUGA3,ISUBRO,IERROR)
19488 IF(IERROR.EQ.'YES')GOTO9000
19509 1 IANS,IWIDTH,IBUGA3,IERROR)
19518 1 IANS,IWIDTH,IBUGA3,IERROR)
19527 1 IANS,IWIDTH,IBUGA3,IERROR)
19536 1 IANS,IWIDTH,IBUGA3,IERROR)
19545 1 IANS,IWIDTH,IBUGA3,IERROR)
19554 1 IANS,IWIDTH,IBUGA3,IERROR)
19563 1 IANS,IWIDTH,IBUGA3,IERROR)
19572 1 IANS,IWIDTH,IBUGA3,IERROR)
19581 1 IANS,IWIDTH,IBUGA3,IERROR)
19590 1 IANS,IWIDTH,IBUGA3,IERROR)
19599 1 IANS,IWIDTH,IBUGA3,IERROR)
19608 1 IANS,IWIDTH,IBUGA3,IERROR)
19617 1 IANS,IWIDTH,IBUGA3,IERROR)
19626 1 IANS,IWIDTH,IBUGA3,IERROR)
19635 1 IANS,IWIDTH,IBUGA3,IERROR)
19644 1 IANS,IWIDTH,IBUGA3,IERROR)
19653 1 IANS,IWIDTH,IBUGA3,IERROR)
19662 1 IANS,IWIDTH,IBUGA3,IERROR)
19677 1 IBUGA3,ISUBRO,IERROR)
19684 WRITE(ICOUT,301)IERROR
19689 IF(IERROR.EQ.'YES')GOTO9000
19716 1 ISUBRO,IBUGA3,IERROR)
19760 CHARACTER*4 IERROR
19780 IERROR='NO'
19836 IERROR='YES'
19853 IERROR='YES'
19883 IERROR='YES'
19911 CALL MEAN(Y1,N1,IWRITE,Y1MEAN,IBUGA3,IERROR)
19912 CALL SD(Y1,N1,IWRITE,Y1SD,IBUGA3,IERROR)
19914 CALL SDMEAN(Y1,N1,IWRITE,Y1SDM,IBUGA3,IERROR)
19916 CALL MEAN(Y2,N2,IWRITE,Y2MEAN,IBUGA3,IERROR)
19917 CALL SD(Y2,N2,IWRITE,Y2SD,IBUGA3,IERROR)
19919 CALL SDMEAN(Y2,N2,IWRITE,Y2SDM,IBUGA3,IERROR)
19921 CALL MEAN(YTEMP,N2,IWRITE,YDMEAN,IBUGA3,IERROR)
19922 CALL SD(YTEMP,N2,IWRITE,YDSD,IBUGA3,IERROR)
19924 CALL SDMEAN(YTEMP,N2,IWRITE,YDSDM,IBUGA3,IERROR)
19972 WRITE(ICOUT,9012)IERROR
19993 1 IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
20023 CHARACTER*4 IERROR
20083 IERROR='NO'
20108 WRITE(ICOUT,57)IFOUND,IERROR
20221 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
20222 IF(IERROR.EQ.'YES')GOTO9000
20260 1 IBUGG3,ISUBRO,IFOUND,IERROR)
20261 IF(IERROR.EQ.'YES')GOTO9000
20271 1 IBUGG3,ISUBRO,IFOUND,IERROR)
20282 1 IBUGG3,ISUBRO,IFOUND,IERROR)
20308 1 IBUGG3,ISUBRO,IERROR)
20323 WRITE(ICOUT,9012)IFOUND,IERROR
20348 1 IBUGG3,ISUBRO,IERROR)
20377 CHARACTER*4 IERROR
20412 IERROR='NO'
20472 IERROR='YES'
20487 IERROR='YES'
20514 IERROR='YES'
20566 1 IBUGG3,ISUBRO,IERROR)
20573 1 IBUGG3,ISUBRO,IERROR)
20678 CALL CODE(XHIGH,NHIGH,IWRITE,XDIST,D2,MAXN,IBUGG3,IERROR)
20679 CALL MAXIM(XDIST,NHIGH,IWRITE,XMAX,IBUGG3,IERROR)
20752 WRITE(ICOUT,9012)ICASPL,ICASE,IERROR,MAXNXT,N2
20778 1 IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
20848 CHARACTER*4 IERROR
20895 IERROR='NO'
20975 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
20976 IF(IERROR.EQ.'YES')GOTO9000
21018 1 IBUGG3,ISUBRO,IFOUND,IERROR)
21019 IF(IERROR.EQ.'YES')GOTO9000
21038 1 NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
21052 WRITE(ICOUT,9013)IFOUND,IERROR
21067 1 NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
21146 CHARACTER*4 IERROR
21176 IERROR='NO'
21218 IERROR='YES'
21235 CALL DISTIN(LABID,N,IWRITE,XIDTEM,NUMSE1,IBUGG3,IERROR)
21237 CALL DISTIN(MATID,N,IWRITE,XIDTE2,NUMSE2,IBUGG3,IERROR)
21275 IERROR='YES'
21303 CALL MEAN(TEMP1,K,IWRITE,XMEAN,IBUGG3,IERROR)
21341 CALL DISTIN(LABID,N,IWRITE,XIDTEM,NLAB,IBUGG3,IERROR)
21342 CALL DISTIN(MATID,N,IWRITE,XIDTE2,NMAT,IBUGG3,IERROR)
21440 WRITE(ICOUT,9013)IERROR,NPLOTP,NPLOTV
21456 1 IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
21488 CHARACTER*4 IERROR
21544 IERROR='NO'
21633 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
21634 IF(IERROR.EQ.'YES')GOTO9000
21691 1 IBUGG3,ISUBRO,IFOUND,IERROR)
21719 1 IBUGG3,ISUBRO,IFOUND,IERROR)
21721 IF(IERROR.EQ.'YES')GOTO9000
21739 1 Y,X,D,NPLOTP,NPLOTV,ISUBRO,IBUGG3,IERROR)
21754 WRITE(ICOUT,9013)IFOUND,IERROR,NPLOTV,NPLOTP,NS
21775 1 Y2,X2,D2,N2,NPLOTV,ISUBRO,IBUGG3,IERROR)
21804 CHARACTER*4 IERROR
21927 1 IBUGG3,ISUBRO,IERROR)
21946 IERROR='YES'
21963 CALL DISTIN(TAG1,N,IWRITE,XIDTEM,NUMSE1,IBUGG3,IERROR)
21965 CALL DISTIN(TAG2,N,IWRITE,XIDTE2,NUMSE2,IBUGG3,IERROR)
22003 IERROR='YES'
22031 CALL MEAN(TEMP1,K,IWRITE,XMEAN,IBUGG3,IERROR)
22207 CALL MEAN(TEMP1,K,IWRITE,XMEAN,IBUGG3,IERROR)
22219 CALL MINIM(COLAVE,NUMSE2,IWRITE,XMIN,IBUGG3,IERROR)
22220 CALL MAXIM(COLAVE,NUMSE2,IWRITE,XMAX,IBUGG3,IERROR)
22221 CALL MEAN(COLAVE,NUMSE2,IWRITE,XGRAND,IBUGG3,IERROR)
22241 CALL MEAN(TEMP1,K,IWRITE,AVAL,IBUGG3,IERROR)
22264 1 ISUBRO,IBUGG3,IERROR)
22285 CALL MEAN(TEMP2,K,IWRITE,AVAL,IBUGG3,IERROR)
22295 1 ISUBRO,IBUGG3,IERROR)
22336 1 ISUBRO,IBUGG3,IERROR)
22338 CALL SD(SLOPES,NUMSE1,IWRITE,SDSLOP,IBUGG3,IERROR)
22353 1 ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGG3,IERROR)
22364 1 ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGG3,IERROR)
22431 1 ISUBRO,IBUGG3,IERROR)
22433 CALL MEAN(COLAVE,NUMSE2,IWRITE,GMEAN,IBUGG3,IERROR)
22447 1 ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGG3,IERROR)
22641 1 ISUBRO,IBUGG3,IERROR)
22746 CALL MEAN(TEMP1,K,IWRITE,XMEAN,IBUGG3,IERROR)
22758 CALL MINIM(COLAVE,NUMSE1,IWRITE,XMIN,IBUGG3,IERROR)
22759 CALL MAXIM(COLAVE,NUMSE1,IWRITE,XMAX,IBUGG3,IERROR)
22779 CALL MEAN(TEMP1,K,IWRITE,AVAL,IBUGG3,IERROR)
22802 1 ISUBRO,IBUGG3,IERROR)
22823 CALL MEAN(TEMP2,K,IWRITE,AVAL,IBUGG3,IERROR)
22833 1 ISUBRO,IBUGG3,IERROR)
22874 1 ISUBRO,IBUGG3,IERROR)
22876 CALL SD(SLOPES,NUMSE2,IWRITE,SDSLOP,IBUGG3,IERROR)
22891 1 ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGG3,IERROR)
22904 1 ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGG3,IERROR)
22971 1 ISUBRO,IBUGG3,IERROR)
22973 CALL MEAN(COLAVE,NUMSE1,IWRITE,GMEAN,IBUGG3,IERROR)
22987 1 ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGG3,IERROR)
23179 1 ISUBRO,IBUGG3,IERROR)
23205 1 IBUGG3,ISUBRO,IERROR)
23213 WRITE(ICOUT,9013)IERROR,NUMSE1,NUMSE2,N2
23228 1 ITYPE2,IHOL,IHOL2,INTZ,FLOAT,IERROR)
23342 CHARACTER*4 IERROR
23368 IERROR='NO'
23671 IERROR='YES'
23952 WRITE(ICOUT,9003)ITYPE2,IHOL,IHOL2,INTZ,FLOAT,IERROR
24138 CHARACTER*4 IERROR
24215 IERROR='NO'
24303 IERROR='YES'
24319 IERROR='YES'
24351 IERROR='YES'
24371 IERROR='YES'
24391 IERROR='YES'
24409 IERROR='YES'
24416 1INT1,FLOAT1,IBUGA3,IERROR)
24558 IERROR='YES'
24587 IERROR='YES'
24629 IERROR='YES'
24648 IERROR='YES'
24655 1INT1,FLOAT1,IBUGA3,IERROR)
24707 IERROR='YES'
24728 IERROR='YES'
24749 IERROR='YES'
24768 IERROR='YES'
24775 1INT1,FLOAT1,IBUGA3,IERROR)
24792 IERROR='YES'
24810 IERROR='YES'
24877 IERROR='YES'
24898 IERROR='YES'
24919 IERROR='YES'
24938 IERROR='YES'
24945 1INT1,FLOAT1,IBUGA3,IERROR)
24962 IERROR='YES'
24980 IERROR='YES'
24998 IERROR='YES'
25016 IERROR='YES'
25034 IERROR='YES'
25439 1 ITYPE2,IHOL,IHOL2,INTZ,FLOATZ,IERROR)
25553 CHARACTER*4 IERROR
25577 IERROR='NO'
25899 IERROR='YES'
26180 WRITE(ICOUT,9003)ITYPE2,IHOL,IHOL2,INTZ,FLOATZ,IERROR
26251 CHARACTER*4 IERROR
26318 IERROR='OFF'
26576 CALL DPUPP4(ICOMLC,ICOM,IBUGTY,IERROR)
26577 CALL DPUPP4(ICOML2,ICOM2,IBUGTY,IERROR)
26632 CALL DPUPP4(IHARLC(I),IHARG(I),IBUGTY,IERROR)
26633 CALL DPUPP4(IHARL2(I),IHARG2(I),IBUGTY,IERROR)