ckmnTotXs.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ckmntotxs (p, xs)
subroutine	ckmnelaxs (p, xs)
subroutine	ckmninelaxs (p, xs)

Function/Subroutine Documentation

ckmnelaxs()

subroutine ckmnelaxs	(	real(8), intent(in)	p,
		real(8), intent(out)	xs
	)

Definition at line 8 of file ckmnTotXs.f.

References ckmpelaxs().

Referenced by ckmninelaxs().

      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs
      call ckmpelaxs(p,xs)

Here is the call graph for this function:

Here is the caller graph for this function:

ckmninelaxs()

subroutine ckmninelaxs	(	real(8), intent(in)	p,
		real(8), intent(out)	xs
	)

Definition at line 14 of file ckmnTotXs.f.

References ckmnelaxs(), ckmntotxs(), and d0.

Referenced by cinelx0().

      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs

      real(8)::txs, exs
      call ckmntotxs(p,txs)
      call ckmnelaxs(p, exs)
      xs =max( txs - exs, 0.d0)

Here is the call graph for this function:

Here is the caller graph for this function:

ckmntotxs()

subroutine ckmntotxs	(	real(8), intent(in)	p,
		real(8), intent(out)	xs
	)

Definition at line 2 of file ckmnTotXs.f.

References ckmptotxs().

Referenced by ckmninelaxs(), and ctotx0().

      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs
      call ckmptotxs(p,xs)

Here is the call graph for this function:

Here is the caller graph for this function: