      program ex1
c
c     $B?9@nLwBg(B , 22980138
c
      integer :: i
      real*4 :: x=0.0e0,e1,k1
      real*8 :: y=0.0d0,e2,k2

c   $BC1@:EY$HG\@:EY$N7W;;(B

      do i=1,10000
         x=x+0.01e0
         y=y+0.01d0
      enddo

      write(6,*) '     $BC1@:EY(B   ',x
      write(6,*) '     $BG\@:EY(B   ',y

c   $B$=$l$>$l$N@dBP8m:9(B

      e1=abs(x-1.0e2)
      e2=abs(y-1.0d2)
      
      write(6,*) '$BC1@:EY$N@dBP8m:9(B ',e1
      write(6,*) '$BG\@:EY$N@dBP8m:9(B ',e2

c   $B$=$l$>$l$NAjBP8m:9(B
 
      k1=e1/1.0e2
      k2=e2/1.0d2
      
      write(6,*) '$BC1@:EY$NAjBP8m:9(B ',k1
      write(6,*) '$BG\@:EY$NAjBP8m:9(B ',k2

      end program ex1
