OpenCores
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 694

Details | Compare with Previous | View Log

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" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.