PROGRAM rewrite
      character*4 s1,s2,s3,s4,s5,s6
      character*80 s
c
      open(8,file='TEM',form='unformatted')
      read(8)p2,p3,p5
      read(8)
      read(8)ist
      close(8)
c
      p4=1-p2
      p1=1.0
      p6=1.0
c
      ip1=int(p1*1000.0)
      ip2=int(p2*1000.0)
      ip3=int(p3*1000.0)
      ip4=int(p4*1000.0)
      ip5=int(p5*1000.0)
      ip6=int(p6*1000.0)
      open(4,file='scr')
      write(4,40)ip1
40    format(i4)
      rewind 4
      read(4,41)s1
41    format(a4)
      do i=1,4
       if(s1(i:i).eq.' ')s1(i:i)='0'
      enddo
      rewind 4
      write(4,40)ip2
      rewind(4)
      read(4,41)s2
      do i=1,4
       if(s2(i:i).eq.' ')s2(i:i)='0'
      enddo
      rewind 4
      write(4,40)ip3
      rewind(4)
      read(4,41)s3
      do i=1,4
       if(s3(i:i).eq.' ')s3(i:i)='0'
      enddo
      rewind 4
      write(4,40)ip4
      rewind(4)
      read(4,41)s4
      do i=1,4
       if(s4(i:i).eq.' ')s4(i:i)='0'
      enddo
      rewind 4
      write(4,40)ip5
      rewind(4)
      read(4,41)s5
      do i=1,4
       if(s5(i:i).eq.' ')s5(i:i)='0'
      enddo
      rewind 4
      write(4,40)ip6
      rewind(4)
      read(4,41)s6
      do i=1,4
       if(s6(i:i).eq.' ')s6(i:i)='0'
      enddo
      close(4)
c
      open(8,file='tem.inp')
      open(81,file='tem.inp.new')
1     read(8,800,err=88,end=88)s
800   format(a80)
      if(s(1:9).eq.'iop(5/45=')s='iop(5/45='//s1//s2//')'
      if(s(1:9).eq.'iop(5/46=')s='iop(5/46='//s3//s4//')'
      if(s(1:9).eq.'iop(5/47=')s='iop(5/46='//s5//s6//')'
      write(81,800)s
      goto 1
88    close(8)
      close(81)
      stop
      end