c calculates 3-body correlation energies from the He3 CC fit (205 points)
c and 3-body scf energies from the He3 scf fit
      implicit real*8 (a-h,o-z)
      data E2K /315774.65d0/

c      unit=1.d6  ! microhartrees
      unit=E2K   ! kelvins

      write (*,'(a)')'     R1        R2        R3         SCF'
     >// '           corr          TOT'
      read (*,*) n
      do 10 i=1,n
      read (*,*) R1,R2,R3
      call He3 (R1,R2,R3, scf,corr)
      tot=scf+corr
c      write (*,'(3f10.6,3g14.6)') R1,R2,R3, scf,corr,tot
      write (*,'(3f10.6,3f14.6)') R1,R2,R3, scf*unit,corr*unit,tot*unit
 10   continue
      end