ckmnTotXs.f

Go to the documentation of this file.

      subroutine ckmntotxs(p, xs)
      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs
      call ckmptotxs(p,xs)
      end      subroutine ckmntotxs
      subroutine ckmnelaxs(p, xs)
      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs
      call ckmpelaxs(p,xs)
      end      subroutine ckmnelaxs
      subroutine ckmninelaxs(p, xs)
      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)
      end      subroutine ckmninelaxs