csampNeueEMu.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	csampneueemu (f)

Function/Subroutine Documentation

csampneueemu()

subroutine csampneueemu

(

real*8

f

)

Definition at line 16 of file csampNeueEMu.f.

References rndc().

Referenced by cmuneudcy(), and csneumuemu().

          implicit none
          real*8 f

          real*8  u1, u2, u3, u4, ux, uy
          call rndc(u1)
          call rndc(u2)
          call rndc(u3)
          call rndc(u4)
          ux = max(u1, u2)
          uy = max(u3, u4)
          if(ux .gt. uy) then
             f=max( min(u1, u2), uy)
          else
             f=max( min(u3, u4), ux)
          endif

Here is the call graph for this function:

Here is the caller graph for this function: