← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to libsrc/idi/cidi/iid-2.fc

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
libsrc/idi/cidi/iid-2.fc
 
1
/*===========================================================================
 
2
  Copyright (C) 1995-2009 European Southern Observatory (ESO)
 
3
 
 
4
  This program is free software; you can redistribute it and/or 
 
5
  modify it under the terms of the GNU General Public License as 
 
6
  published by the Free Software Foundation; either version 2 of 
 
7
  the License, or (at your option) any later version.
 
8
 
 
9
  This program is distributed in the hope that it will be useful,
 
10
  but WITHOUT ANY WARRANTY; without even the implied warranty of
 
11
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
12
  GNU General Public License for more details.
 
13
 
 
14
  You should have received a copy of the GNU General Public 
 
15
  License along with this program; if not, write to the Free 
 
16
  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge, 
 
17
  MA 02139, USA.
 
18
 
 
19
  Correspondence concerning ESO-MIDAS should be addressed as follows:
 
20
        Internet e-mail: midas@eso.org
 
21
        Postal address: European Southern Observatory
 
22
                        Data Management Division 
 
23
                        Karl-Schwarzschild-Strasse 2
 
24
                        D 85748 Garching bei Muenchen 
 
25
                        GERMANY
 
26
===========================================================================*/
 
27
 
 
28
 
 
29
/*                     iid.fc
 
30
 
 
31
.VERSION
 
32
 
 
33
090611          last modif
 
34
 
 
35
*/
 
36
 
 
37
 
 
38
 
 
39
#include <stdlib.h>
 
40
#include <string.h>
 
41
 
 
42
int   mm;
 
43
 
 
44
char *ptr1;
 
45
char *loc_pntr();
 
46
 
 
47
/*
 
48
 
 
49
*/
 
50
 
 
51
ROUTINE IIDSSS(dsplay,memids,xoffs,yoffs,splitf,splx,sply,idst)
 
52
int *dsplay;
 
53
int *memids;
 
54
int *xoffs;
 
55
int *yoffs;
 
56
int *splitf;
 
57
int *splx;
 
58
int *sply;
 
59
int *idst;
 
60
 
 
61
{
 
62
int  IIDSSS_C();
 
63
 
 
64
*idst = IIDSSS_C(*dsplay,memids,xoffs,yoffs,*splitf,*splx,*sply);
 
65
return 0;
 
66
}
 
67
 
 
68
/*==========================================================================*/
 
69
 
 
70
/*** idst = IIDERR_C(erno,erstr,strl) ***/
 
71
 
 
72
ROUTINE IID1(erno,strl)
 
73
int *erno;
 
74
int *strl;
 
75
 
 
76
{
 
77
int  n;
 
78
int  IIDERR_C();
 
79
 
 
80
ptr1 = loc_pntr(1,&mm);         /* get location of "erstr" */
 
81
 
 
82
IIDERR_C(*erno,ptr1,strl);
 
83
 
 
84
n = (int) strlen(ptr1);
 
85
if ((n > 0) && (n < mm)) *(ptr1+n) = ' ';
 
86
 
 
87
return 0;
 
88
}
 
89
 
 
90
 
 
91
ROUTINE IIDRST(dsplay,idst)
 
92
int *dsplay;
 
93
int *idst;
 
94
 
 
95
{
 
96
int  IIDRST_C();
 
97
 
 
98
*idst = IIDRST_C(*dsplay);
 
99
return 0;
 
100
}
 
101
 
 
102
 
 
103
ROUTINE IIDUPD(dsplay,idst)
 
104
int *dsplay;
 
105
int *idst;
 
106
 
 
107
{
 
108
int  IIDUPD_C();
 
109
 
 
110
*idst = IIDUPD_C(*dsplay);
 
111
return 0;
 
112
}
 
113
 
 
114
ROUTINE IIDICO(dsplay,flag,idst)
 
115
int *dsplay;
 
116
int *flag;
 
117
int *idst;
 
118
 
 
119
{
 
120
int  IIDICO_C();
 
121
 
 
122
*idst = IIDICO_C(*dsplay,*flag);
 
123
return 0;
 
124
}
 
125
 
 
126
 
 
127
/* CG. ATTENTION to local cconfno */
 
128
ROUTINE IIDSEL(dsplay,confno,idst)
 
129
int *dsplay;
 
130
int *confno;
 
131
int *idst;
 
132
 
 
133
{
 
134
int  cconfno;
 
135
int  IIDSEL_C();
 
136
 
 
137
cconfno = *confno;
 
138
cconfno --;                     /* in C we count from 0 on ...  */
 
139
 
 
140
*idst = IIDSEL_C(*dsplay,cconfno);
 
141
return 0;
 
142
}
 
143
 
 
144
 
 
145
ROUTINE IIDSDP(dsplay,chans,nochan,lutf,ittf,idst)
 
146
int *dsplay;
 
147
int *idst;
 
148
int *chans;
 
149
int *nochan;
 
150
int *lutf;
 
151
int *ittf;
 
152
 
 
153
{
 
154
int  IIDSDP_C();
 
155
 
 
156
*idst = IIDSDP_C(*dsplay,chans,*nochan,lutf,ittf);
 
157
return 0;
 
158
}
 
159
 
 
160
ROUTINE IIDIAG(dsplay,luno,idst)
 
161
int *dsplay;
 
162
int *luno;
 
163
int *idst;
 
164
 
 
165
{
 
166
int  IIDIAG_C();
 
167
 
 
168
*idst = IIDIAG_C(*dsplay,*luno);
 
169
return 0;
 
170
}
 
171
 
 
172
 
 
173
ROUTINE IIDQDV(dsplay,totcnf,szx,szy,depth,nlut,nitt,ncurs,idst)
 
174
 
 
175
int *dsplay;
 
176
int *totcnf;
 
177
int *szx;
 
178
int *szy;
 
179
int *depth;
 
180
int *nlut;
 
181
int *nitt;
 
182
int *ncurs;
 
183
int *idst;
 
184
 
 
185
{
 
186
int  IIDQDV_C();
 
187
 
 
188
 
 
189
*idst = IIDQDV_C(*dsplay,totcnf,szx,szy,depth,nlut,nitt,ncurs);
 
190
return 0;
 
191
}
 
192
 
 
193
 
 
194
ROUTINE IIDQDC(dsplay,confno,memtyp,totmem,confmd,memid,
 
195
               memszx,memszy,memdep,ittdep,nomem,idst)
 
196
int *dsplay;
 
197
int *confno;
 
198
int *memtyp;
 
199
int *totmem;
 
200
int *confmd;
 
201
int *memid;
 
202
int *memszx;
 
203
int *memszy;
 
204
int *memdep;
 
205
int *ittdep;
 
206
int *nomem;
 
207
int *idst;
 
208
 
 
209
{
 
210
int  IIDQDC_C();
 
211
 
 
212
 
 
213
*idst = IIDQDC_C(*dsplay,*confno,*memtyp,*totmem,
 
214
                 confmd,memid,memszx,memszy,memdep,ittdep,nomem);
 
215
return 0;
 
216
}
 
217
 
 
218
 
 
219
ROUTINE IIDQCI(dsplay,capa,outsiz,outdat,total,idst)
 
220
int *dsplay;
 
221
int *capa;
 
222
int *outsiz;
 
223
int *outdat;
 
224
int *total;
 
225
int *idst;
 
226
{
 
227
int  IIDQCI_C();
 
228
 
 
229
*idst = IIDQCI_C(*dsplay,*capa,*outsiz,outdat,total);
 
230
return 0;
 
231
}
 
232
 
 
233
 
 
234
ROUTINE IIDSNP(dsplay,colmode,npixel,xoff,yoff,depth,packf,data,idst)
 
235
int *dsplay;
 
236
int *colmode;
 
237
int *npixel;
 
238
int *xoff;
 
239
int *yoff;
 
240
int *depth;
 
241
int *packf;
 
242
int *data;
 
243
int *idst;
 
244
 
 
245
{
 
246
int  IIDSNP_C();
 
247
 
 
248
*idst = IIDSNP_C(*dsplay,*colmode,*npixel,*xoff,*yoff,*depth,*packf,data);
 
249
return 0;
 
250
}
 
251