REAL XVAL,YVAL
      INTEGER xaxis,yaxis
      HUND=-100.0
      WRITE(5,100)
  100 FORMAT(1X,'X=1 or 2?')
C     1ST COLUMN OR 2ND COLUMN FOR X AXIS
      READ(6,101)xaxis
  101 FORMAT(I1)
      WRITE(5,102)
  102 FORMAT(1X,'Y=1, 2, 3, ...8?',/,1X,'BR-H, BPHI-H, BZ-H,
     + BPERP-H, BTOT-H, BR-L2, BZ-L2, BTOT-H+L2')
C     WHICH OF THE 8 COLUMNS WILL BE THE Y AXIS
      READ(6,101)yaxis
      N1=(xaxis-1)*8
      N2=8-N1
      N3=(yaxis-1)*7
C     NS IS THE NUMBER OF DIFFERENT VALUES OF THE FIRST COLUMN OF POSSIBLE
C     X AXIS VALUES
C     NSM IS THE NUMBER OF DIFFERENT VALUES OF THE 2ND COLUMN OF POSSIBLE
C     X AXIS VALUES
      READ(20,104)NS,NSM
  104 FORMAT(29(/),1X,2I3)
      NMAX=MAX(NS,NSM)+1
C     NMAX IS THE NUMBER OF DATA POINTS PER CURVE
      NMIN=MIN(NS,NSM)+1
C     NMIN IS THE NUMBER OF CURVES
      WRITE(11,105)NMIN
  105 FORMAT('  1  2',I3)
      WRITE(11,106)
  106 FORMAT('-99')
      DO 160 J=1,NMIN
        DO 150 I=1,NMAX
           READ(20,200,end=150)XVAL,YVAL
           WRITE(11,210)XVAL,YVAL
  150   CONTINUE
      WRITE(11,210)HUND,HUND
  160 CONTINUE
  200 FORMAT(1X,<N1>X,F8.2,<N2>X,5X,<N3>X,F7.3)
  210 FORMAT(2E12.5)
 1000 STOP
      END