blob: e997fc422446a668407854be5e64eff0d714169b (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "mwcs.h"
# MW_FINDSYS -- Lookup the named world coordinate system and return a pointer
# to the WCS descriptor, or NULL if the system is not defined.
pointer procedure mw_findsys (mw, system)
pointer mw #I pointer to MWCS descriptor
char system[ARB] #I system to be looked up
int i
pointer wp
bool streq()
begin
# Search the list of defined systems.
do i = 1, MI_NWCS(mw) {
wp = MI_WCSP(mw,i)
if (WCS_SYSTEM(wp) != NULL)
if (streq (S(mw,WCS_SYSTEM(wp)), system))
return (wp)
}
# Not found.
return (NULL)
end
|
