OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [20020307-1.f] - Blame information for rev 316

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

Line No. Rev Author Line
1 302 jeremybenn
c { dg-do compile }
2
      SUBROUTINE SWEEP
3
      PARAMETER(MAXDIM=4,MAXVEC=4**3*8,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

powered by: WebSVN 2.1.0

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