cprObsSite.f

Go to the documentation of this file.

!          print an observation site information
!
      subroutine cprobssite(io, aSite)
      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)
      end
!    *********************************print header
      subroutine cprobssitehd(io)
!    **************************************
      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)'
      end
! 
!          print an observation site information
!
      subroutine cprasobssite(io, aSite)
      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)
      end
!    *********************************print header
      subroutine cprasobssitehd(io)
!    **************************************
      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)'
      end