Lines Matching refs:NOSIM
1311 SUBROUTINE SOLLIN(NCSIM,NOSIM,BCVECS,BOVECS,CREF,CMO,INDXCI,
1360 IF ( NOSIM .GT.0 ) THEN
1366 CALL SOLLNO(NOSIM,BOVECS,CREF,CMO,INDXCI,
1622 SUBROUTINE SOLLNO(NOSIM,BOVECS,CREF,CMO,INDXCI,
1704 CALL OUTPUT(SVEC(JSOVEC,1),1,NWOPPT,1,NOSIM,
1705 * NSVEC,NOSIM,1,LUPRI)
1712 KTEXY = KRXYO + NOSIM*NNORBX
1713 KUBO = KTEXY + NOSIM
1714 KW10 = KUBO + NOSIM*N2ORBX
1732 KTXYOA = KRXYOA + NOSIM*NNASHX
1733 KOVLP = KTXYOA + NOSIM
1734 KW30 = KOVLP + NOSIM
1759 CALL DZERO(WRK(KRXYO), NOSIM * NNORBX )
1760 CALL DZERO(WRK(KTEXY), NOSIM )
1769 IF (NOSIM.GT.0) THEN
1770 DO 210 IOSIM = 1,NOSIM
1774 WRITE (LUPRI,2110) IOSIM,NOSIM
1844 DO 200 IOSIM = 1,NOSIM
1888 DO 600 IOSIM = 1,NOSIM
1891 * ' --- SOLLNO - (Rxo + Ryo) matrix no.',IOSIM,' of',NOSIM
1919 DO 700 IOSIM = 1,NOSIM
1936 CALL SOLSC(0,NOSIM,VDUMMY,CREF,SVEC,WRK(KRXYOA),VDUMMY,
1945 DO 800 IOSIM = 1,NOSIM
1954 DO 900 IOSIM = 1,NOSIM
1979 CALL OUTPUT(SVEC(JSOVEC,1),1,NWOPPT,1,NOSIM,
1980 * NSVEC,NOSIM,1,LUPRI)
1988 SUBROUTINE SOLSC(NCSIM,NOSIM,BCVECS,CREF,SVECS,
2037 IF (NCSIM .GT. 0 .AND. NOSIM .GT. 0) THEN
2040 * ' NCSIM, NOSIM =',NCSIM,NOSIM
2159 IF (NOSIM .GT. 0) THEN
2163 DO 22 IOSIM = 1,NOSIM