real an0(36,48,64,3),an1(36,48,64,3),an2(36,48,64,3),
     $     diff3 (36,48,64,3),difflb(36,64),fphi_0(36,64),
     $     philb0(36,64),philb1(36,64)
      integer ken1(64) 
      open (13,status='old',form='formatted',file='f2_0_Mar_fm')
      open ( 2,status='new',form='unformatted',file='f2_0_Mar_19')
      read (13,1013) an0
      read (13,1013) an1
      read (13,1013) an2
      read (13,1013) diff3
      read (13,1013) philb0
      read (13,1013) philb1
      read (13,1013) difflb
      read (13,1013) fphi_0
      read (13,2013) ken1 
      close (13)
 1013 format(10e13.6)
 2013 format(10i6)
      write (2) an0
      write (2) an1
      write (2) an2
      write (2) diff3
      write (2) philb0
      write (2) philb1
      write (2) difflb
      write (2) fphi_0
      write (2) ken1 
      close (2)
      stop 
      end