cfxTgtChg.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cfxtgtchg (ia, iz, tcg)

Function/Subroutine Documentation

cfxtgtchg()

subroutine cfxtgtchg	(	integer	ia,
		integer	iz,
		integer	tcg
	)

Definition at line 2 of file cfxTgtChg.f.

References rndc().

Referenced by cgplowexp(), and chacoladhoc().

!           fix target charge (for nucleon target inside 'A')
      implicit none
      integer ia, iz    !   input target mass and charge no.
      integer tcg       !   ouput. selected nucleon's charge

      real*8 u

      call rndc(u)
      if(u .le.  float(iz)/ia) then
         tcg=1
      else
         tcg=0
      endif

Here is the call graph for this function:

Here is the caller graph for this function: