ksbwig.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ksbwig (e0, g, e)

Function/Subroutine Documentation

ksbwig()

subroutine ksbwig	(	real*8	e0,
		real*8	g,
		real*8	e
	)

Definition at line 25 of file ksbwig.f.

References parameter(), and rndc().

Referenced by cfixvectormeson().

        implicit none
        real*8 e0, g, e
        real*8  u, pi

        parameter(pi=3.141592653589793238)
        call rndc(u)
        e=g/2 * tan( (u-.5)*pi ) + e0

Here is the call graph for this function:

Here is the caller graph for this function: