File: pr47574.f90

package info (click to toggle)
gcc-arm-none-eabi 15%3A12.2.rel1-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 959,712 kB
  • sloc: cpp: 3,275,382; ansic: 2,061,766; ada: 840,956; f90: 208,513; makefile: 76,132; asm: 73,433; xml: 50,448; exp: 34,146; sh: 32,436; objc: 15,637; fortran: 14,012; python: 11,991; pascal: 6,787; awk: 4,779; perl: 3,054; yacc: 338; ml: 285; lex: 201; haskell: 122
file content (36 lines) | stat: -rw-r--r-- 889 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
! { dg-do compile }
! PR 47574 - this used to ICE.
      SUBROUTINE EXCH2_UV_AGRID_3D_RL( uPhi, vPhi, myNz )

      IMPLICIT NONE

      INTEGER, parameter :: sNx=32, sNy=32, OLx=4, OLy=4

      INTEGER myNz
      Real(8) uPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1)
      REAL(8) vPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1)

      INTEGER i,j,k,bi,bj
      REAL(8) uLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
      REAL(8) vLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
      REAL(8) negOne

      negOne = 1.
        DO k = 1,myNz
         DO j = 1-OLy,sNy+OLy
          DO i = 1-OLx,sNx+OLx
           uLoc(i,j) = uPhi(i,j,k,bi,bj)
           vLoc(i,j) = vPhi(i,j,k,bi,bj)
          ENDDO
         ENDDO
         DO j = 1-OLy,sNy+OLy
          DO i = 1,OLx
           uPhi(1-i,j,k,bi,bj) = vLoc(1-i,j)
           vPhi(1-i,j,k,bi,bj) = uLoc(1-i,j)*negOne
          ENDDO
         ENDDO

        ENDDO

      END