URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-14.f] - Rev 694
Compare with Previous | Blame | View Log
SUBROUTINE ORDORB(IORBTP,IORBCD) LOGICAL MASWRK DIMENSION IORBTP(12,12) DIMENSION IORBCD(12) DIMENSION NSYMTP(12,8) IF (MASWRK) WRITE(IW) K,NORB DO 280 I=1,NFZV IORBCD(K+I) = 3 280 CONTINUE 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