*
*     -----------------------------------------------------------------
*      R M E W D 1 L S
*     -----------------------------------------------------------------
*
*     Written by G. Gaigalas,                                      *
*     Vilnius,  Lithuania                              June 1995   *
*
      SUBROUTINE RMEWD1LS(J,L,COEF)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION ID120N(136),ID120L(136)
      DATA ID120N/5*0,24696,3*0,-1008,3*0,-22050,18375,0,6720,0,630,
     :-23625,675,2*0,-8820,7*0,-15750,0,-300,4*0,-28224,3*0,26880,0,
     :-7056,3*0,-4032,14700,-34020,3*0,3528,3*0,-10080,0,-4200,3*0,
     :8820,5*0,31500,-900,0,14400,0,10080,4032,2376,8*0,-37800,9*0,
     :11880,5*0,-14580,11*0,-27720,-11088,-5544,0,15120,36036,11*0,
     :-26208,2*0,-3822,0/
      DATA ID120L/5*0,-226380,2*0,-25872,166782,4*0,-404250,2*0,
     :258720,-73920,0,4950,-161700,41580,4*0,-16500,0,36960,4*0,
     :118800,-14850,2*0,258720,223608,0,-110880,2*0,64680,2*0,-103488,
     :29568,0,110880,2*0,-316932,195657,7*0,92400,2*0,121275,5*0,
     :237600,2*0,374220,-10395,0,-9801,6*0,52800,66000,2*0,-226380,0,
     :363000,6*0,-232320,29040,2*0,-12705,0,-3300,-46875,8*0,-203280,
     :203280,0,-365904,2*0,66066,12*0,120120,-174720,0,95550/
      IF(L.EQ.0) THEN
        ID=ID120L(J)
        IV=2695
      ELSE
        ID=ID120N(J)
        IV=245
      ENDIF
      IF(ID.GE.0) THEN
        COEF=DSQRT(DBLE(ID))
      ELSE
        COEF=-DSQRT(-DBLE(ID))
      ENDIF
      COEF=COEF/DSQRT(DBLE(IV))
      RETURN
      END
