staden-lg/src/staden/xspec.f

C  X specific bits
C   AUTHOR: RODGER STADEN
      SUBROUTINE INITRS()
      CALL INITX()
      END
      INTEGER FUNCTION XVERSN()
C
C set xversn to true for x version
C
      XVERSN = 1
      END