4      1MAXSEG,ISEGPA,IFOUND,IERROR)
43       CHARACTER*4 IERROR
64       IERROR='NO'
111       IERROR='YES'
131       IERROR='YES'
192       SUBROUTINE DPSEPC(ITEMP1,IFOUND,ISUBRO,IBUGA3,IERROR)  argument
248       CHARACTER*4 IERROR
285       IERROR='NO'
627           IERROR='YES'
647                 IERROR='YES'
696               IERROR='YES'
713       IERROR='YES'
775      1                IBUGA3,ISUBRO,IERROR)
802               IERROR='YES'
808               IERROR='YES'
814               IERROR='YES'
820               IERROR='YES'
826               IERROR='YES'
832               IERROR='YES'
838               IERROR='YES'
844               IERROR='YES'
850               IERROR='YES'
855               IERROR='YES'
861               IERROR='YES'
866               IERROR='YES'
874               IERROR='YES'
880               IERROR='YES'
886               IERROR='YES'
894               IERROR='YES'
902               IERROR='YES'
908               IERROR='YES'
914               IERROR='YES'
920               IERROR='YES'
926               IERROR='YES'
934               IERROR='YES'
940               IERROR='YES'
948               IERROR='YES'
954               IERROR='YES'
960               IERROR='YES'
968               IERROR='YES'
974               IERROR='YES'
980               IERROR='YES'
986               IERROR='YES'
994               IERROR='YES'
1002               IERROR='YES'
1008               IERROR='YES'
1014               IERROR='YES'
1020               IERROR='YES'
1026               IERROR='YES'
1034               IERROR='YES'
1040               IERROR='YES'
1048               IERROR='YES'
1054               IERROR='YES'
1062               IERROR='YES'
1068               IERROR='YES'
1076               IERROR='YES'
1082               IERROR='YES'
1088               IERROR='YES'
1094               IERROR='YES'
1100               IERROR='YES'
1106               IERROR='YES'
1159           IERROR='YES'
1177             IERROR='YES'
1220      1                  IBUGA3,ISUBRO,IERROR)
1242                 IERROR='YES'
1248                 IERROR='YES'
1254                 IERROR='YES'
1260                 IERROR='YES'
1266                 IERROR='YES'
1272                 IERROR='YES'
1278                 IERROR='YES'
1284                 IERROR='YES'
1290                 IERROR='YES'
1295                 IERROR='YES'
1301                 IERROR='YES'
1306                 IERROR='YES'
1314                 IERROR='YES'
1320                 IERROR='YES'
1326                 IERROR='YES'
1334                 IERROR='YES'
1340                 IERROR='YES'
1346                 IERROR='YES'
1352                 IERROR='YES'
1358                 IERROR='YES'
1364                 IERROR='YES'
1372                 IERROR='YES'
1378                 IERROR='YES'
1384                 IERROR='YES'
1390                 IERROR='YES'
1396                 IERROR='YES'
1402                 IERROR='YES'
1408                 IERROR='YES'
1414                 IERROR='YES'
1420                 IERROR='YES'
1426                 IERROR='YES'
1432                 IERROR='YES'
1438                 IERROR='YES'
1444                 IERROR='YES'
1450                 IERROR='YES'
1456                 IERROR='YES'
1464                 IERROR='YES'
1470                 IERROR='YES'
1476                 IERROR='YES'
1482                 IERROR='YES'
1488                 IERROR='YES'
1494                 IERROR='YES'
1500                 IERROR='YES'
1506                 IERROR='YES'
1512                 IERROR='YES'
1518                 IERROR='YES'
1524                 IERROR='YES'
1530                 IERROR='YES'
1535           IF(IERROR.EQ.'YES')THEN
1544             IERROR='YES'
1580         WRITE(ICOUT,9012)IFOUND,IERROR,IINDX,NINDX
1594      1ISEQSW,NUMSEQ,IFOUND,IERROR)
1626       CHARACTER*4 IERROR
1641       IERROR='NO'
1725       SUBROUTINE DPSEQU(IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)  argument
1771       CHARACTER*4 IERROR
1813       IERROR='NO'
1885      1IERROR)
1886       IF(IERROR.EQ.'YES')GOTO9000
1936           IERROR='YES'
1949           IERROR='YES'
1983         IERROR='YES'
2031         IERROR='YES'
2113       IERROR='YES'
2168      1              ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOC,IERROR)
2169         IF(IERROR.EQ.'NO')THEN
2190      1                ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOC,IERROR)
2191           IF(IERROR.EQ.'YES')GOTO9000
2224      1                ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOC,IERROR)
2225           IF(IERROR.EQ.'NO')THEN
2247      1                  ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOC,IERROR)
2248             IF(IERROR.EQ.'YES')GOTO9000
2291      1              ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOC,IERROR)
2292         IF(IERROR.EQ.'NO')THEN
2313      1                ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOC,IERROR)
2314           IF(IERROR.EQ.'YES')GOTO9000
2343      1              ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOC,IERROR)
2344         IF(IERROR.EQ.'NO')THEN
2365      1                ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOC,IERROR)
2366           IF(IERROR.EQ.'YES')GOTO9000
2409       IERROR='YES'
2431           IERROR='YES'
2444           IERROR='YES'
2457           IERROR='YES'
2470           IERROR='YES'
2674       IERROR='YES'
2720       CALL DPSUBS(NIISUB,ILOCS,NS,IBUGQ,IERROR)
2728      1NLOCAL,ILOCS,NS,IBUGQ,IERROR)
2923         WRITE(ICOUT,9012)IFOUND,IERROR
2961      1IBUGS2,IBUGQ,ISUBRO,IFOUND,IERROR)
3047       CHARACTER*4 IERROR
3189       IERROR='NO'
3250         WRITE(ICOUT,63)IBUGS2,ISUBRO,IERROR
3277         IERROR='YES'
3299      1IOFILE,IBUGS2,ISUBRO,IERROR)
3351         IERROR='YES'
3407         IERROR='YES'
3454      1              IBUGS2,ISUBRO,IERROR)
3457           IERROR='YES'
3503      1                IREWIN,ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
3640      1              KNUMB,IVAL1,IVAL2,IBUGS2,ISUBRO,IERROR)
3656      1              IH1,IH2,IBUGS2,ISUBRO,IERROR)
3712         IERROR='YES'
3740         IERROR='YES'
3770         IERROR='YES'
3809         IERROR='YES'
4062         IERROR='YES'
4100             IERROR='YES'
4120             IERROR='YES'
4174       CALL DPSUBS(NIOLD,ILOCS,NS,IBUGQ,IERROR)
4181      1NLOCAL,ILOCS,NS,IBUGQ,IERROR)
4228      1                  ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
4239           IF(IERROR.EQ.'YES')GOTO8800
4259           IERROR='YES'
4323      1                ISUBN0,IERRFI,IBUGS2,ISUBRO,IERROR)
4334         IF(IERROR.EQ.'YES')GOTO8800
4355           IERROR='YES'
4439      1              IERRFI,IBUGS2,ISUBRO,IERROR)
4467         IF(IERROR.EQ.'YES')GOTO8800
4737      1                IBUGS2,ISUBRO,IERROR)
4772         WRITE(ICOUT,9015)IFOUND,IERROR
4784         WRITE(ICOUT,9019)IBUGS2,ISUBRO,IERROR
4828      1                  IBUGG2,IBUGG3,ISUBRO,IBUGQ,IFOUND,IERROR)
4856       CHARACTER*4 IERROR
4903       IERROR='NO'
4992      1            IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
4993       IF(IERROR.EQ.'YES')GOTO9000
5025      1            IBUGG3,ISUBRO,IFOUND,IERROR)
5026       IF(IERROR.EQ.'YES')GOTO9000
5039      1ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
5040       IF(IERROR.EQ.'YES')THEN
5057      1ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCP,IERROR)
5058       IF(IERROR.EQ.'YES')THEN
5084      1            IBUGG3,ISUBRO,IERROR)
5098         WRITE(ICOUT,9012)IFOUND,IERROR
5120      1                  IBUGG3,ISUBRO,IERROR)
5151       CHARACTER*4 IERROR
5176       IERROR='NO'
5187         WRITE(ICOUT,52)IBUGG3,ISUBRO,IERROR
5219         IERROR='YES'
5237       IERROR='YES'
5278         CALL MEAN(YTEMP,NELEM,IWRITE,YMEAN,IBUGG3,IERROR) 
5323         WRITE(ICOUT,9013)IERROR,ICASPL,N,NPLOTP,NPLOTV
5341      1MAXSEG,PSEGTH,IFOUND,IERROR)
5378       CHARACTER*4 IERROR
5398       IERROR='NO'
5441       IERROR='YES'
5461       IERROR='YES'
5634      1                  IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
5673       CHARACTER*4 IERROR
5729       IERROR='NO'
5754         WRITE(ICOUT,57)IFOUND,IERROR
5830      1            IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
5831       IF(IERROR.EQ.'YES')GOTO9000
5869      1            IBUGG3,ISUBRO,IFOUND,IERROR)
5870       IF(IERROR.EQ.'YES')GOTO9000
5880      1            IBUGG3,ISUBRO,IFOUND,IERROR)
5881       IF(IERROR.EQ.'YES')GOTO9000
5893      1                IBUGG3,ISUBRO,IFOUND,IERROR)
5903      1                IBUGG3,ISUBRO,IFOUND,IERROR)
5904           IF(IERROR.EQ.'YES')GOTO9000
5913      1                IBUGG3,ISUBRO,IFOUND,IERROR)
5915         IF(IERROR.EQ.'YES')GOTO9000
5927      1                IBUGG3,ISUBRO,IFOUND,IERROR)
5949      1            IBUGG3,ISUBRO,IERROR)
5964         WRITE(ICOUT,9012)IFOUND,IERROR
5988      1                  IBUGG3,ISUBRO,IERROR)
6029       CHARACTER*4 IERROR
6056       IERROR='NO'
6117         IERROR='YES'
6132         IERROR='YES'
6148         IERROR='YES'
6175         IERROR='YES'
6195       IERROR='YES'
6215       IERROR='YES'
6255      1                 YQUANT,IBUGG3,IERROR)
6275      1               XQUANT,IBUGG3,IERROR)
6278      1               YQUANT,IBUGG3,IERROR)
6301         WRITE(ICOUT,9012)ICASPL,ICASE,IERROR,N2
6313       SUBROUTINE DPSIAS(ISTART,IW,NW,IHOUT,NOUT,IBUGA3,IERROR)  argument
6351       CHARACTER*4 IERROR
6364       IERROR='NO'
6433       SUBROUTINE DPSIA0(IW,NW,IBUGA3,IERROR)  argument
6446       CHARACTER*4 IERROR
6456       IERROR='NO'
6532       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
6539       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
6566       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
6632       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
6658       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
6691       SUBROUTINE DPSIA2(IW,NW,IBUGA3,ISUBRO,IERROR)  argument
6712       CHARACTER*4 IERROR
6722       IERROR='NO'
6734       WRITE(ICOUT,52)IBUGA3,ISUBRO,IERROR
6814       IERROR='YES'
6827       CALL DPSIS2(ISTART,ISTOP,IW,NW,IBUGA3,ISUBRO,IERROR)
6843       WRITE(ICOUT,9012)IBUGA3,ISUBRO,IERROR
6858       SUBROUTINE DPSIEP(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)  argument
6880       CHARACTER*4 IERROR
6936       CALL DPSIES(IMIN,IMAX,IW,NW,IBUGA3,IERROR)
6940       CALL DPSIES(IMIN,IMAX,IW,NW,IBUGA3,IERROR)
6996       CALL DPSIES(IMIN,IMAX,IW,NW,IBUGA3,IERROR)
7000       CALL DPSIES(IMIN,IMAX,IW,NW,IBUGA3,IERROR)
7029       SUBROUTINE DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)  argument
7047       CHARACTER*4 IERROR
7057       IERROR='NO'
7115       SUBROUTINE DPSIE0(IW,NW,IBUGA3,IERROR)  argument
7128       CHARACTER*4 IERROR
7143       IERROR='NO'
7247       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
7342       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
7374       SUBROUTINE DPSIE1(IW,NW,IBUGA3,IERROR)  argument
7387       CHARACTER*4 IERROR
7402       IERROR='NO'
7487       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
7563       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
7595      1                  IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
7630       CHARACTER*4 IERROR
7685       IERROR='NO'
7780      1            IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
7781       IF(IERROR.EQ.'YES')GOTO9000
7840           IERROR='YES'
7858           IERROR='YES'
7876           IERROR='YES'
7894           IERROR='YES'
7913           IERROR='YES'
7923      1              IBUGG3,ISUBRO,IFOUND,IERROR)
7924         IF(IERROR.EQ.'YES')GOTO9000
7939      1              IBUGG3,ISUBRO,IFOUND,IERROR)
7941         IF(IERROR.EQ.'YES')GOTO9000
7963      1            NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
7980         WRITE(ICOUT,9013)IFOUND,IERROR
8017      1                  N2,NPLOTV,IBUGG3,ISUBRO,IERROR)
8038       CHARACTER*4 IERROR
8076       IERROR='NO'
8172         IERROR='YES'
8188         IERROR='YES'
8204         IERROR='YES'
8223         IERROR='YES'
8271         IERROR='YES'
8285       CALL DISTIN(Y1,N,IWRITE,XIDTEM,NUMSE1,IBUGG3,IERROR)
8287       CALL DISTIN(Y2,N,IWRITE,XIDTE2,NUMSE2,IBUGG3,IERROR)
8299         IERROR='YES'
8311         IERROR='YES'
8379       IERROR='NO'
8395         IERROR='YES'
8413         IERROR='YES'
8436             IERROR='YES'
8527             IERROR='YES'
8844      1            IBUGG3,ISUBRO,IERROR)
8845       IF(IERROR.EQ.'YES')GOTO9000
8867      1            IBUGG3,ISUBRO,IERROR)
8868       IF(IERROR.EQ.'YES')GOTO9000
8882         WRITE(ICOUT,9012)ICASPL,N,N2,IERROR
8897       SUBROUTINE DPSIFL(IW,NW,IBUGA3,IERROR)  argument
8911       CHARACTER*4 IERROR
8921       IERROR='NO  '
9005       IERROR='YES'
9022       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
9026       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
9424      1                  IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
9454       CHARACTER*4 IERROR
9515       IERROR='NO'
9592      1            IBUGA2,IERROR)
9634      1            IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
9635       IF(IERROR.EQ.'YES')GOTO9000
9717      1              IBUGA3,ISUBRO,IFOUND,IERROR)
9718         IF(IERROR.EQ.'YES')GOTO9000
9739      1                  IBUGA3,ISUBRO,IFOUND,IERROR)
9740             IF(IERROR.EQ.'YES')GOTO9000
9778      1                IBUGA3,ISUBRO,IERROR)
9779           IF(IERROR.EQ.'YES')GOTO9000
9816      1                IBUGA2,IBUGA3,ISUBRO,IERROR)
9833         WRITE(ICOUT,9016)IFOUND,IERROR
9848      1                  IBUGA3,ISUBRO,IERROR)
9893       CHARACTER*4 IERROR
9950       IERROR='NO'
10030      1            ISUBRO,IBUGA3,IERROR)
10031       IF(IERROR.EQ.'YES')GOTO9000
10215      1            ISUBRO,IBUGA3,IERROR)
10325      1              ISUBRO,IBUGA3,IERROR)
10379      1              ISUBRO,IBUGA3,IERROR)
10427      1            ISUBRO,IBUGA3,IERROR)
10450      1            ISUBRO,IBUGA3,IERROR)
10451       IF(IERROR.EQ.'YES')GOTO9000
10684      1            ISUBRO,IBUGA3,IERROR)
10794      1              ISUBRO,IBUGA3,IERROR)
10848      1              ISUBRO,IBUGA3,IERROR)
10896      1            ISUBRO,IBUGA3,IERROR)
10912         WRITE(ICOUT,9012)IERROR
10924      1                  ISUBRO,IBUGA3,IERROR)
10971       CHARACTER*4 IERROR
10992       IERROR='NO'
11030         IERROR='YES'
11056       CALL MEAN(X,N,IWRITE,XMEAN,IBUGA3,IERROR)
11057       CALL SD(X,N,IWRITE,XSD,IBUGA3,IERROR)
11058       CALL MEDIAN(X,N,IWRITE,XTEMP1,MAXNXT,XMED,IBUGA3,IERROR)
11059       CALL MAD(X,N,IWRITE,XTEMP1,XTEMP2,MAXNXT,XMAD,IBUGA3,IERROR)
11117         WRITE(ICOUT,9012)IBUGA3,IERROR
11133      1                  ISUBRO,IBUGA3,IERROR)
11184       CHARACTER*4 IERROR
11206       IERROR='NO'
11261         IERROR='YES'
11278         IERROR='YES'
11308         IERROR='YES'
11332       CALL MEAN(Y1,N1,IWRITE,Y1MEAN,IBUGA3,IERROR)
11333       CALL SD(Y1,N1,IWRITE,Y1SD,IBUGA3,IERROR)
11334       CALL MEDIAN(Y1,N1,IWRITE,XTEMP1,MAXNXT,Y1MED,IBUGA3,IERROR)
11335       CALL MAD(Y1,N1,IWRITE,XTEMP1,XTEMP2,MAXNXT,Y1MAD,IBUGA3,IERROR)
11336       CALL MEAN(Y2,N2,IWRITE,Y2MEAN,IBUGA3,IERROR)
11337       CALL SD(Y2,N2,IWRITE,Y2SD,IBUGA3,IERROR)
11338       CALL MEDIAN(Y2,N2,IWRITE,XTEMP1,MAXNXT,Y2MED,IBUGA3,IERROR)
11339       CALL MAD(Y2,N2,IWRITE,XTEMP1,XTEMP2,MAXNXT,Y2MAD,IBUGA3,IERROR)
11396         WRITE(ICOUT,9012)IERROR
11411      1                  IBUGA2,IBUGA3,ISUBRO,IERROR)
11435       CHARACTER*4 IERROR
11498      1                IBUGA3,ISUBRO,IERROR)
11499           IF(IERROR.EQ.'YES')GOTO9000
11520      1                IANS,IWIDTH,IBUGA3,IERROR)
11529      1                IANS,IWIDTH,IBUGA3,IERROR)
11538      1                IANS,IWIDTH,IBUGA3,IERROR)
11547      1                IANS,IWIDTH,IBUGA3,IERROR)
11556      1                IANS,IWIDTH,IBUGA3,IERROR)
11565      1                IANS,IWIDTH,IBUGA3,IERROR)
11574      1                IANS,IWIDTH,IBUGA3,IERROR)
11583      1                IANS,IWIDTH,IBUGA3,IERROR)
11592      1                IANS,IWIDTH,IBUGA3,IERROR)
11601      1                IANS,IWIDTH,IBUGA3,IERROR)
11610      1                IANS,IWIDTH,IBUGA3,IERROR)
11619      1                IANS,IWIDTH,IBUGA3,IERROR)
11628      1                IANS,IWIDTH,IBUGA3,IERROR)
11637      1                IANS,IWIDTH,IBUGA3,IERROR)
11646      1                IANS,IWIDTH,IBUGA3,IERROR)
11655      1                IANS,IWIDTH,IBUGA3,IERROR)
11664      1                IANS,IWIDTH,IBUGA3,IERROR)
11679      1                IBUGA3,ISUBRO,IERROR)
11686             WRITE(ICOUT,301)IERROR
11691           IF(IERROR.EQ.'YES')GOTO9000
11712       SUBROUTINE DPSIIS(ISTART,IW,NW,IHOUT,NOUT,IBUGA3,IERROR)  argument
11737       CHARACTER*4 IERROR
11753       IERROR='NO'
11825      1IPREC,IFOUND,IERROR)
11862       CHARACTER*4 IERROR
11877       IERROR='NO'
11905       IERROR='YES'
11942       SUBROUTINE DPSIP0(IW,NW,IBUGA3,IERROR)  argument
11955       CHARACTER*4 IERROR
11973       IERROR='NO'
12093       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12154       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12241       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12303       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12344       SUBROUTINE DPSIP1(IW,NW,IBUGA3,IERROR)  argument
12357       CHARACTER*4 IERROR
12372       IERROR='YES'
12454       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12483       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12560       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12591       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12622       SUBROUTINE DPSIPA(IW,NW,IBUGA3,IERROR)  argument
12635       CHARACTER*4 IERROR
12650       IERROR='NO'
12740       IERROR='YES'
12751       CALL DPSIEP(ILEFT,IRIGHT,IW,NW,IBUGA3,IERROR)
12780      1IBUGA3,IERROR)
12813       CHARACTER*4 IERROR
12826       IERROR='NO'
12906       SUBROUTINE DPSISI(IW,NW,IBUGA3,IERROR)  argument
12919       CHARACTER*4 IERROR
12976       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12982       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12988       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
12994       CALL DPSIES(ISTART,ISTOP,IW,NW,IBUGA3,IERROR)
13024       SUBROUTINE DPSIS2(ISTART,ISTOP,IW,NW,IBUGA3,ISUBRO,IERROR)  argument
13048       CHARACTER*4 IERROR
13069       IERROR='NO'
13079       WRITE(ICOUT,52)IBUGA3,ISUBRO,IERROR
13123      1IBUGA3,IERROR)
13124       IF(IERROR.EQ.'YES'.OR.IVALID.EQ.'NO')GOTO9000
13142       CALL DPSIES(JMIN,JMAX,IW,NW,IBUGA3,IERROR)
13145       CALL DPSIES(JMIN,JMAX,IW,NW,IBUGA3,IERROR)
13169      1IBUGA3,IERROR)
13170       IF(IERROR.EQ.'YES'.OR.IVALID.EQ.'NO')GOTO9000
13175      1IBUGA3,IERROR)
13176       IF(IERROR.EQ.'YES'.OR.IVALID.EQ.'NO')GOTO9000
13203       CALL DPCOIH(IRES,IHOUT,NOUT,IVALID,IBUGA3,ISUBRO,IERROR)
13213       CALL DPSIES(JMIN,JMAX,IW,NW,IBUGA3,IERROR)
13224       CALL DPSIIS(ISTART,IW,NW,IHOUT,NOUT,IBUGA3,IERROR)
13246       CALL DPSIES(JMIN,JMAX,IW,NW,IBUGA3,IERROR)
13249       CALL DPSIES(JMIN,JMAX,IW,NW,IBUGA3,IERROR)
13273      1IBUGA3,IERROR)
13274       IF(IERROR.EQ.'YES'.OR.IVALID.EQ.'NO')GOTO9000
13279      1IBUGA3,IERROR)
13280       IF(IERROR.EQ.'YES'.OR.IVALID.EQ.'NO')GOTO9000
13300       CALL DPCOIH(IRES,IHOUT,NOUT,IVALID,IBUGA3,ISUBRO,IERROR)
13310       CALL DPSIES(JMIN,JMAX,IW,NW,IBUGA3,IERROR)
13321       CALL DPSIIS(ISTART,IW,NW,IHOUT,NOUT,IBUGA3,IERROR)
13343       CALL DPSIES(JMIN,JMAX,IW,NW,IBUGA3,IERROR)
13346       CALL DPSIES(JMIN,JMAX,IW,NW,IBUGA3,IERROR)
13362       WRITE(ICOUT,9012)IBUGA3,ISUBRO,IERROR
13376      1ISKIP,IFOUND,IERROR)
13415       CHARACTER*4 IERROR
13430       IERROR='NO'
13449       IERROR='YES'
13545      1                  IBUGA2,IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
13595       CHARACTER*4 IERROR
13676       IERROR='NO'
13789      1            IBUGA2,IERROR)
13805           IERROR='YES'
13842      1            IBUGA3,IBUGQ,ISUBRO,IFOUND,IERROR)
13843       IF(IERROR.EQ.'YES')GOTO9000
13905           IERROR='YES'
13954      1              IBUGA3,ISUBRO,IFOUND,IERROR)
13955         IF(IERROR.EQ.'YES')GOTO9000
13997      1                ISUBRO,IBUGA3,IERROR)
14004      1                ISUBRO,IBUGA3,IERROR)
14029      1              IBUGA2,IBUGA3,ISUBRO,IERROR)
14072      1                IBUGA3,ISUBRO,IFOUND,IERROR)
14073           IF(IERROR.EQ.'YES')GOTO9000
14109      1                  ISUBRO,IBUGA3,IERROR)
14116      1                  ISUBRO,IBUGA3,IERROR)
14143      1                IBUGA2,IBUGA3,ISUBRO,IERROR)
14222         CALL DISTIN(X1,NLOCAL,IWRITE,XTEMP2,NDIST,IBUGA3,IERROR)
14295      1             IBUGA3,ISUBRO,IERROR)
14326      1                      ISUBRO,IBUGA3,IERROR)
14333      1                      ISUBRO,IBUGA3,IERROR)
14353      1                  IBUGA2,IBUGA3,ISUBRO,IERROR)
14383      1                      ISUBRO,IBUGA3,IERROR)
14390      1                      ISUBRO,IBUGA3,IERROR)
14410      1                  IBUGA2,IBUGA3,ISUBRO,IERROR)
14444      1                      ISUBRO,IBUGA3,IERROR)
14451      1                      ISUBRO,IBUGA3,IERROR)
14471      1                  IBUGA2,IBUGA3,ISUBRO,IERROR)
14509      1                      ISUBRO,IBUGA3,IERROR)
14516      1                      ISUBRO,IBUGA3,IERROR)
14536      1                  IBUGA2,IBUGA3,ISUBRO,IERROR)
14578      1                      ISUBRO,IBUGA3,IERROR)
14585      1                      ISUBRO,IBUGA3,IERROR)
14605      1                  IBUGA2,IBUGA3,ISUBRO,IERROR)
14651      1                      ISUBRO,IBUGA3,IERROR)
14658      1                      ISUBRO,IBUGA3,IERROR)
14678      1                  IBUGA2,IBUGA3,ISUBRO,IERROR)
14696       IF(IERROR.EQ.'YES')THEN
14710         WRITE(ICOUT,9012)IFOUND,IERROR
14726      1                  ISUBRO,IBUGA3,IERROR)
14767       CHARACTER*4 IERROR
14829       IERROR='NO'
14896         IERROR='YES'
14911       IERROR='YES'
14931      1            ISUBRO,IBUGA3,IERROR)
14932       IF(IERROR.EQ.'YES')GOTO9000
15155      1            ISUBRO,IBUGA3,IERROR)
15287      1            ISUBRO,IBUGA3,IERROR)
15309      1            ISUBRO,IBUGA3,IERROR)
15329         WRITE(ICOUT,9013)IERROR,STATVA,STATCD,PVAL
15341      1                  ISUBRO,IBUGA3,IERROR)
15404       CHARACTER*4 IERROR
15436       IERROR='NO'
15488         IERROR='YES'
15513       CALL MEAN(X,N,IWRITE,XMEAN,IBUGA3,IERROR)
15514       CALL SD(X,N,IWRITE,XSD,IBUGA3,IERROR)
15533       CALL MAXIND(X,N,IWRITE,PSTAMV,XINDMX,ISUBRO,IBUGA3,IERROR)
15534       CALL MININD(X,N,IWRITE,PSTAMV,XINDMN,ISUBRO,IBUGA3,IERROR)
15559      1              IBUGA3,ISUBRO,IERROR)
15560         IF(IERROR.EQ.'YES')GOTO9000
15565           CALL MEAN(TEMP2,N,IWRITE,XMEAN2,IBUGA3,IERROR)
15566           CALL SD(TEMP2,N,IWRITE,XSD2,IBUGA3,IERROR)
15579      1              IBUGA3,ISUBRO,IERROR)
15580         IF(IERROR.EQ.'YES')GOTO9000
15595             IERROR='YES'
15605      1                XPERC,IBUGA3,IERROR)
15610         CALL DPGOF8(TEMP1,NSIM,STATVA,PVAL,IDIR,IBUGA3,ISUBRO,IERROR)
15623             IERROR='YES'
15690               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15700               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15710               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15720               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15788               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15798               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15808               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15818               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15886               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15896               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15906               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15916               AVAL=LININ3(X1,Y1,X2,Y2,X3,IBUGA3,ISUBRO,IERROR)
15956         WRITE(ICOUT,9012)IBUGA3,IERROR
15974      1                  ISUBRO,IBUGA3,IERROR)
16005       CHARACTER*4 IERROR
16068         IERROR='YES'
16077         IERROR='YES'
16098      1                  IBUGG2,IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
16123       CHARACTER*4 IERROR
16173       IERROR='NO'
16266      1            IBUGG3,IBUGQ,ISUBRO,IFOUND,IERROR)
16267       IF(IERROR.EQ.'YES')GOTO9000
16299      1            IBUGG3,ISUBRO,IFOUND,IERROR)
16300       IF(IERROR.EQ.'YES')GOTO9000
16315      1            Y,X,D,NPLOTP,NPLOTV,IBUGG3,ISUBRO,IERROR)
16329         WRITE(ICOUT,9012)IFOUND,IERROR,IHIGH,ISIZE
16349      1                  Y2,X2,D2,N2,NPLOTV,IBUGG3,ISUBRO,IERROR)
16372       CHARACTER*4 IERROR
16440         IERROR='YES'
16458       IERROR='YES'
16497         IERROR='YES'
16505         IERROR='YES'
16545         CALL MEDIAN(TEMP,NI,IWRITE,TEMP2,MAXOBV,XMED,IBUGG3,IERROR)
16556      1              IERROR)
16595         WRITE(ICOUT,9012)NUMSET,N2,NI,NUMV2,AN,IERROR
16607       SUBROUTINE DPSMAL(X,N,NMIN,XOUT,NOUT,ISUBRO,IBUGA3,IERROR)  argument
16641       CHARACTER*4 IERROR
16659       IERROR='NO'
16688         IERROR='YES'
16736         WRITE(ICOUT,9012)IERROR,NOUT
16753      1IBUGA3,IERROR)
16850       CHARACTER*4 IERROR
16876       IERROR='NO'
16942       IERROR='YES'
16991       IERROR='YES'
17007       IERROR='YES'
17024       IERROR='YES'
17040       IERROR='YES'
17057       IERROR='YES'
17073       IERROR='YES'
17090       IERROR='YES'
17107       IERROR='YES'
17231       IERROR='YES'
17307       IERROR='YES'
17466       IERROR='YES'
17722       CALL DP3RSR(Y,TEMP,N,PRED2,RES2,IBUGA3,IERROR)
18008       WRITE(ICOUT,9012)N,IBUGA3,IERROR
18029       SUBROUTINE DPSMOO(IBUGA2,IBUGA3,IBUGQ,IFOUND,IERROR)  argument
18060       CHARACTER*4 IERROR
18104       IERROR='NO'
18700      1IERROR)
18701       IF(IERROR.EQ.'YES')GOTO9000
18718      1ISUBN1,ISUBN2,MESSAG,IANS,IWIDTH,ILOCV,IERROR)
18719       IF(IERROR.EQ.'YES')GOTO9000
18759       IERROR='YES'
18824       CALL DPSUBS(NIOLD,ILOCS,NS,IBUGQ,IERROR)
18831      1NLOCAL,ILOCS,NS,IBUGQ,IERROR)
18868       IERROR='YES'
18988       IERROR='YES'
19027       IERROR='YES'
19066       IERROR='YES'
19117      1IBUGA3,IERROR)
19143      1IANS,IWIDTH,ILOCN,IBUGA3,IERROR)
19169       WRITE(ICOUT,9016)IFOUND,IERROR