blob: 9576d8802ca6561ffe1a94fc3f9d737da4a46296 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! { dg-options "-Ofast -frounding-math" }
SUBROUTINE PASSB4 (CC,CH)
DIMENSION CC(IDO,4,L1), CH(IDO,L1,*)
DO 103 I=2,IDO,2
TI4 = CC0-CC(I,4,K)
CI4 = TI1-TI4
CH(I-1,K,4) = CI4
CH(I,K,4) = CI4
103 CONTINUE
END
|