blob: a9ee8f19dd7589fd7b729280d022e6f37ca7fe92 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
! { dg-options "-O2 -floop-interchange" }
SUBROUTINE PREPD(ICAST,ICAS,ICASX,ICAS1,ICAS2,NDET,NM,III,IMP,
* CASMIN)
LOGICAL CASMIN
DIMENSION ICAST(NDET,NM),IMP(NM)
IF(CASMIN) THEN
DO K=1,NDET
DO L=1,NM
IF(L.EQ.K-1) ICAST(K,L) = 1
END DO
END DO
END IF
END SUBROUTINE
|