c
c satatt = ascii file containing satallite attitude:
      parameter(mxpts=2000)
      character*32 satatt
      common/sat/ satatt,satut(mxpts),satlat(mxpts),satlon(mxpts),
     +  satalt(mxpts),iydsat