      SUBROUTINE XDRAW(IX,IY,NPTS)
      INTEGER IX(*), IY(*)
      RETURN
      END
      SUBROUTINE XPOINT(IX,IY)
      INTEGER IX(*), IY(*)
      RETURN
      END
      SUBROUTINE XEND
      RETURN
      END
      SUBROUTINE XREGFL(IX,IY,NPTS)
      INTEGER IX(*), IY(*)
      RETURN
      END
      SUBROUTINE XCHECK(IEXPOSE,IERROR)
      RETURN
      END
      SUBROUTINE XCLEAR
      RETURN
      END
      SUBROUTINE XUPDAT(IJUNK)
      RETURN
      END
      SUBROUTINE XRDLOC(IX,IY,IERROR)
      RETURN
      END
      SUBROUTINE XFORE(INDEX)
      RETURN
      END
      SUBROUTINE XLATTR(INDEX,ICODE)
      RETURN
      END
      SUBROUTINE XTATTR(IFONT,IERROR)
      INTEGER IFONT(*)
      RETURN
      END
      SUBROUTINE XTEXTV(ISTRNG,IXPOS,IYPOS,IJUSTH,IJUSTV,IERROR)
      INTEGER ISTRNG(*)
      RETURN
      END
      SUBROUTINE XTEXTH(ISTRNG,IXPOS,IYPOS,IJUSTH,IJUSTV,IERROR)
      INTEGER ISTRNG(*)
      RETURN
      END
      SUBROUTINE XINIT(IXP,IYP,IORIEN,IXRET,IYRET,IADE,IWIND,
     &IJUNK,IERROR)
      INTEGER IJUNK(*), IADE(*)
      WRITE(*,*) ' X11 HAS NOT BEEN INSTALLED AT YOUR SITE'
      WRITE(*,*) ' CONTACT YOUR LOCAL SITE COORDINATER FOR '
      WRITE(*,*) ' MORE INFORMATION'
      RETURN
      END
      SUBROUTINE XERASE(IX,IY,IORIEN,IXRET,IYRET,IBACK,IFLAG)
      RETURN
      END
      SUBROUTINE XSAVEG(IADE,IERROR)
      INTEGER IADE(*)
      IERROR=4
      RETURN
      END
      SUBROUTINE XRESTG(IADE,IADE2,IWIND,IWINDN,IERROR)
      INTEGER IADE(*), IADE2(*), IWIND(*)
      IERROR=4
      RETURN
      END
      SUBROUTINE XCYCLE(IERROR,IBUTTN)
      INTEGER IERROR, IBUTTN
      IERROR=4
      RETURN
      END
