cprintObs.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cprintobs (io)

Function/Subroutine Documentation

cprintobs()

subroutine cprintobs

(

integer

io

)

Definition at line 2 of file cprintObs.f.

References cprasobssite(), cprasobssitehd(), cprobssite(), and cprobssitehd().

Referenced by chookbgrun(), convcoord(), and testinitobs().

      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

Here is the call graph for this function:

Here is the caller graph for this function: