wrfv2_fire/foo.f

   1       FUNCTION TIMEF()
   2       REAL*8 TIMEF
   3       INTEGER IC, IR
   4       CALL SYSTEM_CLOCK(COUNT=IC, COUNT_RATE=IR)
   5       print*,ic,ir
   6       TIMEF=REAL(IC)/REAL(IR) * 1000.0
   7       END
   8       real*8 timef
   9       print*,timef()
  10       end