blob: f6672224907f397dcc81237c01ed0016ab4bab74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { 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
|
