blob: 3b8984031a9bf56ce6e2df625f82c9fbac5b40fb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <ctype.h>
# IDB_NAXIS -- Determine if the named keyword is one of the NAXIS* keywords,
# and if so return the value of the numeric suffix.
int procedure idb_naxis (keyw, axnum)
char keyw[ARB] # keyword name
int axnum # receives numeric axis code (0=no suffix)
int ch, ip
int strncmp(), ctoi()
begin
if (strncmp (keyw, "i_naxis", 7) == 0)
ip = 8
else if (strncmp (keyw, "naxis", 5) == 0)
ip = 6
else
return (NO)
ch = keyw[ip]
if (!IS_DIGIT(ch) && ch != ' ' && ch != EOS)
return (NO)
if (ctoi (keyw, ip, axnum) <= 0)
axnum = 0
return (YES)
end
|
