kcossn.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	kcossn (cs, sn)

Function/Subroutine Documentation

kcossn()

subroutine kcossn	(	real*8	cs,
		real*8	sn
	)

Definition at line 13 of file kcossn.f.

References d0, and rndc().

Referenced by __test.f__(), c2bdc0(), c2bdcp(), c2bdcy(), canihi(), cbrems(), ccapnu(), ccohs(), ccompt(), celecdef(), cknockon(), cnbdc1(), cpair(), cpcos2pxyz(), cphotoee(), cresetposang(), csampfermim(), csampfragmom(), csetknock(), csprimang(), and csptxy().

!     to generate cos(phy),sin(phy), where phy is uniform in (0,2pi).
!      reuired subprogram.  rndc 
      implicit none
      real*8 cs, sn
!
      real*8 u, v, a, b, c
      c = 5.d0

      do  while (c .gt. 1.d0)
          call rndc(u)
          call rndc(v)
          v=v+v-1.
          a=u*u
          b=v*v
          c=a+b
      enddo    

      cs=(a-b)/c
      sn=2.*u*v/c

Here is the call graph for this function:

Here is the caller graph for this function: