S2C Subroutine

  1. astro_module.f90
  2. astro_module
  3. S2C

public subroutine S2C(theta, phi, c)

Convert spherical coordinates to Cartesian.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in) :: theta

longitude angle (radians)
real(kind=wp), intent(in) :: phi

latitude angle (radians)
real(kind=wp), intent(out), dimension(3):: c

direction cosines

Called by

proc~~s2c~~CalledByGraph proc~s2c S2C proc~aticqn ATICQN proc~aticqn->proc~s2c proc~fk54z FK54Z proc~fk54z->proc~s2c proc~g2icrs G2ICRS proc~g2icrs->proc~s2c proc~eceq06 ECEQ06 proc~eceq06->proc~s2c proc~fk45z FK45Z proc~fk45z->proc~s2c proc~hfk5z HFK5Z proc~hfk5z->proc~s2c proc~lteqec LTEQEC proc~lteqec->proc~s2c proc~s2p S2P proc~s2p->proc~s2c proc~atciqz ATCIQZ proc~atciqz->proc~s2c proc~atioq ATIOQ proc~atioq->proc~s2c proc~atoiq ATOIQ proc~atoiq->proc~s2c proc~aticq ATICQ proc~aticq->proc~s2c proc~eqec06 EQEC06 proc~eqec06->proc~s2c proc~fk5hz FK5HZ proc~fk5hz->proc~s2c proc~icrs2g ICRS2G proc~icrs2g->proc~s2c proc~lteceq LTECEQ proc~lteceq->proc~s2c proc~seps SEPS proc~seps->proc~s2c proc~atco13 ATCO13 proc~atco13->proc~atioq proc~atoi13 ATOI13 proc~atoi13->proc~atoiq proc~atic13 ATIC13 proc~atic13->proc~aticq proc~atio13 ATIO13 proc~atio13->proc~atioq proc~pmsafe PMSAFE proc~pmsafe->proc~seps proc~atoc13 ATOC13 proc~atoc13->proc~atoiq proc~atoc13->proc~aticq

Contents

Source Code

S2C

Source Code

    subroutine S2C ( theta, phi, c )

    implicit none

    real(wp),intent(in) :: theta !!  longitude angle (radians)
    real(wp),intent(in) :: phi !!  latitude angle (radians)
    real(wp),dimension(3),intent(out) :: c !! direction cosines

    real(wp) :: cp

    cp = cos(phi)
    c(1) = cos(theta) * cp
    c(2) = sin(theta) * cp
    c(3) = sin(phi)

    end subroutine S2C