blob: 10b4807949279b7d37bfe399df380297ca1ae16c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include <imhdr.h>
include <smw.h>
# SMW_ND -- Setup the NDSPEC SMW.
# If there is only one spectrum convert it to EQUISPEC if possible.
procedure smw_nd (im, smw)
pointer im #I IMIO pointer
pointer smw #U MWCS pointer input SMW pointer output
errchk smw_open, smw_daxis, smw_ndes
begin
call smw_open (smw, NULL, im)
if (SMW_NSPEC(smw) == 1)
call smw_ndes (im, smw)
end
|
