dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/dp31.F

10256       XMEAN=CPUMIN
10613           XMEAN=PVAR(1)
10620             CALL TOL2(Y1,NLOCAL,XMEAN,XSD,AN,
10625             CALL TOL2(Y1,NLOCAL,XMEAN,XSD,AN,
10630             CALL TOL(Y1,NLOCAL,XMEAN,XSD,AN,
10654             XMEAN=Y1(IROW)
10659               CALL TOL2(Y1,NLOCAL,XMEAN,XSD,AN,
10664               CALL TOL2(Y1,NLOCAL,XMEAN,XSD,AN,
10669               CALL TOL(Y1,NLOCAL,XMEAN,XSD,AN,
10755             CALL TOL2(Y1,NLOCAL,XMEAN,XSD,AN,
10760             CALL TOL2(Y1,NLOCAL,XMEAN,XSD,AN,
10765             CALL TOL(Y1,NLOCAL,XMEAN,XSD,AN,
10898                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
10903                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
10908                 CALL TOL(TEMP1,NTEMP,XMEAN,XSD,AN,
10944                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
10949                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
10954                 CALL TOL(TEMP1,NTEMP,XMEAN,XSD,AN,
10994                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
10999                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
11004                 CALL TOL(TEMP1,NTEMP,XMEAN,XSD,AN,
11048                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
11053                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
11058                 CALL TOL(TEMP1,NTEMP,XMEAN,XSD,AN,
11106                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
11111                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
11116                 CALL TOL(TEMP1,NTEMP,XMEAN,XSD,AN,
11168                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
11173                 CALL TOL2(TEMP1,NTEMP,XMEAN,XSD,AN,
11178                 CALL TOL(TEMP1,NTEMP,XMEAN,XSD,AN,
11223       SUBROUTINE DPTOL3(X,N,XMEAN,XSD,AN,ANU,  argument
11313         WRITE(ICOUT,53)XMEAN,XSD,ITOLGC,ITOLM2
11316         IF(XMEAN.EQ.CPUMIN)THEN
11334       IF(XMEAN.EQ.CPUMIN .AND. N.LT.2)THEN
11351       IF(XMEAN.EQ.CPUMIN)THEN
11383       IF(XMEAN.EQ.CPUMIN)THEN
11384         CALL MEAN(X,N,IWRITE,XMEAN,IBUGA3,IERROR)
11483       ALOWLM=XMEAN - AK*XSD
11484       AUPPLM=XMEAN + AK*XSD
18906      1                  XMEAN,XSD,XSDM,DEL,
19038       CALL MEAN(X,N,IWRITE,XMEAN,IBUGA3,IERROR)
19041       DEL=XMEAN-AMU
19091         WRITE(ICOUT,9016)XMEAN,XSD,XSDM
21303               CALL MEAN(TEMP1,K,IWRITE,XMEAN,IBUGG3,IERROR)
21304               TEMP2(ICNT)=XMEAN
22031               CALL MEAN(TEMP1,K,IWRITE,XMEAN,IBUGG3,IERROR)
22032               TEMP2(ICNT)=XMEAN
22207           CALL MEAN(TEMP1,K,IWRITE,XMEAN,IBUGG3,IERROR)
22208           COLAVE(ISET2)=XMEAN
22746           CALL MEAN(TEMP1,K,IWRITE,XMEAN,IBUGG3,IERROR)
22747           COLAVE(ISET1)=XMEAN