1      SUBROUTINE ORDORB(IORBTP,IORBCD)
2      LOGICAL MASWRK
3      DIMENSION IORBTP(12,12)
4      DIMENSION IORBCD(12)
5      DIMENSION NSYMTP(12,8)
6      IF (MASWRK) WRITE(IW) K,NORB
7      DO 280 I=1,NFZV
8         IORBCD(K+I) = 3
9  280 CONTINUE
10      DO 420 I = 1,NTPS
11         DO 400 J = 1,8
12            NSYMTP(I,J) = 0
13  400    CONTINUE
14         DO 410 J=1,NORB
15            IORBTP(I,J) = 0
16  410    CONTINUE
17  420 CONTINUE
18      CALL RDRSYM(ICODE,NSYMTP,NSYM)
19 9055 FORMAT(I5)
20      END
21