桁落ち

program underflow

! Description:

! 

! Author: am

!

! Host: aofd30

! Directory: /work2/am/12.Work11/21.Climatology/08.Area_Ave/src

!

! Revision history:

!  2011-05-05 08:52

!    Initial Version

!

! References

!  http://e-words.jp/w/E6A181E890BDE381A1.html

!  http://www.kab-studio.biz/Programing/JavaA2Z/Word/00000528.html

!  use

!  implicit none

  real a1,a2

  write(*,'(a)')'Program underflow starts.'

!  write(*,*)''

  a1=12.345672

  a2=12.345661

  d=a1-a2

  print '(a,f12.6)','a1 = ',a1

  print '(a,f12.6)','a2 = ',a2

  print *

  print '(a,f12.6)','d = a1-a2 = ',d

  print '(a,e14.6)','d = a1-a2 = ',d

  write(*,'(a)')'Done program underflow.'

  write(*,*)

end program underflow