情報落ち

program underflow2

! Description:

!

! Author: am

!

! Host: aofd30

! Directory: /work2/am/12.Work11/21.Climatology/11.jcope_daily_cut/src

!

! Revision history:

!  2011-05-05 10:15

!    Initial Version

  real :: a1=250000.0

  real :: a2=     0.001

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

!  write(*,*)''

  sum=0.0

  print *,'a1=',a1

  print *,'a2=',a2

  sum=a1

  do i=1,100

    sum=sum+a2

    if(mod(i,20) == 0)then

      print *,'i=',i,'  sum=',sum

    endif

  enddo

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

  write(*,*)

end program underflow2