4189       SUBROUTINE BSWAP(KK,NSAM,NREPR,DYSMA,DYSMB,BETER,DYS,SKY,S,IFLAG,  argument
4218       DIMENSION DYS(*)
4259           CMD=DYSMA(J)-DYS(NJAJ)
4274         IF(DYS(NJN).LT.DYSMA(J))DYSMA(J)=DYS(NJN) 
4333           IF(DYS(NJAJ).GE.DYSMA(J))THEN
4334             IF(DYS(NJAJ).GE.DYSMB(J))GO TO 62 
4335             DYSMB(J)=DYS(NJAJ)
4338             DYSMA(J)=DYS(NJAJ)
4348           WRITE(ICOUT,117)I,DYS(I),DYSMA(I),DYSMB(I)
4370             IF(DYS(NJAJ).NE.DYSMA(J))THEN
4371               IF(DYS(NKJ).LT.DYSMA(J))DZ=DZ-DYSMA(J)+DYS(NKJ)
4374               IF(DYS(NJAJ).LT.SMALL)SMALL=DYS(NKJ)
4406       SUBROUTINE DYSTA(NSAM,JPP,NSEL,X,DYS,NDYST,AMISS,JHALT,  argument
4447       DIMENSION DYS(*)
4477       DYS(1)=0.0
4520               DYS(NLK)=0.0
4524               DYS(NLK)=SQRT(CLK*(PP/RPRES)) 
4526               DYS(NLK)=CLK*(PP/RPRES) 
4536           WRITE(ICOUT,9057)I,DYS(I)
4564       SUBROUTINE DYSTAP(NN,JPP,MAXNN,MAXPP,X,DYS,NDYST,AMISS,JHALT,  argument
4605       DIMENSION DYS(*)
4629       DYS(1)=0.0
4670             DYS(NLK)=0.0
4674             DYS(NLK)=SQRT(CLK*(PP/RPRES)) 
4676             DYS(NLK)=CLK*(PP/RPRES) 
4686           WRITE(ICOUT,9057)I,DYS(I)
4695      1                 AMISS,NREPR,NSEL,DYS,X,NR,NAFS,  argument
4742       DIMENSION DYS(*)
5028                IF(DYS(NPAB).GE.RATT(KA))GO TO 110
5030             RATT(KA)=DYS(NPAB)
5271      1                 DYS,NCLUV,NELEM,JPP,MAXNN,MAXPP,X,JDYSS,NSTAN,  argument
5315       DIMENSION DYS(*)
5355             IF(DYS(NJAJ).GE.DSMAL)GO TO 110 
5356             DSMAL=DYS(NJAJ) 
5405           TTT=TTT+DYS(NJM)
5406           IF(DYS(NJM).GT.RADUS(NUMCL))RADUS(NUMCL)=DYS(NJM)
5583             IF(SEPAR(K).GT.DYS(MEVJ))SEPAR(K)=DYS(MEVJ)
5632               IF(DYS(JNDZ).LT.AJB)AJB=DYS(JNDZ) 
5635               IF(DYS(JNDZ).GT.AJA)AJA=DYS(JNDZ) 
5777       SUBROUTINE SUPCL(DYS,KKA,KKB,AREST,NER)  argument
5786       DIMENSION DYS(*)
5797           IF(DYS(MLJ).GT.AREST)AREST=DYS(MLJ) 
5803       SUBROUTINE AVERL(NN,KWAN,NER,BAN,DYS,  argument
5817       DIMENSION DYS(*)
5863       SMALD=DYS(NEJ)*1.1+1.0
5871           IF(DYS(NLJ).GT.SMALD)GO TO 110
5872           SMALD=DYS(NLJ)
5920           DNEW=DYS(NAQ)
5921           IF(DYS(NBQ).LT.DNEW)DNEW=DYS(NBQ)
5922           DYS(NAQ)=DNEW
5930           DNEW=DYS(NAQ)
5931           IF(DNEW.LT.DYS(NBQ))DNEW=DYS(NBQ)
5932           DYS(NAQ)=DNEW
5945           D=FA*DYS(NAQ)*DYS(NAQ) + FB*DYS(NBQ)*DYS(NBQ)
5946           D=D + FC*DYS(NAB)*DYS(NAB)
5947           DYS(NAQ)=SQRT(D)
5962           D=FA*DYS(NAQ)*DYS(NAQ) + FB*DYS(NBQ)*DYS(NBQ)
5963           D=D + FC*DYS(NAB)*DYS(NAB)
5964           DYS(NAQ)=SQRT(D)
5972           DYS(NAQ)=(DYS(NAQ) + DYS(NBQ))/2.0
5981           D=(DYS(NAQ)*DYS(NAQ) + DYS(NBQ)*DYS(NBQ))/2.0
5982           D=D - (DYS(NAB)*DYS(NAB))/4.0
5983           DYS(NAQ)=SQRT(D)
5995           DYS(NAQ)=FA*DYS(NAQ)+FB*DYS(NBQ)
6444       SUBROUTINE SPLYT(NN,KWAN,NER,BAN,DYS,   argument
6460       DIMENSION DYS(*)
6508       IF(DYS(K).GT.CS)CS=DYS(K)
6525         BAN(JB)=DYS(JAB)
6538           SD=SD+DYS(NLJ)
6573           DA=DA+DYS(NLJ)
6581           DB=DB+DYS(NLJ)
6646       CALL SUPCL(DYS,JA,JB,AREST,NER)