       program ex2
c
c      $B?9@n(B $BLwBg(B , 22980138
c
      real :: x1,y(3),e(3),k(3)
      real(8) :: z,x2
      x1=0.31834e-2

c    $B7W;;J}K!$K$h$k8m:9$N0c$$(B

       y(1)=1.0e0-1.0e0/(sqrt(1.0e0+x1))

       y(2)=(sqrt(1.0e0+x1)-1.0e0)/(sqrt(1.0e0+x1))

       y(3)=x1/((1.0e0+x1)+sqrt(1.0e0+x1))

c    $B??CM(B
      
      x2=0.31834d-2

       z=x2/((1.0d0+x2)+sqrt(1.0d0+x2))

        write(6,*) '$B??CM(B       ',z

c    $B@dBP8m:9!"AjBP8m:9(B
      
      do i=1,3
         e(i)=abs(y(i)-z)
         k(i)=e(i)/z
      enddo

          write(6,*) '$BC1@:EY(B(1)  ',y(1)
          write(6,*) '$BC1@:EY(B(2)  ',y(2)
          write(6,*) '$BC1@:EY(B(3)  ',y(3)

          write(6,*) '$B@dBP8m:9(B(1)' ,e(1)
          write(6,*) '$B@dBP8m:9(B(2)' ,e(2)
          write(6,*) '$B@dBP8m:9(B(3)' ,e(3)

          write(6,*) '$BAjBP8m:9(B(1)' ,k(1)
          write(6,*) '$BAjBP8m:9(B(2)' ,k(2)
          write(6,*) '$BAjBP8m:9(B(3)' ,k(3)

      end program ex2
