blob: 09f1a8e683c8482d77dfb839ebb6f08c19a73672 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
include "fitsio.h"
procedure fsvers(vernum)
# Returns the current revision number of the FITSIO package.
# The revision number will be incremented whenever any modifications,
# bug fixes, or enhancements are made to the package
real vernum # o FITSIO version number
begin
call ftvers(vernum)
end
|
