blob: a1559b8f47e941a232d3b7ab11f658358f181e3e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "mwcs.h"
# MW_GSYSTEM -- Return the name of the current default world system.
procedure mw_gsystem (mw, outstr, maxch)
pointer mw #I pointer to MWCS descriptor
char outstr[ARB] #O receives name of world system
int maxch #I max chars out
pointer wp
begin
wp = MI_WCS(mw)
call strcpy (S(mw,WCS_SYSTEM(wp)), outstr, maxch)
end
|
