C
C *** NORMAL MODE SOLUTION OF LOVE WAVE ***
C
      SUBROUTINE LVUA(MOM,OM,IOM,ML,NL,DNS,VS,THK,CC,NMODE
     *               ,CFOM,NSMD,L1,DEP1,L2,DEP2,MMD
     *               ,UU,QXL,VXL)
C
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION VS(ML),THK(ML),DNS(ML)
     *         ,CC(MOM,0:MMD),NMODE(MOM),UU(0:MMD),CFOM(0:MOM)
     *         ,QXL(0:MMD),VXL(0:MMD)
      COMPLEX*16 RBN,CPX,AS12,AS22,AR11,FVX0,VLX0
C
      IF(OM.LT.CFOM(NSMD))GOTO 9999
      CPX=(0.D0,1.D0)
      OM2=OM*OM
C
      DO 100 MODE=0,NMODE(IOM)
C
        CV=CC(IOM,MODE)
        WN=OM/CV
C
        CALL FLFK(ML,NL,DNS,VS,THK,CV,WN,FLK,FLW,RBN,SM)
C
        UU(MODE) =-FLK/FLW
C
        IF(L1.EQ.NL)THEN
          FVX0=DEXP(WN*IMAG(RBN)*DEP1)
        ELSE
          CALL FLA2(AS12,AS22,L1,DEP1,CV,WN,DNS,VS,THK,ML,NL)
          FVX0=AS22+SM*RBN*AS12
        END IF
C
        VLX0= CPX*FVX0/(2.D0*FLK)
C
        CALL FLA1(AR11,L2,DEP2,CV,WN,DNS,VS,THK,ML)
C
        VLX=DIMAG(AR11*VLX0)
C
        QXL(MODE)=-VLX
        VXL(MODE)= VLX
C
  100 CONTINUE
C                     
 9999 RETURN
      END
