1! { dg-options "-O2 -floop-nest-optimize" } 2 3SUBROUTINE EFGRDM(NCF,NFRG,G,RTRMS,GM,IOPT,K1) 4 IMPLICIT DOUBLE PRECISION (A-H,O-Z) 5 DIMENSION G(*),RTRMS(*),GM(*) 6 7 DUM = 0 8 DO I=1,NFRG 9 DO J=1,3 10 IF (IOPT.EQ.0) THEN 11 GM(K1)=G(K1) 12 END IF 13 END DO 14 DO J=1,3 15 JDX=NCF*9+IOPT*9*NFRG 16 DO M=1,3 17 DUM=DUM+RTRMS(JDX+M) 18 END DO 19 GM(K1)=DUM 20 END DO 21 END DO 22 RETURN 23END SUBROUTINE EFGRDM 24 25