csetCoord.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	csetcoord (sys, x, y, z, a)

Function/Subroutine Documentation

csetcoord()

subroutine csetcoord	(	character*(*)	sys,
		real*8	x,
		real*8	y,
		real*8	z,
		type(coord)	a
	)

Definition at line 2 of file csetCoord.f.

References cerrormsg(), and coord_types().

Referenced by cinitobs(), convcoord(), drawgeomag(), and geomag().

!          set coordinate values 
!     x,y,z: real*8. input. 3 components of the coordinate.
!                           meaning depends on sys.
!         a: /coord/. output. coordinate values are set. time is
!                           unchanged.
!       sys: character*4. input.  what coordinate.
!          
      implicit none
#include  "Zcoord.h"
#include  "Zearth.h"

      real*8 x, y, z
      type(coord)::a
      character*(*) sys
      integer i
!
      character*70 msg
#include  "Zcoordtype.h"
!
      a%r(1) = x
      a%r(2) = y
      a%r(3) = z
      a%sys = sys
      do i = 1, max_coord_types
         if(sys .eq. coord_types(i)) goto 10
      enddo
      write(msg, *) ' coordinate type=', sys, ' invalid',
     *            ' input to csetCoord'
      call cerrormsg(msg, 0) 
 10   continue

Here is the call graph for this function:

Here is the caller graph for this function: