PROGRAM GP2DIMAD
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      CHARACTER*80 CH80
C
      E0=250D0
      CALL GETARG(1,CH80)
      READ(CH80,*,ERR=9999,END=9999) E0
 9999 CONTINUE
C     WRITE(6,*) E0
C
      IC=0
 1000 CONTINUE
        READ(5,*,ERR=1000,END=1999) E,XP,YP,Z,X,Y
        IC=IC+1
        X=X*1D-9
        Y=Y*1D-9
        Z=Z*1D-6
        DPP=(E-E0)/E0
        WRITE(6,'(6(1X,G13.6))') X,XP,Y,YP,Z,DPP
        GOTO 1000
 1999 CONTINUE
C     
C      WRITE(6,*) '# ',IC,' RECORDS READ'
C
      END