###CHECKPOINT ARGS: -nolog-flow -nolog-blocks -nostartlog -queue=0
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/log_iss_par_v01.src"
descr "log_iss_par - Verify / Correct MDI's pointing"
# program log_iss_par.src, created 95.12.14 Igor Zayer 
#	96.01.23  (IZ)	added checkpoint options
#
# Universal alignment procedure; run to verify and/or adjust MDI's 
# pointing. Will OPTIONALLY perform all necessary steps: take 
# verification images, adjust on-board Alignment Mechanisms (legs),
# null the ISS' error signals (find the correct offset), and 
# ultimately close the ISS loop.
#
# Calls: --
# ------
#
# Variable usage:
#----------------
# !GS9: name of user logfile 
#----------------

# write offsets & gains to log file
  write  !GS9 "X offset: %3.0xx  " getint(mkltxofs)
  write  !GS9 "X avgerr: %4.2f  " getreal(multxave)
  write  !GS9 "Phdiode1: %4.2f  " getreal(multdio1)
  write  !GS9 "PZTA ofs: %3.0xx  " getint(mkltaos)
  writen !GS9 "PZTA pos: %4.2f  " getreal(multpzt1)

  write  !GS9 "Y offset: %3.0xx  " getint(mkltyofs)
  write  !GS9 "Y avgerr: %4.2f  " getreal(multyave)
  write  !GS9 "Phdiode2: %4.2f  " getreal(multdio2)
  write  !GS9 "PZTB ofs: %3.0xx  " getint(mkltbos)
  writen !GS9 "PZTB pos: %4.2f  " getreal(multpzt2)

  write  !GS9 "  X gain: %3.0xx  " getint(mkltxgn)
  write  !GS9 "X maxerr: %4.2f  " getreal(multxmax)
  write  !GS9 "Phdiode3: %4.2f  " getreal(multdio3)
  write  !GS9 "PZTC ofs: %3.0xx  " getint(mkltcos)
  writen !GS9 "PZTC pos: %4.2f  " getreal(multpzt3)

  write  !GS9 "  Y gain: %3.0xx  " getint(mkltygn)
  write  !GS9 "Y maxerr: %4.2f  " getreal(multymax)
  writen !GS9 "Phdiode4: %4.2f  " getreal(multdio4)
  write  !GS9 "LEG1 pos: %5.1f " getreal(mxam1pos)
  writen !GS9 "LEG2 pos: %5.1f " getreal(mxam2pos)
  writen !GS9 " "

return
