program normal

      integer la,n
      real p1,p2,p3
      character fyle*10


      print*, 'enter file name'

      read(*,'(a10)'), fyle

      print*, 'enter # points'

      read*, n

      open(unit=20,file=fyle)
      open(unit=21,file='norml.out')

      do 10 i=1,n

      read(20,*) la,p1,p2,p3

      p1=p1*0.667

      p2=p2*1.33

      p3=p3*1.81

      write(21,*) la,p1,p2,p3

   10 continue

      close(20)
      close(21)

      stop
      end