Lines Matching refs:LW
508 DO LW = -N,N,2
515 WRITE(6,*) ' Frequency component ', LW
526 IF(N.GE.1.AND.(ABS(LW-1).LE.N-1)) THEN
532 IF(N.GE.1.AND.(ABS(LW+1).LE.N-1)) THEN
545 CALL GET_NMLW(VEC1,N-1,M,LW-1,MAXV,MAXW,LUN,LURF,1,
576 CALL GET_NMLW(VEC1,N-1,M,LW+1,MAXV,MAXW,LUN,LURF,1,
606 IF(M.GT.0.AND.ABS(LW).LE.N) THEN
615 CALL GET_NMLW(VEC1,N,M-1,LW,MAXV,MAXW,LUN,LURF,1,
697 IF(ABS(LW-LLW).LE.N-LD) THEN
713 CALL GET_NMLW(VEC2,N-LD,M-LS-1,LW-LLW,
752 IF(ABS(LW-LLW-1).LE.N-LD-1) THEN
768 CALL GET_NMLW(VEC2,N-LD-1,M-LS,LW-LLW-1,
806 IF(ABS(LW-LLW+1).LE.N-LD-1) THEN
822 CALL GET_NMLW(VEC2,N-LD-1,M-LS,LW-LLW+1,
894 SHIFT = -ERF + LW*FREQ
905 CALL GET_NMLW(VEC1,N,M,LW,
922 VW1D(N,M,LW) = INPRDD(VEC1,VEC2,LU2,LU5,0,LBLK)
925 VW1D(N,M,LW) = 0.0D0
928 & write(6,*) ' VW1D(N,M,LW) = ', VW1D(N,M,LW)
932 V01D(N,M,LW) = INPRDD(VEC1,VEC2,LU2,LU5,0,LBLK)
935 V01D(N,M,LW) = 0.0D0
938 & write(6,*) ' V01D(N,M,LW) = ', V01D(N,M,LW)
961 DO LW = -LD,LD,2
963 & ' ld, ls, lw = ',LD,LS,LW,' , ',V01D(LD,LS,LW)
980 DO LW = -LD,LD,2
982 & ' ld, ls, lw = ',LD,LS,LW,' , ',Vw1D(LD,LS,LW)
1008 DO LW = -LD,LD,2
1011 write(6,*) ' Terms to DD for LD LS LW =',LD,LS,LW
1014 DD(LD,LS,LW) = 0.0D0
1026 LWR = LW -LWL
1044 DD(LD,LS,LW) = DD(LD,LS,LW)+CONT
1053 IF(NTEST.GE.3) WRITE(6,*) ' DD(LD,LS,LW)= ',DD(LS,LS,LW)
1072 DO LW = -LD,LD,2
1074 & ' ld, ls, lw = ',LD,LS,LW,' , ',DD(LD,LS,LW)
1100 DO LW = -LD,LD,2
1101 DWD(LD,LS,LW) = 0.0D0
1106 & ' DAD under construction for LD,LS,LW=',LD,LS,LW
1122 LWR = LW -LWL
1148 DWD(LD,LS,LW) = DWD(LD,LS,LW)+CONT
1175 DO LW = -LD,LD,2
1177 & ' ld, ls, lw = ',LD,LS,LW,' , ',DWD(LD,LS,LW)
1194 DO LW = -LD,LD,2
1196 WRITE(6,*) ' Susceptibility for LD,LS,LW =',LD,LS,LW
1203 CHI(LD,LS,-LW) = DWD(LD,LS,LW)
1206 & ' Initial term <0!A!0>(ld,ls,lw) ',CHI(LD,LS,-LW)
1221 IF(ABS(LW-LWP).LE.(LD-LDP)) THEN
1222 TERM =- CHI(LDP,LSP,-LWP)*DD(LD-LDP,LS-LSP,LW-LWP)
1223 CHI(LD,LS,-LW) = CHI(LD,LS,-LW) + TERM
1236 & LD,LS,-LW, ' is ', CHI(LD,LS,-LW)
1270 DO LW = -LD,LD,2
1276 NUP = (LD+LW)/2
1280 CHI(LD,LS,LW) = FAC * CHI(LD,LS,LW)
1283 & ' ld, ls, lw = ',LD,LS,LW,' , ',CHI(LD,LS,LW)