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/] [pr39152.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
! { dg-do compile }
2
! { dg-options "-O2" }
3
      SUBROUTINE CASHES(E,HESS,FC,FA,NORB,NPR)
4
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5
      PARAMETER (MXAO=2047)
6
      DIMENSION HESS(NPR),E(NORB,*),FC(*),FA(*)
7
      COMMON /IJPAIR/ IA(MXAO)
8
      COMMON /MCPAR / NFZC,NCORBS,NCI,NORBS,NORBX,NUM
9
      K=0
10
      DO 200 IU = 1,NORB - NCORBS
11
         I = IU + NCORBS
12
         II=IA(I)+I
13
         DO 100 J = 1,NCORBS
14
            IF (I.GT.NORBS) THEN
15
               HESS(K)=FC(II) + FA(II) - E(J,J)
16
            ELSE
17
               HESS(K)=FA(II) - E(I,I) - E(J,J) + FC(JJ) + FA(JJ)
18
            END IF
19
  100    CONTINUE
20
  200 CONTINUE
21
      RETURN
22
      END

powered by: WebSVN 2.1.0

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