1
/*===========================================================================
2
Copyright (C) 1995-2009 European Southern Observatory (ESO)
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.
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.
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 Massachusetss Ave, Cambridge,
19
Corresponding 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
30
===========================================================================*/
35
#include <globaldef.h>
39
extern void endname();
48
extern struct s_trans T;
49
extern struct s_gui G;
56
if(strcmp(term,"trans"))
57
strcat(name,".trans");
59
strcpy(T.transfile,name);
64
fprintf(out,"# Configuration file for Transmission model : %s\n",name);
65
fprintf(out,"instrument %s\n\n",G.sel_inst);
68
fprintf(out,"spectrum %d %s %s\n",
69
T.ispectra,T.spectrapath,T.spectrafile);
71
fprintf(out,"spectrum %d no_path no_spectrum\n",T.ispectra);
72
fprintf(out,"sky %d %d %d\n",T.isky,T.darkness,T.emlines);
73
fprintf(out,"atmosphere %d %f\n",T.iatmos,T.airmass);
74
fprintf(out,"mirror %d\n",T.imirror);
75
fprintf(out,"optics %d\n",T.ioptics);
76
fprintf(out,"dispersor %d %d\n",T.igrism,T.ngrism);
77
fprintf(out,"filter %d %d\n",T.ifilter,T.nfilter);
78
fprintf(out,"ccd %d %d\n",T.iccd,T.nccd);
79
fprintf(out,"gain %f\n",T.einadu);
80
fprintf(out,"ron %f\n",T.ron);
81
fprintf(out,"etime_snr %d %f %f\n",T.itimeSN,T.etime,T.SN);
82
fprintf(out,"extractsky %d\n",1);