URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20020307-1.f] - Blame information for rev 437

Go to most recent revision | Details | Compare with Previous | View Log


c { dg-do compile }
      SUBROUTINE SWEEP
      PARAMETER(MAXDIM=4,MAXVEC=4**3*8,MAXT=20)
      REAL(KIND=8) B,W1,W2,BNORM,BINV,WT,W0,C1,C2,R1,R2
      DIMENSION B(MAXVEC,0:3),W1(MAXVEC,0:3),W2(MAXVEC,0:3)
      DIMENSION BNORM(MAXVEC),BINV(MAXVEC),WT(MAXVEC),W0(MAXVEC)
      DIMENSION C1(MAXVEC),C2(MAXVEC),R1(MAXVEC),R2(MAXVEC)
      DO 200 ILAT=1,2**IDIM
      DO 200 I1=1,IDIM
      DO 220 I2=1,IDIM
      CALL INTACT(ILAT,I1,I1,W1)
220   CONTINUE
      DO 310 IATT=1,IDIM
      DO 311 I=1,100
      WT(I)=ONE + C1(I)*LOG(EPS+R1(I))
      IF( R2(I)**2 .LE. (ONE-WT(I)**2) )THEN
      W0(I)=WT(I)
      ENDIF
311   CONTINUE
310   CONTINUE
200   CONTINUE
      END

Line No.	Rev	Author	Line
1	302	jeremybenn	`c { dg-do compile }`
2			`SUBROUTINE SWEEP`
3			`PARAMETER(MAXDIM=4,MAXVEC=4*38,MAXT=20)`
4			`REAL(KIND=8) B,W1,W2,BNORM,BINV,WT,W0,C1,C2,R1,R2`
5			`DIMENSION B(MAXVEC,0:3),W1(MAXVEC,0:3),W2(MAXVEC,0:3)`
6			`DIMENSION BNORM(MAXVEC),BINV(MAXVEC),WT(MAXVEC),W0(MAXVEC)`
7			`DIMENSION C1(MAXVEC),C2(MAXVEC),R1(MAXVEC),R2(MAXVEC)`
8			`DO 200 ILAT=1,2**IDIM`
9			`DO 200 I1=1,IDIM`
10			`DO 220 I2=1,IDIM`
11			`CALL INTACT(ILAT,I1,I1,W1)`
12			`220 CONTINUE`
13			`DO 310 IATT=1,IDIM`
14			`DO 311 I=1,100`
15			`WT(I)=ONE + C1(I)*LOG(EPS+R1(I))`
16			`IF( R2(I)2 .LE. (ONE-WT(I)2) )THEN`
17			`W0(I)=WT(I)`
18			`ENDIF`
19			`311 CONTINUE`
20			`310 CONTINUE`
21			`200 CONTINUE`
22			`END`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20020307-1.f] - Blame information for rev 437