12 lines
198 B
Fortran
12 lines
198 B
Fortran
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
|