log10fRE Function

public function log10fRE(x, p)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in)			::	x
real(kind=rp),	intent(in)			::	p

Return Value real(kind=rp)

Contents

Source Code

log10fRE

Source Code

  FUNCTION log10fRE(x,p)
    REAL(rp), INTENT(IN) :: x ! x = cos(pitch)
    REAL(rp), INTENT(IN) :: p ! momentum
    REAL(rp) :: log10fRE

    log10fRE = LOG(fRE(x,p))
  END FUNCTION log10fRE