您所在位置：主题：[讨论]简单的置零操作，如何提高其效率？
cacar
[专家分：0] 发布于 2011-10-13 10:09:00
发现程序70%的执行时间都消耗在这个zeroit上面，有什么方法可以提高其执行效率呢？
SUBROUTINE ZEROIT( A, LENGTH )
C
C ZEROS A REAL ARRAY -A- HAVING -LENGTH- ELEMENTS
C
REAL A(*)
C
DO 10 L = 1, LENGTH
A( L ) = 0.0
10 CONTINUE
C
RETURN
END
SUBROUTINE ZEROIT( A, LENGTH )
C
C ZEROS A REAL ARRAY -A- HAVING -LENGTH- ELEMENTS
C
REAL A(*)
C
DO 10 L = 1, LENGTH
A( L ) = 0.0
10 CONTINUE
C
RETURN
END