cprObsSite.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cprobssite (io, aSite)
subroutine	cprobssitehd (io)
subroutine	cprasobssite (io, aSite)
subroutine	cprasobssitehd (io)

Function/Subroutine Documentation

cprasobssite()

subroutine cprasobssite	(	integer	io,
		type(assite)	aSite
	)

Definition at line 32 of file cprObsSite.f.

Referenced by cprintobs().

      implicit none
#include "Zmagfield.h"
#include "Zcoord.h"
#include "Zdirec.h"
#include "Zpos.h"
#include "Zobs.h"
#include "Zobsp.h"
#include "Zobsv.h"
      integer io ! input . output dev. no.
      type(assite)::asite
      
      write(io, *)sngl(asite%pos%depth*0.1),
     * sngl(asite%pos%height), 
     * sngl(asite%pos%radiallen/1000.),
     * sngl(asite%mu), 
     * asite%pos%xyz%r(1), asite%pos%xyz%r(2), asite%pos%xyz%r(3)

Here is the caller graph for this function:

cprasobssitehd()

subroutine cprasobssitehd

(

integer

io

)

Definition at line 51 of file cprObsSite.f.

Referenced by cprintobs().

!    **************************************
      integer io ! input.
      write(io, *)
     * ' depth (gr/cm2)    Height(m)   Distance to E-center(km)'//
     * ' Molere Unit(m)     x,y,z in XYZ system (m)'

Here is the caller graph for this function:

cprobssite()

subroutine cprobssite	(	integer	io,
		type(site)	aSite
	)

Definition at line 4 of file cprObsSite.f.

Referenced by cprintobs().

      implicit none
#include "Zmagfield.h"
#include "Zcoord.h"
#include "Zdirec.h"
#include "Zpos.h"
#include "Zobs.h"
#include "Zobsp.h"
#include "Zobsv.h"
      integer io ! input. dev. no.
      type(site)::asite
      
      write(io, *)sngl(asite%pos%depth*0.1),
     * sngl(asite%pos%height), 
     * sngl(asite%pos%radiallen/1000.),
     * asite%pos%xyz%r(1), asite%pos%xyz%r(2), asite%pos%xyz%r(3)

Here is the caller graph for this function:

cprobssitehd()

subroutine cprobssitehd

(

integer

io

)

Definition at line 22 of file cprObsSite.f.

Referenced by cprintobs().

!    **************************************
      integer io ! inpu%t dev. no.
      write(io, *)
     * ' depth (gr/cm2)  Height(m)  Distance to E-center(km)'//
     * '   x,y,z in XYZ system(m)'

Here is the caller graph for this function: