对于较复杂的程序，需要对程序的进程进行控制与观察，进度条不乏是一个程序调适运行的好助手，在程序运行的是后还可以调动眼球注意力，放松大脑皮层。废话少说，经过搜集发现有两种设置程序进度条的方法。
一个主要功能是暂停输出
     program progress
    integer :: i, j
    write(*,'(A)') 'Starting working.'
    do i=1,50
      call sleepqq (10)    ! simulate 1sec of run time
!   write(*,'(A$)') '*'
!   write (*,'($,A)') '*'
   write(*,'(A\)') '*'
    end do
    write(*,'(/A)') 'Done.'
    end

另一个方法是
   program test1
   integer :: n
   character(2) :: percent = '%' // char(13)
   do n = 1,100
        call sleepqq (10)    ! simulate 1sec of run time
        write (*,'(i2,a\)') n, percent
   end do
end

加上时间设定，既可以知道程序运行总时间：
   program test1
   integer :: n
   character(2) :: percent = '%' // char(13)
   integer :: n_p_sec, ia, ie; real :: t                         !!! Variable for timetest
   write(*,'(A)') 'Starting working.'
   call system_clock(count_rate=n_p_sec)!once       !!! timetest 时间间隔dt 间隔/秒
   call system_clock(count=ia)                                !!! timetest 起始时间to
  do n = 1,100
        call sleepqq (10)    ! simulate 1sec of run time
        write (*,'(i2,a\)') n, percent
   end do
   call system_clock(count=ie)                                  !!! timetest 最后时间t1
   t = (ie-ia)/real(n_p_sec)                                          !!! timetest 总时间=(t1-to)/dt
   write(unit=*,fmt=*)  "Time in second:",t                  !!! timetest
   end

以上程序在CVF6.6编译没有问题，没有的朋友可以修改call sleepqq (10) 为
do j=1,100000
end do
进行测试。
此帖为个人Blog的一边文章，欢迎转载！
http://zhousicheng.googlepages.com/a_050

 

楼主提供的连接上不了！另外，我觉得楼主提供的是程序暂停的方法和运行时间的计算方法，没有出现进度条啊．

http://lmlxt.spaces.live.com/

 

程序没有暂停，只是输出的字符串只在本行输出，形成了一行星号，可以相当于是进度条。（问题是，不够漂亮？呵呵，个人觉得够用就好了）

 

恩,不错,挺有创意的!不过楼主提供的连接上不了!

http://lmlxt.spaces.live.com/

 

 

看看先！

 

好东西！正好可以学习一下。

 

学习

 

螺杆泵G型螺杆泵污泥螺杆泵单螺杆泵g系列单螺杆泵上海螺杆泵无极调速螺杆泵卫生螺杆泵螺杆油泵磁力泵多级泵化工泵离心泵螺杆泵厂家

焊接球阀全焊接球阀直埋全焊接球阀埋地全焊接球阀离心泵化工泵化工离心泵多级离心泵不锈钢离心泵氟塑料离心泵
耐腐蚀离心泵管道离心泵上海离心泵螺杆泵厂油泵
上海磁力泵78立式多级泵不锈钢多级泵轻型立式多级泵隔膜计量泵液压隔膜计量泵70电磁隔膜计量泵柱塞计量泵加药计量泵

 

北京私家侦探 上海搬家公司 网站制作