Lines Matching refs:IERROR
1 SUBROUTINE DPFUNC(IBUGA3,ISUBRO,IERROR,ISFLAG) argument
42 CHARACTER*4 IERROR local
95 IERROR='NO'
178 IERROR='YES'
211 IERROR='YES'
242 1 IFUNC2,N2,IBUGA3,IFOUND,IERROR)
243 IF(IERROR.EQ.'YES')GOTO9000
253 1 IFUNC2,N2,IBUGA3,IFOUND,IERROR)
256 1 IFUNC2,N2,IBUGA3,IFOUND,IERROR)
258 IF(IERROR.EQ.'YES')GOTO9000
282 IERROR='YES'
305 1IBUGA3,IERROR)
306 IF(IERROR.EQ.'YES')GOTO9000
421 1INOUT,IBUGA3,IERROR)
422 IF(IERROR.EQ.'YES')GOTO6380
458 IERROR='YES'
491 1IFUNC3,N3,IBUGA3,IERROR)
492 IF(IERROR.EQ.'YES')GOTO9000
521 1IFUNC,NUMCHF,MAXCHF,IBUGA3,IERROR)
522 IF(IERROR.EQ.'YES')GOTO9000
569 WRITE(ICOUT,9012)IBUGA3,IERROR,NUMNAM
604 1 ISUBRO,IBUGA3,IERROR) argument
640 CHARACTER*4 IERROR local
681 IERROR='NO'
713 IERROR='NO'
720 1 IERROR)
722 IF(IERROR.EQ.'YES')THEN
806 1 ISUBRO,IBUGA3,IERROR)
826 WRITE(ICOUT,9012)IERROR
843 1IBUGD2,IFOUND,IERROR) argument
867 CHARACTER*4 IERROR local
882 IERROR='NO'
905 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
923 1IBUGD2,IFOUND,IERROR)
931 1IBUGD2,IFOUND,IERROR)
939 1IBUGD2,IFOUND,IERROR)
958 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
982 1IBUGD2,IFOUND,IERROR) argument
1006 CHARACTER*4 IERROR local
1021 IERROR='NO'
1044 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
1062 1IBUGD2,IFOUND,IERROR)
1070 1IBUGD2,IFOUND,IERROR)
1089 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
1113 1 IFOUND,IERROR) argument
1150 CHARACTER*4 IERROR local
1180 IERROR='NO'
1234 1IERROR)
1235 IF(IERROR.EQ.'YES')GOTO9000
1299 IERROR='YES'
1344 IERROR='YES'
1405 IERROR='YES'
1444 CALL DPSUBS(NIISUB,ILOCS,NS,IBUGQ,IERROR)
1450 1 NLOCAL,ILOCS,NS,IBUGQ,IERROR)
1467 CALL PRIMES(NUMNUM,Y,IERROR)
1468 IF(IERROR.EQ.'YES')GOTO9000
1470 CALL FIBONN(NUMNUM,Y,IERROR)
1471 IF(IERROR.EQ.'YES')GOTO9000
1479 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
1480 IF(IERROR.EQ.'YES')GOTO9000
1504 IERROR='YES'
1514 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
1515 IF(IERROR.EQ.'YES')GOTO9000
1538 IERROR='YES'
1542 CALL LOGIST(NUMNUM,Y,Y0,AK,IERROR)
1543 IF(IERROR.EQ.'YES')GOTO9000
1553 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
1554 IF(IERROR.EQ.'YES')THEN
1576 IERROR='YES'
1580 CALL CANTOR(NUMNUM,Y,P,TEMP,IERROR)
1581 IF(IERROR.EQ.'YES')GOTO9000
1595 IF(IERROR.EQ.'YES')GOTO9000
1609 IF(IERROR.EQ.'YES')GOTO9000
1814 WRITE(ICOUT,9012)IFOUND,IERROR
1826 1 IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
1857 CHARACTER*4 IERROR local
1958 IERROR='NO'
2066 1 IBUGA2,IERROR)
2083 IERROR='YES'
2119 1 IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
2120 IF(IERROR.EQ.'YES')GOTO9000
2179 IERROR='YES'
2194 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
2195 IF(IERROR.EQ.'YES')THEN
2211 1 IBUGA3,ISUBRO,IERROR)
2212 IF(IERROR.EQ.'YES')GOTO9000
2255 1 IBUGA3,ISUBRO,IFOUND,IERROR)
2256 IF(IERROR.EQ.'YES')GOTO9000
2295 1 ISUBRO,IBUGA3,IERROR)
2338 1 IBUGA3,ISUBRO,IFOUND,IERROR)
2339 IF(IERROR.EQ.'YES')GOTO9000
2376 1 ISUBRO,IBUGA3,IERROR)
2455 CALL DISTIN(X1,NLOCAL,IWRITE,XTEMP2,NDIST,IBUGA3,IERROR)
2530 1 IBUGA3,ISUBRO,IERROR)
2560 1 ISUBRO,IBUGA3,IERROR)
2590 1 ISUBRO,IBUGA3,IERROR)
2624 1 ISUBRO,IBUGA3,IERROR)
2662 1 ISUBRO,IBUGA3,IERROR)
2704 1 ISUBRO,IBUGA3,IERROR)
2750 1 ISUBRO,IBUGA3,IERROR)
2775 1 IBUGA3,ISUBRO,IERROR)
2777 IF(IERROR.EQ.'YES')THEN
2791 WRITE(ICOUT,9012)IFOUND,IERROR
2806 1 ISUBRO,IBUGA3,IERROR) argument
2836 CHARACTER*4 IERROR local
2906 IERROR='NO'
2959 IERROR='YES'
2978 IERROR='YES'
2993 IERROR='YES'
3013 1 ISUBRO,IBUGA3,IERROR)
3014 CALL STMOM3(Y,N,IWRITE,YSKEW,IBUGA3,IERROR)
3015 CALL STMOM4(Y,N,IWRITE,YKURT,IBUGA3,IERROR)
3020 1 ISUBRO,IBUGA3,IERROR)
3172 1 ISUBRO,IBUGA3,IERROR)
3235 1 ISUBRO,IBUGA3,IERROR)
3240 1 IBUGA3,ISUBRO,IERROR)
3246 1 XSTAT,IBUGA3,IERROR)
3355 1 ISUBRO,IBUGA3,IERROR)
3444 1 ISUBRO,IBUGA3,IERROR)
3560 1 ISUBRO,IBUGA3,IERROR)
3666 1 ISUBRO,IBUGA3,IERROR)
3680 WRITE(ICOUT,9012)N,IERROR
3693 1 ISUBRO,IBUGA3,IERROR) argument
3721 CHARACTER*4 IERROR local
3745 IERROR='NO'
3789 IERROR='YES'
3808 IERROR='YES'
3823 IERROR='YES'
3864 CALL MEAN(TEMP1,ICNT,IWRITE,YMEAN,IBUGA3,IERROR)
3865 CALL SD(TEMP1,ICNT,IWRITE,YSD,IBUGA3,IERROR)
3925 1 IBUGS2,ISUBRO,IFOUND,IERROR) argument
4069 CHARACTER*4 IERROR local
4165 WRITE(ICOUT,69)IBUGS2,IFOUND,IERROR
4396 1 ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
4398 IF(IERROR.EQ.'YES')GOTO9000
4435 1 ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
4436 IF(IERROR.EQ.'YES')GOTO9000
4604 CALL DPSLE2(PCLIDE,IBUGS2,ISUBRO,IERROR)
4619 1 IBUGS2,ISUBRO,IERROR)
4647 1 IBUGS2,ISUBRO,IERROR)
4656 CALL DPCLI3(IBUGS2,ISUBRO,IERROR)
4765 CALL DPFLSH(IPR,IBUGS2,ISUBRO,IFOUND,IERROR)
4848 1 IBUGS2,ISUBRO,IFOUND,IERROR)
4867 1 IENDFI,IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
4872 1 IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
4903 CALL DPNONP(IANSLC,IWIDTH,IANSLC,IBUGS2,ISUBRO,IERROR)
4904 CALL DPUPPE(IANSLC,IWIDTH,IANS,IBUGS2,IERROR)
4906 1 IANSV,IWIDSV,IBUGS2,IERROR)
4932 1 IBUGS2,ISUBRO,IERROR)
4935 CALL DPNONP(IANSLC,IWIDTH,IANSLC,IBUGS2,ISUBRO,IERROR)
4936 CALL DPUPPE(IANSLC,IWIDTH,IANS,IBUGS2,IERROR)
5127 WRITE(ICOUT,9039)IBUGS2,IFOUND,IERROR
5157 1ISUBRO,IBUGA3,IERROR) argument
5184 CHARACTER*4 IERROR local
5217 IERROR='NO'
5333 1 ISUBRO,IBUGA3,IERROR)
5353 WRITE(ICOUT,9012)IERROR
5370 1 IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
5428 CHARACTER*4 IERROR local
5571 IERROR='NO'
5868 IERROR='YES'
5879 IERROR='YES'
5902 1 ISUBRO,IBUGA3,IERROR)
5923 IERROR='YES'
5950 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
5951 IF(IERROR.EQ.'YES')THEN
5962 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
5963 IF(IERROR.EQ.'YES')THEN
5977 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
5978 IF(IERROR.EQ.'YES')THEN
5995 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
5996 IF(IERROR.EQ.'NO')AL=VALUE(ILOCP)
6010 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
6011 IF(IERROR.EQ.'YES')THEN
6023 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
6024 IF(IERROR.EQ.'YES')THEN
6041 1 ISUBRO,IBUGA2,IERROR)
6062 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
6063 IF(IERROR.EQ.'YES')THEN
6075 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
6076 IF(IERROR.EQ.'YES')THEN
6091 1 ISUBRO,IBUGA2,IERROR)
6092 IF(IERROR.EQ.'YES')THEN
6103 IERROR='YES'
6150 1 IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
6151 IF(IERROR.EQ.'YES')GOTO9000
6212 IERROR='YES'
6251 IERROR='YES'
6437 1 IBUGA3,ISUBRO,IERROR)
6445 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
6446 IF(IERROR.EQ.'YES')THEN
6452 IERROR='NO'
6481 1 IBUGA3,ISUBRO,IERROR)
6499 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
6608 1 IBUGA3,ISUBRO,IERROR)
6627 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
6785 1 IBUGA3,ISUBRO,IERROR)
6836 1 IBUGA3,ISUBRO,IERROR)
6860 1 IBUGA3,ISUBRO,IERROR)
6872 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
6922 1 IBUGA3,ISUBRO,IERROR)
6946 1 IBUGA3,ISUBRO,IERROR)
6958 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
7012 1 IBUGA3,ISUBRO,IERROR)
7036 1 IBUGA3,ISUBRO,IERROR)
7048 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
7106 1 IBUGA3,ISUBRO,IERROR)
7130 1 IBUGA3,ISUBRO,IERROR)
7142 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
7204 1 IBUGA3,ISUBRO,IERROR)
7228 1 IBUGA3,ISUBRO,IERROR)
7240 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
7306 1 IBUGA3,ISUBRO,IERROR)
7330 1 IBUGA3,ISUBRO,IERROR)
7342 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
7364 IF(IERROR.EQ.'YES')THEN
7378 WRITE(ICOUT,9012)IFOUND,IERROR,MINMAX
7407 1 IBUGA3,ISUBRO,IERROR) argument
7528 CHARACTER*4 IERROR local
7593 IERROR='NO'
7675 IERROR='YES'
7694 IERROR='YES'
7709 1 ISUBRO,IBUGA3,IERROR)
7745 1 IBUGA3,ISUBRO,IERROR)
7784 1 IBUGA3,ISUBRO,IERROR,IERRFL)
7804 IF(IERROR.EQ.'YES')THEN
7910 1 IBUGA3,ISUBRO,IFOUND,IERROR)
7915 WRITE(ICOUT,3311)NTEMP,ICASPL,IERROR
7981 1 IBUGA3,ISUBRO,IERROR)
8000 IERROR='YES'
8004 IF(IERROR.EQ.'YES')GOTO2110
8032 1 IBUGA3,ISUBRO,IERROR)
8059 1 IBUGA3,ISUBRO,IERROR)
8072 IERROR='YES'
8079 IF(IERROR.EQ.'YES')GOTO2110
8143 1 IBUGA3,ISUBRO,IERROR)
8146 WRITE(ICOUT,3412)PPA0,PPA1,PPCC,IERROR
8152 IF(IERROR.EQ.'YES')GOTO2110
8179 1 IBUGA3,ISUBRO,IERROR,IERRFL)
8190 IF(IERROR.EQ.'YES')GOTO2110
8206 1 IBUGA3,ISUBRO,IERROR)
8241 1 IBUGA3,ISUBRO,IERROR)
8265 1 IBUGA3,ISUBRO,IERROR)
8282 1 IBUGA3,ISUBRO,IERROR)
8331 1 IBUGA3,ISUBRO,IERROR) argument
8415 CHARACTER*4 IERROR local
8489 IERROR='NO'
8551 IERROR='YES'
8562 1 ISUBRO,IBUGA3,IERROR)
8567 1 ISUBRO,IBUGA3,IERROR)
8572 1 ISUBRO,IBUGA3,IERROR)
8574 IF(IERROR.EQ.'YES')GOTO9000
8599 1 IBUGA3,ISUBRO,IERROR)
8600 IF(IERROR.EQ.'YES')GOTO9000
8619 1 IBUGA3,ISUBRO,IERROR)
8620 IF(IERROR.EQ.'YES')GOTO9000
8663 1 IBUGA3,ISUBRO,IFOUND,IERROR)
8689 1 IBUGA3,ISUBRO,IERROR)
8727 1 IBUGA3,ISUBRO,IERROR)
8728 IF(IERROR.EQ.'YES')GOTO9000
8747 1 IBUGA3,ISUBRO,IERROR)
8748 IF(IERROR.EQ.'YES')GOTO9000
8754 1 IBUGA3,ISUBRO,IERROR)
8777 1 IBUGA3,ISUBRO,IERROR)
8843 1 IBUGA2,IBUGA3,ISUBRO,IERROR) argument
8867 CHARACTER*4 IERROR local
8918 1 IBUGA3,ISUBRO,IERROR)
8919 IF(IERROR.EQ.'YES')THEN
8951 1 IANS,IWIDTH,IBUGA3,IERROR)
8959 1 IANS,IWIDTH,IBUGA3,IERROR)
8968 1 IANS,IWIDTH,IBUGA3,IERROR)
8982 1 IANS,IWIDTH,IBUGA3,IERROR)
8996 1 IANS,IWIDTH,IBUGA3,IERROR)
9013 1 IANS,IWIDTH,IBUGA3,IERROR)
9027 1 IANS,IWIDTH,IBUGA3,IERROR)
9041 1 IBUGA3,ISUBRO,IERROR)
9062 SUBROUTINE DPGOF8(Y,N,STAT,PVAL,IDIR,IBUGA3,ISUBRO,IERROR) argument
9083 CHARACTER*4 IERROR local
9111 IERROR='NO'
9134 IERROR='YES'
9205 1 IBUGA3,ISUBRO,IERROR,IERRFL) argument
9255 CHARACTER*4 IERROR local
9292 IERROR='NO'
9329 IERROR='YES'
9338 IERROR='YES'
9412 1 IBUGA3,ISUBRO,IERROR)
9475 1 IBUGA3,ISUBRO,IERROR)
9497 WRITE(ICOUT,9012)ICASPL,ICASP2,IERROR,N,N2,STATVA
9527 1 IBUGA3,ISUBRO,IERROR) argument
9590 CHARACTER*4 IERROR local
9638 IERROR='NO'
9716 IERROR='YES'
9750 1 IBUGA3,ISUBRO,IERROR)
9761 1 IBUGA3,ISUBRO,IERROR)
9764 IERROR='YES'
9874 1 IBUGA3,ISUBRO,IERROR)
9916 1 IBUGA3,ISUBRO,IERROR) argument
9978 CHARACTER*4 IERROR local
10015 IERROR='NO'
10063 IERROR='YES'
10076 IERROR='YES'
10087 IERROR='YES'
10098 IERROR='YES'
10155 CALL MAXIM(Y,N,IWRITE,AMAX,IBUGA3,IERROR)
10163 1 TEMP2,TEMP3,N2,IBUGA3,IERROR)
10164 IF(IERROR.EQ.'YES')GOTO9000
10167 1 TEMP2,TEMP3,N2,IBUGA3,IERROR)
10168 IF(IERROR.EQ.'YES')GOTO9000
10210 IERROR='YES'
10219 CALL DISTIN(XLOW,N,IWRITE,TEMP1,NDIST,IBUGA3,IERROR)
10231 IERROR='YES'
10254 IERROR='YES'
10286 IERROR='YES'
10295 CALL DISTIN(XLOW,N,IWRITE,TEMP1,NDIST,IBUGA3,IERROR)
10307 IERROR='YES'
10311 CALL DISTIN(XHIGH,N,IWRITE,TEMP1,NDIST,IBUGA3,IERROR)
10323 IERROR='YES'
10339 IERROR='YES'
10359 IERROR='YES'
10379 IERROR='YES'
10440 1 IBUGA3,IERROR)
10497 1 IBUGUG,IBUGU2,IBUGU3,IBUGU4,ISUBRO,IERROR) argument
10564 CHARACTER*4 IERROR local
10640 IERROR='NO'
10757 IERROR='YES'
10878 IERROR='YES'
10899 IERROR='YES'
10918 IERROR='YES'
10935 IERROR='YES'
10954 IERROR='YES'
11161 1 IBUGU2,IBUGU3,IBUGU4,ISUBRO,IERROR)
11176 1 IERASW,IBUGU2,IERROR)
11188 1 IERASW,IBUGU2,IERROR)
11200 1 IERASW,IBUGU2,IERROR)
11212 1 IERASW,IBUGU2,IERROR)
11287 WRITE(ICOUT,9012)IERROR,ICAS3D,I3DPRO
11316 1 ISUBRO,IBUGA3,IERROR) argument
11354 CHARACTER*4 IERROR local
11394 IERROR='NO'
11650 1 ISUBRO,IBUGA3,IERROR)
11670 WRITE(ICOUT,9012)IERROR
11689 1IFOUND,IERROR) argument
11730 CHARACTER*4 IERROR local
11745 IERROR='NO'
11885 SUBROUTINE DPGRID(ICOM,IHARG,NUMARG,IVGRSW,IHGRSW,IFOUND,IERROR) argument
11926 CHARACTER*4 IERROR local
11939 IERROR='NO'
11955 IERROR='YES'
12007 IERROR='YES'
12061 IERROR='YES'
12105 SUBROUTINE DPGRMN(ICOM,IHARG,NUMARG,IVGMSW,IHGMSW,IFOUND,IERROR) argument
12147 CHARACTER*4 IERROR local
12163 IERROR='NO'
12183 IERROR='YES'
12192 IERROR='YES'
12246 IERROR='YES'
12255 IERROR='YES'
12315 IERROR='YES'
12324 IERROR='YES'
12368 SUBROUTINE DPGROL(IWRITE,IBUGA3,ISUBRO,IERROR) argument
12418 CHARACTER*4 IERROR local
12470 IERROR='NO'
12542 IERROR='YES'
12576 1 IREWIN,ISUBN0,IERRFI,IBUGA3,ISUBRO,IERROR)
12743 IERROR='YES'
12771 IERROR='NO'
12776 1IWRITE,IBUGA3,ISUBRO,IERROR)
12784 IF(IERROR.EQ.'NO')THEN
12810 IERROR='YES'
12825 CALL DPCOFH(IL1,IL2,IFUNC,NUMCHF,IHTEMP,NH,IBUGA3,IERROR)
12865 IERROR='NO'
12871 1 IBUGA3,ISUBRO,IERROR)
12872 IF(NCSTR2.GT.0 .AND. IERROR.NE.'YES')THEN
12926 1 IENDFI,IREWIN,ISUBN0,IERRFI,IBUGA3,ISUBRO,IERROR)
12944 WRITE(ICOUT,9012)IBUGA3,IERROR
13206 1 IBUGD2,IFOUND,IERROR) argument
13292 CHARACTER*4 IERROR local
13348 IERROR='NO'
13349 IERRG4=IERROR
13436 WRITE(ICOUT,89)IBUGD2,IERROR
13588 IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X1,X1,IBUGD2,ISUBRO,IERROR)
13593 IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y1,Y1,IBUGD2,ISUBRO,IERROR)
13602 IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X2,X2,IBUGD2,ISUBRO,IERROR)
13608 IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y2,Y2,IBUGD2,ISUBRO,IERROR)
13679 WRITE(ICOUT,9029)IBUGD2,IERROR
13691 1IFOUND,IERROR) argument
13735 CHARACTER*4 IERROR local
13752 IERROR='NO'
13907 1IFOUND,IERROR) argument
13949 CHARACTER*4 IERROR local
13965 IERROR='NO'
14107 1 IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
14144 CHARACTER*4 IERROR local
14226 IERROR='NO'
14321 1 IBUGA2,IERROR)
14335 IERROR='YES'
14371 1 IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
14372 IF(IERROR.EQ.'YES')GOTO9000
14434 IERROR='YES'
14483 1 IBUGA3,ISUBRO,IFOUND,IERROR)
14484 IF(IERROR.EQ.'YES')GOTO9000
14526 1 ISUBRO,IBUGA3,IERROR)
14544 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
14587 1 IBUGA3,ISUBRO,IFOUND,IERROR)
14588 IF(IERROR.EQ.'YES')GOTO9000
14625 1 ISUBRO,IBUGA3,IERROR)
14645 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
14724 CALL DISTIN(X1,NLOCAL,IWRITE,XTEMP2,NDIST,IBUGA3,IERROR)
14796 1 IBUGA3,ISUBRO,IERROR)
14829 1 ISUBRO,IBUGA3,IERROR)
14842 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
14874 1 ISUBRO,IBUGA3,IERROR)
14887 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
14923 1 ISUBRO,IBUGA3,IERROR)
14936 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
14976 1 ISUBRO,IBUGA3,IERROR)
14989 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
15033 1 ISUBRO,IBUGA3,IERROR)
15046 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
15094 1 ISUBRO,IBUGA3,IERROR)
15107 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
15125 IF(IERROR.EQ.'YES')THEN
15139 WRITE(ICOUT,9012)IFOUND,IERROR
15156 1 ISUBRO,IBUGA3,IERROR) argument
15210 CHARACTER*4 IERROR local
15283 IERROR='NO'
15340 IERROR='YES'
15355 IERROR='YES'
15370 CALL MINIM(Y,N,IWRITE,YMIN,IBUGA3,IERROR)
15371 CALL MAXIM(Y,N,IWRITE,YMAX,IBUGA3,IERROR)
15372 CALL MEAN(Y,N,IWRITE,YMEAN,IBUGA3,IERROR)
15373 CALL SD(Y,N,IWRITE,YSD,IBUGA3,IERROR)
15374 CALL STMOM3(Y,N,IWRITE,YSKEW,IBUGA3,IERROR)
15375 CALL STMOM4(Y,N,IWRITE,YKURT,IBUGA3,IERROR)
15532 1 IBUGA3,ISUBRO,IERROR)
15533 IF(IERROR.EQ.'YES')GOTO9000
15538 CALL MEAN(TEMP2,N,IWRITE,XMEANT,IBUGA3,IERROR)
15539 CALL SD(TEMP2,N,IWRITE,XSDT,IBUGA3,IERROR)
15562 1 IBUGA3,ISUBRO,IERROR)
15563 IF(IERROR.EQ.'YES')GOTO9000
15587 IERROR='YES'
15593 1 XPERC,IBUGA3,IERROR)
15609 CALL DPGOF8(TEMP1,NSIM,STATVA,PVAL,IDIR,IBUGA3,ISUBRO,IERROR)
15708 1 IBUGA3,ISUBRO,IERROR)
15709 IF(IERROR.EQ.'YES')GOTO9000
15717 CALL MEAN(TEMP2,N,IWRITE,XMEANT,IBUGA3,IERROR)
15740 1 IBUGA3,ISUBRO,IERROR)
15741 IF(IERROR.EQ.'YES')GOTO9000
15764 IERROR='YES'
15770 1 XPERC,IBUGA3,IERROR)
15786 CALL DPGOF8(TEMP1,NSIM,STATVA,PVAL,IDIR,IBUGA3,ISUBRO,IERROR)
16031 1 ISUBRO,IBUGA3,IERROR)
16119 1 ISUBRO,IBUGA3,IERROR)
16222 1 ISUBRO,IBUGA3,IERROR)
16240 1 ISUBRO,IBUGA3,IERROR)
16261 WRITE(ICOUT,9012)N,IERROR
16272 1 ISUBRO,IBUGA3,IERROR) argument
16318 CHARACTER*4 IERROR local
16335 IERROR='NO'
16370 IERROR='YES'
16400 CALL MINIM(X,N,IWRITE,XMIN,IBUGA3,IERROR)
16401 CALL MAXIM(X,N,IWRITE,XMAX,IBUGA3,IERROR)
16402 CALL MEAN(X,N,IWRITE,XMEAN,IBUGA3,IERROR)
16403 CALL SD(X,N,IWRITE,XSD,IBUGA3,IERROR)
16406 IERROR='YES'
16426 CALL MAXIND(X,N,IWRITE,PSTAMV,XIND,ISUBRO,IBUGA3,IERROR)
16430 CALL MININD(X,N,IWRITE,PSTAMV,XIND,ISUBRO,IBUGA3,IERROR)
16476 WRITE(ICOUT,9012)IBUGA3,IERROR
16496 1 IBUGA2,IBUGA3,ISUBRO,IERROR) argument
16520 CHARACTER*4 IERROR local
16575 1 IBUGA3,ISUBRO,IERROR)
16576 IF(IERROR.EQ.'YES')GOTO9000
16594 1 IANS,IWIDTH,IBUGA3,IERROR)
16603 1 IANS,IWIDTH,IBUGA3,IERROR)
16612 1 IANS,IWIDTH,IBUGA3,IERROR)
16621 1 IANS,IWIDTH,IBUGA3,IERROR)
16630 1 IANS,IWIDTH,IBUGA3,IERROR)
16639 1 IANS,IWIDTH,IBUGA3,IERROR)
16648 1 IANS,IWIDTH,IBUGA3,IERROR)
16657 1 IANS,IWIDTH,IBUGA3,IERROR)
16666 1 IANS,IWIDTH,IBUGA3,IERROR)
16675 1 IANS,IWIDTH,IBUGA3,IERROR)
16684 1 IANS,IWIDTH,IBUGA3,IERROR)
16699 1 IBUGA3,ISUBRO,IERROR)
16706 WRITE(ICOUT,301)IERROR
16711 IF(IERROR.EQ.'YES')GOTO9000
16733 1 IBUGD2,IFOUND,IERROR) argument
16757 CHARACTER*4 IERROR local
16772 IERROR='NO'
16795 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
16813 1IBUGD2,IFOUND,IERROR)
16821 1IBUGD2,IFOUND,IERROR)
16840 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
16864 1IBUGD2,IFOUND,IERROR) argument
16888 CHARACTER*4 IERROR local
17367 IERROR='NO'
17392 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
17449 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
17473 1HARDDE,IFOUND,IERROR) argument
17504 CHARACTER*4 IERROR local
17519 IERROR='NO'
17535 IERROR='YES'
17595 1 IBUGS2,ISUBRO,IFOUND,IERROR) argument
17651 CHARACTER*4 IERROR local
17744 IERROR='NO'
17770 WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR,ICOM,IWIDTH
17793 1 IBUGS2,IERROR)
17925 IERROR='YES'
17940 1IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
18248 IERROR='YES'
18393 CALL DPSYS2(ICALL,NCSTR,ISUBRO,IERROR)
18431 WRITE(ICOUT,9028)IERRO2,IFOUND,IERROR,ICHAR1,IOUNIT
18484 1 IBUGO2,ISUBRO,IFOUND,IERROR) argument
18528 CHARACTER*4 IERROR local
18547 IERROR='NO'
18628 1 IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
18688 CHARACTER*4 IERROR local
18736 IERROR='NO'
18866 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
18867 IF(IERROR.EQ.'YES')GOTO9000
18901 1 IBUGG3,ISUBRO,IFOUND,IERROR)
18902 IF(IERROR.EQ.'YES')GOTO9000
18965 IERROR='YES'
18992 1 IBUGG3,ISUBRO,IERROR)
19082 IERROR='YES'
19154 WRITE(ICOUT,9012)IFOUND,IERROR,ICOUNT
19195 1 IBUGG3,ISUBRO,IERROR) argument
19249 CHARACTER*4 IERROR local
19281 IERROR='NO'
19332 IERROR='YES'
19350 IERROR='YES'
19374 IERROR='YES'
19437 CALL CUMHAZ(YS,TAGC,N,IWRITE,Y,YTEMP1,MAXNXT,IBUGG3,IERROR)
19577 1ISUBRO,IBUGG3,IERROR)
19836 WRITE(ICOUT,9012)N2,IERROR
19869 1IBUGD2,ISUBRO,IFOUND,IERROR) argument
19905 CHARACTER*4 IERROR local
19920 IERROR='NO'
19956 IERROR='YES'
20044 WRITE(ICOUT,9012)IBUGD2,ISUBRO,IFOUND,IERROR
20057 1 IBUGS2,ISUBRO,IFOUND,IERROR) argument
20120 CHARACTER*4 IERROR local
20187 IERROR='NO'
20234 WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR,IWIDTH
20505 IERROR='YES'
20543 1 IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
20555 1 IBUGS2,ISUBRO,IERROR)
20556 IF(IERROR.EQ.'YES')GOTO9000
20939 IERROR='YES'
21012 CALL DPMORE(NUMLPR,NCPREH,ICPREH,IRESP,IBUGS2,IERROR)
21037 1 IBUGS2,ISUBRO,IERROR)
21072 IF(IPASS.EQ.1.AND.IERROR.EQ.'YES')THEN
21145 IERROR='NO'
21158 IF(IHLPNW.EQ.'ON' .AND. IERROR.EQ.'NO')THEN
21253 CALL DPSYS2(ISTR,NCSTR,ISUBRO,IERROR)
21266 WRITE(ICOUT,9012)IFOUND,IERROR,IERRO2,IERRFI,IOUNIT
21327 1 IBUGS2,ISUBRO,IFOUND,IERROR) argument
21389 CHARACTER*4 IERROR local
21501 IERROR='NO'
21512 WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR,ICOM,IWIDTH
21529 1 NUMARG,IBUGS2,IERROR)
21661 IERROR='YES'
21676 1 IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
21963 IERROR='YES'
22101 CALL DPSYS2(ICALL,NCSTR,ISUBRO,IERROR)
22119 WRITE(ICOUT,9012)IBUGS2,ISUBRO,IERROR,IERRO2,IOUNIT
22190 1 ISUBRO,IFOUND,IERROR) argument
22264 CHARACTER*4 IERROR local
22296 IERROR='NO'
22348 WRITE(ICOUT,73)IBUGHE,IBUGH2,IERROR
22773 1IANS,IWIDTH,IBUGH2,ISUBRO,IFOUND,IERROR)
22806 1IANS,IWIDTH,IBUGH2,ISUBRO,IFOUND,IERROR)
22861 IERROR='YES'
22909 WRITE(ICOUT,9049)IBUGHE,IBUGH2,IFOUND,IERROR
22947 1 IANS,IWIDTH,IBUGH3,ISUBRO,IFOUND,IERROR) argument
22987 CHARACTER*4 IERROR local
23030 IERROR='NO'
23054 WRITE(ICOUT,55)IBUGH3,ISUBRO,IERROR
23117 IERROR='YES'
23257 IERROR='YES'
23295 1IREWIN,ISUBN0,IERRFI,IBUGH3,ISUBRO,IERROR)
23332 IERROR='YES'
23374 IERROR='YES'
23454 IERROR='YES'
23580 IERROR='YES'
23605 1IENDFI,IREWIN,ISUBN0,IERRFI,IBUGH3,ISUBRO,IERROR)
23620 WRITE(ICOUT,9012)IBUGH3,ISUBRO,IERROR
23933 1 IBUGD2,IFOUND,IERROR) argument
24019 CHARACTER*4 IERROR local
24075 IERROR='NO'
24076 IERRG4=IERROR
24163 WRITE(ICOUT,89)IBUGD2,IERROR
24315 IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X1,X1,IBUGD2,ISUBRO,IERROR)
24320 IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y1,Y1,IBUGD2,ISUBRO,IERROR)
24329 IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X2,X2,IBUGD2,ISUBRO,IERROR)
24335 IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y2,Y2,IBUGD2,ISUBRO,IERROR)
24406 WRITE(ICOUT,9029)IBUGD2,IERROR
24414 1 IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
24439 CHARACTER*4 IERROR local
24477 IERROR='NO'
24531 1 IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
24532 IF(IERROR.EQ.'YES')GOTO9000
24575 1 IBUGA3,ISUBRO,IFOUND,IERROR)
24576 IF(IERROR.EQ.'YES')GOTO9000
24586 1 IBUGA3,ISUBRO,IFOUND,IERROR)
24587 IF(IERROR.EQ.'YES')GOTO9000
24620 1 IBUGA3,ISUBRO,IERROR)
24621 IF(IERROR.EQ.'YES')GOTO9000
24643 1 IBUGA2,IBUGA3,ISUBRO,IERROR)
24660 WRITE(ICOUT,9016)IFOUND,IERROR
24671 1 IBUGA3,ISUBRO,IERROR) argument
24715 CHARACTER*4 IERROR local
24760 IERROR='NO'
24797 IERROR='YES'
24811 IERROR='YES'
24832 1 ICASE,ISUBRO,IBUGA3,IERROR)
24833 IF(IERROR.EQ.'YES')GOTO9000
25013 1 ISUBRO,IBUGA3,IERROR)
25025 1 ISUBRO,IBUGA3,IERROR)
25040 WRITE(ICOUT,9012)IERROR
25053 1 Y2,X2,X3D,D2,N2,NPLOTV,IBUGG3,ISUBRO,IERROR) argument
25120 CHARACTER*4 IERROR local
25176 IERROR='NO'
25233 IERROR='YES'
25299 1 Y2,X2,N2,IBUGG3,IERROR)
25308 1 ISUBRO,IBUGG3,IERROR)
25357 CALL DISTIN(X,N,IWRIT2,XIDTEM,NDIST,IBUGG3,IERROR)
25658 1 IBUGG3,IERROR)
25722 WRITE(ICOUT,9012)ICASPL,IRELAT,IERROR,N2
25745 1 IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
25801 CHARACTER*4 IERROR local
25873 IERROR='NO'
26015 IERROR='YES'
26069 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
26070 IF(IERROR.EQ.'YES')GOTO9000
26119 1 IBUGG3,ISUBRO,IFOUND,IERROR)
26120 IF(IERROR.EQ.'YES')GOTO9000
26155 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
26156 IF(IERROR.EQ.'YES')THEN
26188 1 Y,X,X3D,D,NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
26202 WRITE(ICOUT,9012)IFOUND,IERROR
26224 1 IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
26290 CHARACTER*4 IERROR local
26356 IERROR='NO'
26446 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
26447 IF(IERROR.EQ.'YES')GOTO9000
26489 1 IBUGG3,ISUBRO,IFOUND,IERROR)
26490 IF(IERROR.EQ.'YES')GOTO9000
26511 1 NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
26519 1 IANS,IWIDTH,IBUGG3,IERROR)
26526 1 IANS,IWIDTH,IBUGG3,IERROR)
26533 1 IANS,IWIDTH,IBUGG3,IERROR)
26548 WRITE(ICOUT,9013)IFOUND,IERROR
26565 1 NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR) argument
26646 CHARACTER*4 IERROR local
26693 IERROR='NO'
26738 IERROR='YES'
26772 1 ISUBRO,IBUGG3,IERROR)
26773 CALL DISTIN(TAGLAB,NTOT,IWRITE,XIDTEM,NLAB,IBUGG3,IERROR)
26774 CALL DISTIN(TAGMAT,NTOT,IWRITE,XIDTE2,NMAT,IBUGG3,IERROR)
26900 1 ISUBRO,IBUGG3,IERROR)
26901 CALL DISTIN(TAGLAB,NTOT,IWRITE,XIDTEM,NLAB,IBUGG3,IERROR)
26902 CALL DISTIN(TAGMAT,NTOT,IWRITE,XIDTE2,NMAT,IBUGG3,IERROR)
27030 CALL DISTIN(MATID,N,IWRITE,XIDTE2,NMAT,IBUGG3,IERROR)
27032 CALL DISTIN(LABID,N,IWRITE,XIDTEM,NLAB,IBUGG3,IERROR)
27070 1 IBUGG3,ISUBRO,IERROR)
27140 WRITE(ICOUT,9013)IERROR,NPLOTP,NPLOTV
27157 1 ISUBRO,IBUGA3,IERROR) argument
27202 CHARACTER*4 IERROR local
27244 IERROR='NO'
27322 1 ISUBRO,IBUGA3,IERROR)
27349 SUBROUTINE DPHOCO(IANS2,N2,IVALID,VALCON,IBUGA3,IERROR) argument
27374 CHARACTER*4 IERROR local
27395 IERROR='NO'
27624 WRITE(ICOUT,9015)IERROR
27633 1 IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
27680 CHARACTER*4 IERROR local
27779 IERROR='NO'
27896 IERROR='YES'
27974 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
27975 IF(IERROR.EQ.'YES')GOTO9000
28010 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
28011 IF(IERROR.EQ.'YES')THEN
28036 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
28037 IF(IERROR.EQ.'NO')THEN
28048 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
28049 IF(IERROR.EQ.'NO')THEN
28061 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
28062 IF(IERROR.EQ.'YES')GOTO9000
28085 IERROR='YES'
28099 1 ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
28100 IF(IERROR.EQ.'YES')GOTO9000
28121 IERROR='YES'
28162 1 IBUGG3,ISUBRO,IFOUND,IERROR)
28174 1 IBUGG3,ISUBRO,IERROR)
28182 1 IANS,IWIDTH,IBUGG3,IERROR)
28188 1 IANS,IWIDTH,IBUGG3,IERROR)
28210 1 IBUGG3,ISUBRO,IFOUND,IERROR)
28222 1 IBUGG3,ISUBRO,IERROR)
28230 1 IANS,IWIDTH,IBUGG3,IERROR)
28236 1 IANS,IWIDTH,IBUGG3,IERROR)
28259 1 IBUGG3,ISUBRO,IFOUND,IERROR)
28260 IF(IERROR.EQ.'YES')GOTO9000
28286 1 IBUGG3,ISUBRO,IERROR)
28293 1 IANS,IWIDTH,IBUGG3,IERROR)
28299 1 IANS,IWIDTH,IBUGG3,IERROR)
28327 IERROR='YES'
28436 1 IBUGG3,ISUBRO,IERROR)
28451 WRITE(ICOUT,9012)IFOUND,IERROR
28482 1 IBUGG3,ISUBRO,IERROR) argument
28518 CHARACTER*4 IERROR local
28602 IERROR='YES'
28622 IERROR='YES'
28641 IERROR='YES'
28698 CALL DISTIN(X1,N,IWRITE,XIDTEM,NUMSE1,IBUGG3,IERROR)
28711 IERROR='YES'
28717 CALL DISTIN(X2T,N,IWRITE,XIDTE2,NUMSE2,IBUGG3,IERROR)
28730 IERROR='YES'
28736 CALL DISTIN(X3,N,IWRITE,XIDTE3,NUMSE3,IBUGG3,IERROR)
28749 IERROR='YES'
28755 CALL DISTIN(X4,N,IWRITE,XIDTE4,NUMSE4,IBUGG3,IERROR)
28768 IERROR='YES'
28774 CALL DISTIN(X5,N,IWRITE,XIDTE5,NUMSE5,IBUGG3,IERROR)
28787 IERROR='YES'
28793 CALL DISTIN(X6,N,IWRITE,XIDTE6,NUMSE6,IBUGG3,IERROR)
28806 IERROR='YES'
28864 1 IBUGG3,ISUBRO,IERROR)
28905 1 IBUGG3,ISUBRO,IERROR)
28944 1 IBUGG3,ISUBRO,IERROR)
28988 1 IBUGG3,ISUBRO,IERROR)
29035 1 IBUGG3,ISUBRO,IERROR)
29084 1 IBUGG3,ISUBRO,IERROR)
29131 IERROR='YES'
29135 CALL MEAN(XREPL,N2,IWRITE,AN,IBUGG3,IERROR)
29140 IF(IERROR.EQ.'YES')GOTO9000
29142 1 SBAR,IERROR,ISUBRO,IBUGG3)
29143 IF(IERROR.EQ.'YES')GOTO9000
29172 1 ISUBRO,IBUGG3,IERROR)
29177 1 ISUBRO,IBUGG3,IERROR)
29182 1 ISUBRO,IBUGG3,IERROR)
29329 WRITE(ICOUT,9012)N,NUMSET,N2,IERROR
29350 1 IBUGG3,ISUBRO,IERROR) argument
29373 CHARACTER*4 IERROR local
29426 CALL MEAN(TEMP,NI,IWRITE,XMEAN,IBUGG3,IERROR)
29429 1 IBUGG3,IERROR)
29457 1 IBUGG3,IERROR)
29466 CALL MEDIAN(TEMP,NI,IWRITE,XTEMP1,MAXNXT,XMEAN,IBUGG3,IERROR)
29468 CALL MIDMEA(TEMP,NI,IWRITE,XTEMP1,MAXNXT,XMEAN,IBUGG3,IERROR)
29470 CALL MIDRAN(TEMP,NI,IWRITE,XMEAN,IBUGG3,IERROR)
29474 1 IBUGG3,ISUBRO,IERROR)
29478 1 IBUGG3,ISUBRO,IERROR)
29480 CALL MEAN(TEMP,NI,IWRITE,XMEAN,IBUGG3,IERROR)
29486 CALL SD(TEMP,NI,IWRITE,XSD,IBUGG3,IERROR)
29489 1 IBUGG3,IERROR)
29517 1 IQUASE,IBUGG3,IERROR)
29521 CALL AAD(TEMP,NI,IWRITE,XTEMP1,MAXNXT,XSD,ICASE,IBUGG3,IERROR)
29523 CALL MAD(TEMP,NI,IWRITE,XTEMP1,XTEMP2,MAXNXT,XSD,IBUGG3,IERROR)
29525 CALL RANGDP(TEMP,NI,IWRITE,XSD,IBUGG3,IERROR)
29534 1 IBUGG3,ISUBRO,IERROR)
29538 1 IBUGG3,ISUBRO,IERROR)
29539 CALL SD(XTEMP2,NI,IWRITE,XSD,IBUGG3,IERROR)
29541 CALL SD(TEMP,NI,IWRITE,XSD,IBUGG3,IERROR)
29567 1IBUGD2,ISUBRO,IFOUND,IERROR) argument
29605 CHARACTER*4 IERROR local
29620 IERROR='NO'
29659 IERROR='YES'
29726 WRITE(ICOUT,9012)IBUGD2,ISUBRO,IFOUND,IERROR
29737 1 IHOSLI,IFOUND,IERROR) argument
29775 CHARACTER*4 IERROR local
29790 IERROR='NO'
29828 1IHOST,IHOST1,IHOST2,IFOUND,IERROR) argument
29867 CHARACTER*4 IERROR local
29883 IERROR='NO'
29952 SUBROUTINE DPHRIZ(IHARG,NUMARG,IHORSW,IFOUND,IERROR) argument
29984 CHARACTER*4 IERROR local
29997 IERROR='NO'
30036 1 ICONT,IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR) argument
30078 CHARACTER*4 IERROR local
30162 IERROR='NO'
30314 1 IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
30315 IF(IERROR.EQ.'YES')GOTO9000
30345 IERROR='YES'
30421 IERROR='YES'
30506 1ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
30507 IF(IERROR.EQ.'NO')CCUSL=VALUE(ILOCP)
30508 IERROR='NO'
30517 1ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
30518 IF(IERROR.EQ.'NO')CCLSL=VALUE(ILOCP)
30519 IERROR='NO'
30528 1ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
30529 IF(IERROR.EQ.'NO')THEN
30533 IERROR='NO'
30557 1 Y,X,D,NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
30571 WRITE(ICOUT,9013)IFOUND,IERROR,NSUB,NZ
30594 1 Y2,X2,D2,N2,NPLOTV,IBUGG3,ISUBRO,IERROR) argument
30624 CHARACTER*4 IERROR local
30677 IERROR='YES'
30732 1 X,XIDTEM,NIJUNK,NGROUP,DMEAN,IBUGG3,IERROR)
30766 IERROR='YES'
30780 1 X,XIDTEM,NIJUNK,N2,NGROUP,XMEANS,IBUGG3,IERROR)
30806 1 XQUAD,IBUGG3,IERROR)
30827 IERROR='YES'
30851 IERROR='YES'
30904 CALL DISTIN(X,NR1,IWRITE,TEMP,NGRP,IBUGG3,IERROR)
30940 1 XGROUP,XIDTEM,NIJUNK,NGROUP,DMEAN,IBUGG3,IERROR)
30976 IERROR='YES'
30994 1 XGROUP,XIDTEM,NIJUNK,N2,NGROUP,TEMP,IBUGG3,IERROR)
30997 1 X,XIDTEM,NIJUNK,N2,NGROUP,XMEANS,IBUGG3,IERROR)
31036 1 XQUAD,IBUGG3,IERROR)
31055 IERROR='YES'
31079 IERROR='YES'
31132 CALL MEAN(TEMP,NR1,IWRITE,RIGHT,IBUGG3,IERROR)
31174 IERROR='YES'
31224 1 XQUAD,IBUGG3,IERROR)
31302 IERROR='YES'
31325 CALL MEAN(TEMP,NHIST,IWRITE,RIGHT,IBUGG3,IERROR)
31371 IERROR='YES'
31418 1 XQUAD,IBUGG3,IERROR)
33080 1IBUGD2,ISUBRO,IFOUND,IERROR) argument
33120 CHARACTER*4 IERROR local
33135 IERROR='NO'
33175 IERROR='YES'
33290 WRITE(ICOUT,9012)IBUGD2,ISUBRO,IFOUND,IERROR