dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/dp9.F

2601       NUMSET=0
2604       NUMSET=NUMSET+1
2605       XIDTEM(NUMSET)=NUMSET
2610       NUMSET=NUMSET+1
2611       XIDTEM(NUMSET)=NUMSET
2621       NUMSET=0
2623       IF(NUMSET.EQ.0)GOTO165
2624       DO170J=1,NUMSET
2628       NUMSET=NUMSET+1
2629       XIDTEM(NUMSET)=X(I)
2631       CALL SORT(XIDTEM,NUMSET,XIDTEM)
2634       XID2=XIDTEM(NUMSET)
2638       IF(NUMSET.EQ.0)WRITE(ICOUT,191)
2640       IF(NUMSET.EQ.0)CALL DPWRST('XXX','BUG ')
2641       IF(NUMSET.EQ.0)GOTO9000
2642       IF(NUMSET.EQ.0)IERROR='YES'
2644       IF(NUMSET.EQ.N)GOTO1000
2846       NUMSM1=NUMSET-1
2863       ANUMSE=NUMSET
2867       DO2100ISET=1,NUMSET
2966         WRITE(ICOUT,9012)NUMSET,N2,NUMV2,NI,IERROR
2980         DO9050I=1,NUMSET
5826       NUMSET=0
5828          IF(NUMSET.GE.1)THEN
5829             DO2300J=1,NUMSET
5833          NUMSET=NUMSET+1
5834          DISTX(NUMSET)=X1(I)
5837       IF(NUMSET.EQ.0.OR.NUMSET.EQ.N1)THEN
5851          WRITE(ICOUT,2209)NUMSET
5893          DO3410ISET=1,NUMSET
16230       CALL DISTIN(X,N,IWRITE,XIDTEM,NUMSET,IBUGG3,IERROR)
16231       CALL SORT(XIDTEM,NUMSET,XIDTEM)
16236       DO1000ISET=1,NUMSET
22391         CALL DISTIN(X,N,IWRITE,XIDTEM,NUMSET,IBUGG3,IERROR)
22392         CALL SORT(XIDTEM,NUMSET,XIDTEM)
22395         DO700ISET=1,NUMSET
26468         NUMSET=1
26472         NUMSET=0
26474           IF(NUMSET.EQ.0)GOTO165
26475           DO170J=1,NUMSET
26479           NUMSET=NUMSET+1
26480           XIDTEM(NUMSET)=X(I)
26482         CALL SORT(XIDTEM,NUMSET,XIDTEM)
26485         XID2=XIDTEM(NUMSET)
26491           NUMSET=2
26496           NUMSET=3
26502           NUMSET=4
26505         XID2=XIDTEM(NUMSET)
26508       IF(NUMSET.EQ.0)THEN
26516       ELSEIF(NUMSET.EQ.N)THEN
26543         ANUMSE=NUMSET
26551         IF(NUMSET.EQ.2)AN=REAL(N+N2Z)
26552         IF(NUMSET.EQ.3)AN=REAL(N+N2Z+N3)
26553         IF(NUMSET.EQ.4)AN=REAL(N+N2Z+N3+N4)
26554         ANUMSE=NUMSET
26566       IF(NUMSET.EQ.1)THEN
26570         IMAX=NUMSET-1
26589         DO400ISET=1,NUMSET
26603         IF(NUMSET.GE.2)NIMAX=MAX(NIMAX,N2Z)
26604         IF(NUMSET.GE.3)NIMAX=MAX(NIMAX,N3)
26605         IF(NUMSET.GE.4)NIMAX=MAX(NIMAX,N4)
26661       DO1110ISET=1,NUMSET
27370         WRITE(ICOUT,9012)ICASPL,N,NUMSET,N2,IERROR