Originally posted by mystar at 2009-8-22 14:23:

转场整型，就在mod里转

if (mod (int(a),int(b)) .eq. 0) then
c=1
endif

Originally posted by mystar at 2009-8-22 14:08:
a  b  用整型

a  b  的余数为0

C234567
      program test
      real a, b, c, d, e
C     integer f
      a = 2.5
      b = 0.4
      c = a / b
      d = c / int(c)
      e = c - int(c)
C     f = mod(int(a), int(b))
      if (d > 1.) write(*,*) d
      if (e > 0.) write(*,*) e
C     write(*,*) f
      end