C-----------------------------------------------------------------------
C IMSL Name:  CWPLD/ZWPLD (Single/Double precision version)
C
C Purpose:    Evaluate the first derivative of the Weierstrass' P
C             function in the lemniscatic case for complex argument
C             with unit period parallelogram.
C
C Usage:      CWPLD(Z)
C
C Example 1:
C                                  Declare variables
      INTEGER    NOUT
      COMPLEX    CWPLD, VALUE, Z
      EXTERNAL   CWPLD, UMACH
C                                  Compute
      Z     = (0.25, 0.25)
      VALUE = CWPLD(Z)
C                                  Print the results
      CALL UMACH (2, NOUT)
      WRITE (NOUT,99999) Z, VALUE
99999 FORMAT (' CWPLD(', F6.3, ',', F6.3, ') = (',
     &     F6.3, ',', F6.3, ')')
      END
C  CWPLD( 0.250, 0.250) = (36.054,36.054)