2 ! { dg
-options
"-Ofast -fwrapv" }
3 ! { dg
-additional
-options
"-march=broadwell" { target x86_64
-*-* i?
86-*-* } }
4 SUBROUTINE ECPDRA
(IC4C
,FP
,FQ
,G
)
5 IMPLICIT DOUBLE PRECISION (A
-H
,O
-Z
)
6 DIMENSION FP
(*),FQ
(*),G
(*)
7 DIMENSION CKLU
(23,12,12)
16 IF(ABS
(CKLTEM
).GT
.TOL
) SUM
= SUM
+FP
(N
)*CKLTEM
18 IF(ABS
(CKLTEM
).GT
.TOL
) SUM
= SUM
+FQ
(N
)*CKLTEM