URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-15.f] - Rev 384
Compare with Previous | Blame | View Log
SUBROUTINE ORDORB(IORBTP) LOGICAL MASWRK DIMENSION IORBTP(12,12) DIMENSION NSYMTP(12,8) IF (MASWRK) WRITE(IW) K,NORB DO 420 I = 1,NTPS DO 400 J = 1,8 NSYMTP(I,J) = 0 400 CONTINUE DO 410 J=1,NORB IORBTP(I,J) = 0 410 CONTINUE 420 CONTINUE CALL RDRSYM(ICODE,NSYMTP,NSYM) 9055 FORMAT(I5) END