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