! { dg-do compile } | |
! { dg-options "-O2 -floop-nest-optimize" } | |
SUBROUTINE STONG(IGAUSS) | |
DIMENSION EXX(6) | |
PARAMETER (MXSH=1000, MXGTOT=5000) | |
COMMON /NSHEL / EX(MXGTOT),CS(MXGTOT),NSHELL | |
100 CONTINUE | |
NSHELL = NSHELL+1 | |
IF(NSHELL.GT.MXSH) THEN | |
RETURN | |
END IF | |
DO 320 I = 1,IGAUSS | |
K = K1+I-1 | |
EX(K) = EXX(I)*SCALE | |
320 CONTINUE | |
IF(TNORM.GT.TOLNRM) THEN | |
STOP | |
END IF | |
DO 460 IG = K1,K2 | |
CS(IG) = FACS*CS(IG) | |
460 CONTINUE | |
GO TO 100 | |
END |