Lines Matching refs:NBO
56 COMMON /CIBITS/ NMOS,LAB,NELEC,NBO(3) local
84 NBO(1)=NCLOSE
85 NBO(2)=NOPEN-NCLOSE
86 NBO(3)=NORBS-NOPEN
87 MINEAR=NBO(2)*NBO(1)+NBO(3)*NOPEN
93 CALL DERI0 (EIGS,NORBS,SCALAR,DIAG,FRACT,NBO)
142 50 WRITE(6,'(I3,6F12.6)')I,(FMOOFF(J),J=(I-1)*NBO(2)+1,I*NBO(2)
147 K=NCLOSE*NBO(2)
151 1 (FMOOFF(J+K),J=(I-1)*NBO(3)+1,MIN(6+(I-1)*NBO(3),I*NBO(3)))
152 K=NCLOSE*NBO(2)+NBO(3)*NCLOSE
157 DO 70 I=1,MIN(6,NBO(3))
159 1 (FMOOFF(J+K),J=(I-1)*NBO(2)+1,MIN((I-1)*NBO(2)+6,I*NBO(2)))