cprintObs.f

Go to the documentation of this file.

      subroutine cprintobs(io)
      implicit none
#include "Zglobalc.h"
#include "Zcoord.h"
#include "Zpos.h"      
#include "Zmagfield.h"
#include "Zobs.h"      
#include "Zobsp.h"      
#include "Zobsv.h"      

      integer io  ! input. Fortran logical dev. no. for output.
      integer i

      write(io, *) ' Latitude=', sngl(latitofsite), 
     *  ' deg. Longitude=', sngl(longitofsite), 
     *  ' deg. DtGMT=', sngl(dtgmt), ' hours',
     *  ' year for Geomagnetism=', sngl(yearofgeomag)
      write(io, *)'-----------------------------'
      w rite(io, *) '  Position of Obs. sites '
      call cprobssitehd(io)
      do i = 1, noofsites
         call cprobssite(io, obssites(i))
      enddo
      write(io, *) ' -----------------------------'
      write(io, *) ' As Obs. sites'
      call cprasobssitehd(io)
      do i = 1, noofassites
         call cprasobssite(io, asobssites(i))
      enddo
      end