csoftenPiK.f File Reference

Go to the source code of this file.

Modules
module	softenpik

Functions/Subroutines
subroutine	cjudgesplit (pj, x, split)
subroutine	csoftenpik (inciptcl, pstore, nin, nout)
subroutine	csoftenpik0 (inciptcl, pstore, nin, nout, exist)
subroutine	csoftenpik1 (inciptcl, pstore, nin, nout, exist)
subroutine	csplitmeson (p, E1, E2, icon)
subroutine	cae2p (pc)
subroutine	cgetmaxptcl (pstore, nin, pcode, pcharge, maxi, maxE)
subroutine	csoftenfe (inci, fwbwin, a, nin, nout)
subroutine	creadsoftenpara (io)
subroutine	cwritesoftenpara (io)
subroutine	cskipsep (io)
subroutine	creadparar (vvalue, x)
subroutine	creadparar2 (vvalue, x, n)
subroutine	creadparacx (vvalue, c)
subroutine	creadparai (vvalue, i)
subroutine	creadparac (vvalue, cha)
subroutine	creadparal (vvalue, logi)
subroutine	cwriteparar (io, vname, x)
subroutine	cwriteparar2 (io, vname, x, n)
subroutine	cwriteparacx (io, vname, c)
subroutine	cwriteparai (io, vname, i)
subroutine	cwriteparac (io, vname, cha)
subroutine	cwriteparal (io, vname, logi)
real(8) function	crejk1 (x)
real(8) function	cxthu (E0)
real(8) function	ck1u (E0)
logical function	cgetparmn (io, vname, vv)
real(8) function	csoftenfixxth (E0)

Variables
integer, save	mode = 3
real(8), save	xth = 0.05
real(8), save	pw = 0.5
real(8), save	repeat = 2.5
real(8), save	e0th = 500.
integer, save	fwbw = 3
logical, save	special =.false.
logical, save	leadingpik =.true.
logical, save	usexincms =.false.
real(8), save	k1u =0.25
real(8), save	xthl =1.d0
real(8), save	xthu =10.d0
real(8), save	rejpw =0.
logical, save	modified
real(8), save	e0lab =1.e12
integer, parameter	half =12000