90      1IECHO,IFOUND,IERROR)
126       CHARACTER*4 IERROR
141       IERROR='NO'
177      1                  IFOUND,IERROR)
238       CHARACTER*4 IERROR
319       IERROR='NO'
400      1            IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
401       IF(IERROR.EQ.'YES')GOTO9000
436      1            IBUGA3,ISUBRO,IFOUND,IERROR)
437       IF(IERROR.EQ.'YES')GOTO9000
445      1ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
446       IF(IERROR.EQ.'YES')THEN
501      1            ISUBRO,IBUGA3,IERROR)
518      1IANS,IWIDTH,IBUGA3,IERROR)
525      1IANS,IWIDTH,IBUGA3,IERROR)
539         WRITE(ICOUT,9012)IFOUND,IERROR,NS,NUMVAR
552      1                  ISUBRO,IBUGA3,IERROR)
619       CHARACTER*4 IERROR
693       IERROR='NO'
755         IERROR='YES'
776      1            IBUGA3,ISUBRO,IERROR)
777       IF(IERROR.EQ.'YES')GOTO9000
783       CALL DISTIN(X1,N,IWRITE,XIDTEM,NUMSE1,IBUGA3,IERROR)
784       IF(IERROR.EQ.'YES')GOTO9000
787       CALL DISTIN(X2,N,IWRITE,XIDTE2,NUMSE2,IBUGA3,IERROR)
788       IF(IERROR.EQ.'YES')GOTO9000
833         IERROR='YES'
860         IERROR='YES'
882         CALL MEAN(TEMP1,NTEMP,IWRITE,XMEAN,IBUGA3,IERROR)
933               IERROR='YES'
938           CALL MEAN(TEMP1,NTEMP,IWRITE,XMEAN,IBUGA3,IERROR)
939           CALL SD(TEMP1,NTEMP,IWRITE,XSD,IBUGA3,IERROR)
957         CALL SD(TEMP2,NUMSE1,IWRITE,XSD,IBUGA3,IERROR)
1041      1            IBUGA3,ISUBRO,IERROR)
1042       IF(IERROR.EQ.'YES')GOTO9000
1103         CALL MINIM(TEMP1,N,IWRITE,XMIN,IBUGA3,IERROR)
1104         CALL MAXIM(TEMP1,N,IWRITE,XMAX,IBUGA3,IERROR)
1218      1                    ISUBRO,IBUGA3,IERROR)
1268      1                ISUBRO,IBUGA3,IERROR)
1366      1                    ISUBRO,IBUGA3,IERROR)
1384      1                  ISUBRO,IBUGA3,IERROR)
1399      1                ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGA3,IERROR)
1405      1                ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGA3,IERROR)
1410      1                ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGA3,IERROR)
1419      1                ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGA3,IERROR)
1562      1                    ISUBRO,IBUGA3,IERROR)
1583      1                  ISUBRO,IBUGA3,IERROR)
1598      1                ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGA3,IERROR)
1739      1                    ISUBRO,IBUGA3,IERROR)
1760      1                  ISUBRO,IBUGA3,IERROR)
1775      1                ICAPSW,ICAPTY,ITYPE,ISUBRO,IBUGA3,IERROR)
1859      1                  ISUBRO,IBUGA3,IERROR)
1901      1                ISUBRO,IBUGA3,IERROR)
2022         WRITE(ICOUT,9012)IERROR,IBUGA3
2262      1                  IBUGD2,IFOUND,IERROR)
2356       CHARACTER*4 IERROR
2417       IERROR='NO'
2418       IERRG4=IERROR
2484         WRITE(ICOUT,88)IBUGG4,IBUGD2,ISUBG4,IERRG4,IFOUND,IERROR
2582      1       IBUGD2,ISUBRO,IERROR)
2587      1       IBUGD2,ISUBRO,IERROR)
2594         IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X2,X2,IBUGD2,ISUBRO,IERROR)
2599         IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y2,Y2,IBUGD2,ISUBRO,IERROR)
2605         IF(UNITSW.EQ.'DATA')CALL DPCODS('X',X3,X3,IBUGD2,ISUBRO,IERROR)
2610         IF(UNITSW.EQ.'DATA')CALL DPCODS('Y',Y3,Y3,IBUGD2,ISUBRO,IERROR)
2707         WRITE(ICOUT,9027)IFOUND,IERRG4,IERROR
2717      1                  IBUGP2,ISUBRO,IFOUND,IERROR)
2771       CHARACTER*4 IERROR
2797       IERROR='NO'
2806         WRITE(ICOUT,53)IBUGP2,ISUBRO,IFOUND,IERROR,IERASW,IEMBSW,NUMARG
2847             IERROR='YES'
2861             IERROR='YES'
2875             IERROR='YES'
2889             IERROR='YES'
2965         WRITE(ICOUT,9013)IFOUND,IERROR,IEMBSW,IEMCNT
2978      1                  ISUBRO,IBUGA3,IERROR)
3044       CHARACTER*4 IERROR
3080      1            IBUGA3,IERROR)
3131      1             IBUGA3,ISUBRO,IERROR)
3177      1            IBUGA3,ISUBRO,IERROR)
3180      1            IBUGA3,ISUBRO,IERROR)
3187      1             IBUGA3,ISUBRO,IERROR)
3190      1             IBUGA3,ISUBRO,IERROR)
3233      1            IBUGA3,ISUBRO,IERROR)
3240      1             IBUGA3,ISUBRO,IERROR)
3243      1             IBUGA3,ISUBRO,IERROR)
3400      1                  ISUBRO,IBUGA3,IERROR)
3483       CHARACTER*4 IERROR
3517      1            IBUGA3,IERROR)
3676      1IBUGP2,IFOUND,IERROR)
3715       CHARACTER*4 IERROR
3734       IERROR='NO'
3743       WRITE(ICOUT,53)IBUGP2,IFOUND,IERROR
3802       WRITE(ICOUT,9013)IBUGP2,IFOUND,IERROR
3828      1                  IBUGA3,ISUBRO,IERROR)
3866       CHARACTER*4 IERROR
4045       CALL MEDIAN(GAMMSV,NCNT,IWRITE,TEMP1,MAXNXT,SHAPE,IBUGA3,IERROR)
4046       CALL MEDIAN(SCALSV,NCNT,IWRITE,TEMP1,MAXNXT,XMED,IBUGA3,IERROR)
4131       CALL MEDIAN(GAMMSV,NCNT,IWRITE,TEMP1,MAXNXT,SHAPE,IBUGA3,IERROR)
4132       CALL MEDIAN(SCALSV,NCNT,IWRITE,TEMP1,MAXNXT,XMED,IBUGA3,IERROR)
4239       CALL MEDIAN(GAMMSV,NCNT,IWRITE,TEMP1,MAXNXT,SHAPE,IBUGA3,IERROR)
4240       CALL MEDIAN(SCALSV,NCNT,IWRITE,TEMP1,MAXNXT,SCALE,IBUGA3,IERROR)
4241       CALL MEDIAN(ALOCSV,NCNT,IWRITE,TEMP1,MAXNXT,ALOC,IBUGA3,IERROR)
4249      1                  ISUBRO,IBUGG2,IBUGG3,IBUGQ,IFOUND,IERROR)
4287       CHARACTER*4 IERROR
4345       IERROR='NO'
4461           IERROR='YES'
4515      1            IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
4516       IF(IERROR.EQ.'YES')GOTO9000
4562           IERROR='YES'
4616      1                IBUGG3,ISUBRO,IFOUND,IERROR)
4617           IF(IERROR.EQ.'YES')GOTO9000
4627      1                Y,X,D,NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
4721      1             IBUGG3,ISUBRO,IERROR)
4745      1                    Y,X,D,NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
4768      1                    Y,X,D,NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
4788         WRITE(ICOUT,9012)IFOUND,IERROR,ICASPL,IAND1,IAND2
4807      1                  Y2,X2,D2,N2,NPLOTV,IBUGG3,ISUBRO,IERROR)
4834       CHARACTER*4 IERROR
4860       IERROR='NO'
4882         IERROR='YES'
4902       IERROR='YES'
4926      1            IBUGG3,ISUBRO,IERROR)
4927       IF(IERROR.EQ.'YES')GOTO9000
4944      1           QU50,IBUGG3,IERROR)
4949      1           QU75,IBUGG3,IERROR)
4954      1           QU25,IBUGG3,IERROR)
4959      1           QU875,IBUGG3,IERROR)
4964      1           QU125,IBUGG3,IERROR)
4969      1           QU9375,IBUGG3,IERROR)
4974      1           QU0625,IBUGG3,IERROR)
4979      1           U50,IBUGG3,IERROR)
4984      1           U75,IBUGG3,IERROR)
4989      1           U25,IBUGG3,IERROR)
4994      1           U875,IBUGG3,IERROR)
4999      1           U125,IBUGG3,IERROR)
5004      1           U9375,IBUGG3,IERROR)
5009      1           U0625,IBUGG3,IERROR)
5098         WRITE(ICOUT,9012)ICASPL,IERROR,N2
5112      1                  IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
5138       CHARACTER*4 IERROR
5217       IERROR='NO'
5256      1              IBUGA2,IERROR)
5292      1            IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
5293       IF(IERROR.EQ.'YES')GOTO9000
5333      1            IBUGA3,ISUBRO,IFOUND,IERROR)
5334       IF(IERROR.EQ.'YES')GOTO9000
5378      1            IBUGA3,ISUBRO,IERROR)
5379       IF(IERROR.EQ.'YES')GOTO9000
5395      1              IANS,IWIDTH,IBUGA3,IERROR)
5403      1              IANS,IWIDTH,IBUGA3,IERROR)
5410      1              IANS,IWIDTH,IBUGA3,IERROR)
5417      1              IANS,IWIDTH,IBUGA3,IERROR)
5424      1              IANS,IWIDTH,IBUGA3,IERROR)
5431      1              IANS,IWIDTH,IBUGA3,IERROR)
5438      1              IANS,IWIDTH,IBUGA3,IERROR)
5445      1              IANS,IWIDTH,IBUGA3,IERROR)
5452      1              IANS,IWIDTH,IBUGA3,IERROR)
5459      1              IANS,IWIDTH,IBUGA3,IERROR)
5466      1              IANS,IWIDTH,IBUGA3,IERROR)
5473      1              IANS,IWIDTH,IBUGA3,IERROR)
5480      1              IANS,IWIDTH,IBUGA3,IERROR)
5487      1              IANS,IWIDTH,IBUGA3,IERROR)
5494      1              IANS,IWIDTH,IBUGA3,IERROR)
5501      1              IANS,IWIDTH,IBUGA3,IERROR)
5508      1              IANS,IWIDTH,IBUGA3,IERROR)
5515      1              IANS,IWIDTH,IBUGA3,IERROR)
5522      1              IANS,IWIDTH,IBUGA3,IERROR)
5529      1              IANS,IWIDTH,IBUGA3,IERROR)
5536      1              IANS,IWIDTH,IBUGA3,IERROR)
5543      1              IANS,IWIDTH,IBUGA3,IERROR)
5550      1              IANS,IWIDTH,IBUGA3,IERROR)
5557      1              IANS,IWIDTH,IBUGA3,IERROR)
5564      1              IANS,IWIDTH,IBUGA3,IERROR)
5571      1              IANS,IWIDTH,IBUGA3,IERROR)
5578      1              IANS,IWIDTH,IBUGA3,IERROR)
5585      1              IANS,IWIDTH,IBUGA3,IERROR)
5592      1              IANS,IWIDTH,IBUGA3,IERROR)
5607         WRITE(ICOUT,9016)IFOUND,IERROR
5627      1                  IBUGA3,ISUBRO,IERROR)
5659       CHARACTER*4 IERROR
5723       IERROR='NO'
5764      1            IBUGA3,ISUBRO,IERROR)
5765       IF(IERROR.EQ.'YES')GOTO9000
5890      1            ISUBRO,IBUGA3,IERROR)
6019      1            ISUBRO,IBUGA3,IERROR)
6126      1            ISUBRO,IBUGA3,IERROR)
6245      1            ISUBRO,IBUGA3,IERROR)
6340      1            ISUBRO,IBUGA3,IERROR)
6407      1            ISUBRO,IBUGA3,IERROR)
6455      1            ISUBRO,IBUGA3,IERROR)
6522      1            ISUBRO,IBUGA3,IERROR)
6570      1            ISUBRO,IBUGA3,IERROR)
6584         WRITE(ICOUT,9012)IERROR
6603      1                  IBUGA3,ISUBRO,IERROR)
6631       CHARACTER*4 IERROR
6670       IERROR='NO'
6716       IERROR='YES'
6732       IERROR='YES'
6740       CALL DISTIN(TAG,N,IWRITE,TEMP1,NGROUP,IBUGA3,IERROR)
6756         IERROR='YES'
6788      1                ISUBRO,IBUGA3,IERROR)
6793           CALL SSQMEA(XTEMP,NTEMP,IWRITE,XSSQ,IBUGA3,ISUBRO,IERROR)
6795           CALL SSQMEA(YTEMP,NTEMP,IWRITE,YSSQ,IBUGA3,ISUBRO,IERROR)
6830         IERROR='YES'
6987      1              ISUBRO,IBUGA3,IERROR)
6995         CALL SUMDP(QYX,NUMSLO,IWRITE,YXSUM,IBUGA3,IERROR)
7133      1                  ICAPSW,IBUGD2,ISUBRO,IFOUND,IERROR)
7197       CHARACTER*4 IERROR
7252       IERROR='NO'
7256       IERRG4=IERROR
7265         WRITE(ICOUT,53)IBUGD2,IBUGG4,IFOUND,IERROR,IPL2CS
7460         WRITE(ICOUT,9014)IFOUND,IERROR,IPL1CS,IPL2CS
7468      1                  IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
7496       CHARACTER*4 IERROR
7540       IERROR='NO'
7622      1            IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
7623       IF(IERROR.EQ.'YES')GOTO9000
7653      1            IBUGG3,ISUBRO,IFOUND,IERROR)
7654       IF(IERROR.EQ.'YES')GOTO9000
7672      1            Y,X,D,NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
7686         WRITE(ICOUT,9013)IFOUND,IERROR
7715      1Y2,X2,D2,N2,NPLOTV,IBUGG3,ISUBRO,IERROR)
7737       CHARACTER*4 IERROR
7765       WRITE(ICOUT,52)IBUGG3,ISUBRO,IERROR
7808       CALL DPCHLI(ICONT,NUMCPL,YMID,YMID,XMID,XMID,J,JD,Y2,X2,D2,IERROR)
7809       CALL DPCHLI(ICONT,NUMCPL,YMAX,YMAX,XMID,XMID,J,JD,Y2,X2,D2,IERROR)
7810       CALL DPCHLI(ICONT,NUMCPL,YMIN,YMIN,XMID,XMID,J,JD,Y2,X2,D2,IERROR)
7811       CALL DPCHLI(ICONT,NUMCPL,YMID,YMID,XLEF,XLEF,J,JD,Y2,X2,D2,IERROR)
7812       CALL DPCHLI(ICONT,NUMCPL,YMID,YMID,XRIG,XRIG,J,JD,Y2,X2,D2,IERROR)
7813       CALL DPCHLI(ICONT,NUMCPL,YMAX,YMIN,XMID,XMID,J,JD,Y2,X2,D2,IERROR)
7814       CALL DPCHLI(ICONT,NUMCPL,YMID,YMID,XLEF,XRIG,J,JD,Y2,X2,D2,IERROR)
7834       WRITE(ICOUT,9012)IBUGG3,ISUBRO,IERROR
7856      1ERASDE,IFOUND,IERROR)
7887       CHARACTER*4 IERROR
7902       IERROR='NO'
7918       IERROR='YES'
7978      1                  IBUGA2,ISUBRO,IERROR)
8014       CHARACTER*4 IERROR
8039         WRITE(ICOUT,53)IERROR,IERRFA,IGUIFL,ISUBN1,ISUBN2,ICASAN
8046       IF(IERRFA.EQ.'TERM' .AND. IERROR.EQ.'YES')THEN
8247      1                  IBUGA3,ISUBRO,IERROR)
8279       CHARACTER*4 IERROR
8341       IERROR='NO'
8661      1              ISUBRO,IBUGA3,IERROR)
8832      1              ISUBRO,IBUGA3,IERROR)
8920      1                ISUBRO,IBUGA3,IERROR)
8936         WRITE(ICOUT,9013)IERROR,N,K1,K2
8944      1                  IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
8983       CHARACTER*4 IERROR
9049       IERROR='NO'
9120      1IERROR)
9121       IF(IERROR.EQ.'YES')GOTO9000
9206         IERROR='YES'
9217      1              ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
9218         IF(IERROR.EQ.'YES')GOTO9000
9261         IERROR='YES'
9308         IERROR='YES'
9378       CALL DPSUBS(NIOLD,ILOCS,NS,IBUGQ,IERROR)
9385      1NLOCAL,ILOCS,NS,IBUGQ,IERROR)
9454       IERROR='YES'
9479       IERROR='YES'
9576         IERROR='YES'
9600         IERROR='YES'
9692         IERROR='YES'
9747         IERROR='YES'
9786      1            IBUGA3,ISUBRO,IERROR)
9815      1            IANS,IWIDTH,ILOCN,IBUGA3,IERROR)
9867           IERROR='YES'
9921           IERROR='YES'
10134         WRITE(ICOUT,9016)ICASEQ,IFOUND,IERROR
10141       SUBROUTINE DPEXFI(TEMP1,NPAR,IBUGA3,ISUBRO,IFOUND,IERROR)  argument
10177       CHARACTER*4 IERROR
10213       IERROR='NO'
10254         IERROR='YES'
10269      1            IOFILE,IBUGA3,ISUBRO,IERROR)
10295         IERROR='YES'
10321      1            IBUGA3,ISUBRO,IERROR)
10329       IF(IERROR.EQ.'YES')GOTO9000
10357         IERROR='YES'
10361       IF(IERROR.EQ.'YES')GOTO9000
10387         IERROR='YES'
10413      1            IBUGA3,ISUBRO,IERROR)
10414       IF(IERROR.EQ.'YES')GOTO9000
10466      1            IBUGA3,ISUBRO,IERROR)
10467       IF(IERROR.EQ.'YES')GOTO9000
10478       CALL DPSYS2(IFILE,NCFILE,ISUBRO,IERROR)
10479       IF(IERROR.EQ.'YES')GOTO9000
10519             IERROR='YES'
10541         IERROR='YES'
10557           IERROR='YES'
10569      1            IBUGA3,ISUBRO,IERROR)
10570       IF(IERROR.EQ.'YES')GOTO9000
10599       IERROR='YES'
10606      1            IBUGA3,ISUBRO,IERROR)
10607       IF(IERROR.EQ.'YES')GOTO9000
10652         WRITE(ICOUT,9013)IBUGA3,IFOUND,IERROR
10662      1                  IBUGS2,ISUBRO,IFOUND,IERROR)
10713       CHARACTER*4 IERROR
10754      1              IBUGS2,ISUBRO,IERROR)
11127      1                  IBUGS2,ISUBRO,IERROR)
11164       CHARACTER*4 IERROR
11179       IERROR='NO'
11191         WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR
11233       IERROR='YES'
11255       IERROR='YES'
11275       IERROR='YES'
11297       IERROR='YES'
11324       IERROR='YES'
11364       IERROR='YES'
11408       IERROR='YES'
11431       IERROR='YES'
11507       IERROR='YES'
11546         WRITE(ICOUT,9013)IBUGS2,ISUBRO,IERROR
11549         WRITE(ICOUT,9021)IERROR,ISTART,ISTOP,MININT,MAXINT
11566       SUBROUTINE DPEXIT(ICAPSW,IBUGS2,ISUBRO,IFOUND,IERROR)  argument
11631       CHARACTER*4 IERROR
11670       IERROR='NO'
11832      1                 IENDFI,IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
11838      1                 IBUGS2,ISUBRO,IFOUND,IERROR)
11908      1                 IENDFI,IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
11914      1                 IBUGS2,ISUBRO,IFOUND,IERROR)
12027         WRITE(ICOUT,9041)IFOUND,IERROR
12034       SUBROUTINE DPEXEC(IANSEX,IWIDEX,IBUGMA,IFOUND,IERROR)  argument
12072       CHARACTER*4 IERROR
12101       IERROR='NO'
12116       WRITE(ICOUT,52)IBUGMA,IFOUND,IERROR
12238      1IFUNC2,N2,IBUGMA,IFOUN1,IERROR)
12240       IF(IERROR.EQ.'YES')GOTO1310
12261       WRITE(ICOUT,1317)IFOUN1,IERROR
12264       IERROR='YES'
12285      1IBUGMA,IERROR)
12286       IF(IERROR.EQ.'YES')GOTO1410
12307       WRITE(ICOUT,1417)IERROR
12310       IERROR='YES'
12345       WRITE(ICOUT,9012)IBUGMA,IFOUND,IERROR,ICASE
12384      1IBUGA3,IERROR)
12428       CHARACTER*4 IERROR
12534       IERROR='NO'
12606             IERROR='YES'
12785               IERROR='YES'
12792             CALL DPSIAS(IPOINT,IFUNC3,N3,IHOUT,NOUT,IBUGA3,IERROR)
12797             CALL DPSIAS(IPOINT,IFUNC3,N3,IHOUT,NOUT,IBUGA3,IERROR)
12803      1                  IBUGA3,IERROR)
12861             IERROR='YES'
12910       IERROR='YES'
12931         WRITE(ICOUT,9013)ISTART,ISTOP,IFOUNN,IERROR
12949      1                  IBUGA3,ISUBRO,IFOUND,IERROR)
13013       CHARACTER*4 IERROR
13046       IERROR='NO'
13114           IERROR='YES'
13128      1              IBUGA3,ISUBRO,IERROR)
13129         IF(IERROR.EQ.'YES')GOTO9000
13138      1              IBUGA3,ISUBRO,IERROR)
13221         CALL DPSYS2(ITEXT,NC2,ISUBRO,IERROR)
13224         IF(IERROR.EQ.'YES')GOTO9000
13236      1              IBUGA3,ISUBRO,IERROR)
13237         IF(IERROR.EQ.'YES')GOTO9000
13245      1              IBUGA3,ISUBRO,IERROR)
13257         IERROR='YES'
13269         IERROR='YES'
13280         IERROR='YES'
13285      1            IOFILE,IBUGA3,ISUBRO,IERROR)
13306         WRITE(ICOUT,9013)IFOUND,IERROR
13328      1                  INOUT,IBUGA3,IERROR)
13367       CHARACTER*4 IERROR
13439       IERROR='NO'
13585      1            IANS2,N2,IBUGA3,IERROR)
13595       CALL DPHOCO(IANS2,N2,IVALID,VALCON,IBUGA3,IERROR)
13649         WRITE(ICOUT,9014)IERROR
13657      1                  IBUGS2,ISUBRO,IFOUND,IERROR)
13706       CHARACTER*4 IERROR
13752       IERROR='NO'
13804         IERROR='YES'
13845      1            IBUGS2,ISUBRO,IERROR)
13862       IF(IERROR.EQ.'YES')THEN
13911      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
13918       CALL DPUP80(IFILE1,IFILE2,IWIDTH,IBUGS2,IERROR)
13920      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
13930       CALL DPLO80(IFILE1,IFILE2,IWIDTH,IBUGS2,IERROR)
13932      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
13985      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
14003      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
14021      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
14137           IERROR='YES'
14167             IERROR='YES'
14229           IERROR='YES'
14250             IERROR='YES'
14265       CALL DPSYS2(ITEXT3,NCHAR,ISUBRO,IERROR)
14271       IERROR='YES'
14286         WRITE(ICOUT,9017)IFOUND,IERROR,NCHAR
14297      1                  IBUGS2,ISUBRO,IFOUND,IERROR)
14338       CHARACTER*4 IERROR
14369       IERROR='NO'
14511      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
14534      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
14556      1            ISUBN0,IBUGS2,ISUBRO,IERROR)
14594           CALL COPYFI(IFILE2,IFILE3,IBUGS2,ISUBRO,IERROR)
14595           IF(IERROR.EQ.'YES')GOTO9000
14701           IERROR='YES'
14723             IERROR='YES'
14787           IERROR='YES'
14801             IERROR='YES'
14834       CALL DPSYS2(ITEXT3,NCHAR,ISUBRO,IERROR)
14840       IERROR='YES'
14855         WRITE(ICOUT,9017)IFOUND,IERROR,NCHAR
14867      1                  IBUGS2,ISUBRO,IERROR)
14896       CHARACTER*4 IERROR
14912       IERROR='NO'
14921         WRITE(ICOUT,53)MESSAG,IBUGS2,ISUBRO,IERROR
14977       IERROR='YES'
15001         IERROR='YES'
15020         IERROR='YES'
15088         IERROR='YES'
15110           IERROR='YES'
15164      1                  NUMINC,ILALOC,IBUGA3,IFOUND,IERROR)
15201       CHARACTER*4 IERROR
15224       IERROR='NO'
15269           IERROR='YES'
15311           IERROR='YES'
15349           IERROR='YES'
15366           IERROR='YES'
15383           IERROR='YES'
15445         WRITE(ICOUT,9016)IFOUND,IERROR
15453      1IBUGA3,ISUBRO,IERROR)
15516       CHARACTER*4 IERROR
15625       CALL EXTDIG(J2,IDIGIT,NDIGIT,IBUGA3,IERROR)
15677       CALL EXTDIG(J2,IDIGIT,NDIGIT,IBUGA3,IERROR)
15765      1                  IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
15789       CHARACTER*4 IERROR
15811       IERROR='NO'
15889       CALL CHECKA(NUMARG,MINNA,MAXNA,IANS,IWIDTH,ISUBN1,ISUBN2,IERROR)
15890       IF(IERROR.EQ.'YES')GOTO9000
15910      1IBUGA3,ISUBRO,IERROR)
15928       WRITE(ICOUT,9013)IFOUND,IERROR
15940      1IBUGU2,ISUBRO,IERROR)
15979       CHARACTER*4 IERROR
16011       WRITE(ICOUT,52)IBUGU2,ISUBRO,IERROR
16115       WRITE(ICOUT,9012)IBUGU2,ISUBRO,IERROR
16142      1IFUNC2,N2,IBUGA3,IFOUND,IERROR)
16197       CHARACTER*4 IERROR
16271       IERROR='NO'
16409       IERROR='YES'
16495       IERROR='YES'
16512       IERROR='YES'
16553       IERROR='YES'
16654       IERROR='YES'
16678       IERROR='YES'
16725       WRITE(ICOUT,9016)IFOUND,IERROR
16738       SUBROUTINE DPEXTE(IBUGS2,IBUGQ,ISUBRO,IFOUND,IERROR)  argument
16761       CHARACTER*4 IERROR
16785       IERROR='NO'
16842       CALL CHECKA(NUMARG,MINNA,MAXNA,IANS,IWIDTH,ISUBN1,ISUBN2,IERROR)
16843       IF(IERROR.EQ.'YES')GOTO9000
16893       IERROR='YES'
16911       IERROR='YES'
16967       IERROR='YES'
16985       IERROR='YES'
17038       IERROR='YES'
17153         WRITE(ICOUT,9012)IFOUND,IERROR
17170      1                  KNUMB,IVAL1,IVAL2,IBUGS2,ISUBRO,IERROR)
17196       CHARACTER*4 IERROR
17221       IERROR='NO'
17230         WRITE(ICOUT,52)IBUGS2,ISUBRO,IERROR
17394      1IBUGS2,IERROR)
17396      1IBUGS2,IERROR)
17412         WRITE(ICOUT,9012)IBUGS2,ISUBRO,IERROR
17439      1                  ISUBRO,IBUGA3,IERROR)
17488       CHARACTER*4 IERROR
17496       IERROR='NO'
17574      1                  IBUGS2,ISUBRO,IERROR)
17622       CHARACTER*4 IERROR
17637       IERROR='NO'
17648         WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR,IFILQU
17696         IERROR='YES'
17717         IERROR='YES'
17734         IERROR='YES'
17866           IERROR='YES'
17893           IERROR='YES'
17940         WRITE(ICOUT,9013)IBUGS2,ISUBRO,IERROR,NCSTR2
17960      1                  IBUGS2,ISUBRO,IERROR)
18001       CHARACTER*4 IERROR
18018       IERROR='NO'
18027         WRITE(ICOUT,52)IBUGS2,ISUBRO,IERROR,N2
18064         IERROR='YES'
18083         IERROR='YES'
18103         IERROR='YES'
18161       IERROR='YES'
18189       IERROR='YES'
18240         WRITE(ICOUT,9012)IERROR
18255      1                  IBUGS2,ISUBRO,IERROR)
18288       CHARACTER*4 IERROR
18303       IERROR='NO'
18314         WRITE(ICOUT,53)IBUGS2,ISUBRO,IERROR
18349         IERROR='YES'
18370         IERROR='YES'
18387         IERROR='YES'
18510           IERROR='YES'
18537           IERROR='YES'
18592         WRITE(ICOUT,9013)IBUGS2,ISUBRO,IERROR,NCSTR2
18610      1IFOUND,IERROR)
18647       CHARACTER*4 IERROR
18662       IERROR='NO'
18798       IERROR='YES'