AIRES library reference: deflectr.

c
c     Routine directly callable from C/C++ (it could be necessary to
c     append an underscore, "_", to its name depending on the C/C++
c     compiler used).
c
c
      subroutine deflectr(uinitial, cdtheta, sdtheta,
     +                    cdphi, sdphi, ufinal)
c
c     Deflecting a unitary vector uinitial in angles delta-theta (given)
c     and delta-phi (chosen at random), to give a new unitary vector
c     ufinal. The values of sin(delta-theta) and sin/cos(delta-phi) are
c     returned for eventual future use.
c
c     Written by: S. J. Sciutto, La Plata 1996.
c
c
c     Parameters:
c     ==========
c
c     uinitial........ (input, double precision, array(3)) Input
c                      vector, assumed as unitary.
c     cdtheta......... (input, double precision) Cos(dtheta).
c     sdtheta......... (output, double precision) Sin(dtheta).
c     cdphi........... (output, double precision) Cos(dphi).
c     sdphi........... (output, double precision) Sin(dphi).
c     ufinal.......... (output, double precision, array(3)) Unitary
c                      deflected vector.
c
c
c<--->

These pages are maintained by Sergio J. Sciutto	Back to AIRES library index
	Back to AIRES home