Call sequence:
program mprobe implicit none ! Or at least not very much include '($IODEF)' include '($SSDEF)' include 'array$inc:a_params.inc' include 'array$inc:a_data.inc'Creation date: 2-Jan-1995
Author: Derek McKay
File: MPROBE.FOR
bat_asc
Function:
To take a time quantity as a 64-bit integer in microsecondscand return the date and time in an ascii string. The RAWTAI (i.e. International Atomic Time in its raw/natural format) is a 64-bit integer where the least significant bit is 1 micro second. VMS binary format is ten times more precise (the LSB is equivalent to 0.1 micro seconds). Thus the coversion factor (RAWVMS) is 10. This routine does the conversion, by converting the TAI into a VMS binary format, and then subtracts the Delta UTC (leapseconds) from it (after converting it too, to VMS format) to give the UTC in VMS format. This can then be converted into an ASCII string using a system routine.
Call sequence:
Call sequence:
subroutine bat_asc(rawtai,string) implicit none integer*2 rawtai(4) ! Incoming TAI in raw format character*(*) string ! Outgoing UT ASCII stringCreation date: 6-FEB-1995
Author: Derek McKay
File: MPROBE.FOR
mpr_help
Function:
A simple routine to display a help message. Consists only of hard-coded write statements.
Call sequence:
subroutine mpr_help() implicit noneCreation date: 3-Jan-1996
Author: Derek McKay
File: MPROBE.FOR
mpr_list
Function:
This routine lists all the monitor points that are currently defined in the pdef structure in global memory. The business with the old_pnt and older_pnt variables (rather than just taking a certain value off the current pnt) is because some monitor points take up several "slots". Just subtracting, means that in some places you miss points entirely on the back-track, or you move forwards instead!
Call sequence:
subroutine mpr_list implicit none include 'array$inc:a_params.inc' include 'array$inc:a_data.inc'Creation date: 3-Jan-1996
Author: Derek McKay
File: MPROBE.FOR
mpr_search
Function:
This routine lists all the monitor points that are currently defined in the pdef structure in global memory. The business with the old_pnt and older_pnt variables (rather than just taking a certain value off the current pnt) is because some monitor points take up several "slots". Just subtracting, means that in some places you miss points entirely on the back-track, or you move forwards instead!
Call sequence:
subroutine mpr_search(orig_str) implicit none include 'array$inc:a_params.inc' include 'array$inc:a_data.inc' character*(*) orig_str ! Search stringCreation date: 3-Jan-1996
Author: Derek McKay
File: MPROBE.FOR
utl$doc:for_html.dat
.
Last updated 10-OCT-1996.