        PROGRAM PROD
c
c Take element by element product of two single column data files
c

        real*8 x1,y1,e1,x2,y2,e2
        character*60 inf1,inf2,outf
        integer i,j

        write (*,'(T5,A,$)') 'First input file  : '
        read(*,'(A)') inf1
        write (*,'(T5,A,$)') 'Second input file : '
        read(*,'(A)') inf2
        write (*,'(T5,A,$)') 'Output file  : '
        read(*,'(A)') outf

        open (unit=10,file=inf1,status='old')
        open (unit=20,file=inf2,status='old')
        open (unit=30,file=outf,status='unknown')

        i = 1

        do while (i==1)
           read (10,*,err=10) x1,y1,e1
           read (20,*) x2,y2,e2
           write (30,'(3G12.4)') x1,y1*y2,e1
        end do

 10     close (10)
        close (20)
        close (30)

        STOP
        END









