第十一章 采用Fortran编程提取系统时间.docxVIP

采用Fortran编程提取系统时间文一猪编程中我们往往需要提取系统时间，从而确定程序或子程序的运行时间。我想在这里上有几个目的，比如说要对程序进行优化，当然你得先优化比较费时的子程序，或者你要直接从实际计算上计算出程序的复杂度，简单说就是计算时间同计算量的函数关系。在这里给出关于采用Fortran95语言编写的提取系统时间程序。Example1是网上帖子里的程序，不过该程序采用的time程序似乎不是Fortran95的标准程序。在Example2给出的是自编的采用模块化编程调用cpu_time程序，使用F95的朋友可以很容易地将该程序嵌入到你们的程序中使用。Mar. 14, 2013例子1：program TimeNow character*8 :: now integer :: hh,mm,ss call time (now) ! 读系统时间 write(*,*) now ! 写出时间字符串 ! 用字符变量now作为内部文件，从中将时、分、秒作为整数读出 read(now,(I2,1x,I2,1x,I2)) hh,mm,ss ! 字符转换为 write(*,*) hh,mm,ss ! 写出时、分、秒的整数值 stopend program TimeNow帖子：/club/showtxt.asp?id=70407/post