52 INTRINSIC sqrt, atan2, mod, abs, cos, sin, atan
56 DOUBLE PRECISION,
PARAMETER :: ZERO = 1.d-10
77 IF (
t1%R(i).LT.zero)
THEN
type(bief_obj), target zf
double precision, dimension(:), pointer y
type(bief_obj), target hho
type(bief_obj), target phii
type(bief_obj), pointer t2
type(bief_obj), target wr
type(bief_obj), target phir
type(bief_obj), target phas
double precision, dimension(:), pointer x
subroutine os(OP, X, Y, Z, C, IOPT, INFINI, ZERO)
type(bief_obj), pointer t1