nikankan_2004 发表于 2005-3-27 22:09:20

yp51920 发表于 2005-3-29 18:08:07

Re:FORTRAN里如何实现计时器功能？？

DO I=1,N         !N为读入数据的次数
call gettim(ih0,im0,is0,iss0)
DO WHILE(ITIME<=10.0)
call gettim(ih1,im1,is1,iss1)
itime=iss1-iss0+100*(is1-is0+60*(im1-im0+60*(ih1-ih0)))
ENDDO
READ(*,*)
ENDDO

上面这种格式可以实现，看你自己具体需要怎么做改动就行
页: [1]
查看完整版本: FORTRAN里如何实现计时器功能？？