SUBROUTINE MULEX ( I, J, MT, DOME )

Argument Definitions (+ indicates altered content)
INTEGER            I,          J,          MT
REAL*8            +DOME(10)
Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### mulex ### 
    This routine generates values of the associate Legendre functions 
    P(k,q) multiplied by [(k-|q|)!/(k+|q|)!]^{1/2} for k=1,..,8 and 
    q=mt.  See also routine which employs the same definition of the 
    functions multi. 
    Note that the original routine (mulex) generates values scaled by 
    (-1)**mt
Source file:mulex.f
Intrinsic Functions Called
DOUBLE PRECISION   DBLE
GENERIC*8          ABS,        SQRT
Local Variables (+ indicates altered content)
INTEGER           +N
REAL*8            +COSTH,     +COSTH2,    +COSTH4,    +COSTH6
REAL*8            +COSTH8,    +RR,        +SINI,      +SINI2
REAL*8            +SINI3
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             PRECIS
GRIDR              REAL*8             VETA(1500)
GRIDR              REAL*8             VETASQ(1500)
GRIDR              REAL*8             VXI(2500)
GRIDR              REAL*8             VXISQ(2500)
SORI               INTEGER            MPOLE