21 lines
487 B
Fortran
21 lines
487 B
Fortran
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
|