064ec37e9a
- Refactored site specific stuff into a site module - PSI specific stuff is now in the PSI directory. - The old version has been tagged with pre-ansto
130 lines
4.4 KiB
C
130 lines
4.4 KiB
C
/*--------------------------------------------------------------------------
|
|
This is the implementation file for the TASMAD simulation module for
|
|
SICS. The requirement is to make SICS look as much as TASMAD as
|
|
possible. This includes:
|
|
- TASMAD is variable driven
|
|
- Sometimes variables are accessed in storage order.
|
|
- A complicated calculation has to be done for getting the instruments
|
|
settings right. The appropriate F77 routine from TASMAD will be
|
|
reused.
|
|
- The scan logic is different.
|
|
- Output of ILL-formatted data files is required.
|
|
|
|
Mark Koennecke, November 2000
|
|
---------------------------------------------------------------------------*/
|
|
#include <stdlib.h>
|
|
#include <assert.h>
|
|
#include "fortify.h"
|
|
#include "sics.h"
|
|
#include "sicsvar.h"
|
|
#include "counter.h"
|
|
#include "motor.h"
|
|
#include "tas.h"
|
|
|
|
/*
|
|
As variables may be accessed in storage order, it is necessary to
|
|
know the order of the motors
|
|
*/
|
|
extern char *tasMotorOrder[] = { "A1",
|
|
"A2",
|
|
"A3",
|
|
"A4",
|
|
"A5",
|
|
"A6",
|
|
"MCV",
|
|
"SRO",
|
|
"ACH",
|
|
"MTL",
|
|
"MTU",
|
|
"STL",
|
|
"STU",
|
|
"ATL",
|
|
"ATU",
|
|
"MGL",
|
|
"SGL",
|
|
"SGU",
|
|
"AGL",
|
|
NULL };
|
|
/*
|
|
In order to initialise the variable array in the TAS data structure we
|
|
need to know the names of the variables in the right order. This order
|
|
has to match the order defined in tas.h through the defines.
|
|
*/
|
|
char *tasVariableOrder[] = {
|
|
"WAV",
|
|
"DM",
|
|
"DA",
|
|
"ETAM",
|
|
"ETAA",
|
|
"TI",
|
|
"MN",
|
|
"IF1V",
|
|
"IF1H",
|
|
"IF2V",
|
|
"IF2H",
|
|
"HELM",
|
|
"AS",
|
|
"BS",
|
|
"CS",
|
|
"AA",
|
|
"BB",
|
|
"CC",
|
|
"ETAS",
|
|
"AX",
|
|
"AY",
|
|
"AZ",
|
|
"BX",
|
|
"BY",
|
|
"BZ",
|
|
"EI",
|
|
"KI",
|
|
"EF",
|
|
"KF",
|
|
"QH",
|
|
"QK",
|
|
"QL",
|
|
"EN",
|
|
"QM",
|
|
"HX",
|
|
"HY",
|
|
"HZ",
|
|
"DA1",
|
|
"DA2",
|
|
"DA3",
|
|
"DA4",
|
|
"DA5",
|
|
"DA6",
|
|
"DMCV",
|
|
"SRO",
|
|
"DACH",
|
|
"DMTL",
|
|
"DMTU",
|
|
"DSTL",
|
|
"DSTU",
|
|
"DATL",
|
|
"DATU",
|
|
"DMGL",
|
|
"DSGL",
|
|
"DSGU",
|
|
"DAGL",
|
|
"DEI",
|
|
"DKI",
|
|
"DEF",
|
|
"DKF",
|
|
"DQH",
|
|
"DQK",
|
|
"DEN",
|
|
"DQM",
|
|
"DT",
|
|
"SM",
|
|
"SS",
|
|
"SA",
|
|
"FX",
|
|
"NP",
|
|
"F1",
|
|
"F2",
|
|
NULL};
|
|
|
|
|
|
|