csNeumuEMu.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	csneumuemu (f)

Function/Subroutine Documentation

csneumuemu()

subroutine csneumuemu

(

real*8

f

)

Definition at line 16 of file csNeumuEMu.f.

References csampneueemu(), and rndc().

Referenced by cmuneudcy().

          implicit none
          real*8 f
          real*8 u, u1, u2, u3
          call rndc(u)
          if(u .lt. 0.333333) then
!                 first term
             call csampneueemu(f)
          else
!                 second term. take max of 3 u's.
             call rndc(u1)
             call rndc(u2)
             call rndc(u3)
             f= max(u1, u2, u3)
          endif

Here is the call graph for this function:

Here is the caller graph for this function: