Exec.c File Reference

Execution functions for the DAS KeyWords. Inthis file are implemented all the functions executed by DAS when is executed in Automatic Mode (with a PRG driver file) More...

#include <windows.h>
#include <stdio.h>
#include <io.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <sys/timeb.h>
#include "mgui.h"
#include "DAS_Spatram.h"
#include "dcl.h"
#include "dil.h"
#include "dxl.h"
#include "wsc.h"
#include "bil.h"

Include dependency graph for Exec.c:

Go to the source code of this file.

Functions
int	DB_StsMotor (int c)
void	E_AAMeasure (void)
	perform measurements with the Alt Azimuth Platform perform measurements with the Alt Azimuth Platform positioning all the spectrometer devices More...
void	E_AAPos (void)
	alt Az Positioning. Available for SPATRAMPLUS and TROPOGAS (with the AltAzPlatform) More...
void	E_Almucantar (void)
	. All the E_xxxxx() function are used during the execution in PRG mode More...
void	E_AutoRange (void)
	Autoranging. Procedure for Autoranging. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Average (void)
	Averaged Measurements. Procedure for Averaged Measurements. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_AvgCCDHor (void)
	Averaged Horizontal Measurements. Procedure for Averaged Measurements with external lamp. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Azimuth (void)
	Position Azimuth Axis. More...
void	E_Calibra (void)
	Execute D_Calibra. D_Calibra is a procedure for the spectral calibration with HG lamp. Shift of HG spectral line at 4358.4 on pixel 512 All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_ChkExLamp (void)
void	E_Dark (void)
	Execute Dark Measurement. Procedure for Dark Measurement. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_DFMeasure (void)
	Perform Measurement setting the ND Filter Wheel also. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_DirectSun (void)
	. All the E_xxxxx() function are used during the execution in PRG mode More...
void	E_Expo (void)
	Exposuring. Read the Exposure time from PRG file. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_ExtLampOFF (void)
	External lamp OFF. More...
void	E_ExtLampON (void)
	External lamp ON. More...
void	E_ExtShutClose (void)
	Close External Shutter. More...
void	E_ExtShutOpen (void)
	Open External Shutter. More...
void	E_Filter (void)
	Filter Wheel positioning. Procedure for Filter Wheel positioning. All the E_xxxxx() function are used during the execution in PRG mode. More...
int	E_GetCCD (void)
	Get CCD. Execute DB_GetCCD. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Hg_Off (void)
	HG OFF. Hg lamp OFF. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Hg_On (void)
	HG ON. Hg lamp ON. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_HGratCal (void)
	Perform home grating and HG Calibration. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_HgScan (void)
	Check the full spectral range with HG ON. All the E_xxxxx() function are used during the execution in PRG mode. More...
int	E_Home_SM1 (void)
	Home for SM1. Set the reference position for Stepper motor 1 (Input Mirror). All the E_xxxxx() function are used during the execution in PRG mode. More...
int	E_Home_SM2 (void)
	Home for SM2. Set the reference position for Stepper motor 2 (Grating). All the E_xxxxx() function are used during the execution in PRG mode. More...
int	E_Home_SM3 (void)
	Home for SM3. Set the reference position for Stepper motor 3 (Filter Wheel). All the E_xxxxx() function are used during the execution in PRG mode. More...
int	E_Home_SM4 (void)
	Home for SM4. Set the reference position for Stepper motor 4 (Neutral density filter wheel). All the E_xxxxx() function are used during the execution in PRG mode. More...
int	E_Home_SM5 (void)
	Home for SM5. Set the reference position for Stepper motor 5 (MIGE Zenith). All the E_xxxxx() function are used during the execution in PRG mode. More...
int	E_Home_SM6 (void)
	Home for SM6. Set the reference position for Stepper motor 6 (MIGE Azimuth). All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_IRefSun (void)
	Io Measured near the sun. This procedure carries out a measurements for the reference spectrum used in DOAS analysis, with the alt Azimut platfor pointing the sun. Available for SPATRAMPLUS and TROPOGAS (with the AltAzPlatform) More...
void	E_Label (void)
	labeling. The text after the key-word is a label. All the E_xxxxx() function are used during the execution in PRG mode More...
void	E_Lambda (void)
	Lambda Reading. When the WAVELEN key-word is encountred in the PRG file, the Wavelength code from PRG file is read and the grating is positioned. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Meashor (void)
	perform horizontal measurements (3) 1) measurement with external lamp 2) measurement without the external lamp (same exposure time than 1) 3) measurement without the external lamp (exposure time recalculated) More...
void	E_Meashor2 (void)
	perform horizontal measurements (2) 1) measurement with external lamp 2) measurement without the external lamp (same exposure time than 1) More...
void	E_Measure (void)
	Perform Measurement. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Mirror (void)
	Inpot Mirror positioning. Procedure for Input mirror positioning. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_NDFilter (void)
	Set ND Filter. Set ND Filter All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Plot (void)
	Plot Spectrum. Plot Spectrum. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Qj_Off (void)
	Qj OFF. QJ - Halogen - lamp OFF. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Qj_On (void)
	Qj ON. QJ - Halogen - lamp ON. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_QjScan (void)
	Check the full spectral range with QJ ON. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Radio (void)
	Radiometric Measurements. Procedure for Radiometric Measurements. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_REM (void)
	Flush string since the Carriege Return. Procedure for flushing the readed string since the Carriege Return. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Save (void)
	Save Image. Procedure for saving image or data. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_SetCCDOffSet (void)
	Set the CCD Offst (only for HIRES-V. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_SetCCDPow (void)
	Set CCD Power. Set CCD Power. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_SetCCDTemp (void)
	Set CCD Temp. Set CCD Temp. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_SetCCDVBin (void)
	Set CCD Vert Binn. Set CCD Vert Binn. All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_WAIT (void)
	Delay Procedure. sleep the program . All the E_xxxxx() function are used during the execution in PRG mode. More...
void	E_Zenith (void)
	Position Zenith Axis. More...
int	ExtLamp (int mod)
	change the status of the external lamp change the status of the external lamp (ON or OFF) through a radio signal controlled by the AMS output port (bit 7) NOTE - This feature is not used!!!!!! More...
int	ExtShutt (int mod)
	change the status of the external shutter change the status of the external shutter (OPEN or CLOSED) through a radio signal controlled by the AMS output port (bit 6) More...
void	PerformMeas (int mod, int ar, double te, int mt, int sv, int pl)
	Perform Averaged or single measurements. More...
void	quick (unsigned *elemento, int conta)
void	Radio (int g)
	NOT Used . More...

Variables
das	DAS
DXL_par	DXL
int	ExeREM
flag	FLAG
int	FlagBarra = 0
double	FlagTExp = 1.0
char	NewDate [8]
char	OldDate [8]
omuthr	OMUTHR
paramini	PARAM
int	Total = 0
	Progressive acquisition number for file (MAX defined = 50) More...

Detailed Description

Execution functions for the DAS KeyWords. Inthis file are implemented all the functions executed by DAS when is executed in Automatic Mode (with a PRG driver file)

Author

Daniele Bortoli

Definition in file Exec.c.

Function Documentation

DB_StsMotor()

int DB_StsMotor

(

int

c

)

Definition at line 785 of file Exec.c.

References DXL_par::add, DXL_par::bufrx, DXL_RxStr(), DXL_TxStr(), MLoopWhileEvents(), and STS0LEN.

{
    int sts = 0, d, er = 0; 

    switch(c)
    {
        case 0:
        {
            DXL.add = 0;
            do
            {
                DXL_TxStr("800", 3);
                d = STS0LEN;
                er = DXL_RxStr(DXL.bufrx, &d);
                MLoopWhileEvents(0);
            }while(DXL.bufrx[0] == '0' && DXL.bufrx[1] == '0' && er == 0);
            sts = 1;
        }
        break;

        case 1:
        {
            DXL.add = 0;
            do
            {
                DXL_TxStr("801", 3);
                d = STS0LEN;
                er = DXL_RxStr(DXL.bufrx, &d);
                MLoopWhileEvents(0);
                
            }while(DXL.bufrx[0] == '0' && DXL.bufrx[1] == '0' && er == 0);
            sts = 1;
        }
        break;

        case 2:
        {
            DXL.add = 1;
            do
            {
                DXL_TxStr("800", 3);
                d = STS0LEN;
                er = DXL_RxStr(DXL.bufrx, &d);
                MLoopWhileEvents(0);
            }while(DXL.bufrx[0] == '0' && DXL.bufrx[1] == '0' && er == 0);
            sts = 1;
            DXL.add=0;
        }
        break;
        
    }
    return sts;
}

Here is the call graph for this function:

E_AAMeasure()

void E_AAMeasure

(

void

)

perform measurements with the Alt Azimuth Platform perform measurements with the Alt Azimuth Platform positioning all the spectrometer devices

Definition at line 997 of file Exec.c.

References optionini::avgautor, das::DOption, E_REM(), paramini::EqType, ExeREM, FDOUBLE, optionini::filtertype, FPLUS, LookforWl_X(), optionini::measmode, das::Paramini, PerformMeas(), PrgCnt, Program, S_zenetr, SD_Azimuth(), SD_FilterW(), SD_FNTorqueM(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), SD_Position(), SD_Zenith(), optionini::smposmode, SPATRAM2, SPATRAM3, SPATRAMPLUS, and wl.

Referenced by D_AutoExecution().

{

    int er=0;
    int l, f, m, a, d, s, g, wl;
    double z, az;
    double t;

    sscanf(&Program[PrgCnt], "%d%d%d%lf%lf%d%lf%d%d%d", &m, &wl, &f, &z, &az, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);


    if(z == 360)
        z = -S_zenetr; //per misure di Io nel piano azimuthale in cui ho fatto misure (da controllarese deve essere positivo negativo o 90-)


    if (DAS.DOption.smposmode)
        SD_Position(m, l, f, z, az);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Zenith positioning
        SD_Zenith((float)z);
        //Azimuth positioning
        SD_Azimuth((float)az,0);
    }

    if(DAS.DOption.filtertype == FDOUBLE)
    {
        if((DAS.Paramini.EqType == SPATRAM2) || (DAS.Paramini.EqType == SPATRAMPLUS) || (DAS.Paramini.EqType == SPATRAM3))
                SD_NDFilterW(0); //Reset NDFilterWheel position
    }

    if(DAS.DOption.filtertype == FPLUS)
    {
                SD_FNTorqueM(0); //Reset NDFilterWheel position
    }
    
    ExeREM = 0;

    
    if(DAS.DOption.measmode == 0) //Single
        PerformMeas(0, a, t, d, s, g);
    if(DAS.DOption.measmode == 1) //AVG
    {
        if(DAS.DOption.avgautor)
            PerformMeas(1, a, t, d, s, g);
        else
            PerformMeas(2, a, t, d, s, g);

    }

    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_AAPos()

void E_AAPos

(

void

)

alt Az Positioning.
Available for SPATRAMPLUS and TROPOGAS (with the AltAzPlatform)

Definition at line 893 of file Exec.c.

References E_REM(), PrgCnt, Program, and SD_Position().

Referenced by D_AutoExecution().

{

    int er=0;
//  int l, f, m, d, g;
    double z, az;
//  double t;


    sscanf(&Program[PrgCnt], "%lf%lf", &z, &az);


        SD_Position(-1, -1, -1, z, az);
        E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Almucantar()

void E_Almucantar

(

void

)

.
All the E_xxxxx() function are used during the execution in PRG mode

Definition at line 1680 of file Exec.c.

References delay(), das::DOption, E_REM(), elev, paramini::EqType, ExeREM, FDOUBLE, optionini::filtertype, FPLUS, LookforWl_X(), das::Paramini, PerformMeas(), PrgCnt, Program, S_azim, S_zenetr, SD_FilterW(), SD_FNTorqueM(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), SD_Position(), optionini::smposmode, SPATRAM2, SPATRAM3, SPATRAMPLUS, and wl.

Referenced by D_AutoExecution().

{

    char str[16];
    float azi, elev;
    int er=0;
    int l, f, m, a, d, s, g, wl, nf,k;
    double t;

    //sun Azimuth angle    
    sprintf(str, "%.01lf", S_azim);
    azi = atof(str);

    //Elevation Angle   
    sprintf(str, "%.01lf", (90 - S_zenetr));   
    elev = atof(str); 



    sscanf(&Program[PrgCnt], "%d%d%d%d%d%lf%d%d%d", &m, &wl, &f, &nf, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);

for(k=0; k<=360; k+=10)
{

if (DAS.DOption.smposmode)
    {
        //SD_PosOMUDev(m, l, f);
        SD_Position(m, l, f, elev, k);
        

        if(DAS.DOption.filtertype == FDOUBLE)
        {
            if(DAS.Paramini.EqType == SPATRAM2 || DAS.Paramini.EqType == SPATRAMPLUS || DAS.Paramini.EqType == SPATRAM3)
                SD_NDFilterW(nf); //ND1
        }
        if(DAS.DOption.filtertype == FPLUS)
        {
//          if(DAS.Paramini.EqType == GASCODNG1)
//          {
                SD_FNTorqueM(nf);//ND1
                delay(700);
//          }
        }

    }
        //SD_Position(m, l, f, 0, 0);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Neutral  filter wheel positioning
        SD_NDFilterW(nf);
        if(DAS.DOption.filtertype == FDOUBLE)
        {
            if(DAS.Paramini.EqType == SPATRAM2      || 
                DAS.Paramini.EqType == SPATRAMPLUS  || 
                DAS.Paramini.EqType == SPATRAM3)
                    SD_NDFilterW(nf); //ND1
        }
        if(DAS.DOption.filtertype == FPLUS)
        {
//          if(DAS.Paramini.EqType == GASCODNG1)
//          {
                SD_FNTorqueM(nf);//ND1
                delay(700);
//          }
        }
        //Zenith positioning
        //SD_Zenith(z);
        //Azimuth positioning
        //SD_Azimuth(az);
    }

    
    ExeREM = 0;
    PerformMeas(0, a, t, d, s, g);

    ExeREM = 1;
}
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_AutoRange()

void E_AutoRange

(

void

)

Autoranging.
Procedure for Autoranging. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 342 of file Exec.c.

References AutoRange(), E_REM(), ExeREM, and Status().

Referenced by D_AutoExecution(), and Radio().

{

    ExeREM = 0;
    Status("Autoranging...");
    AutoRange(0);
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Average()

void E_Average

(

void

)

Averaged Measurements.
Procedure for Averaged Measurements. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 612 of file Exec.c.

References E_REM(), ExeREM, LookforWl_X(), PerformMeas(), PrgCnt, Program, SD_FilterW(), SD_Grating(), SD_Mirror(), and wl.

Referenced by D_AutoExecution().

{

    int er=0;
    int l, f, m, a, d, s, g, wl;
    double t;

    
    extern struct date dok;
    int StsTot = 0;
    int StsMir = 0, StsGrat = 0, StsFW = 0;

    sscanf(&Program[PrgCnt], "%d%d%d%d%lf%d%d%d", &m, &wl, &f, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);



    //Posiziona specchio
    SD_Mirror(m);
    //Posiziona reticolo    
    SD_Grating(l);
    //Posiziona Ruota dei filtri
    SD_FilterW(f);

    ExeREM = 0;

    PerformMeas(1, a, t, d, s, g); //Measuremet with TExp computed by Autoranging 

    
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_AvgCCDHor()

void E_AvgCCDHor

(

void

)

Averaged Horizontal Measurements.
Procedure for Averaged Measurements with external lamp. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 538 of file Exec.c.

References das::DOption, E_REM(), ExeREM, ExtShutt(), flag::extshutter, LookforWl_X(), PerformMeas(), PrgCnt, Program, SD_FilterW(), SD_Grating(), SD_Mirror(), SD_PosOMUDev(), optionini::smposmode, and wl.

Referenced by D_AutoExecution().

{

    int er=0;
    int l, f, m, a, d, s, g, wl;
    double t;
    extern struct date dok;

    int StsTot = 0;
    int StsMir = 0, StsGrat = 0, StsFW = 0;

    // The progression of "PrgCnt" is now in the Fetch function
    // PrgCnt += 7;

    sscanf(&Program[PrgCnt], "%d%d%d%d%lf%d%d%d", &m, &wl, &f, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);

    
    if (DAS.DOption.smposmode)
        SD_PosOMUDev(m, l, f);
        //SD_Position(m, l, f, 0, 0);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Zenith positioning
//      SD_Zenith(z);
        //Azimuth positioning
//      SD_Azimuth(az);
    }
    ExeREM = 0;
    /******************************************************************/

    //*********************** Start First Measurement ******************

    PerformMeas(1, a, t, d, s, g); //Measuremet with TExp computed by Autoranging with external lamp

    //*********************** End First Measurement ******************

    //*********************** Start Second Measurement ******************
    //Close External Shutter
    if (FLAG.extshutter == 0)
    {
        ExtShutt(0);
        FLAG.extshutter = 1;
        
    }
    
    PerformMeas(2, a, t, d, s, g); //Measuremet with previous TExp (computed by Autoranging with external lamp)
    //*********************** End Second Measurement ******************

    //*********************** Start Third Measurement ******************
    PerformMeas(0, a, t, d, s, g); //Measurement with TExp computed by Autoranging without external lamp
    
    //Open External Shutter
    if (FLAG.extshutter)
    {
        ExtShutt(0);
        FLAG.extshutter = 0;
    }

    //*********************** End Third Measurement ******************

    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Azimuth()

void E_Azimuth

(

void

)

Position Azimuth Axis.

Definition at line 1473 of file Exec.c.

References E_REM(), ExeREM, PrgCnt, Program, and SD_Azimuth().

Referenced by D_AutoExecution().

{
    double  l;
    sscanf(&Program[PrgCnt], "%lf", &l);
    ExeREM = 0;

    l = (float) l;

    SD_Azimuth((float)l,0);

    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Calibra()

void E_Calibra

(

void

)

Execute D_Calibra.
D_Calibra is a procedure for the spectral calibration with HG lamp. Shift of HG spectral line at 4358.4 on pixel 512 All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 330 of file Exec.c.

References D_Calibra(), E_REM(), and ExeREM.

Referenced by D_AutoExecution().

{
    ExeREM = 0;
    D_Calibra();
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_ChkExLamp()

void E_ChkExLamp

(

void

)

Definition at line 1225 of file Exec.c.

References AutoRange(), E_REM(), ExeREM, ExtShutt(), flag::extshutter, and TExp.

Referenced by D_AutoExecution().

{

    int flagstatus = 1; 
    int cont = 0;
    double Texp_temp = 0;
    double T1 = 0, T2 = 0; 
    extern struct date dok;

        // Check if the shutter is open or closed 
        // It has to be open (so the Exposure time has to be short...)
    ExeREM = 0;
    do
    {
        //the shutter is thinked to be open
        //first measurement with the shutter open
        AutoRange(0);
        T1 = TExp;

        //Close External Shutter

        ExtShutt(0);

        AutoRange(0);
        T2 = TExp;
        if( T1/T2 < 1) // the shutter was open at the first measurement and Now it has to be open again
        {   //Open External Shutter
            ExtShutt(0);
            FLAG.extshutter = 0;
            flagstatus = 0;
        }
        else
        {
            //the shutter was closed at the first measurement so now is already open
            FLAG.extshutter = 0;
            flagstatus = 0;
        }
//      AutoRange(0);
//      if( (TExp <= T1 + 1) & (TExp >= T1 - 1))
//          flagstatus = 0;

        cont++;

    }while((flagstatus) | (cont == 5));

    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Dark()

void E_Dark

(

void

)

Execute Dark Measurement.
Procedure for Dark Measurement. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 279 of file Exec.c.

References img::DATE, DB_DefectPixCorr(), DC_GetCCD(), DI_Regen(), DI_ScanMaxMin(), DIL, das::DOption, E_REM(), ExeREM, GetDateTime(), img::High, img::IHigh, img::ILow, img::Imat, dil::Img, img::Low, image::Mat, optionini::pixcorr, Server, TExp, and img::TIME.

Referenced by D_AutoExecution().

{

    struct tm today;
    ExeREM = 0;

    DC_GetCCD(0, TExp, DIL.Img.Mat[Server].Imat, 0);
    if (DAS.DOption.pixcorr)
        DB_DefectPixCorr();

    DI_ScanMaxMin(Server, &DIL.Img.Mat[Server].High, &DIL.Img.Mat[Server].Low);         
    DIL.Img.Mat[Server].ILow = DIL.Img.Mat[Server].Low ;
    DIL.Img.Mat[Server].IHigh = DIL.Img.Mat[Server].High ;

    DI_Regen(Server);

        GetDateTime(&DIL.Img.Mat[Server].DATE, &DIL.Img.Mat[Server].TIME, &today);
    //  gettime( &DIL.Img.Mat[Server].TIME );
    //  getdate( &DIL.Img.Mat[Server].DATE );

    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_DFMeasure()

void E_DFMeasure

(

void

)

Perform Measurement setting the ND Filter Wheel also.
All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 911 of file Exec.c.

References optionini::avgautor, delay(), das::DOption, E_REM(), paramini::EqType, ExeREM, FDOUBLE, optionini::filtertype, FPLUS, LookforWl_X(), optionini::measmode, das::Paramini, PerformMeas(), PrgCnt, Program, SD_FilterW(), SD_FNTorqueM(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), SD_PosOMUDev(), optionini::smposmode, SPATRAM2, SPATRAM3, SPATRAMPLUS, and wl.

Referenced by D_AutoExecution().

{
    int er=0;
    int l, f, m, a, d, s, g,nf;
    int wl;
    double t;
    extern struct date dok;


    int StsTot = 0;
    int StsMir = 0, StsGrat = 0, StsFW = 0;
// The progression of "PrgCnt" is now in the Fetch function
//  PrgCnt += 7;
 

    sscanf(&Program[PrgCnt], "%d%d%d%d%d%lf%d%d%d", &m, &wl, &f, &nf, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);


    if (DAS.DOption.smposmode)
    {
        SD_PosOMUDev(m, l, f);
        if(DAS.DOption.filtertype == FDOUBLE)
        {
            if((DAS.Paramini.EqType == SPATRAM2) || (DAS.Paramini.EqType == SPATRAMPLUS) || (DAS.Paramini.EqType == SPATRAM3))
                SD_NDFilterW(nf); //ND1
        }
        if(DAS.DOption.filtertype == FPLUS)
        {
            //if(DAS.Paramini.EqType == GASCODNG1)
            //{
                SD_FNTorqueM(nf);//ND1
                delay(700);
            //}
        }
    }
        //SD_Position(m, l, f, 0, 0);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Neutral  filter wheel positioning
        SD_NDFilterW(nf);
        if(DAS.DOption.filtertype == FDOUBLE)
        {
            if((DAS.Paramini.EqType == SPATRAM2) || (DAS.Paramini.EqType == SPATRAMPLUS) || (DAS.Paramini.EqType == SPATRAM3))
                SD_NDFilterW(nf); //ND1
        }
        if(DAS.DOption.filtertype == FPLUS)
        {
            //if(DAS.Paramini.EqType == GASCODNG1)
            //{
                SD_FNTorqueM(nf);//ND1
                delay(700);
            //}
        }
        //Zenith positioning
        //SD_Zenith(z);
        //Azimuth positioning
        //SD_Azimuth(az);
    }

    ExeREM = 0;

    if(DAS.DOption.measmode == 0) //Single
        PerformMeas(0, a, t, d, s, g);
    if(DAS.DOption.measmode == 1) //AVG
    {
        if(DAS.DOption.avgautor)
            PerformMeas(1, a, t, d, s, g);
        else
            PerformMeas(2, a, t, d, s, g);
        
    }
 
    ExeREM = 1;
    E_REM();


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_DirectSun()

void E_DirectSun

(

void

)

.
All the E_xxxxx() function are used during the execution in PRG mode

Definition at line 1596 of file Exec.c.

References delay(), das::DOption, E_REM(), elev, paramini::EqType, ExeREM, FDOUBLE, optionini::filtertype, FPLUS, LookforWl_X(), das::Paramini, PerformMeas(), PrgCnt, Program, S_azim, S_zenetr, SD_FilterW(), SD_FNTorqueM(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), SD_Position(), optionini::smposmode, SPATRAM2, SPATRAM3, SPATRAMPLUS, and wl.

Referenced by D_AutoExecution().

{

    char str[16];
    float azi, elev;
    int er=0;
    int l, f, m, a, d, s, g, wl, nf;
    double t;

    //sun Azimuth angle    
    sprintf(str, "%.01lf", S_azim);
    azi = atof(str);

    //Elevation Angle   
    sprintf(str, "%.01lf", (90 - S_zenetr));   
    elev = atof(str); 



    sscanf(&Program[PrgCnt], "%d%d%d%d%d%lf%d%d%d", &m, &wl, &f, &nf, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);


    if (DAS.DOption.smposmode)
    {
        //SD_PosOMUDev(m, l, f);
        SD_Position(m, l, f, elev, azi);
        if(DAS.DOption.filtertype == FDOUBLE)
        {
            if(DAS.Paramini.EqType == SPATRAM2 || DAS.Paramini.EqType == SPATRAMPLUS || DAS.Paramini.EqType == SPATRAM3)
                SD_NDFilterW(nf); //ND1
        }
        if(DAS.DOption.filtertype == FPLUS)
        {
        //  if(DAS.Paramini.EqType == GASCODNG1)
        //  {
                SD_FNTorqueM(nf);//ND1
                delay(700);
        //  }
        }

    }
        //SD_Position(m, l, f, 0, 0);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Neutral  filter wheel positioning
        SD_NDFilterW(nf);
        if(DAS.DOption.filtertype == FDOUBLE)
        {
            if(DAS.Paramini.EqType == SPATRAM2 || DAS.Paramini.EqType == SPATRAMPLUS ||DAS.Paramini.EqType == SPATRAM3)
                SD_NDFilterW(nf); //ND1
        }
        if(DAS.DOption.filtertype == FPLUS)
        {
//          if(DAS.Paramini.EqType == GASCODNG1)
//          {
                SD_FNTorqueM(nf);//ND1
                delay(700);
//          }
        }
        //Zenith positioning
        //SD_Zenith(z);
        //Azimuth positioning
        //SD_Azimuth(az);
    }

    
    ExeREM = 0;
    PerformMeas(0, a, t, d, s, g);

    ExeREM = 1;
    E_REM();



}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Expo()

void E_Expo

(

void

)

Exposuring.
Read the Exposure time from PRG file. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 365 of file Exec.c.

References E_REM(), PrgCnt, Program, and Status().

Referenced by D_AutoExecution().

{
    double  l;
//  PrgCnt += 4;
    sscanf(&Program[PrgCnt], "%lf", &l);
    Status("Exposure Time");
//  TExp = l;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_ExtLampOFF()

void E_ExtLampOFF

(

void

)

External lamp OFF.

Definition at line 66 of file Exec.c.

References E_REM(), ExeREM, flag::extlamp, and ExtLamp().

Referenced by D_AutoExecution().

{
    ExeREM = 0;

    if(FLAG.extlamp)
        ExtLamp(0);

    ExeREM = 1;
    E_REM();
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_ExtLampON()

void E_ExtLampON

(

void

)

External lamp ON.

Definition at line 54 of file Exec.c.

References E_REM(), ExeREM, flag::extlamp, and ExtLamp().

Referenced by D_AutoExecution().

{
    ExeREM = 0;

    if(FLAG.extlamp == 0)
        ExtLamp(0);

    ExeREM = 1;
    E_REM();
        
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_ExtShutClose()

void E_ExtShutClose

(

void

)

Close External Shutter.

Definition at line 91 of file Exec.c.

References E_REM(), ExeREM, ExtShutt(), and flag::extshutter.

Referenced by D_AutoExecution().

{
    ExeREM = 0;

    if(FLAG.extshutter == 0)
        ExtShutt(0);

    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_ExtShutOpen()

void E_ExtShutOpen

(

void

)

Open External Shutter.

Definition at line 79 of file Exec.c.

References E_REM(), ExeREM, ExtShutt(), and flag::extshutter.

Referenced by D_AutoExecution().

{
    ExeREM = 0;

    if(FLAG.extshutter == 1)
        ExtShutt(0);

    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Filter()

void E_Filter

(

void

)

Filter Wheel positioning.
Procedure for Filter Wheel positioning. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 761 of file Exec.c.

References E_REM(), ExeREM, PrgCnt, Program, and SD_FilterW().

Referenced by D_AutoExecution().

{
    int l;
// The progression of "PrgCnt" is now in the Fetch function
//  PrgCnt += 6;
    sscanf(&Program[PrgCnt], "%d", &l);
    ExeREM = 0;
    SD_FilterW(l);
    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_GetCCD()

int E_GetCCD

(

void

)

Get CCD.
Execute DB_GetCCD. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 705 of file Exec.c.

References DB_GetCCD(), E_REM(), ExeREM, and Status().

Referenced by D_AutoExecution(), and Radio().

{

    ExeREM = 0;
    Status("Getting CCD Image...");
    DB_GetCCD(1);
    ExeREM = 1;
    E_REM();
    return 0;


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Hg_Off()

void E_Hg_Off

(

void

)

HG OFF.
Hg lamp OFF. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 255 of file Exec.c.

References E_REM(), ExeREM, and HgLamp().

Referenced by D_AutoExecution(), and E_HgScan().

{
    ExeREM = 0;
    HgLamp(0);
    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Hg_On()

void E_Hg_On

(

void

)

HG ON.
Hg lamp ON. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 246 of file Exec.c.

References E_REM(), ExeREM, and HgLamp().

Referenced by D_AutoExecution(), and E_HgScan().

{
    ExeREM = 0;
    HgLamp(1);
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_HGratCal()

void E_HGratCal

(

void

)

Perform home grating and HG Calibration.
All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 1488 of file Exec.c.

References D_Calibra(), ExeREM, HomeGratingFast(), and Status().

Referenced by D_AutoExecution().

{
    ExeREM = 0;
    Status("Home for Grating...");
//  AMS_MotorOn_Off(AMS1,0,1);
    HomeGratingFast(0);
//  AMS_MotorOn_Off(AMS1,0,0);
    
    D_Calibra();    
    
    ExeREM = 1;
//  E_REM();


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_HgScan()

void E_HgScan

(

void

)

Check the full spectral range with HG ON.
All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 1504 of file Exec.c.

References AutoRange(), D_Plot(), DB_GetCCD(), das::DOption, E_Hg_Off(), E_Hg_On(), ExeREM, FDOUBLE, optionini::filtertype, das::Flag, FPLUS, flag::plotW, SaveCalib(), SD_FilterW(), SD_FNTorqueM(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), and Status().

Referenced by D_AutoExecution().

{

    int l;
    
    //Switch On QJ Lamp
    E_Hg_On();
    ExeREM = 0;
    //Position Mirror
    SD_Mirror(2);

    for (l=1; l<10; l++)
    {
        //position grating
        SD_Grating(l);
        // Position Filterwheel
        SD_FilterW(0);
        if(DAS.DOption.filtertype == FDOUBLE)
            SD_NDFilterW(0);
        else if(DAS.DOption.filtertype == FPLUS)
            SD_FNTorqueM(0);
        //autorange
        Status("Autoranging...");
        AutoRange(0);
        Status("Getting CCD Image...");
        DB_GetCCD(1);
        //Save the Spectrum
        SaveCalib(1);

        if(DAS.Flag.plotW)
            D_Plot();


    

    }
    E_Hg_Off();
    
    ExeREM = 1;
    //E_REM();


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Home_SM1()

int E_Home_SM1

(

void

)

Home for SM1.
Set the reference position for Stepper motor 1 (Input Mirror). All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 111 of file Exec.c.

References flag::ADPC104, flag::ADTempTest, E_REM(), ExeREM, GRAT_TASK_TIME, ids::GRATHOME, HomeMirror(), IDS, MRefreshTimeout(), MRemoveTimeout(), Status(), and Task_HomeGrat().

Referenced by D_AutoExecution().

{
    ExeREM = 0;

    Status("Home for Mirror..");
//  AMS_MotorOn_Off(AMS1,1,0);
    //MClearTimeout(&IDS.GRATHOME);
    MRemoveTimeout(IDS.GRATHOME);
    //MClearTimeout(&IDS.REFRTEMP);
    HomeMirror();
//  AMS_MotorOn_Off(AMS1,0,0);
    //Home Grating Task
    
    MRefreshTimeout(&IDS.GRATHOME, GRAT_TASK_TIME, Task_HomeGrat, NULL);
        // PeltierTemp Task
        if((FLAG.ADPC104 == 0) | (FLAG.ADTempTest == 1))
        {
            //MRefreshTimeout(&IDS.LISTEMP, LISTEMP_TASK_TIME, Task_LIS_Temp, NULL);
        }

    ExeREM = 1;
    E_REM();

  return 0;


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Home_SM2()

int E_Home_SM2

(

void

)

Home for SM2.
Set the reference position for Stepper motor 2 (Grating). All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 139 of file Exec.c.

References E_REM(), ExeREM, HomeGratingFast(), and Status().

Referenced by D_AutoExecution().

{
    ExeREM = 0;
    Status("Home for Grating...");
//  AMS_MotorOn_Off(AMS1,0,1);
    HomeGratingFast(0);
//  AMS_MotorOn_Off(AMS1,0,0);
    
    ExeREM = 1;
    E_REM();

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Home_SM3()

int E_Home_SM3

(

void

)

Home for SM3.
Set the reference position for Stepper motor 3 (Filter Wheel). All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 154 of file Exec.c.

References AMS2, AMS_MotorOn_Off(), E_REM(), ExeREM, HomeFiltersFast(), and Status().

Referenced by D_AutoExecution().

{
    ExeREM = 0;
    Status("Home for Filter Wheel...");
    AMS_MotorOn_Off(AMS2,1,1);
    HomeFiltersFast();
//  AMS_MotorOn_Off(AMS2,0,0);
    
    ExeREM = 1;
    E_REM();

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Home_SM4()

int E_Home_SM4

(

void

)

Home for SM4.
Set the reference position for Stepper motor 4 (Neutral density filter wheel). All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 209 of file Exec.c.

References AMS2, AMS_Default(), DB_InitAMS(), DB_KB_ButtonActive(), E_REM(), ExeREM, stepm::power, stepm::slope, stepm::SM_A, stepm::SM_B, stepm::speed, Status(), stepm::step, and das::StepM.

Referenced by D_AutoExecution().

{
    int er =0;
    
    ExeREM = 0;
    Status("Home for NDFilter Wheel...");

            DB_KB_ButtonActive(0);
            AMS_Default(AMS2);
            er = DB_InitAMS(AMS2, 7, DAS.StepM.power[AMS2][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS2][DAS.StepM.SM_A], DAS.StepM.slope[AMS2][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS2][DAS.StepM.SM_A], DAS.StepM.power[AMS2][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS2][DAS.StepM.SM_B], DAS.StepM.slope[AMS2][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS2][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);

    
//  HomeAzimFast();
    
    ExeREM = 1;
    E_REM();

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Home_SM5()

int E_Home_SM5

(

void

)

Home for SM5.
Set the reference position for Stepper motor 5 (MIGE Zenith). All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 168 of file Exec.c.

References E_REM(), ExeREM, HomeZenithFast(), and Status().

Referenced by D_AutoExecution().

{
    ExeREM = 0;
    Status("Home for Zenith...");
//  AMS_MotorOn_Off(AMS3,1,0);
    HomeZenithFast();
//  AMS_MotorOn_Off(AMS3,0,0);
    
    ExeREM = 1;
    E_REM();

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Home_SM6()

int E_Home_SM6

(

void

)

Home for SM6.
Set the reference position for Stepper motor 6 (MIGE Azimuth). All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 182 of file Exec.c.

References AMS3, AMS_Default(), DB_InitAMS(), DB_KB_ButtonActive(), E_REM(), ExeREM, stepm::power, stepm::slope, stepm::SM_A, stepm::SM_B, stepm::speed, Status(), stepm::step, and das::StepM.

Referenced by D_AutoExecution().

{
    int er =0;
    
    ExeREM = 0;
    Status("Home for Azimuth...");

            DB_KB_ButtonActive(0);
            AMS_Default(AMS3);
            er = DB_InitAMS(AMS3, 6, DAS.StepM.power[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_A], DAS.StepM.slope[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_A], DAS.StepM.power[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_B], DAS.StepM.slope[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);

    
//  HomeAzimFast();
    
    ExeREM = 1;
    E_REM();

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_IRefSun()

void E_IRefSun

(

void

)

Io Measured near the sun.
This procedure carries out a measurements for the reference spectrum used in DOAS analysis, with the alt Azimut platfor pointing the sun. Available for SPATRAMPLUS and TROPOGAS (with the AltAzPlatform)

Definition at line 845 of file Exec.c.

References das::DOption, E_REM(), elev, ExeREM, LookforWl_X(), PerformMeas(), PrgCnt, Program, S_azim, S_zenetr, SD_Azimuth(), SD_FilterW(), SD_Grating(), SD_Mirror(), SD_Position(), SD_Zenith(), optionini::smposmode, and wl.

Referenced by D_AutoExecution().

{

    char str[16];
    float azi, elev;
    int er=0;
    int l, f, m, a, d, s, g, wl;
    double t;

    //sun Azimuth angle    
    sprintf(str, "%.01lf", S_azim);
    azi = (float)atof(str);

    //Elevation Angle   
    sprintf(str, "%.01lf", (90 - S_zenetr));   
    elev = (float)atof(str); 


    sscanf(&Program[PrgCnt], "%d%d%d%d%lf%d%d%d", &m, &wl, &f, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);


    if (DAS.DOption.smposmode)
        SD_Position(m, l, f, elev, azi);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Zenith positioning
        SD_Zenith(elev);
        //Azimuth positioning
        SD_Azimuth(azi,0);
    }
    
    
    ExeREM = 0;
    PerformMeas(0, a, t, d, s, g);

    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Label()

void E_Label

(

void

)

labeling.
The text after the key-word is a label. All the E_xxxxx() function are used during the execution in PRG mode

Definition at line 745 of file Exec.c.

References E_REM(), PrgCnt, and Program.

Referenced by D_AutoExecution().

{
    char    lab[255];
    int     c = 0;
// The progression of "PrgCnt" is now in the Fetch function
//  PrgCnt += 5;
//  while(Program[PrgCnt++] != 34);
    PrgCnt =PrgCnt+2;
    do
        lab[c++] = Program[PrgCnt];
    while(Program[PrgCnt++] != 34);
    E_REM();
//  lab[c] = 0;
//  Status(lab);
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Lambda()

void E_Lambda

(

void

)

Lambda Reading.
When the WAVELEN key-word is encountred in the PRG file, the Wavelength code from PRG file is read and the grating is positioned. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 718 of file Exec.c.

References E_REM(), ExeREM, LookforWl_X(), PrgCnt, Program, SD_Grating(), and wl.

Referenced by D_AutoExecution().

{
    int wl, l;
// The progression of "PrgCnt" is now in the Fetch function
//  PrgCnt += 7;
    sscanf(&Program[PrgCnt], "%d", &wl);
    l= LookforWl_X(wl);
    ExeREM = 0;
    SD_Grating(l);
    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Meashor()

void E_Meashor

(

void

)

perform horizontal measurements (3) 1) measurement with external lamp 2) measurement without the external lamp (same exposure time than 1) 3) measurement without the external lamp (exposure time recalculated)

Definition at line 1280 of file Exec.c.

References D_Plot(), D_Saving(), DB_GetCCD(), das::DOption, E_REM(), ExeREM, ExtShutt(), flag::extshutter, das::Flag, LookforWl_X(), PerformMeas(), flag::plotW, PrgCnt, Program, SD_FilterW(), SD_Grating(), SD_Mirror(), SD_PosOMUDev(), optionini::smposmode, and wl.

Referenced by D_AutoExecution().

{
    int er=0;
    int l, f, m, a, d, s, g, wl;
    double t;
    extern struct date dok;

    int StsTot = 0;
    int StsMir = 0, StsGrat = 0, StsFW = 0;

    // The progression of "PrgCnt" is now in the Fetch function
    // PrgCnt += 7;

    sscanf(&Program[PrgCnt], "%d%d%d%d%lf%d%d%d", &m, &wl, &f, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);

    
    if (DAS.DOption.smposmode)
        SD_PosOMUDev(m, l, f);
        //SD_Position(m, l, f, 0, 0);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Zenith positioning
        //SD_Zenith(z);
        //Azimuth positioning
        //SD_Azimuth(az);
    }
    ExeREM = 0;
    /******************************************************************/
    /******************************************************************/

    //*********************** Start First Measurement ******************
    PerformMeas(0, a, t, d, s, g);
    //*********************** End First Measurement ******************

    //*********************** Start Second Measurement ******************
    //Close External Shutter
    if (FLAG.extshutter == 0)
    {
        ExtShutt(0);
        FLAG.extshutter = 1;
        
    }
    
    //Measure (d=1) or dark (d=0) - 
    if(d)
    {
            DB_GetCCD(1);
    }
    else
    {
            DB_GetCCD(0);
    }

    //
    if(s)
    {
        D_Saving();
    }
    if(g)
    {
        if(DAS.Flag.plotW)
        D_Plot();
    }
    //*********************** End Second Measurement ******************

    //*********************** Start Third Measurement ******************
    PerformMeas(0, a, t, d, s, g);


    //Open External Shutter
    if (FLAG.extshutter)
    {
        ExtShutt(0);
        FLAG.extshutter = 0;
    }
    //*********************** End Third Measurement ******************
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Meashor2()

void E_Meashor2

(

void

)

perform horizontal measurements (2) 1) measurement with external lamp 2) measurement without the external lamp (same exposure time than 1)

Definition at line 1370 of file Exec.c.

References D_Plot(), D_Saving(), DB_GetCCD(), das::DOption, E_REM(), ExeREM, ExtShutt(), flag::extshutter, das::Flag, LookforWl_X(), PerformMeas(), flag::plotW, PrgCnt, Program, SD_FilterW(), SD_Grating(), SD_Mirror(), SD_PosOMUDev(), optionini::smposmode, and wl.

Referenced by D_AutoExecution().

{
    int er=0;
    int l, f, m, a, d, s, g;
    double t;
    extern struct date dok;
    int wl;

    int StsTot = 0;
    int StsMir = 0, StsGrat = 0, StsFW = 0;

    // The progression of "PrgCnt" is now in the Fetch function
    // PrgCnt += 7;

    sscanf(&Program[PrgCnt], "%d%d%d%d%lf%d%d%d", &m, &wl, &f, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);

    
    if (DAS.DOption.smposmode)
        SD_PosOMUDev(m, l, f);
        //SD_Position(m, l, f, 0, 0);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Zenith positioning
        //SD_Zenith(z);
        //Azimuth positioning
        //SD_Azimuth(az);
    }
    ExeREM = 0;
    /******************************************************************/
    /******************************************************************/

    //*********************** Start First Measurement ******************
    PerformMeas(0, a, t, d, s, g);
    //*********************** End First Measurement ******************

    //*********************** Start Second Measurement ******************
    //Close External Shutter
    if (FLAG.extshutter == 0)
    {
        ExtShutt(0);
        FLAG.extshutter = 1;
        
    }
    
    //Measure (d=1) or dark (d=0) - 
    if(d)
    {
            DB_GetCCD(1);
    }
    else
    {
            DB_GetCCD(0);
    }

    //
    if(s)
    {
        D_Saving();
    }
    if(g)
    {
        if(DAS.Flag.plotW)
        D_Plot();
    }
    //*********************** End Second Measurement ******************

    //*********************** Start Third Measurement ******************
//  PerformMeas(0, a, t, d, s, g);


    //Open External Shutter
    if (FLAG.extshutter)
    {
        ExtShutt(0);
        FLAG.extshutter = 0;
    }
    //*********************** End Third Measurement ******************
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Measure()

void E_Measure

(

void

)

Perform Measurement.
All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 1060 of file Exec.c.

References optionini::avgautor, das::DOption, E_REM(), ExeREM, LookforWl_X(), optionini::measmode, PerformMeas(), PrgCnt, Program, SD_FilterW(), SD_Grating(), SD_Mirror(), SD_PosOMUDev(), optionini::smposmode, and wl.

Referenced by D_AutoExecution().

{
    int er=0;
    int l, f, m, a, d, s, g;
    int wl;
    double t;
    extern struct date dok;


    int StsTot = 0;
    int StsMir = 0, StsGrat = 0, StsFW = 0;
// The progression of "PrgCnt" is now in the Fetch function
//  PrgCnt += 7;
 

    sscanf(&Program[PrgCnt], "%d%d%d%d%lf%d%d%d", &m, &wl, &f, &a, &t, &d, &s, &g);

    l= LookforWl_X(wl);


    if (DAS.DOption.smposmode)
        SD_PosOMUDev(m, l, f);

        //SD_Position(m, l, f, 0, 0);
    else
    {
        //mirror positioning
        SD_Mirror(m);
        //grating positioning   
        SD_Grating(l);
        //filter wheel positioning
        SD_FilterW(f);
        //Zenith positioning
        //SD_Zenith(z);
        //Azimuth positioning
        //SD_Azimuth(az);
    }

    ExeREM = 0;

    if(DAS.DOption.measmode == 0) //Single
        PerformMeas(0, a, t, d, s, g);
    if(DAS.DOption.measmode == 1) //AVG
    {
        if(DAS.DOption.avgautor)
            PerformMeas(1, a, t, d, s, g);
        else
            PerformMeas(2, a, t, d, s, g);

    }
 
    ExeREM = 1;
    E_REM();


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Mirror()

void E_Mirror

(

void

)

Inpot Mirror positioning.
Procedure for Input mirror positioning. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 773 of file Exec.c.

References E_REM(), ExeREM, PrgCnt, Program, and SD_Mirror().

Referenced by D_AutoExecution().

{
    int l;
// The progression of "PrgCnt" is now in the Fetch function
//  PrgCnt += 6;
    sscanf(&Program[PrgCnt], "%d", &l);
    ExeREM = 0;
    SD_Mirror(l);
    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_NDFilter()

void E_NDFilter

(

void

)

Set ND Filter.
Set ND Filter All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 429 of file Exec.c.

References E_REM(), ExeREM, PrgCnt, Program, and SD_NDFilterW().

Referenced by D_AutoExecution().

{

    int l;
    int er=0;
//  char    str[80];
    sscanf(&Program[PrgCnt], "%d", &l);
    ExeREM = 0;
    SD_NDFilterW(l);
    ExeREM = 1;
    E_REM();



}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Plot()

void E_Plot

(

void

)

Plot Spectrum.
Plot Spectrum. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 237 of file Exec.c.

References E_REM(), ExeREM, and ViewPlot().

Referenced by D_AutoExecution().

{
    ExeREM = 0;
    ViewPlot(1);
    ExeREM = 1;
    E_REM();
//  delay(3000);
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Qj_Off()

void E_Qj_Off

(

void

)

Qj OFF.
QJ - Halogen - lamp OFF. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 271 of file Exec.c.

References E_REM(), ExeREM, and QjLamp().

Referenced by D_AutoExecution(), and E_QjScan().

{
    ExeREM = 0;
    QjLamp(0);
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Qj_On()

void E_Qj_On

(

void

)

Qj ON.
QJ - Halogen - lamp ON. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 263 of file Exec.c.

References E_REM(), ExeREM, and QjLamp().

Referenced by D_AutoExecution(), and E_QjScan().

{
    ExeREM = 0;
    QjLamp(1);
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_QjScan()

void E_QjScan

(

void

)

Check the full spectral range with QJ ON.
All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 1548 of file Exec.c.

References AutoRange(), D_Plot(), DB_GetCCD(), das::DOption, E_Qj_Off(), E_Qj_On(), ExeREM, FDOUBLE, optionini::filtertype, das::Flag, FPLUS, flag::plotW, SaveCalib(), SaveCnt, SD_FilterW(), SD_FNTorqueM(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), and Status().

Referenced by D_AutoExecution().

{
    //perform a full scan set of measurement with the QJ lamp
                
    int l;
    
    //Switch On QJ Lamp
    E_Qj_On();
    ExeREM = 0;
    //Position Mirror
    SD_Mirror(2);

    for (l=1; l<10; l++)
    {
        //position grating
        SD_Grating(l);
        // Position Filterwheel
        SD_FilterW(0);
        if(DAS.DOption.filtertype == FDOUBLE)
            SD_NDFilterW(0);
        else if(DAS.DOption.filtertype == FPLUS)
            SD_FNTorqueM(0);
        //autorange
        Status("Autoranging...");
        AutoRange(0);
        Status("Getting CCD Image...");
        DB_GetCCD(1);
        //Save the Spectrum
        SaveCalib(1);

        if(DAS.Flag.plotW)
            D_Plot();


    

    }
    E_Qj_Off();

    
    SaveCnt++;

    ExeREM = 1;
    //E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Radio()

void E_Radio

(

void

)

Radiometric Measurements.
Procedure for Radiometric Measurements. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 684 of file Exec.c.

References E_REM(), ExeREM, p, PrgCnt, and Program.

Referenced by D_AutoExecution().

{
    int l, f, p, m, a, d, s, g;
    double  t;
//  PrgCnt += 7;

    sscanf(&Program[PrgCnt], "%d%d%d%d%d%lf%d%d%d", &l, &f, &p, &m, &a, &t, &d, &s, &g);

    E_REM();

//  Grating(l);
//  FW(f);
//  Polarizer(p);

    ExeREM = 0;
//  Radio(g);
    ExeREM = 1;

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_REM()

void E_REM

(

void

)

Flush string since the Carriege Return.
Procedure for flushing the readed string since the Carriege Return. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 47 of file Exec.c.

References ExeREM, PrgCnt, and Program.

Referenced by D_AutoExecution(), D_Measure(), E_AAMeasure(), E_AAPos(), E_Almucantar(), E_AutoRange(), E_Average(), E_AvgCCDHor(), E_Azimuth(), E_Calibra(), E_ChkExLamp(), E_Dark(), E_DFMeasure(), E_DirectSun(), E_Expo(), E_ExtLampOFF(), E_ExtLampON(), E_ExtShutClose(), E_ExtShutOpen(), E_Filter(), E_GetCCD(), E_Hg_Off(), E_Hg_On(), E_Home_SM1(), E_Home_SM2(), E_Home_SM3(), E_Home_SM4(), E_Home_SM5(), E_Home_SM6(), E_IRefSun(), E_Label(), E_Lambda(), E_Meashor(), E_Meashor2(), E_Measure(), E_Mirror(), E_NDFilter(), E_Plot(), E_Qj_Off(), E_Qj_On(), E_Radio(), E_Save(), E_SetCCDOffSet(), E_SetCCDPow(), E_SetCCDTemp(), E_SetCCDVBin(), E_WAIT(), and E_Zenith().

{
    // Flush stringa
    if(ExeREM)
        while(Program[PrgCnt++] != 10);
}

E_Save()

void E_Save

(

void

)

Save Image.
Procedure for saving image or data. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 355 of file Exec.c.

References D_Saving(), E_REM(), and ExeREM.

Referenced by D_AutoExecution(), and Radio().

{

    ExeREM = 0;
    D_Saving();
    ExeREM = 1;
    E_REM();

}

Here is the call graph for this function:

Here is the caller graph for this function:

E_SetCCDOffSet()

void E_SetCCDOffSet

(

void

)

Set the CCD Offst (only for HIRES-V.
All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 394 of file Exec.c.

References DC_SetUsrGain(), E_REM(), das::Marconi, marconi::Offset, PrgCnt, Program, and Status().

Referenced by D_AutoExecution().

{

    int os;
    int er=0;
//  char    str[80];
    sscanf(&Program[PrgCnt], "%d", &os);
    Status("CCD OffSet");
    DAS.Marconi.Offset = os;
    DC_SetUsrGain(0, 0 , DAS.Marconi.Offset , 0);

    E_REM();


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_SetCCDPow()

void E_SetCCDPow

(

void

)

Set CCD Power.
Set CCD Power. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 411 of file Exec.c.

References gui::ContrPanel, paramini::CoolPw, E_REM(), das::Gui, controlpanel::lbl_Par, MObjectSetText(), das::Paramini, PrgCnt, Program, omuthr::ReachTemp, and Status().

Referenced by D_AutoExecution().

{

    int l;
    int er=0;
    char    str[80];
    sscanf(&Program[PrgCnt], "%d", &l);
    Status("CCD Temperature");
    DAS.Paramini.CoolPw = l;
    OMUTHR.ReachTemp = 0;
    sprintf(str,"%.1lf%%",(double)DAS.Paramini.CoolPw / 10);
    MObjectSetText(DAS.Gui.ContrPanel.lbl_Par[1], str);
    E_REM();


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_SetCCDTemp()

void E_SetCCDTemp

(

void

)

Set CCD Temp.
Set CCD Temp. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 375 of file Exec.c.

References gui::ContrPanel, DB_InitCamera(), E_REM(), das::Gui, paramini::ITemp, controlpanel::lbl_Par, MObjectSetText(), das::Paramini, PrgCnt, Program, omuthr::ReachTemp, and Status().

Referenced by D_AutoExecution().

{

    double  l;
    int er=0;
    char    str[80];
    sscanf(&Program[PrgCnt], "%lf", &l);
    Status("CCD Temperature");
    DAS.Paramini.ITemp = l;
    OMUTHR.ReachTemp = 0;
    sprintf(str, "%.1lf", DAS.Paramini.ITemp);
    MObjectSetText(DAS.Gui.ContrPanel.lbl_Par[0], str);

    er = DB_InitCamera(1);
    E_REM();


}

Here is the call graph for this function:

Here is the caller graph for this function:

E_SetCCDVBin()

void E_SetCCDVBin

(

void

)

Set CCD Vert Binn.
Set CCD Vert Binn. All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 446 of file Exec.c.

References DB_InitCamera(), E_REM(), das::Paramini, PrgCnt, Program, Status(), and paramini::VBin.

Referenced by D_AutoExecution().

{

    int d, er = 0;
    sscanf(&Program[PrgCnt], "%d", &d);
    Status("CCD Vertical Binning");
    DAS.Paramini.VBin = d;
    er = DB_InitCamera(1);
    E_REM();



}

Here is the call graph for this function:

Here is the caller graph for this function:

E_WAIT()

void E_WAIT

(

void

)

Delay Procedure.
sleep the program . All the E_xxxxx() function are used during the execution in PRG mode.

Definition at line 731 of file Exec.c.

References E_REM(), MLoopWhileEvents(), PrgCnt, and Program.

Referenced by D_AutoExecution().

{
    unsigned    l, c;
// The progression of "PrgCnt" is now in the Fetch function
//  PrgCnt += 4;
    sscanf(&Program[PrgCnt], "%u", &l);

    for(c = 0; c < l / 100; c++)
    {
        Sleep(100);
        MLoopWhileEvents(0);
    }
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

E_Zenith()

void E_Zenith

(

void

)

Position Zenith Axis.

Definition at line 1461 of file Exec.c.

References E_REM(), ExeREM, PrgCnt, Program, and SD_Zenith().

Referenced by D_AutoExecution().

{
    double  l;
    sscanf(&Program[PrgCnt], "%lf", &l);
    ExeREM = 0;
    l = (float) l;
    SD_Zenith((float)l);

    ExeREM = 1;
    E_REM();
}

Here is the call graph for this function:

Here is the caller graph for this function:

ExtLamp()

int ExtLamp

(

int

mod

)

change the status of the external lamp change the status of the external lamp (ON or OFF) through a radio signal controlled by the AMS output port (bit 7) NOTE - This feature is not used!!!!!!

Definition at line 1117 of file Exec.c.

References AMS1, AMS_wopto(), delay(), stepm::OOP, and das::StepM.

Referenced by DB_HorComm_CB(), E_ExtLampOFF(), and E_ExtLampON().

{

    unsigned long t = 1000;

    DAS.StepM.OOP[AMS1] |= 0x80; //bit 7, 10000000, dec = 128


    // 1's complement
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    //write on the optoinsulated port
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];

    delay(t);

    DAS.StepM.OOP[AMS1] &= 0x7F; //     01111111, dec = 127

    // 1's complement
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
    //write on the optoinsulated port
    AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
    // again 1's complement for restoring the positive logic
    DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];



    delay(t);


    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

ExtShutt()

int ExtShutt

(

int

mod

)

change the status of the external shutter change the status of the external shutter (OPEN or CLOSED) through a radio signal controlled by the AMS output port (bit 6)

Definition at line 1155 of file Exec.c.

References AMS1, AMS2, AMS_wopto(), delay(), paramini::EqType, MMessageDialog(), stepm::OOP, das::Paramini, SPATRAM2, das::StepM, and TROPOGAS.

Referenced by DB_HorComm_CB(), E_AvgCCDHor(), E_ChkExLamp(), E_ExtShutClose(), E_ExtShutOpen(), E_Meashor(), and E_Meashor2().

{

    unsigned long t = 500;
    char buf[256];
    int er = 0;

    if(DAS.Paramini.EqType == TROPOGAS )
    {
        DAS.StepM.OOP[AMS2] |= 0x40; //bit 6, 01000000, dec = 64

        // 1's complement
        DAS.StepM.OOP[AMS2] = ~DAS.StepM.OOP[AMS2]; 
        //write on the optoinsulated port
        AMS_wopto(AMS2, DAS.StepM.OOP[AMS2]);
        // again 1's complement for restoring the positive logic
        DAS.StepM.OOP[AMS2] = ~DAS.StepM.OOP[AMS2];

        delay(t);

        DAS.StepM.OOP[AMS2] &= 0xBF; //     10111111, dec = 191

        // 1's complement
        DAS.StepM.OOP[AMS2] = ~DAS.StepM.OOP[AMS2]; 
        //write on the optoinsulated port
        AMS_wopto(AMS2, DAS.StepM.OOP[AMS2]);
        // again 1's complement for restoring the positive logic
        DAS.StepM.OOP[AMS2] = ~DAS.StepM.OOP[AMS2];

        //delay(t);

    }
    else if(DAS.Paramini.EqType == SPATRAM2)
    {
        DAS.StepM.OOP[AMS1] |= 0x40; //bit 6, 01000000, dec = 64


        // 1's complement
        DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
        //write on the optoinsulated port
        AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
        // again 1's complement for restoring the positive logic
        DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];

        delay(t);

        DAS.StepM.OOP[AMS1] &= 0xBF; //     10111111, dec = 191


        // 1's complement
        DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1]; 
        //write on the optoinsulated port
        AMS_wopto(AMS1, DAS.StepM.OOP[AMS1]);
        // again 1's complement for restoring the positive logic
        DAS.StepM.OOP[AMS1] = ~DAS.StepM.OOP[AMS1];

        //delay(t);
    }
    else
    {
        sprintf(buf, "For this Equipment the AMS is UNKNOWN\nPlease Contact DANBO!!!!");
        er = MMessageDialog("DAS information", buf, "Ok", NULL);
        if (!er)
            return 1;

    }
    return 0;
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

PerformMeas()

void PerformMeas	(	int	mod,
		int	ar,
		double	te,
		int	mt,
		int	sv,
		int	pl
	)

Perform Averaged or single measurements.

Parameters

mod	0 –> Single measurement 1 –> Averaged measurement (with the ARange - the computatiuon of the optimal exposure time) 2 –> Light measurement (without ARange - Use the last Exposure time.
ar	0 –> NO Autoranging (Exposure time = te) 1 –> Perform Autoranging
te	Exposure time utilized if ar = 0
mt	0 –> Dark Mesurements 1 –> Light Measurements
sv	0 –> DO NOT save spectrum 1 –> Save Spectrum
pl	0 –> DO NOT show plot 1 –> Show Plot

Returns

er

Definition at line 463 of file Exec.c.

References AutoRange(), D_Average(), D_Plot(), D_Saving(), DB_GetCCD(), das::Flag, flag::plotW, Status(), and TExp.

Referenced by E_AAMeasure(), E_Almucantar(), E_Average(), E_AvgCCDHor(), E_DFMeasure(), E_DirectSun(), E_IRefSun(), E_Meashor(), E_Meashor2(), and E_Measure().

{


repeat:

    if(mod == 1)
    {
        
        //Autoranging (ar=1) or fixed texp (ar=0)
        if(ar == 0)
            TExp = te;   
        //Light measurements (mt=1) or dark measurement (mt=0)
        if(mt)
            D_Average(1); // 1 = perform autoranging, 0 = DO NOT PERFORM autoranging

        else
            DB_GetCCD(0);
    }
    if(mod == 2)
    {
        
        //Autoranging (ar=1) or fixed texp (ar=0)
        if(ar == 0)
            TExp = te;   
        //Light measurements (mt=1) or dark measurement (mt=0)
        if(mt)
            D_Average(0);
        else
            DB_GetCCD(0);
    }
    if(mod == 0) //single measurements
    {
        //Autoranging (ar=1) or fixed texp (ar=0)
        if(ar)
            AutoRange(0);
        else
        {
            //if te not zero, use te as TExp otherwise 
            //TExp remains the same previously calculated
            if (te != 0) 
                TExp = te;
        }   
                
        //Light measurements (mt=1) or dark measurement (mt=0)
        if(mt)
            DB_GetCCD(1);
        
                
        else
            DB_GetCCD(0);
    }

    //Check the image maximum value
//  if (DIL.Img.Mat[Server].IHigh >= 65000) //CCD Saturated
//      goto repeat;

    //save measurement
    if(sv)
    {
        D_Saving();
    }   
    //plot spectrum
    if(pl)
        if(DAS.Flag.plotW)
            D_Plot();


    Status("Ready");

}

Here is the call graph for this function:

Here is the caller graph for this function:

quick()

void quick	(	unsigned *	elemento,
		int	conta
	)

Definition at line 305 of file Exec.c.

{
//  int qs(unsigned *elemento, int sinistra, int destra);

//  qs(elemento, 0, conta - 1);

}

Radio()

void Radio

(

int

g

)

NOT Used
.

Definition at line 650 of file Exec.c.

References E_AutoRange(), E_GetCCD(), and E_Save().

{
//  double tup, tdw;
//  Mirror(1);
    E_AutoRange();
//  tdw = TExp;

//  Mirror(3);
    E_AutoRange();
//  tup = TExp;

//  if(tdw < tup) TExp = tdw;
//  else TExp = tup;

//  Mirror(1);
    E_GetCCD();
    E_Save();
    if(g)
     {
//      E_Grafo();
     }
//  Mirror(3);
    E_GetCCD();
    E_Save();
    if(g)
//   {  E_Grafo(); }

//  Mirror(1);
    E_GetCCD();
    E_Save();
//  if(g)
//   {  E_Grafo(); }

}

Here is the call graph for this function:

Variable Documentation

DAS

das DAS

Definition at line 30 of file Exec.c.

DXL

DXL_par DXL

Definition at line 27 of file Exec.c.

ExeREM

int ExeREM

Definition at line 143 of file DAS_Spat.c.

Referenced by E_AAMeasure(), E_Almucantar(), E_AutoRange(), E_Average(), E_AvgCCDHor(), E_Azimuth(), E_Calibra(), E_ChkExLamp(), E_Dark(), E_DFMeasure(), E_DirectSun(), E_ExtLampOFF(), E_ExtLampON(), E_ExtShutClose(), E_ExtShutOpen(), E_Filter(), E_GetCCD(), E_Hg_Off(), E_Hg_On(), E_HGratCal(), E_HgScan(), E_Home_SM1(), E_Home_SM2(), E_Home_SM3(), E_Home_SM4(), E_Home_SM5(), E_Home_SM6(), E_IRefSun(), E_Lambda(), E_Meashor(), E_Meashor2(), E_Measure(), E_Mirror(), E_NDFilter(), E_Plot(), E_Qj_Off(), E_Qj_On(), E_QjScan(), E_Radio(), E_REM(), E_Save(), and E_Zenith().

FLAG

flag FLAG

Definition at line 28 of file Exec.c.

FlagBarra

int FlagBarra = 0

Definition at line 339 of file Exec.c.

FlagTExp

double FlagTExp = 1.0

Definition at line 38 of file Exec.c.

Referenced by AutoR_TestMeas(), and AutoRange().

NewDate

char NewDate[8]

Definition at line 42 of file Exec.c.

OldDate

char OldDate[8]

Definition at line 41 of file Exec.c.

OMUTHR

omuthr OMUTHR

Definition at line 29 of file Exec.c.

PARAM

paramini PARAM

Definition at line 31 of file Exec.c.

Total

int Total = 0

Progressive acquisition number for file (MAX defined = 50)

Definition at line 34 of file Exec.c.

Referenced by D_Saving(), and SaveCalib().