17 lines
391 B
Fortran
17 lines
391 B
Fortran
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
|