csetPos.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	csetpos (location)
subroutine	csetpos2 (h, d, location)

Function/Subroutine Documentation

csetpos()

subroutine csetpos

(

type(position)

location

)

Definition at line 8 of file csetPos.f.

References cerrormsg().

Referenced by cmkinc(), cmkinc2(), cmovestreight(), and cputdeflection().

!
      implicit none
#include  "Zobs.h"
#include  "Zcoord.h"
#include  "Zpos.h"
#include  "Zearth.h"
!
      type(position)::location
      real*8 cvh2thick
      character*70 msg 
!
      if(location%xyz%sys .ne. 'xyz') then
         write(msg, *) ' error coord. sys to csetPos=', location%xyz%sys
         call cerrormsg(msg, 0)
      endif
      location%radiallen = 
     *      sqrt(location%xyz%r(1)**2 + location%xyz%r(2)**2 +
     *      location%xyz%r(3)**2)      
      location%height = location%radiallen - eradius
      location%depth = cvh2thick(location%height)

Here is the call graph for this function:

Here is the caller graph for this function:

csetpos2()

subroutine csetpos2	(	real*8	h,
		real*8	d,
		type(position)	location
	)

Definition at line 31 of file csetPos.f.

Referenced by cinitobs().

!     --------------------------------------
!
      implicit none
!----      include 'Zobs.h'
#include  "Zobs.h"
!----      include 'Zcoord.h'
#include  "Zcoord.h"
#include  "Zpos.h"
!----      include './Atmosphere/Zearth.h'
#include  "Zearth.h"
!
      real*8 h, d
      type(position)::location
!
      location%height = h
      location%radiallen = h + eradius
      location%depth = d

Here is the caller graph for this function: