cfixMCSmodel.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cfixmcsmodel (aPtcl)

Function/Subroutine Documentation

cfixmcsmodel()

subroutine cfixmcsmodel

(

type(ptcl)

aPtcl

)

Definition at line 2 of file cfixMCSmodel.f.

References cerrormsg(), and kelec.

Referenced by csampeintl().

      use modmcscontrol
      implicit none
!
!        fix how to treat MCS  for this e-/e+
!
#include "Zptcl.h"
#include "Zcode.h"

      type(ptcl):: aptcl ! input. e+/e-

      integer i
      integer :: icon

      if( aptcl%code /= kelec) then
         write(0,*) 'cfixMSmodel is called non e-/e+'
         write(0,*) ' the code,subcode,charge= ', 
     *    aptcl%code, aptcl%subcode, aptcl%charge
         stop 
      endif
      kegev = aptcl%fm%p(4)- aptcl%mass
      keev = kegev*1.0d9 
      if(kegev > maxergmcs) then
         activemcs = 'Mol'
      else
         do i = 1, noofhowmcs
            if( kegev <  mcserg(i)) then
               if(kegev > minergmcs) then
                  activemcs = howmcslist(i)
               else
                  activemcs = 'Mol'
               endif
!!!!!!!!!!!!!
!!               write(0,*) 'E=',KEeV,' model=',ActiveMCS
!!!!!!!!!!!
               return           !!!!!!!!!!
            endif
         enddo
         call cerrormsg('MCSModel and energy range  strange', 1)
         do i = 1,  noofhowmcs
            write(0,*) howmcslist(i), mcserg(i)
         enddo
         stop 44444
      endif

Here is the call graph for this function:

Here is the caller graph for this function: