This loads a font easier to read for people with dyslexia.
This renders the document in high contrast mode.
This renders the document as white on black
This can help those with trouble processing rapid screen movements.
Decrease text size Increase text size Reset text size
Accessibility menu
Search icon
Menu

Software documentation: SrcArc

Preface

This program will take a standard catalogue and plot all the sources above the horizon as an arc starting from the initial HA/Dec to the final HA/Dec position on an Az/El graph. Also on the graph other limits may be displayed, and the parameters for these may be controlled through this program. Geometric antenna shadowing is also displayed. The bulk of the work in this program is done by a PostScript header file. The FORTRAN code (this file) is merely to format the data and append it to the PostScript header. The run command procedure does the relevant copy of the header, etc., and handles any of the printing.

Call sequence: 

      program srcarc
      implicit none
 
      character*20 filename            ! Name of file (minus the .cat)
      character*160 string             ! General purpose input string
      character*10 turstr              ! Function declaration
      integer*4 strtur                 ! Function declaration
      integer str$find_first_in_set    ! Function declaration
      character*1 tab                  ! ASCII tab
      integer ldb                      ! Location of first double blank
      integer ncw                      ! Number of characters written
      logical header                   ! Line read in is header information
      integer status                   ! Used to check how functions worked
      double precision turns           ! Revolutions (e.g. turns/360.0=degrees)
      double precision lst1            ! Initial Local Sidereal Time
      double precision lst2            ! Final Local Sidereal Time
      double precision ha1             ! Initial source hour angle
      double precision ha2             ! Final source hour angle
      double precision el1             ! Initial elevation
      double precision el2             ! Final elevation
      double precision dec             ! Declination of the source
      double precision baseline        ! The shortest baseline (in metres)
      double precision lat /-30.315/   ! Telescope's latitude
      integer n                        ! Your friendly loop variable
      character*12   bslnstr           ! String version of the baseline length
      character*12     rastr           ! Text string to allow RA to be read
      character*12     decstr          ! Text string to allow Dec to be read
      character*9      datestr         ! Text string for printing the date
      character*4      lbstr           ! Buffer for flux - not used as such
      character*4      cbstr           ! Buffer for flux - not used as such
      character*8      flag            ! Was the source put on the map?
 
      character*8      name
      double precision raturns
      double precision decturns
      character*1      accuracy
      double precision fluxL
      double precision fluxC
 
      logical plotha,                  ! Do we plot HA grid lines
     -        plotdec,                 ! Do we plot Dec grid lines
     -        plotaz,                  ! Do we plot Az grid lines
     -        plotel                   ! Do we plot El grid lines
Creation date: 2-Sep-1992

Author: Derek McKay

File: SRCARC.FOR

Routine name: getdata

Function:

This routine extracts the Name, R.A. and Dec. from a datum string. The datum string is just a line that is read out of a catalogue (.CAT) file.

Call sequence: 

      subroutine getdata(string_in,name_out,ra_out,dec_out)
      implicit none
      character*(*)
     -  string_in,   ! Input string from catalogue
     -  name_out,    ! Source name string
     -  ra_out,      ! RA string
     -  dec_out      ! Dec string
Creation date: 2-Sep-1996

Author: Derek McKay

File: SRCARC.FOR

Routine name: rem_blank

Function:

This routine removes leading spaces from a string. It returns the modified string.

Call sequence: 

      subroutine rem_blank(str)
      implicit none
      character*(*) str     ! Input (& output) string
Creation date: 2-Sep-1992

Author: Derek McKay

File: SRCARC.FOR

Original: Derek McKay (11-Oct-1996)
Modified: Derek McKay (11-Oct-1996)