        implicit real*8 (a-h,o-z)
        dimension r(3)
        do 10 i=0,0
c          x=100d0*i
          x=10d+6
c          x=1.40013039d0
c        do 10 j=0,10
c          y=.01d0*j
          y=10d+6
          y=1.73471165d0
c        do 10 k=0,10
c          z=.01d0*k
          z=10d+6
        r(1)=1.457d0
c        r(2)=2.556d0
        r(2)=3.846d0
        r(3)=2.922d0
        call fh2sw(v,r)
c        write(*,*)x,v
        write(*,*)(v-0.0499215506d0)/1.5923182D-6
 10     continue
        stop
        end
