parameter (nb=36,kgit=48,nk=48,igit=64)
      real an0(nb,kgit,igit,3),an1(nb,kgit,igit,3),
     $     an2(nb,kgit,igit,3),
     $     diff3(nb,kgit,igit,3),difflb(nb,igit),fphi_0(nb,igit),
     $     philb0(nb,igit),philb1(nb,igit)
c----- an0(j,k,i)
      real an0_64(nb,nk,igit,3),an1_64(nb,nk,igit,3),
     $     an2_64(nb,nk,igit,3),
     $     diff3_64(nb,nk,igit,3)
      real an0_64_av(nb,nk,3),an1_64_av(nb,nk,3),
     $     an2_64_av(nb,nk,3),
     $     diff3_64_av(nb,nk,3)
      integer ken1(64) 
      open ( 2,status='old',form='unformatted',file='f2_0_Jan_19')
      open (12,status='new',form='unformatted',file='f2_0_Jan_r8')
      read (2) an0
      read (2) an1
      read (2) an2
      read (2) diff3
      read (2) philb0
      read (2) philb1
      read (2) difflb
      read (2) fphi_0
      read (2) ken1 
      close (2)
      write (12) an0
      write (12) an1
      write (12) an2
      write (12) philb0
      write (12) philb1
      write (12) fphi_0
      write (12) ken1 
      close (12)
      stop 
      end