URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-21.f] - Blame information for rev 739

Line No.	Rev	Author	Line
1	694	jeremybenn	`MODULE LES3D_DATA`
2			`DOUBLE PRECISION,ALLOCATABLE,DIMENSION(:,:,:) ::`
3			`> P, T, H`
4			`DOUBLE PRECISION,ALLOCATABLE,DIMENSION(:,:,:,:) ::`
5			`> HF`
6			`DOUBLE PRECISION,ALLOCATABLE,DIMENSION(:,:,:,:,:) ::`
7			`> Q`
8			`END MODULE LES3D_DATA`
9			`USE LES3D_DATA`
10			`DO K = 1, KMAX - 1`
11			`DO J = 1, JMAX - 1`
12			`DO I = 1, I2`
13			`T(I,J,K) = (EI - HF(I,J,K,1)) / HF(I,J,K,3)`
14			`ENDDO`
15			`P(1:I2,J,K) = Q(1:I2,J,K,1,M) * HF(1:I2,J,K,4) * T(1:I2,J,K)`
16			`IF(ISGSK .EQ. 1) H(1:I2,J,K) =`
17			`> (Q(1:I2,J,K,5,M) + P(1:I2,J,K))`
18			`END DO`
19			`ENDDO`
20			`END`
21
22			`! { dg-final { cleanup-modules "les3d_data" } }`