All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
pxroot.f
Go to the documentation of this file.
1 CDECK ID>, PXROOT.
2  SUBROUTINE pxroot (XOPER,XROOT)
3 *.*********************************************************
4 *. ------
5 *. PXROOT
6 *. ------
7 *. SOURCE: HERWIG (B.Webber,G.Marchesini)
8 *. Square root with sign retention
9 *. Usage :
10 *.
11 *. REAL XOPER,XROOT
12 *.
13 *. CALL PXROOT (XOPER,XROOT)
14 *.
15 *. INPUT : XOPER The input operand
16 *. OUTPUT : XROOT Square root of the operand
17 *.
18 *.*********************************************************
19  IMPLICIT NONE
20  REAL xoper,xroot
21  DOUBLE PRECISION ax
22  ax = xoper
23  xroot = dsign(dsqrt(abs(ax)),ax)
24  RETURN
25  END
pxroot
subroutine pxroot(XOPER, XROOT)
Definition: pxroot.f:2