| 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 |