/* Automatically generated file. Do not edit. * Format: ANSI C source code * Creator: McStas * Instrument: WOFSANS.instr (WOFSANS) * Date: Thu Apr 9 05:57:03 2026 * File: ./WOFSANS.c * CFLAGS= */ #ifndef WIN32 # ifndef OPENACC # define _GNU_SOURCE # endif # define _POSIX_C_SOURCE 200809L #endif /* In case of cl.exe on Windows, supppress warnings about #pragma acc */ #ifdef _MSC_EXTENSIONS #pragma warning(disable: 4068) #endif #define MCCODE_STRING " 3.99.99, git" #define FLAVOR "mcstas" #define FLAVOR_UPPER "MCSTAS" #define MC_USE_DEFAULT_MAIN #define MC_TRACE_ENABLED #include #include typedef double MCNUM; typedef struct {MCNUM x, y, z;} Coords; typedef MCNUM Rotation[3][3]; #define MCCODE_BASE_TYPES /* available random number generators */ #define _RNG_ALG_MT 1 #define _RNG_ALG_KISS 2 /* selection of random number generator */ #ifndef RNG_ALG # define RNG_ALG _RNG_ALG_KISS #endif #if RNG_ALG == _RNG_ALG_MT // MT #define randstate_t uint32_t #elif RNG_ALG == _RNG_ALG_KISS // KISS #define randstate_t uint64_t #endif #ifndef MC_NUSERVAR #define MC_NUSERVAR 10 #endif /* Particle JUMP control logic */ struct particle_logic_struct { int dummy; }; struct _struct_particle { double x,y,z; /* position [m] */ double vx,vy,vz; /* velocity [m/s] */ double sx,sy,sz; /* spin [0-1] */ int mcgravitation; /* gravity-state */ void *mcMagnet; /* precession-state */ int allow_backprop; /* allow backprop */ /* Generic Temporaries: */ /* May be used internally by components e.g. for special */ /* return-values from functions used in trace, thusreturned via */ /* particle struct. (Example: Wolter Conics from McStas, silicon slabs.) */ double _mctmp_a; /* temp a */ double _mctmp_b; /* temp b */ double _mctmp_c; /* temp c */ randstate_t randstate[7]; double t, p; /* time, event weight */ long long _uid; /* Unique event ID */ long _index; /* component index where to send this event */ long _absorbed; /* flag set to TRUE when this event is to be removed/ignored */ long _scattered; /* flag set to TRUE when this event has interacted with the last component instance */ long _restore; /* set to true if neutron event must be restored */ long flag_nocoordschange; /* set to true if particle is jumping */ struct particle_logic_struct _logic; // user variables and comp-injections: int was_scattered; int was_scattered2; }; typedef struct _struct_particle _class_particle; _class_particle _particle_global_randnbuse_var; _class_particle* _particle = &_particle_global_randnbuse_var; #pragma acc routine _class_particle mcgenstate(void); #pragma acc routine _class_particle mcsetstate(double x, double y, double z, double vx, double vy, double vz, double t, double sx, double sy, double sz, double p, int mcgravitation, void *mcMagnet, int mcallowbackprop); #pragma acc routine _class_particle mcgetstate(_class_particle mcneutron, double *x, double *y, double *z, double *vx, double *vy, double *vz, double *t, double *sx, double *sy, double *sz, double *p); extern int mcgravitation; /* flag to enable gravitation */ #pragma acc declare create ( mcgravitation ) _class_particle mcgenstate(void) { _class_particle particle = mcsetstate(0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, mcgravitation, NULL, 0); return(particle); } /*Generated user variable handlers:*/ #pragma acc routine double particle_getvar(_class_particle *p, char *name, int *suc); #ifdef OPENACC #pragma acc routine int str_comp(char *str1, char *str2); #endif double particle_getvar(_class_particle *p, char *name, int *suc){ #ifndef OPENACC #define str_comp strcmp #endif int s=1; double rval=0; if(!str_comp("x",name)){rval=p->x;s=0;} if(!str_comp("y",name)){rval=p->y;s=0;} if(!str_comp("z",name)){rval=p->z;s=0;} if(!str_comp("vx",name)){rval=p->vx;s=0;} if(!str_comp("vy",name)){rval=p->vy;s=0;} if(!str_comp("vz",name)){rval=p->vz;s=0;} if(!str_comp("sx",name)){rval=p->sx;s=0;} if(!str_comp("sy",name)){rval=p->sy;s=0;} if(!str_comp("sz",name)){rval=p->sz;s=0;} if(!str_comp("t",name)){rval=p->t;s=0;} if(!str_comp("p",name)){rval=p->p;s=0;} if(!str_comp("_mctmp_a",name)){rval=p->_mctmp_a;s=0;} if(!str_comp("_mctmp_b",name)){rval=p->_mctmp_b;s=0;} if(!str_comp("_mctmp_c",name)){rval=p->_mctmp_c;s=0;} if(!str_comp("was_scattered",name)){rval=*( (double *)(&(p->was_scattered)) );s=0;} if(!str_comp("was_scattered2",name)){rval=*( (double *)(&(p->was_scattered2)) );s=0;} if (suc!=0x0) {*suc=s;} return rval; } #pragma acc routine void* particle_getvar_void(_class_particle *p, char *name, int *suc); #ifdef OPENACC #pragma acc routine int str_comp(char *str1, char *str2); #endif void* particle_getvar_void(_class_particle *p, char *name, int *suc){ #ifndef OPENACC #define str_comp strcmp #endif int s=1; void* rval=0; if(!str_comp("x",name)) {rval=(void*)&(p->x); s=0;} if(!str_comp("y",name)) {rval=(void*)&(p->y); s=0;} if(!str_comp("z",name)) {rval=(void*)&(p->z); s=0;} if(!str_comp("vx",name)){rval=(void*)&(p->vx);s=0;} if(!str_comp("vy",name)){rval=(void*)&(p->vy);s=0;} if(!str_comp("vz",name)){rval=(void*)&(p->vz);s=0;} if(!str_comp("sx",name)){rval=(void*)&(p->sx);s=0;} if(!str_comp("sy",name)){rval=(void*)&(p->sy);s=0;} if(!str_comp("sz",name)){rval=(void*)&(p->sz);s=0;} if(!str_comp("t",name)) {rval=(void*)&(p->t); s=0;} if(!str_comp("p",name)) {rval=(void*)&(p->p); s=0;} if(!str_comp("was_scattered",name)){rval=(void*)&(p->was_scattered);s=0;} if(!str_comp("was_scattered2",name)){rval=(void*)&(p->was_scattered2);s=0;} if (suc!=0x0) {*suc=s;} return rval; } #pragma acc routine int particle_setvar_void(_class_particle *, char *, void*); int particle_setvar_void(_class_particle *p, char *name, void* value){ #ifndef OPENACC #define str_comp strcmp #endif int rval=1; if(!str_comp("x",name)) {memcpy(&(p->x), value, sizeof(double)); rval=0;} if(!str_comp("y",name)) {memcpy(&(p->y), value, sizeof(double)); rval=0;} if(!str_comp("z",name)) {memcpy(&(p->z), value, sizeof(double)); rval=0;} if(!str_comp("vx",name)){memcpy(&(p->vx), value, sizeof(double)); rval=0;} if(!str_comp("vy",name)){memcpy(&(p->vy), value, sizeof(double)); rval=0;} if(!str_comp("vz",name)){memcpy(&(p->vz), value, sizeof(double)); rval=0;} if(!str_comp("sx",name)){memcpy(&(p->sx), value, sizeof(double)); rval=0;} if(!str_comp("sy",name)){memcpy(&(p->sy), value, sizeof(double)); rval=0;} if(!str_comp("sz",name)){memcpy(&(p->sz), value, sizeof(double)); rval=0;} if(!str_comp("p",name)) {memcpy(&(p->p), value, sizeof(double)); rval=0;} if(!str_comp("t",name)) {memcpy(&(p->t), value, sizeof(double)); rval=0;} if(!str_comp("was_scattered",name)){memcpy(&(p->was_scattered), value, sizeof(int )); rval=0;} if(!str_comp("was_scattered2",name)){memcpy(&(p->was_scattered2), value, sizeof(int )); rval=0;} return rval; } #pragma acc routine int particle_setvar_void_array(_class_particle *, char *, void*, int); int particle_setvar_void_array(_class_particle *p, char *name, void* value, int elements){ #ifndef OPENACC #define str_comp strcmp #endif int rval=1; return rval; } #pragma acc routine void particle_restore(_class_particle *p, _class_particle *p0); void particle_restore(_class_particle *p, _class_particle *p0) { p->x = p0->x; p->y = p0->y; p->z = p0->z; p->vx = p0->vx; p->vy = p0->vy; p->vz = p0->vz; p->sx = p0->sx; p->sy = p0->sy; p->sz = p0->sz; p->t = p0->t; p->p = p0->p; p->_absorbed=0; p->_restore=0; } #pragma acc routine double particle_getuservar_byid(_class_particle *p, int id, int *suc){ int s=1; double rval=0; switch(id){ case 0: { rval=*( (double *)(&(p->was_scattered)) );s=0;break;} case 1: { rval=*( (double *)(&(p->was_scattered2)) );s=0;break;} } if (suc!=0x0) {*suc=s;} return rval; } #pragma acc routine void particle_uservar_init(_class_particle *p){ p->was_scattered=0; p->was_scattered2=0; } #define MC_EMBEDDED_RUNTIME /* embedding file "mccode-r.h" */ /******************************************************************************* * * McCode, neutron/xray ray-tracing package * Copyright (C) 1997-2009, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Runtime: share/mccode-r.h * * %Identification * Written by: KN * Date: Aug 29, 1997 * Release: mcstas 3.99.99 * Version: $Revision$ * * Runtime system header for McStas/McXtrace. * * In order to use this library as an external library, the following variables * and macros must be declared (see details in the code) * * struct mcinputtable_struct mcinputtable[]; * int numipar; * metadata_table_t metadata_table[]; * int num_metadata; * char instrument_name[], instrument_source[]; * int traceenabled, defaultmain; * extern MCNUM mccomp_storein[]; * extern MCNUM mcAbsorbProp[]; * extern MCNUM mcScattered; * #define MCCODE_STRING "the McStas/McXtrace version" * * Usage: Automatically embbeded in the c code. * * $Id$ * *******************************************************************************/ #ifndef MCCODE_R_H #define MCCODE_R_H "$Revision$" #include #include #include #include #include #include #include #ifndef _MSC_EXTENSIONS #include #endif #include #include #include #ifdef OPENACC #include #ifndef GCCOFFLOAD #include #else #include #endif #pragma acc routine int noprintf(); #pragma acc routine size_t str_len(const char *s); #else #include #endif /* In case of gcc / clang, ensure to use the built-in isnan/isinf functions */ #if defined(__GNUC__) || defined(__clang__) # ifdef isnan # undef isnan # endif # ifdef isinf # undef isinf # endif # define isnan(x) __builtin_isnan(x) # define isinf(x) __builtin_isinf(x) #endif #ifdef _MSC_EXTENSIONS #ifndef _TIMES_H #define _TIMES_H #if defined(WIN32) || defined(_WIN32) #include #include #include int gettimeofday(struct timeval* t,void* timezone); #define __need_clock_t #include /* Structure describing CPU time used by a process and its children. */ struct tms { clock_t tms_utime; /* User CPU time. */ clock_t tms_stime; /* System CPU time. */ clock_t tms_cutime; /* User CPU time of dead children. */ clock_t tms_cstime; /* System CPU time of dead children. */ }; /* Store the CPU time used by this process and all its dead children (and their dead children) in BUFFER. Return the elapsed real time, or (clock_t) -1 for errors. All times are in CLK_TCKths of a second. */ clock_t times (struct tms *__buffer); typedef long long suseconds_t ; int gettimeofday(struct timeval* t,void* timezone) { struct _timeb timebuffer; _ftime( &timebuffer ); t->tv_sec=timebuffer.time; t->tv_usec=1000*timebuffer.millitm; return 0; } clock_t times (struct tms *__buffer) { __buffer->tms_utime = clock(); __buffer->tms_stime = 0; __buffer->tms_cstime = 0; __buffer->tms_cutime = 0; return __buffer->tms_utime; } #endif #endif #endif /* If the runtime is embedded in the simulation program, some definitions can be made static. */ #ifdef MC_EMBEDDED_RUNTIME # define mcstatic #else # define mcstatic #endif #ifdef __dest_os # if (__dest_os == __mac_os) # define MAC # endif #endif #ifdef __FreeBSD__ # define NEED_STAT_H #endif #if defined(__APPLE__) && defined(__GNUC__) # define NEED_STAT_H #endif #if defined(WIN32) || defined(_WIN32) # define NEED_STAT_H # define NEED_TYPES_H #endif #ifdef NEED_STAT_H # include #endif #ifdef NEED_TYPES_H # include #endif #ifndef MC_PATHSEP_C #if defined(WIN32) || defined(_WIN32) # define MC_PATHSEP_C '\\' # define MC_PATHSEP_S "\\" # else /* !WIN32 */ # define MC_PATHSEP_C '/' # define MC_PATHSEP_S "/" # endif /* !WIN32 */ #endif /* MC_PATHSEP_C */ #if defined(WIN32) || defined(_WIN32) #if defined _MSC_VER #include #elif defined __GNUC__ #include #include #include #endif #define mkdir(a,b) mkdir(a) #define getpid() _getpid() #endif /* the version string is replaced when building distribution with mkdist */ #ifndef MCCODE_STRING # define MCCODE_STRING " 3.99.99, git" #endif #ifndef MCCODE_DATE # define MCCODE_DATE "git" #endif #ifndef MCCODE_VERSION # define MCCODE_VERSION "3.99.99" #endif #ifndef __MCCODE_VERSION__ #define __MCCODE_VERSION__ 399099L #endif #ifndef MCCODE_NAME # define MCCODE_NAME "mcstas" #endif #ifndef MCCODE_PARTICLE # define MCCODE_PARTICLE "neutron" #endif #ifndef MCCODE_PARTICLE_CODE # define MCCODE_PARTICLE_CODE 2112 #endif #ifndef MCCODE_LIBENV # define MCCODE_LIBENV "MCSTAS" #endif #ifndef FLAVOR_UPPER # define FLAVOR_UPPER MCCODE_NAME #endif #ifdef MC_PORTABLE # ifndef NOSIGNALS # define NOSIGNALS 1 # endif #endif #ifdef MAC # ifndef NOSIGNALS # define NOSIGNALS 1 # endif #endif #if (USE_MPI == 0) # undef USE_MPI #endif #ifdef USE_MPI /* default is to disable signals with MPI, as MPICH uses them to communicate */ # ifndef NOSIGNALS # define NOSIGNALS 1 # endif #endif #ifdef OPENACC /* default is to disable signals with PGI/OpenACC */ # ifndef NOSIGNALS # define NOSIGNALS 1 # endif #endif #ifndef OPENACC # ifndef USE_OFF /* default is to enable OFF when not using PGI/OpenACC */ # define USE_OFF # endif # ifndef CPUFUNNEL /* allow to enable FUNNEL-mode on CPU */ # ifdef FUNNEL /* by default disable FUNNEL-mode when not using PGI/OpenACC */ # undef FUNNEL # endif # endif #endif #if (NOSIGNALS == 0) # undef NOSIGNALS #endif /** Header information for metadata-r.c ----------------------------------------------------------------------------- */ struct metadata_table_struct { /* stores metadata strings from components */ char * source; // component name which provided the metadata char * name; // the name of the metadata char * type; // the MIME type of the metadata (free form, valid identifier) char * value; // the metadata string contents }; typedef struct metadata_table_struct metadata_table_t; char * metadata_table_key_component(char* key); char * metadata_table_key_literal(char * key); int metadata_table_defined(int, metadata_table_t *, char *); char * metadata_table_name(int, metadata_table_t *, char *); char * metadata_table_type(int, metadata_table_t *, char *); char * metadata_table_literal(int, metadata_table_t *, char *); void metadata_table_print_all_keys(int no, metadata_table_t * tab); int metadata_table_print_all_components(int no, metadata_table_t * tab); int metadata_table_print_component_keys(int no, metadata_table_t * tab, char * key); /* -------------------------------------------------------------------------- Header information for metadata-r.c --- */ /* Note: the enum instr_formal_types definition MUST be kept synchronized with the one in mccode.h and with the instr_formal_type_names array in cogen.c. */ enum instr_formal_types { instr_type_int, instr_type_string, instr_type_char, instr_type_vector, instr_type_double }; struct mcinputtable_struct { /* defines instrument parameters */ char *name; /* name of parameter */ void *par; /* pointer to instrument parameter (variable) */ enum instr_formal_types type; char *val; /* default value */ char *unit; /* expected unit for parameter; informational only */ }; #ifndef MCCODE_BASE_TYPES typedef double MCNUM; typedef struct {MCNUM x, y, z;} Coords; typedef MCNUM Rotation[3][3]; #endif /* the following variables are defined in the McStas generated C code but should be defined externally in case of independent library usage */ #ifndef DANSE extern struct mcinputtable_struct mcinputtable[]; /* list of instrument parameters */ extern int numipar; /* number of instrument parameters */ extern metadata_table_t metadata_table[]; /* list of component-defined string metadata */ extern int num_metadata; /* number of component-defined string metadata */ extern char instrument_name[], instrument_source[]; /* instrument name and filename */ extern char *instrument_exe; /* executable path = argv[0] or NULL */ extern char instrument_code[]; /* contains the initial 'instr' file */ #ifndef MC_ANCIENT_COMPATIBILITY extern int traceenabled, defaultmain; #endif #endif /* Useful macros ============================================================ */ /* SECTION: Dynamic Arrays */ typedef int* IArray1d; IArray1d create_iarr1d(int n); void destroy_iarr1d(IArray1d a); typedef int** IArray2d; IArray2d create_iarr2d(int nx, int ny); void destroy_iarr2d(IArray2d a); typedef int*** IArray3d; IArray3d create_iarr3d(int nx, int ny, int nz); void destroy_iarr3d(IArray3d a); typedef double* DArray1d; DArray1d create_darr1d(int n); void destroy_darr1d(DArray1d a); typedef double** DArray2d; DArray2d create_darr2d(int nx, int ny); void destroy_darr2d(DArray2d a); typedef double*** DArray3d; DArray3d create_darr3d(int nx, int ny, int nz); void destroy_darr3d(DArray3d a); /* MPI stuff */ #ifdef USE_MPI #include "mpi.h" #ifdef OMPI_MPI_H /* openmpi does not use signals: we may install our sighandler */ #ifndef OPENACC /* ... but only if we are not also running on GPU */ #undef NOSIGNALS #endif #endif /* * MPI_MASTER(i): * execution of i only on master node */ #define MPI_MASTER(statement) { \ if(mpi_node_rank == mpi_node_root)\ { statement; } \ } #ifndef MPI_REDUCE_BLOCKSIZE #define MPI_REDUCE_BLOCKSIZE 100000 #endif int mc_MPI_Sum(double* buf, long count); int mc_MPI_Send(void *sbuf, long count, MPI_Datatype dtype, int dest); int mc_MPI_Recv(void *rbuf, long count, MPI_Datatype dtype, int source); /* MPI_Finalize exits gracefully and should be preferred to MPI_Abort */ #define exit(code) do { \ MPI_Finalize(); \ exit(code); \ } while(0) #else /* !USE_MPI */ #define MPI_MASTER(instr) instr #endif /* USE_MPI */ #ifdef USE_MPI static int mpi_node_count; #endif #ifdef USE_THREADS /* user want threads */ #error Threading (USE_THREADS) support has been removed for very poor efficiency. Use MPI/SSH grid instead. #endif void mcset_ncount(unsigned long long count); /* wrapper to get mcncount */ #pragma acc routine unsigned long long int mcget_ncount(void); /* wrapper to set mcncount */ unsigned long long mcget_run_num(void); /* wrapper to get mcrun_num=0:mcncount-1 */ /* Following part is only embedded when not redundant with mccode.h ========= */ #ifndef MCCODE_H #ifndef NOSIGNALS #include char *mcsig_message; #define SIG_MESSAGE(msg) mcsig_message=(char *)(msg); #else #define SIG_MESSAGE(...) #endif /* !NOSIGNALS */ /* Useful macros and constants ============================================== */ #ifndef FLT_MAX #define FLT_MAX 3.40282347E+38F /* max decimal value of a "float" */ #endif #ifndef MIN #define MIN(a, b) (((a) < (b)) ? (a) : (b)) #endif #ifndef MAX #define MAX(a, b) (((a) > (b)) ? (a) : (b)) #endif #ifndef SQR #define SQR(x) ( (x) * (x) ) #endif #ifndef SIGN #define SIGN(x) (((x)>0.0)?(1):(-1)) #endif # ifndef M_E # define M_E 2.71828182845904523536 // e # endif # ifndef M_LOG2E # define M_LOG2E 1.44269504088896340736 // log2(e) # endif # ifndef M_LOG10E # define M_LOG10E 0.434294481903251827651 // log10(e) # endif # ifndef M_LN2 # define M_LN2 0.693147180559945309417 // ln(2) # endif # ifndef M_LN10 # define M_LN10 2.30258509299404568402 // ln(10) # endif # ifndef M_PI # define M_PI 3.14159265358979323846 // pi # endif # ifndef PI # define PI M_PI // pi - also used in some places # endif # ifndef M_PI_2 # define M_PI_2 1.57079632679489661923 // pi/2 # endif # ifndef M_PI_4 # define M_PI_4 0.785398163397448309616 // pi/4 # endif # ifndef M_1_PI # define M_1_PI 0.318309886183790671538 // 1/pi # endif # ifndef M_2_PI # define M_2_PI 0.636619772367581343076 // 2/pi # endif # ifndef M_2_SQRTPI # define M_2_SQRTPI 1.12837916709551257390 // 2/sqrt(pi) # endif # ifndef M_SQRT2 # define M_SQRT2 1.41421356237309504880 // sqrt(2) # endif # ifndef M_SQRT1_2 # define M_SQRT1_2 0.707106781186547524401 // 1/sqrt(2) # endif #define RAD2MIN ((180*60)/PI) #define MIN2RAD (PI/(180*60)) #define DEG2RAD (PI/180) #define RAD2DEG (180/PI) #define FWHM2RMS 0.424660900144 /* Convert between full-width-half-max and */ #define RMS2FWHM 2.35482004503 /* root-mean-square (standard deviation) */ #define HBAR 1.05457168e-34 /* [Js] h bar Planck constant CODATA 2002 */ #define MNEUTRON 1.67492728e-27 /* [kg] mass of neutron CODATA 2002 */ #define GRAVITY 9.81 /* [m/s^2] gravitational acceleration */ #define NA 6.02214179e23 /* [#atoms/g .mole] Avogadro's number*/ #define UNSET nan("0x6E6F74736574") int nans_match(double, double); int is_unset(double); int is_valid(double); int is_set(double); int all_unset(int n, ...); int all_set(int n, ...); int any_unset(int n, ...); int any_set(int n, ...); /* wrapper to get absolute and relative position of comp */ /* mccomp_posa and mccomp_posr are defined in McStas generated C code */ #define POS_A_COMP_INDEX(index) (instrument->_position_absolute[index]) #define POS_R_COMP_INDEX(index) (instrument->_position_relative[index]) /* setting parameters based COMP_GETPAR (returned as pointer) */ /* compname must be given as a string, type and par are symbols. */ #define COMP_GETPAR3(type, compname, par) \ &( ((_class_ ## type ##_parameters *) _getvar_parameters(compname))->par ) /* the body of this function depends on component instances, and is cogen'd */ void* _getvar_parameters(char* compname); int _getcomp_index(char* compname); /* Note: The two-stage approach to COMP_GETPAR is NOT redundant; without it, * after #define C sample, COMP_GETPAR(C,x) would refer to component C, not to * component sample. Such are the joys of ANSI C. * Anyway the usage of COMP_GETPAR requires that we use sometimes bare names... * NOTE: This can ONLY be used in instrument descriptions, not components. */ #define COMP_GETPAR2(comp, par) (_ ## comp ## _var._parameters.par) #define COMP_GETPAR(comp, par) COMP_GETPAR2(comp,par) #define INSTRUMENT_GETPAR(par) (_instrument_var._parameters.par) /* Current component name, index, position and orientation */ /* These macros work because, using class-based functions, "comp" is usually * the local variable of the active/current component. */ #define INDEX_CURRENT_COMP (_comp->_index) #define NAME_CURRENT_COMP (_comp->_name) #define TYPE_CURRENT_COMP (_comp->_type) #define POS_A_CURRENT_COMP (_comp->_position_absolute) #define POS_R_CURRENT_COMP (_comp->_position_relative) #define ROT_A_CURRENT_COMP (_comp->_rotation_absolute) #define ROT_R_CURRENT_COMP (_comp->_rotation_relative) #define NAME_INSTRUMENT (instrument->_name) /* MCDISPLAY/trace and debugging message sent to stdout */ #ifdef MC_TRACE_ENABLED #define DEBUG #endif #ifdef DEBUG #define DEBUG_INSTR() if(!mcdotrace); else { printf("INSTRUMENT:\n"); printf("Instrument '%s' (%s)\n", instrument_name, instrument_source); } #define DEBUG_COMPONENT(name,c,t) if(!mcdotrace); else {\ printf("COMPONENT: \"%s\"\n" \ "POS: %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g\n", \ name, c.x, c.y, c.z, t[0][0], t[0][1], t[0][2], \ t[1][0], t[1][1], t[1][2], t[2][0], t[2][1], t[2][2]); \ printf("Component %30s AT (%g,%g,%g)\n", name, c.x, c.y, c.z); } #define DEBUG_INSTR_END() if(!mcdotrace); else printf("INSTRUMENT END:\n"); #define DEBUG_ENTER() if(!mcdotrace); else printf("ENTER:\n"); #define DEBUG_COMP(c) if(!mcdotrace); else printf("COMP: \"%s\"\n", c); #define DEBUG_LEAVE() if(!mcdotrace); else printf("LEAVE:\n"); #define DEBUG_ABSORB() if(!mcdotrace); else printf("ABSORB:\n"); #else #define DEBUG_INSTR() #define DEBUG_COMPONENT(name,c,t) #define DEBUG_INSTR_END() #define DEBUG_ENTER() #define DEBUG_COMP(c) #define DEBUG_LEAVE() #define DEBUG_ABSORB() #endif // mcDEBUG_STATE and mcDEBUG_SCATTER are defined by mcstas-r.h and mcxtrace-r.h #ifdef TEST #define test_printf printf #else #define test_printf while(0) printf #endif /* send MCDISPLAY message to stdout to show gemoetry */ void mcdis_magnify(char *what); void mcdis_line(double x1, double y1, double z1, double x2, double y2, double z2); void mcdis_dashed_line(double x1, double y1, double z1, double x2, double y2, double z2, int n); void mcdis_multiline(int count, ...); void mcdis_rectangle(char* plane, double x, double y, double z, double width, double height); void mcdis_box(double x, double y, double z, double width, double height, double length, double thickness, double nx, double ny, double nz); void mcdis_circle(char *plane, double x, double y, double z, double r); void mcdis_Circle(double x, double y, double z, double r, double nx, double ny, double nz); void mcdis_cylinder( double x, double y, double z, double r, double height, double thickness, double nx, double ny, double nz); void mcdis_cone( double x, double y, double z, double r, double height, double nx, double ny, double nz); void mcdis_sphere(double x, double y, double z, double r); /* random number generation. ================================================ */ #if RNG_ALG == _RNG_ALG_MT // MT (currently not functional for GPU) # define MC_RAND_MAX ((uint32_t)0xffffffffUL) # define RANDSTATE_LEN 1 # define srandom(seed) mt_srandom_empty() # define random() mt_random() # define _random() mt_random() #elif RNG_ALG == _RNG_ALG_KISS // KISS # ifndef UINT64_MAX # define UINT64_MAX ((uint64_t)0xffffffffffffffffULL) # endif # define MC_RAND_MAX UINT64_MAX # define RANDSTATE_LEN 7 # define srandom(seed) kiss_srandom(_particle->randstate, seed) # define random() kiss_random(_particle->randstate) # define _random() kiss_random(state) #endif #pragma acc routine double _randnorm2(randstate_t* state); // Component writer interface #define randnorm() _randnorm2(_particle->randstate) // NOTE: can't use _randnorm on GPU #define rand01() _rand01(_particle->randstate) #define randpm1() _randpm1(_particle->randstate) #define rand0max(p1) _rand0max(p1, _particle->randstate) #define randminmax(p1, p2) _randminmax(p1, p2, _particle->randstate) #define randtriangle() _randtriangle(_particle->randstate) // Mersenne Twister rng uint32_t mt_random(void); void mt_srandom (uint32_t x); void mt_srandom_empty(); // KISS rng #pragma acc routine uint64_t *kiss_srandom(uint64_t state[7], uint64_t seed); #pragma acc routine uint64_t kiss_random(uint64_t state[7]); // Scrambler / hash function #pragma acc routine seq randstate_t _hash(randstate_t x); // internal RNG (transforms) interface #pragma acc routine double _rand01(randstate_t* state); #pragma acc routine double _randpm1(randstate_t* state); #pragma acc routine double _rand0max(double max, randstate_t* state); #pragma acc routine double _randminmax(double min, double max, randstate_t* state); #pragma acc routine double _randtriangle(randstate_t* state); #ifdef USE_OPENCL #include "opencl-lib.h" #include "opencl-lib.c" #endif #ifndef DANSE int init(void); int raytrace(_class_particle*); int save(FILE *); int finally(void); int display(void); #endif /* GPU related algorithms =================================================== */ /* * Divide-and-conquer strategy for parallel sort absorbed last. */ #ifdef FUNNEL long sort_absorb_last(_class_particle* particles, _class_particle* pbuffer, long len, long buffer_len, long flag_split, long* multiplier); #endif long sort_absorb_last_serial(_class_particle* particles, long len); /* simple vector algebra ==================================================== */ #define vec_prod(x, y, z, x1, y1, z1, x2, y2, z2) \ vec_prod_func(&x, &y, &z, x1, y1, z1, x2, y2, z2) #pragma acc routine seq mcstatic void vec_prod_func(double *x, double *y, double *z, double x1, double y1, double z1, double x2, double y2, double z2); #pragma acc routine seq mcstatic double scalar_prod( double x1, double y1, double z1, double x2, double y2, double z2); #pragma acc routine seq mcstatic void norm_func(double *x, double *y, double *z); #define NORM(x,y,z) norm_func(&x, &y, &z) #pragma acc routine seq void normal_vec(double *nx, double *ny, double *nz, double x, double y, double z); /** * Rotate the vector vx,vy,vz psi radians around the vector ax,ay,az * and put the result in x,y,z. */ #define rotate(x, y, z, vx, vy, vz, phi, ax, ay, az) \ do { \ double mcrt_tmpx = (ax), mcrt_tmpy = (ay), mcrt_tmpz = (az); \ double mcrt_vp, mcrt_vpx, mcrt_vpy, mcrt_vpz; \ double mcrt_vnx, mcrt_vny, mcrt_vnz, mcrt_vn1x, mcrt_vn1y, mcrt_vn1z; \ double mcrt_bx, mcrt_by, mcrt_bz; \ double mcrt_cos, mcrt_sin; \ NORM(mcrt_tmpx, mcrt_tmpy, mcrt_tmpz); \ mcrt_vp = scalar_prod((vx), (vy), (vz), mcrt_tmpx, mcrt_tmpy, mcrt_tmpz); \ mcrt_vpx = mcrt_vp*mcrt_tmpx; \ mcrt_vpy = mcrt_vp*mcrt_tmpy; \ mcrt_vpz = mcrt_vp*mcrt_tmpz; \ mcrt_vnx = (vx) - mcrt_vpx; \ mcrt_vny = (vy) - mcrt_vpy; \ mcrt_vnz = (vz) - mcrt_vpz; \ vec_prod(mcrt_bx, mcrt_by, mcrt_bz, \ mcrt_tmpx, mcrt_tmpy, mcrt_tmpz, mcrt_vnx, mcrt_vny, mcrt_vnz); \ mcrt_cos = cos((phi)); mcrt_sin = sin((phi)); \ mcrt_vn1x = mcrt_vnx*mcrt_cos + mcrt_bx*mcrt_sin; \ mcrt_vn1y = mcrt_vny*mcrt_cos + mcrt_by*mcrt_sin; \ mcrt_vn1z = mcrt_vnz*mcrt_cos + mcrt_bz*mcrt_sin; \ (x) = mcrt_vpx + mcrt_vn1x; \ (y) = mcrt_vpy + mcrt_vn1y; \ (z) = mcrt_vpz + mcrt_vn1z; \ } while(0) /** * Mirror (xyz) in the plane given by the point (rx,ry,rz) and normal (nx,ny,nz) * * TODO: This define is seemingly never used... */ #define mirror(x,y,z,rx,ry,rz,nx,ny,nz) \ do { \ double mcrt_tmpx= (nx), mcrt_tmpy = (ny), mcrt_tmpz = (nz); \ double mcrt_tmpt; \ NORM(mcrt_tmpx, mcrt_tmpy, mcrt_tmpz); \ mcrt_tmpt=scalar_prod((rx),(ry),(rz),mcrt_tmpx,mcrt_tmpy,mcrt_tmpz); \ (x) = rx -2 * mcrt_tmpt*mcrt_rmpx; \ (y) = ry -2 * mcrt_tmpt*mcrt_rmpy; \ (z) = rz -2 * mcrt_tmpt*mcrt_rmpz; \ } while (0) #pragma acc routine Coords coords_set(MCNUM x, MCNUM y, MCNUM z); #pragma acc routine Coords coords_get(Coords a, MCNUM *x, MCNUM *y, MCNUM *z); #pragma acc routine Coords coords_add(Coords a, Coords b); #pragma acc routine Coords coords_sub(Coords a, Coords b); #pragma acc routine Coords coords_neg(Coords a); #pragma acc routine Coords coords_scale(Coords b, double scale); #pragma acc routine double coords_sp(Coords a, Coords b); #pragma acc routine Coords coords_xp(Coords b, Coords c); #pragma acc routine double coords_len(Coords a); #pragma acc routine seq void coords_print(Coords a); #pragma acc routine seq mcstatic void coords_norm(Coords* c); #pragma acc routine seq void rot_set_rotation(Rotation t, double phx, double phy, double phz); #pragma acc routine seq int rot_test_identity(Rotation t); #pragma acc routine seq void rot_mul(Rotation t1, Rotation t2, Rotation t3); #pragma acc routine seq void rot_copy(Rotation dest, Rotation src); #pragma acc routine seq void rot_transpose(Rotation src, Rotation dst); #pragma acc routine seq Coords rot_apply(Rotation t, Coords a); #pragma acc routine seq void mccoordschange(Coords a, Rotation t, _class_particle *particle); #pragma acc routine seq void mccoordschange_polarisation(Rotation t, double *sx, double *sy, double *sz); double mcestimate_error(double N, double p1, double p2); void mcreadparams(void); /* this is now in mcstas-r.h and mcxtrace-r.h as the number of state parameters is no longer equal */ _class_particle mcgenstate(void); // trajectory/shape intersection routines #pragma acc routine seq int inside_rectangle(double, double, double, double); #pragma acc routine seq int box_intersect(double *dt_in, double *dt_out, double x, double y, double z, double vx, double vy, double vz, double dx, double dy, double dz); #pragma acc routine seq int cylinder_intersect(double *t0, double *t1, double x, double y, double z, double vx, double vy, double vz, double r, double h); #pragma acc routine seq int sphere_intersect(double *t0, double *t1, double x, double y, double z, double vx, double vy, double vz, double r); // second order equation roots #pragma acc routine seq int solve_2nd_order(double *t1, double *t2, double A, double B, double C); // random vector generation to shape // defines silently introducing _particle as the last argument #define randvec_target_circle(xo, yo, zo, solid_angle, xi, yi, zi, radius) \ _randvec_target_circle(xo, yo, zo, solid_angle, xi, yi, zi, radius, _particle) #define randvec_target_rect_angular(xo, yo, zo, solid_angle, xi, yi, zi, height, width, A) \ _randvec_target_rect_angular(xo, yo, zo, solid_angle, xi, yi, zi, height, width, A, _particle) #define randvec_target_rect_real(xo, yo, zo, solid_angle, xi, yi, zi, height, width, A, lx, ly, lz, order) \ _randvec_target_rect_real(xo, yo, zo, solid_angle, xi, yi, zi, height, width, A, lx, ly, lz, order, _particle) // defines forwarding to "inner" functions #define randvec_target_sphere randvec_target_circle #define randvec_target_rect(p0,p1,p2,p3,p4,p5,p6,p7,p8,p9) \ randvec_target_rect_real(p0,p1,p2,p3,p4,p5,p6,p7,p8,p9,0,0,0,1) // headers for randvec #pragma acc routine seq void _randvec_target_circle(double *xo, double *yo, double *zo, double *solid_angle, double xi, double yi, double zi, double radius, _class_particle* _particle); #pragma acc routine seq void _randvec_target_rect_angular(double *xo, double *yo, double *zo, double *solid_angle, double xi, double yi, double zi, double height, double width, Rotation A, _class_particle* _particle); #pragma acc routine seq void _randvec_target_rect_real(double *xo, double *yo, double *zo, double *solid_angle, double xi, double yi, double zi, double height, double width, Rotation A, double lx, double ly, double lz, int order, _class_particle* _particle); // this is the main() int mccode_main(int argc, char *argv[]); #endif /* !MCCODE_H */ #ifndef MCCODE_R_IO_H #define MCCODE_R_IO_H "$Revision$" #if (USE_NEXUS == 0) #undef USE_NEXUS #endif #ifndef CHAR_BUF_LENGTH #define CHAR_BUF_LENGTH 1024 #endif /* I/O section part ========================================================= */ /* ========================================================================== */ /* MCCODE_R_IO_C */ /* ========================================================================== */ /* main DETECTOR structure which stores most information to write to data files */ struct mcdetector_struct { char filename[CHAR_BUF_LENGTH]; /* file name of monitor */ double Position[3]; /* position of detector component*/ char position[CHAR_BUF_LENGTH]; /* position of detector component (string)*/ Rotation Rotation; /* position of detector component*/ char options[CHAR_BUF_LENGTH]; /* Monitor_nD style list-mode'options' (string)*/ char component[CHAR_BUF_LENGTH]; /* component instance name */ char nexuscomp[CHAR_BUF_LENGTH]; /* component naming in NeXus/HDF case */ char instrument[CHAR_BUF_LENGTH]; /* instrument name */ char type[CHAR_BUF_LENGTH]; /* data type, e.g. 0d, 1d, 2d, 3d */ char user[CHAR_BUF_LENGTH]; /* user name, e.g. HOME */ char date[CHAR_BUF_LENGTH]; /* date of simulation end/write time */ char title[CHAR_BUF_LENGTH]; /* title of detector */ char xlabel[CHAR_BUF_LENGTH]; /* X axis label */ char ylabel[CHAR_BUF_LENGTH]; /* Y axis label */ char zlabel[CHAR_BUF_LENGTH]; /* Z axis label */ char xvar[CHAR_BUF_LENGTH]; /* X variable name */ char yvar[CHAR_BUF_LENGTH]; /* Y variable name */ char zvar[CHAR_BUF_LENGTH]; /* Z variable name */ char ncount[CHAR_BUF_LENGTH]; /* number of events initially generated */ char limits[CHAR_BUF_LENGTH]; /* X Y Z limits, e.g. [xmin xmax ymin ymax zmin zmax] */ char variables[CHAR_BUF_LENGTH]; /* variables written into data block */ char statistics[CHAR_BUF_LENGTH]; /* center, mean and half width along axis */ char signal[CHAR_BUF_LENGTH]; /* min max and mean of signal (data block) */ char values[CHAR_BUF_LENGTH]; /* integrated values e.g. [I I_err N] */ double xmin,xmax; /* min max of axes */ double ymin,ymax; double zmin,zmax; double intensity; /* integrated values for data block */ double error; double events; double min; /* statistics for data block */ double max; double mean; double centerX; /* statistics for axes */ double halfwidthX; double centerY; double halfwidthY; int rank; /* dimensionaly of monitor, e.g. 0 1 2 3 */ char istransposed; /* flag to transpose matrix for some formats */ long m,n,p; /* dimensions of data block and along axes */ long date_l; /* same as date, but in sec since 1970 */ double *p0, *p1, *p2; /* pointers to saved data, NULL when freed */ char format[CHAR_BUF_LENGTH]; /* format for file generation */ }; typedef struct mcdetector_struct MCDETECTOR; static char *dirname = NULL; /* name of output directory */ static char *siminfo_name = "mccode"; /* default output sim file name */ char *mcformat = NULL; /* NULL (default) or a specific format */ /* file I/O definitions and function prototypes */ #ifndef MC_EMBEDDED_RUNTIME /* the mcstatic variables (from mccode-r.c) */ extern FILE * siminfo_file; /* handle to the output siminfo file */ extern int mcgravitation; /* flag to enable gravitation */ extern int mcdotrace; /* flag to print MCDISPLAY messages */ #else mcstatic FILE *siminfo_file = NULL; #endif /* I/O function prototypes ================================================== */ // from msysgit: https://code.google.com/p/msysgit/source/browse/compat/strcasestr.c char *strcasestr(const char *haystack, const char *needle); /* output functions */ MCDETECTOR mcdetector_out_0D(char *t, double p0, double p1, double p2, char *c, Coords pos, Rotation rot, int index); MCDETECTOR mcdetector_out_1D(char *t, char *xl, char *yl, char *xvar, double x1, double x2, long n, double *p0, double *p1, double *p2, char *f, char *c, Coords pos, Rotation rot, int index); MCDETECTOR mcdetector_out_2D(char *t, char *xl, char *yl, double x1, double x2, double y1, double y2, long m, long n, double *p0, double *p1, double *p2, char *f, char *c, Coords pos, Rotation rot, int index); MCDETECTOR mcdetector_out_list(char *t, char *xl, char *yl, long m, long n, double *p1, char *f, char *c, Coords posa, Rotation rot,char* options, int index); /* wrappers to output functions, that automatically set NAME and POSITION */ #define DETECTOR_OUT(p0,p1,p2) mcdetector_out_0D(NAME_CURRENT_COMP,p0,p1,p2,NAME_CURRENT_COMP,POS_A_CURRENT_COMP,ROT_A_CURRENT_COMP,INDEX_CURRENT_COMP) #define DETECTOR_OUT_0D(t,p0,p1,p2) mcdetector_out_0D(t,p0,p1,p2,NAME_CURRENT_COMP,POS_A_CURRENT_COMP,ROT_A_CURRENT_COMP,INDEX_CURRENT_COMP) #define DETECTOR_OUT_1D(t,xl,yl,xvar,x1,x2,n,p0,p1,p2,f) \ mcdetector_out_1D(t,xl,yl,xvar,x1,x2,n,p0,p1,p2,f,NAME_CURRENT_COMP,POS_A_CURRENT_COMP,ROT_A_CURRENT_COMP,INDEX_CURRENT_COMP) #define DETECTOR_OUT_2D(t,xl,yl,x1,x2,y1,y2,m,n,p0,p1,p2,f) \ mcdetector_out_2D(t,xl,yl,x1,x2,y1,y2,m,n,p0,p1,p2,f,NAME_CURRENT_COMP,POS_A_CURRENT_COMP,ROT_A_CURRENT_COMP,INDEX_CURRENT_COMP) #ifdef USE_NEXUS #include "napi.h" NXhandle nxhandle; #endif #endif /* ndef MCCODE_R_IO_H */ #endif /* MCCODE_R_H */ /* End of file "mccode-r.h". */ /* embedding file "mcstas-r.h" */ /******************************************************************************* * * McStas, neutron ray-tracing package * Copyright (C) 1997-2009, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Runtime: share/mcstas-r.h * * %Identification * Written by: KN * Date: Aug 29, 1997 * Release: McStas X.Y * Version: $Revision$ * * Runtime system header for McStas. * * In order to use this library as an external library, the following variables * and macros must be declared (see details in the code) * * struct mcinputtable_struct mcinputtable[]; * int mcnumipar; * char instrument_name[], instrument_source[]; * int traceenabled, defaultmain; * extern MCNUM mccomp_storein[]; * extern MCNUM instrument.counter_AbsorbProp[]; * extern MCNUM mcScattered; * #define MCCODE_STRING "the McStas version" * * Usage: Automatically embbeded in the c code. * * $Id$ * *******************************************************************************/ #ifndef MCSTAS_R_H #define MCSTAS_R_H "$Revision$" /* Following part is only embedded when not redundent with mcstas.h */ #ifndef MCCODE_H #define AA2MS 629.622368 /* Convert k[1/AA] to v[m/s] */ #define MS2AA 1.58825361e-3 /* Convert v[m/s] to k[1/AA] */ #define K2V AA2MS #define V2K MS2AA #define Q2V AA2MS #define V2Q MS2AA #define SE2V 437.393377 /* Convert sqrt(E)[meV] to v[m/s] */ #define VS2E 5.22703725e-6 /* Convert (v[m/s])**2 to E[meV] */ #define SCATTER0 do {DEBUG_SCATTER(); SCATTERED++;} while(0) #define SCATTER SCATTER0 #define JUMPTOCOMP(comp) mcneutron->_index = INDEX_COMP(comp); #define MAGNET_ON \ do { \ mcMagnet = 1; \ } while(0) #define MAGNET_OFF \ do { \ mcMagnet = 0; \ } while(0) #define ALLOW_BACKPROP \ do { \ allow_backprop = 1; \ } while(0) #define DISALLOW_BACKPROP \ do { \ allow_backprop = 0; \ } while(0) #define PROP_MAGNET(dt) \ do { \ } while (0) /* change coordinates from local system to magnet system */ /* Rotation rotLM, rotTemp; \ Coords posLM = coords_sub(POS_A_CURRENT_COMP, mcMagnetPos); \ rot_transpose(ROT_A_CURRENT_COMP, rotTemp); \ rot_mul(rotTemp, mcMagnetRot, rotLM); \ mcMagnetPrecession(x, y, z, t, vx, vy, vz, \ &sx, &sy, &sz, dt, posLM, rotLM); \ } while(0) */ #define mcPROP_DT(dt) \ do { \ if (mcMagnet && dt > 0) PROP_MAGNET(dt);\ x += vx*(dt); \ y += vy*(dt); \ z += vz*(dt); \ t += (dt); \ if (isnan(p) || isinf(p)) { ABSORB; }\ } while(0) /* ADD: E. Farhi, Aug 6th, 2001 PROP_GRAV_DT propagation with acceleration */ #define PROP_GRAV_DT(dt, Ax, Ay, Az) \ do { \ if(dt < 0 && allow_backprop == 0) { ABSORB; }\ if (mcMagnet) /*printf("Spin precession gravity\n")*/; \ x += vx*(dt) + (Ax)*(dt)*(dt)/2; \ y += vy*(dt) + (Ay)*(dt)*(dt)/2; \ z += vz*(dt) + (Az)*(dt)*(dt)/2; \ vx += (Ax)*(dt); \ vy += (Ay)*(dt); \ vz += (Az)*(dt); \ t += (dt); \ DISALLOW_BACKPROP;\ } while(0) #define PROP_DT(dt) \ do { \ if(dt < 0 && allow_backprop == 0) { RESTORE=1; ABSORB; }; \ if (mcgravitation) { Coords mcLocG; double mc_gx, mc_gy, mc_gz; \ mcLocG = rot_apply(ROT_A_CURRENT_COMP, coords_set(0,-GRAVITY,0)); \ coords_get(mcLocG, &mc_gx, &mc_gy, &mc_gz); \ PROP_GRAV_DT(dt, mc_gx, mc_gy, mc_gz); } \ else mcPROP_DT(dt); \ DISALLOW_BACKPROP;\ } while(0) #define PROP_Z0 \ do { \ if (mcgravitation) { Coords mcLocG; int mc_ret; \ double mc_dt, mc_gx, mc_gy, mc_gz; \ mcLocG = rot_apply(ROT_A_CURRENT_COMP, coords_set(0,-GRAVITY,0)); \ coords_get(mcLocG, &mc_gx, &mc_gy, &mc_gz); \ mc_ret = solve_2nd_order(&mc_dt, NULL, -mc_gz/2, -vz, -z); \ if (mc_ret) {PROP_GRAV_DT(mc_dt, mc_gx, mc_gy, mc_gz); z=0;}\ else if (allow_backprop == 0 && mc_dt < 0) { ABSORB; }; } \ else mcPROP_Z0; \ DISALLOW_BACKPROP;\ } while(0) #define mcPROP_Z0 \ do { \ double mc_dt; \ if(vz == 0) { ABSORB; }; \ mc_dt = -z/vz; \ if(mc_dt < 0 && allow_backprop == 0) { ABSORB; }; \ mcPROP_DT(mc_dt); \ z = 0; \ DISALLOW_BACKPROP;\ } while(0) #define PROP_X0 \ do { \ if (mcgravitation) { Coords mcLocG; int mc_ret; \ double mc_dt, mc_gx, mc_gy, mc_gz; \ mcLocG = rot_apply(ROT_A_CURRENT_COMP, coords_set(0,-GRAVITY,0)); \ coords_get(mcLocG, &mc_gx, &mc_gy, &mc_gz); \ mc_ret = solve_2nd_order(&mc_dt, NULL, -mc_gx/2, -vx, -x); \ if (mc_ret) {PROP_GRAV_DT(mc_dt, mc_gx, mc_gy, mc_gz); x=0;}\ else if (allow_backprop == 0 && mc_dt < 0) { ABSORB; }; } \ else mcPROP_X0; \ DISALLOW_BACKPROP;\ } while(0) #define mcPROP_X0 \ do { \ double mc_dt; \ if(vx == 0) { ABSORB; }; \ mc_dt = -x/vx; \ if(mc_dt < 0 && allow_backprop == 0) { ABSORB; }; \ mcPROP_DT(mc_dt); \ x = 0; \ DISALLOW_BACKPROP;\ } while(0) #define PROP_Y0 \ do { \ if (mcgravitation) { Coords mcLocG; int mc_ret; \ double mc_dt, mc_gx, mc_gy, mc_gz; \ mcLocG = rot_apply(ROT_A_CURRENT_COMP, coords_set(0,-GRAVITY,0)); \ coords_get(mcLocG, &mc_gx, &mc_gy, &mc_gz); \ mc_ret = solve_2nd_order(&mc_dt, NULL, -mc_gy/2, -vy, -y); \ if (mc_ret) {PROP_GRAV_DT(mc_dt, mc_gx, mc_gy, mc_gz); y=0;}\ else if (allow_backprop == 0 && mc_dt < 0) { ABSORB; }; } \ else mcPROP_Y0; \ DISALLOW_BACKPROP;\ } while(0) #define mcPROP_Y0 \ do { \ double mc_dt; \ if(vy == 0) { ABSORB; }; \ mc_dt = -y/vy; \ if(mc_dt < 0 && allow_backprop == 0) { ABSORB; }; \ mcPROP_DT(mc_dt); \ y = 0; \ DISALLOW_BACKPROP; \ } while(0) #ifdef DEBUG #define DEBUG_STATE() if(!mcdotrace); else \ printf("STATE: %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g\n", \ x,y,z,vx,vy,vz,t,sx,sy,sz,p); #define DEBUG_SCATTER() if(!mcdotrace); else \ printf("SCATTER: %g, %g, %g, %g, %g, %g, %g, %g, %g, %g, %g\n", \ x,y,z,vx,vy,vz,t,sx,sy,sz,p); #else #define DEBUG_STATE() #define DEBUG_SCATTER() #endif #endif /* !MCCODE_H */ #endif /* MCSTAS_R_H */ /* End of file "mcstas-r.h". */ /* embedding file "mccode-r.c" */ /******************************************************************************* * * McCode, neutron/xray ray-tracing package * Copyright (C) 1997-2009, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Runtime: share/mccode-r.c * * %Identification * Written by: KN * Date: Aug 29, 1997 * Release: McStas X.Y/McXtrace X.Y * Version: $Revision$ * * Runtime system for McStas and McXtrace. * Embedded within instrument in runtime mode. * Contains SECTIONS: * MPI handling (sum, send, recv) * format definitions * I/O * mcdisplay support * random numbers * coordinates handling * vectors math (solve 2nd order, normals, randvec...) * parameter handling * signal and main handlers * * Usage: Automatically embbeded in the c code whenever required. * * $Id$ * *******************************************************************************/ /******************************************************************************* * The I/O format definitions and functions *******************************************************************************/ /** Include header files to avoid implicit declarations (not allowed on LLVM) */ #include #include #include #include // UNIX specific headers (non-Windows) #if defined(__unix__) || defined(__APPLE__) #include #include #endif #ifndef DANSE #ifdef MC_ANCIENT_COMPATIBILITY int traceenabled = 0; int defaultmain = 0; #endif /* else defined directly in the McCode generated C code */ static long mcseed = 0; /* seed for random generator */ #pragma acc declare create ( mcseed ) static long mcstartdate = 0; /* start simulation time */ static int mcdisable_output_files = 0; /* --no-output-files */ mcstatic int mcgravitation = 0; /* use gravitation flag, for PROP macros */ mcstatic int mcusedefaults = 0; /* assume default value for all parameters */ mcstatic int mcappend = 0; /* flag to allow append mode on datasets/directories */ mcstatic int mcdotrace = 0; /* flag for --trace and messages for DISPLAY */ mcstatic int mcnexus_embed_idf = 0; /* flag to embed xml-formatted IDF file for Mantid */ #pragma acc declare create ( mcdotrace ) int mcallowbackprop = 0; /* flag to enable negative/backprop */ /* OpenACC-related segmentation parameters: */ int vecsize = 128; int numgangs = 7813; long gpu_innerloop = 2147483647; /* Monitor_nD list/buffer-size default */ /* Starting value may be defined using -DND_BUFFER=N */ /* Can further be controlled dynamically using --bufsiz input */ long MONND_BUFSIZ = 10000000; #ifdef ND_BUFFER MONND_BUFSIZ = ND_BUFFER; #endif /* Number of particle histories to simulate. */ #ifdef NEUTRONICS mcstatic unsigned long long int mcncount = 1; mcstatic unsigned long long int mcrun_num = 0; #else #ifdef MCDEFAULT_NCOUNT mcstatic unsigned long long int mcncount = MCDEFAULT_NCOUNT; #else mcstatic unsigned long long int mcncount = 1000000; #endif #pragma acc declare create ( mcncount ) mcstatic unsigned long long int mcrun_num = 0; #pragma acc declare create ( mcrun_num ) #endif /* NEUTRONICS */ #else #include "mcstas-globals.h" #endif /* !DANSE */ #ifndef NX_COMPRESSION #define NX_COMPRESSION NX_COMP_NONE #endif /* String nullification on GPU and other replacements */ #ifdef OPENACC int noprintf() { return 0; } int str_comp(char *str1, char *str2) { while (*str1 && *str1 == *str2) { str1++; str2++; } return (*str1 - *str2); } size_t str_len(const char *s) { size_t len = 0; if(s != NULL) { while(*s != '\0') { ++len; ++s; } } return len; } #endif /* SECTION: Predefine (component) parameters ================================= */ int nans_match(double a, double b){ return (*(uint64_t*)&a == *(uint64_t*)&b); } int is_unset(double x){ return nans_match(x, UNSET); } int is_set(double x){ return !nans_match(x, UNSET); } int is_valid(double x){ return !isnan(x)||is_unset(x); } int all_unset(int n, ...){ va_list ptr; va_start(ptr, n); int ret=1; for (int i=0; i count-1) length=count-offset; else length=MPI_REDUCE_BLOCKSIZE; if (MPI_Allreduce((double*)(sbuf+offset), (double*)(rbuf+offset), length, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD) != MPI_SUCCESS) return MPI_ERR_COUNT; offset += length; } for (i=0; i count-1) length=count-offset; else length=MPI_REDUCE_BLOCKSIZE; if (MPI_Send((void*)((char*)sbuf+offset*dsize), length, dtype, dest, tag++, MPI_COMM_WORLD) != MPI_SUCCESS) return MPI_ERR_COUNT; offset += length; } return MPI_SUCCESS; } /* mc_MPI_Send */ /******************************************************************************* * mc_MPI_Recv: Receives arrays from MPI nodes by blocks to avoid buffer limit * the buffer must have been allocated previously. *******************************************************************************/ int mc_MPI_Recv(void *sbuf, long count, MPI_Datatype dtype, int source) { int dsize; long offset=0; int tag=1; int length=MPI_REDUCE_BLOCKSIZE; /* defined in mccode-r.h */ if (!sbuf || count <= 0) return(MPI_SUCCESS); /* nothing to recv */ MPI_Type_size(dtype, &dsize); while (offset < count) { if (offset+length > count-1) length=count-offset; else length=MPI_REDUCE_BLOCKSIZE; if (MPI_Recv((void*)((char*)sbuf+offset*dsize), length, dtype, source, tag++, MPI_COMM_WORLD, MPI_STATUS_IGNORE) != MPI_SUCCESS) return MPI_ERR_COUNT; offset += length; } return MPI_SUCCESS; } /* mc_MPI_Recv */ #endif /* USE_MPI */ /* SECTION: parameters handling ============================================= */ /* Instrument input parameter type handling. */ /******************************************************************************* * mcparm_double: extract double value from 's' into 'vptr' *******************************************************************************/ static int mcparm_double(char *s, void *vptr) { char *p; double *v = (double *)vptr; if (!s) { *v = 0; return(1); } *v = strtod(s, &p); if(*s == '\0' || (p != NULL && *p != '\0') || errno == ERANGE) return 0; /* Failed */ else return 1; /* Success */ } /******************************************************************************* * mcparminfo_double: display parameter type double *******************************************************************************/ static char * mcparminfo_double(char *parmname) { return "double"; } /******************************************************************************* * mcparmerror_double: display error message when failed extract double *******************************************************************************/ static void mcparmerror_double(char *parm, char *val) { fprintf(stderr, "Error: Invalid value '%s' for floating point parameter %s (mcparmerror_double)\n", val, parm); } /******************************************************************************* * mcparmprinter_double: convert double to string *******************************************************************************/ static void mcparmprinter_double(char *f, void *vptr) { double *v = (double *)vptr; sprintf(f, "%g", *v); } /******************************************************************************* * mcparm_int: extract int value from 's' into 'vptr' *******************************************************************************/ static int mcparm_int(char *s, void *vptr) { char *p; int *v = (int *)vptr; long x; if (!s) { *v = 0; return(1); } *v = 0; x = strtol(s, &p, 10); if(x < INT_MIN || x > INT_MAX) return 0; /* Under/overflow */ *v = x; if(*s == '\0' || (p != NULL && *p != '\0') || errno == ERANGE) return 0; /* Failed */ else return 1; /* Success */ } /******************************************************************************* * mcparminfo_int: display parameter type int *******************************************************************************/ static char * mcparminfo_int(char *parmname) { return "int"; } /******************************************************************************* * mcparmerror_int: display error message when failed extract int *******************************************************************************/ static void mcparmerror_int(char *parm, char *val) { fprintf(stderr, "Error: Invalid value '%s' for integer parameter %s (mcparmerror_int)\n", val, parm); } /******************************************************************************* * mcparmprinter_int: convert int to string *******************************************************************************/ static void mcparmprinter_int(char *f, void *vptr) { int *v = (int *)vptr; sprintf(f, "%d", *v); } /******************************************************************************* * mcparm_string: extract char* value from 's' into 'vptr' (copy) *******************************************************************************/ static int mcparm_string(char *s, void *vptr) { char **v = (char **)vptr; if (!s) { *v = NULL; return(1); } *v = (char *)malloc(strlen(s) + 1); if(*v == NULL) { exit(-fprintf(stderr, "Error: Out of memory %li (mcparm_string).\n", (long)strlen(s) + 1)); } strcpy(*v, s); return 1; /* Success */ } /******************************************************************************* * mcparminfo_string: display parameter type string *******************************************************************************/ static char * mcparminfo_string(char *parmname) { return "string"; } /******************************************************************************* * mcparmerror_string: display error message when failed extract string *******************************************************************************/ static void mcparmerror_string(char *parm, char *val) { fprintf(stderr, "Error: Invalid value '%s' for string parameter %s (mcparmerror_string)\n", val, parm); } /******************************************************************************* * mcparmprinter_string: convert string to string (including esc chars) *******************************************************************************/ static void mcparmprinter_string(char *f, void *vptr) { char **v = (char **)vptr; char *p; if (!*v) { *f='\0'; return; } strcpy(f, ""); for(p = *v; *p != '\0'; p++) { switch(*p) { case '\n': strcat(f, "\\n"); break; case '\r': strcat(f, "\\r"); break; case '"': strcat(f, "\\\""); break; case '\\': strcat(f, "\\\\"); break; default: strncat(f, p, 1); } } /* strcat(f, "\""); */ } /* mcparmprinter_string */ /* now we may define the parameter structure, using previous functions */ static struct { int (*getparm)(char *, void *); char * (*parminfo)(char *); void (*error)(char *, char *); void (*printer)(char *, void *); } mcinputtypes[] = { { mcparm_int, mcparminfo_int, mcparmerror_int, mcparmprinter_int }, { mcparm_string, mcparminfo_string, mcparmerror_string, mcparmprinter_string }, { mcparm_string, mcparminfo_string, mcparmerror_string, mcparmprinter_string }, { mcparm_double, mcparminfo_double, mcparmerror_double, mcparmprinter_double }, { mcparm_double, mcparminfo_double, mcparmerror_double, mcparmprinter_double } }; /******************************************************************************* * mcestimate_error: compute sigma from N,p,p2 in Gaussian large numbers approx *******************************************************************************/ double mcestimate_error(double N, double p1, double p2) { double pmean, n1; if(N <= 1) return p1; pmean = p1 / N; n1 = N - 1; /* Note: underflow may cause p2 to become zero; the fabs() below guards against this. */ return sqrt((N/n1)*fabs(p2 - pmean*pmean)); } double (*mcestimate_error_p) (double V2, double psum, double p2sum)=mcestimate_error; /* ========================================================================== */ /* MCCODE_R_IO_C */ /* ========================================================================== */ #ifndef MCCODE_R_IO_C #define MCCODE_R_IO_C "$Revision$" /* SECTION: file i/o handling ================================================ */ #ifndef HAVE_STRCASESTR // from msysgit: https://code.google.com/p/msysgit/source/browse/compat/strcasestr.c char *strcasestr(const char *haystack, const char *needle) { int nlen = strlen(needle); int hlen = strlen(haystack) - nlen + 1; int i; for (i = 0; i < hlen; i++) { int j; for (j = 0; j < nlen; j++) { unsigned char c1 = haystack[i+j]; unsigned char c2 = needle[j]; if (toupper(c1) != toupper(c2)) goto next; } return (char *) haystack + i; next: ; } return NULL; } #endif #ifndef HAVE_STRCASECMP int strcasecmp( const char *s1, const char *s2 ) { int c1, c2; do { c1 = tolower( (unsigned char) *s1++ ); c2 = tolower( (unsigned char) *s2++ ); } while (c1 == c2 && c1 != 0); return c2 > c1 ? -1 : c1 > c2; } #endif #ifndef STRACPY /* this is a replacement to strncpy, but ensures that the copy ends with NULL */ /* http://stracpy.blogspot.fr/2011/04/stracpy-strncpy-replacement.html */ #define STRACPY char *stracpy(char *destination, const char *source, size_t amount) { if (!destination || !source || !amount) return(NULL); while(amount--) if((*destination++ = *source++) == '\0') break; *destination = '\0'; return destination; } #endif /******************************************************************************* * mcfull_file: allocates a full file name=dirname+file. Catenate extension if missing. *******************************************************************************/ char *mcfull_file(char *name, char *ext) { int dirlen=0; char *mem =NULL; dirlen = dirname ? strlen(dirname) : 0; mem = (char*)malloc(dirlen + strlen(name) + CHAR_BUF_LENGTH); if(!mem) { exit(-fprintf(stderr, "Error: Out of memory %li (mcfull_file)\n", (long)(dirlen + strlen(name) + 256))); } strcpy(mem, ""); /* prepend directory name to path if name does not contain a path */ if (dirlen > 0 && !strchr(name, MC_PATHSEP_C)) { strcat(mem, dirname); strcat(mem, MC_PATHSEP_S); } /* dirlen */ strcat(mem, name); if (!strchr(name, '.') && ext && strlen(ext)) { /* add extension if not in file name already */ strcat(mem, "."); strcat(mem, ext); } return(mem); } /* mcfull_file */ /******************************************************************************* * mcnew_file: opens a new file within dirname if non NULL * the file is opened in "a" (append, create if does not exist) * the extension 'ext' is added if the file name does not include one. * the last argument is set to 0 if file did not exist, else to 1. *******************************************************************************/ FILE *mcnew_file(char *name, char *ext, int *exists) { char *mem; FILE *file=NULL; if (!name || strlen(name) == 0 || mcdisable_output_files) return(NULL); mem = mcfull_file(name, ext); /* create dirname/name.ext */ /* check for existence */ file = fopen(mem, "r"); /* for reading -> fails if does not exist */ if (file) { fclose(file); *exists=1; } else *exists=0; /* open the file for writing/appending */ #ifdef USE_NEXUS if (mcformat && strcasestr(mcformat, "NeXus")) { /* NXhandle nxhandle is defined in the .h with USE_NEXUS */ NXaccess mode = (*exists ? NXACC_CREATE5 | NXACC_RDWR : NXACC_CREATE5); if (NXopen(mem, mode, &nxhandle) != NX_OK) file = NULL; else file = (FILE*)&nxhandle; /* to make it non NULL */ } else #endif file = fopen(mem, "a+"); if(!file) fprintf(stderr, "Warning: could not open output file '%s' for %s (mcnew_file)\n", mem, *exists ? "append" : "create"); free(mem); return file; } /* mcnew_file */ /******************************************************************************* * mcdetector_statistics: compute detector statistics, error bars, [x I I_err N] 1D * RETURN: updated detector structure * Used by: detector_import *******************************************************************************/ MCDETECTOR mcdetector_statistics( MCDETECTOR detector) { if (!detector.p1 || !detector.m) return(detector); /* compute statistics and update MCDETECTOR structure ===================== */ double sum_z = 0, min_z = 0, max_z = 0; double fmon_x =0, smon_x = 0, fmon_y =0, smon_y=0, mean_z=0; double Nsum=0, P2sum=0; double sum_xz = 0, sum_yz = 0, sum_x = 0, sum_y = 0, sum_x2z = 0, sum_y2z = 0; int i,j; char hasnan=0, hasinf=0; char israw = ((char*)strcasestr(detector.format,"raw") != NULL); double *this_p1=NULL; /* new 1D McCode array [x I E N]. Freed after writing data */ /* if McCode/PGPLOT and rank==1 we create a new m*4 data block=[x I E N] */ if (detector.rank == 1 && strcasestr(detector.format,"McCode")) { this_p1 = (double *)calloc(detector.m*detector.n*detector.p*4, sizeof(double)); if (!this_p1) exit(-fprintf(stderr, "Error: Out of memory creating %zi 1D " MCCODE_STRING " data set for file '%s' (detector_import)\n", detector.m*detector.n*detector.p*4*sizeof(double*), detector.filename)); } max_z = min_z = detector.p1[0]; /* compute sum and moments (not for lists) */ if (!strcasestr(detector.format,"list") && detector.m) for(j = 0; j < detector.n*detector.p; j++) { for(i = 0; i < detector.m; i++) { double x,y,z; double N, E; long index= !detector.istransposed ? i*detector.n*detector.p + j : i+j*detector.m; char hasnaninf=0; if (detector.m) x = detector.xmin + (i + 0.5)/detector.m*(detector.xmax - detector.xmin); else x = 0; if (detector.n && detector.p) y = detector.ymin + (j + 0.5)/detector.n/detector.p*(detector.ymax - detector.ymin); else y = 0; z = detector.p1[index]; N = detector.p0 ? detector.p0[index] : 1; E = detector.p2 ? detector.p2[index] : 0; if (detector.p2 && !israw) detector.p2[index] = (*mcestimate_error_p)(detector.p0[index],detector.p1[index],detector.p2[index]); /* set sigma */ if (detector.rank == 1 && this_p1 && strcasestr(detector.format,"McCode")) { /* fill-in 1D McCode array [x I E N] */ this_p1[index*4] = x; this_p1[index*4+1] = z; this_p1[index*4+2] = detector.p2 ? detector.p2[index] : 0; this_p1[index*4+3] = N; } if (isnan(z) || isnan(E) || isnan(N)) hasnaninf=hasnan=1; if (isinf(z) || isinf(E) || isinf(N)) hasnaninf=hasinf=1; /* compute stats integrals */ if (!hasnaninf) { sum_xz += x*z; sum_yz += y*z; sum_x += x; sum_y += y; sum_z += z; sum_x2z += x*x*z; sum_y2z += y*y*z; if (z > max_z) max_z = z; if (z < min_z) min_z = z; Nsum += N; P2sum += E; } } } /* for j */ /* compute 1st and 2nd moments. For lists, sum_z=0 so this is skipped. */ if (sum_z && detector.n*detector.m*detector.p) { fmon_x = sum_xz/sum_z; fmon_y = sum_yz/sum_z; smon_x = sum_x2z/sum_z-fmon_x*fmon_x; smon_x = smon_x > 0 ? sqrt(smon_x) : 0; smon_y = sum_y2z/sum_z-fmon_y*fmon_y; smon_y = smon_y > 0 ? sqrt(smon_y) : 0; mean_z = sum_z/detector.n/detector.m/detector.p; } /* store statistics into detector */ detector.intensity = sum_z; detector.error = Nsum ? (*mcestimate_error_p)(Nsum, sum_z, P2sum) : 0; detector.events = Nsum; detector.min = min_z; detector.max = max_z; detector.mean = mean_z; detector.centerX = fmon_x; detector.halfwidthX= smon_x; detector.centerY = fmon_y; detector.halfwidthY= smon_y; /* if McCode/PGPLOT and rank==1 replace p1 with new m*4 1D McCode and clear others */ if (detector.rank == 1 && this_p1 && strcasestr(detector.format,"McCode")) { detector.p1 = this_p1; detector.n = detector.m; detector.m = 4; detector.p0 = detector.p2 = NULL; detector.istransposed = 1; } if (detector.n*detector.m*detector.p > 1) snprintf(detector.signal, CHAR_BUF_LENGTH, "Min=%g; Max=%g; Mean=%g;", detector.min, detector.max, detector.mean); else strcpy(detector.signal, "None"); snprintf(detector.values, CHAR_BUF_LENGTH, "%g %g %g", detector.intensity, detector.error, detector.events); switch (detector.rank) { case 1: snprintf(detector.statistics, CHAR_BUF_LENGTH, "X0=%g; dX=%g;", detector.centerX, detector.halfwidthX); break; case 2: case 3: snprintf(detector.statistics, CHAR_BUF_LENGTH, "X0=%g; dX=%g; Y0=%g; dY=%g;", detector.centerX, detector.halfwidthX, detector.centerY, detector.halfwidthY); break; default: strcpy(detector.statistics, "None"); } if (hasnan) printf("WARNING: Nan detected in component/file %s %s\n", detector.component, strlen(detector.filename) ? detector.filename : ""); if (hasinf) printf("WARNING: Inf detected in component/file %s %s\n", detector.component, strlen(detector.filename) ? detector.filename : ""); return(detector); } /* mcdetector_statistics */ /******************************************************************************* * detector_import: build detector structure, merge non-lists from MPI * compute basic stat, write "Detector:" line * RETURN: detector structure. Invalid data if detector.p1 == NULL * Invalid detector sets m=0 and filename="" * Simulation data sets m=0 and filename=siminfo_name * This function is equivalent to the old 'mcdetector_out', returning a structure *******************************************************************************/ MCDETECTOR detector_import( char *format, char *component, char *title, long m, long n, long p, char *xlabel, char *ylabel, char *zlabel, char *xvar, char *yvar, char *zvar, double x1, double x2, double y1, double y2, double z1, double z2, char *filename, double *p0, double *p1, double *p2, Coords position, Rotation rotation, int index) { time_t t; /* for detector.date */ long date_l; /* date as a long number */ char istransposed=0; char c[CHAR_BUF_LENGTH]; /* temp var for signal label */ MCDETECTOR detector; /* build MCDETECTOR structure ============================================= */ /* make sure we do not have NULL for char fields */ /* these also apply to simfile */ strncpy (detector.filename, filename ? filename : "", CHAR_BUF_LENGTH); strncpy (detector.format, format ? format : "McCode" , CHAR_BUF_LENGTH); /* add extension if missing */ if (strlen(detector.filename) && !strchr(detector.filename, '.')) { /* add extension if not in file name already */ strcat(detector.filename, ".dat"); } strncpy (detector.component, component ? component : MCCODE_STRING " component", CHAR_BUF_LENGTH); #ifdef USE_NEXUS char pref[5]; if (index-1 < 10) { sprintf(pref,"000"); } else if (index-1 < 100) { sprintf(pref,"00"); } else if (index-1 < 1000) { sprintf(pref,"0"); } else if (index-1 < 10000) { sprintf(pref,""); } else { fprintf(stderr,"Error, no support for > 10000 comps at the moment!\n"); exit(-1); } sprintf(detector.nexuscomp,"%s%d_%s",pref,index-1,detector.component); #endif snprintf(detector.instrument, CHAR_BUF_LENGTH, "%s (%s)", instrument_name, instrument_source); snprintf(detector.user, CHAR_BUF_LENGTH, "%s on %s", getenv("USER") ? getenv("USER") : MCCODE_NAME, getenv("HOST") ? getenv("HOST") : "localhost"); time(&t); /* get current write time */ date_l = (long)t; /* same but as a long */ snprintf(detector.date, CHAR_BUF_LENGTH, "%s", ctime(&t)); if (strlen(detector.date)) detector.date[strlen(detector.date)-1] = '\0'; /* remove last \n in date */ detector.date_l = date_l; if (!mcget_run_num() || mcget_run_num() >= mcget_ncount()) snprintf(detector.ncount, CHAR_BUF_LENGTH, "%llu", mcget_ncount() #ifdef USE_MPI *mpi_node_count #endif ); else snprintf(detector.ncount, CHAR_BUF_LENGTH, "%g/%g", (double)mcget_run_num(), (double)mcget_ncount()); detector.p0 = p0; detector.p1 = p1; detector.p2 = p2; /* handle transposition (not for NeXus) */ if (!strcasestr(detector.format, "NeXus")) { if (m<0 || n<0 || p<0) istransposed = !istransposed; if (strcasestr(detector.format, "transpose")) istransposed = !istransposed; if (istransposed) { /* do the swap once for all */ long i=m; m=n; n=i; } } m=labs(m); n=labs(n); p=labs(p); /* make sure dimensions are positive */ detector.istransposed = istransposed; /* determine detector rank (dimensionality) */ if (!m || !n || !p || !p1) detector.rank = 4; /* invalid: exit with m=0 filename="" */ else if (m*n*p == 1) detector.rank = 0; /* 0D */ else if (n == 1 || m == 1) detector.rank = 1; /* 1D */ else if (p == 1) detector.rank = 2; /* 2D */ else detector.rank = 3; /* 3D */ /* from rank, set type */ switch (detector.rank) { case 0: strcpy(detector.type, "array_0d"); m=n=p=1; break; case 1: snprintf(detector.type, CHAR_BUF_LENGTH, "array_1d(%ld)", m*n*p); m *= n*p; n=p=1; break; case 2: snprintf(detector.type, CHAR_BUF_LENGTH, "array_2d(%ld, %ld)", m, n*p); n *= p; p=1; break; case 3: snprintf(detector.type, CHAR_BUF_LENGTH, "array_3d(%ld, %ld, %ld)", m, n, p); break; default: m=0; strcpy(detector.type, ""); strcpy(detector.filename, "");/* invalid */ } detector.m = m; detector.n = n; detector.p = p; /* these only apply to detector files ===================================== */ detector.Position[0]=position.x; detector.Position[1]=position.y; detector.Position[2]=position.z; rot_copy(detector.Rotation,rotation); snprintf(detector.position, CHAR_BUF_LENGTH, "%g %g %g", position.x, position.y, position.z); /* may also store actual detector orientation in the future */ strncpy(detector.title, title && strlen(title) ? title : component, CHAR_BUF_LENGTH); strncpy(detector.xlabel, xlabel && strlen(xlabel) ? xlabel : "X", CHAR_BUF_LENGTH); /* axis labels */ strncpy(detector.ylabel, ylabel && strlen(ylabel) ? ylabel : "Y", CHAR_BUF_LENGTH); strncpy(detector.zlabel, zlabel && strlen(zlabel) ? zlabel : "Z", CHAR_BUF_LENGTH); strncpy(detector.xvar, xvar && strlen(xvar) ? xvar : "x", CHAR_BUF_LENGTH); /* axis variables */ strncpy(detector.yvar, yvar && strlen(yvar) ? yvar : detector.xvar, CHAR_BUF_LENGTH); strncpy(detector.zvar, zvar && strlen(zvar) ? zvar : detector.yvar, CHAR_BUF_LENGTH); /* set "variables" as e.g. "I I_err N" */ strcpy(c, "I "); if (strlen(detector.zvar)) strncpy(c, detector.zvar,32); else if (strlen(detector.yvar)) strncpy(c, detector.yvar,32); else if (strlen(detector.xvar)) strncpy(c, detector.xvar,32); if (detector.rank == 1) snprintf(detector.variables, CHAR_BUF_LENGTH, "%s %s %s_err N", detector.xvar, c, c); else snprintf(detector.variables, CHAR_BUF_LENGTH, "%s %s_err N", c, c); /* limits */ detector.xmin = x1; detector.xmax = x2; detector.ymin = y1; detector.ymax = y2; detector.zmin = z1; detector.zmax = z2; if (abs(detector.rank) == 1) snprintf(detector.limits, CHAR_BUF_LENGTH, "%g %g", x1, x2); else if (detector.rank == 2) snprintf(detector.limits, CHAR_BUF_LENGTH, "%g %g %g %g", x1, x2, y1, y2); else snprintf(detector.limits, CHAR_BUF_LENGTH, "%g %g %g %g %g %g", x1, x2, y1, y2, z1, z2); /* if MPI and nodes_nb > 1: reduce data sets when using MPI =============== */ #ifdef USE_MPI if (!strcasestr(detector.format,"list") && mpi_node_count > 1 && m) { /* we save additive data: reduce everything into mpi_node_root */ if (p0) mc_MPI_Sum(p0, m*n*p); if (p1) mc_MPI_Sum(p1, m*n*p); if (p2) mc_MPI_Sum(p2, m*n*p); if (!p0) { /* additive signal must be then divided by the number of nodes */ int i; for (i=0; i CHAR_BUF_LENGTH) break; snprintf(ThisParam, CHAR_BUF_LENGTH, " %s(%s)", mcinputtable[i].name, (*mcinputtypes[mcinputtable[i].type].parminfo) (mcinputtable[i].name)); if (strlen(Parameters) + strlen(ThisParam) + 1 >= CHAR_BUF_LENGTH) break; strcat(Parameters, ThisParam); } /* output data ============================================================ */ if (f != stdout) fprintf(f, "%sFile: %s%c%s\n", pre, dirname, MC_PATHSEP_C, siminfo_name); else fprintf(f, "%sCreator: %s\n", pre, MCCODE_STRING); fprintf(f, "%sSource: %s\n", pre, instrument_source); fprintf(f, "%sParameters: %s\n", pre, Parameters); fprintf(f, "%sTrace_enabled: %s\n", pre, traceenabled ? "yes" : "no"); fprintf(f, "%sDefault_main: %s\n", pre, defaultmain ? "yes" : "no"); #ifdef MC_EMBEDDED_RUNTIME fprintf(f, "%sEmbedded_runtime: %s\n", pre, "yes"); #else fprintf(f, "%sEmbedded_runtime: %s\n", pre, "no"); #endif fflush(f); } /* mcinfo_out */ /******************************************************************************* * mcruninfo_out: output simulation tags/info (both in SIM and data files) * Used in: siminfo_init (ascii case), mcdetector_out_xD_ascii *******************************************************************************/ static void mcruninfo_out(char *pre, FILE *f) { int i; char Parameters[CHAR_BUF_LENGTH]; if (!f || mcdisable_output_files) return; fprintf(f, "%sFormat: %s%s\n", pre, mcformat && strlen(mcformat) ? mcformat : MCCODE_NAME, mcformat && strcasestr(mcformat,"McCode") ? " with text headers" : ""); fprintf(f, "%sURL: %s\n", pre, "http://www.mccode.org"); fprintf(f, "%sCreator: %s\n", pre, MCCODE_STRING); fprintf(f, "%sInstrument: %s\n", pre, instrument_source); fprintf(f, "%sNcount: %llu\n", pre, mcget_ncount()); fprintf(f, "%sTrace: %s\n", pre, mcdotrace ? "yes" : "no"); fprintf(f, "%sGravitation: %s\n", pre, mcgravitation ? "yes" : "no"); snprintf(Parameters, CHAR_BUF_LENGTH, "%ld", mcseed); fprintf(f, "%sSeed: %s\n", pre, Parameters); fprintf(f, "%sDirectory: %s\n", pre, dirname ? dirname : "."); #ifdef USE_MPI if (mpi_node_count > 1) fprintf(f, "%sNodes: %i\n", pre, mpi_node_count); #endif // TODO Consider replacing this by a a call to `mcparameterinfo_out(pre+"Param: ", f)` /* output parameter string ================================================ */ for(i = 0; i < numipar; i++) { if (mcinputtable[i].par){ /* Parameters with a default value */ if(mcinputtable[i].val && strlen(mcinputtable[i].val)){ (*mcinputtypes[mcinputtable[i].type].printer)(Parameters, mcinputtable[i].par); fprintf(f, "%sParam: %s=%s\n", pre, mcinputtable[i].name, Parameters); /* ... and those without */ }else{ fprintf(f, "%sParam: %s=NULL\n", pre, mcinputtable[i].name); } } } fflush(f); } /* mcruninfo_out */ /******************************************************************************* * @brief Print parameter information to the specified file * @param pre any beginning-of-line padding * @param f the output file */ static void mcparameterinfo_out(char * pre, FILE *f){ if (!f || mcdisable_output_files) return; unsigned int nchar = 4; for (int i=0; i < numipar; ++i){ if (mcinputtable[i].par && mcinputtable[i].val && strlen(mcinputtable[i].val) > nchar) nchar = strlen(mcinputtable[i].val); } char * buffer = calloc(nchar+1, sizeof(char)); if (!buffer) { exit(1); } for (int i=0; i < numipar; ++i) { if (mcinputtable[i].par) { char * name = mcinputtable[i].name; if (mcinputtable[i].val && strlen(mcinputtable[i].val)) { mcinputtypes[mcinputtable[i].type].printer(buffer, mcinputtable[i].par); } else { strcpy(buffer, "NULL"); } if (strlen(mcinputtable[i].unit)){ //fprintf(f, "%s%s %s (\"%s\") = %s\n", pre, mcinputtypes[mcinputtable[i].type].parminfo(name), name, mcinputtable[i].unit, buffer); fprintf(f, "%s%s %s/\"%s\" = %s\n", pre, mcinputtypes[mcinputtable[i].type].parminfo(name), name, mcinputtable[i].unit, buffer); } else { fprintf(f, "%s%s %s = %s\n", pre, mcinputtypes[mcinputtable[i].type].parminfo(name), name, buffer); } } } free(buffer); } /******************************************************************************* * siminfo_out: wrapper to fprintf(siminfo_file) *******************************************************************************/ void siminfo_out(char *format, ...) { va_list ap; if(siminfo_file && !mcdisable_output_files) { va_start(ap, format); vfprintf(siminfo_file, format, ap); va_end(ap); } } /* siminfo_out */ /******************************************************************************* * mcdatainfo_out: output detector header * mcdatainfo_out(prefix, file_handle, detector) writes info to data file *******************************************************************************/ static void mcdatainfo_out(char *pre, FILE *f, MCDETECTOR detector) { if (!f || !detector.m || mcdisable_output_files) return; /* output data ============================================================ */ fprintf(f, "%sDate: %s (%li)\n", pre, detector.date, detector.date_l); fprintf(f, "%stype: %s\n", pre, detector.type); fprintf(f, "%sSource: %s\n", pre, detector.instrument); fprintf(f, "%scomponent: %s\n", pre, detector.component); fprintf(f, "%sposition: %s\n", pre, detector.position); fprintf(f, "%stitle: %s\n", pre, detector.title); fprintf(f, !mcget_run_num() || mcget_run_num() >= mcget_ncount() ? "%sNcount: %s\n" : "%sratio: %s\n", pre, detector.ncount); if (strlen(detector.filename)) { fprintf(f, "%sfilename: %s\n", pre, detector.filename); } fprintf(f, "%sstatistics: %s\n", pre, detector.statistics); fprintf(f, "%ssignal: %s\n", pre, detector.signal); fprintf(f, "%svalues: %s\n", pre, detector.values); if (detector.rank >= 1) { fprintf(f, "%sxvar: %s\n", pre, detector.xvar); fprintf(f, "%syvar: %s\n", pre, detector.yvar); fprintf(f, "%sxlabel: %s\n", pre, detector.xlabel); fprintf(f, "%sylabel: %s\n", pre, detector.ylabel); if (detector.rank > 1) { fprintf(f, "%szvar: %s\n", pre, detector.zvar); fprintf(f, "%szlabel: %s\n", pre, detector.zlabel); } } fprintf(f, abs(detector.rank)==1 ? "%sxlimits: %s\n" : "%sxylimits: %s\n", pre, detector.limits); fprintf(f, "%svariables: %s\n", pre, strcasestr(detector.format, "list") ? detector.ylabel : detector.variables); fflush(f); } /* mcdatainfo_out */ /* mcdetector_out_array_ascii: output a single array to a file * m: columns * n: rows * p: array * f: file handle (already opened) */ static void mcdetector_out_array_ascii(long m, long n, double *p, FILE *f, char istransposed) { if(f) { int i,j; for(j = 0; j < n; j++) { for(i = 0; i < m; i++) { fprintf(f, "%.10g ", p[!istransposed ? i*n + j : j*m+i]); } fprintf(f,"\n"); } } } /* mcdetector_out_array_ascii */ /******************************************************************************* * mcdetector_out_0D_ascii: called by mcdetector_out_0D for ascii output *******************************************************************************/ MCDETECTOR mcdetector_out_0D_ascii(MCDETECTOR detector) { int exists=0; FILE *outfile = NULL; /* Write data set information to simulation description file. */ MPI_MASTER( siminfo_out("\nbegin data\n"); // detector.component mcdatainfo_out(" ", siminfo_file, detector); siminfo_out("end data\n"); /* Don't write if filename is NULL: mcnew_file handles this (return NULL) */ outfile = mcnew_file(detector.component, "dat", &exists); if(outfile) { /* write data file header and entry in simulation description file */ mcruninfo_out( "# ", outfile); mcdatainfo_out("# ", outfile, detector); /* write I I_err N */ fprintf(outfile, "%g %g %g\n", detector.intensity, detector.error, detector.events); fclose(outfile); } ); /* MPI_MASTER */ return(detector); } /* mcdetector_out_0D_ascii */ /******************************************************************************* * mcdetector_out_1D_ascii: called by mcdetector_out_1D for ascii output *******************************************************************************/ MCDETECTOR mcdetector_out_1D_ascii(MCDETECTOR detector) { int exists=0; FILE *outfile = NULL; MPI_MASTER( /* Write data set information to simulation description file. */ siminfo_out("\nbegin data\n"); // detector.filename mcdatainfo_out(" ", siminfo_file, detector); siminfo_out("end data\n"); /* Loop over array elements, writing to file. */ /* Don't write if filename is NULL: mcnew_file handles this (return NULL) */ outfile = mcnew_file(detector.filename, "dat", &exists); if(outfile) { /* write data file header and entry in simulation description file */ mcruninfo_out( "# ", outfile); mcdatainfo_out("# ", outfile, detector); /* output the 1D array columns */ mcdetector_out_array_ascii(detector.m, detector.n, detector.p1, outfile, detector.istransposed); fclose(outfile); } ); /* MPI_MASTER */ return(detector); } /* mcdetector_out_1D_ascii */ /******************************************************************************* * mcdetector_out_2D_ascii: called by mcdetector_out_2D for ascii output *******************************************************************************/ MCDETECTOR mcdetector_out_2D_ascii(MCDETECTOR detector) { int exists=0; FILE *outfile = NULL; MPI_MASTER( /* Loop over array elements, writing to file. */ /* Don't write if filename is NULL: mcnew_file handles this (return NULL) */ outfile = mcnew_file(detector.filename, "dat", &exists); if(outfile) { /* write header only if file has just been created (not appending) */ if (!exists) { /* Write data set information to simulation description file. */ siminfo_out("\nbegin data\n"); // detector.filename mcdatainfo_out(" ", siminfo_file, detector); siminfo_out("end data\n"); mcruninfo_out( "# ", outfile); mcdatainfo_out("# ", outfile, detector); } /* Add # Data entry for any write to the file (e.g. via -USR2, see GitHub issue #2174 ) */ fprintf(outfile, "# Data [%s/%s] %s:\n", detector.component, detector.filename, detector.zvar); mcdetector_out_array_ascii(detector.m, detector.n*detector.p, detector.p1, outfile, detector.istransposed); if (detector.p2) { fprintf(outfile, "# Errors [%s/%s] %s_err:\n", detector.component, detector.filename, detector.zvar); mcdetector_out_array_ascii(detector.m, detector.n*detector.p, detector.p2, outfile, detector.istransposed); } if (detector.p0) { fprintf(outfile, "# Events [%s/%s] N:\n", detector.component, detector.filename); mcdetector_out_array_ascii(detector.m, detector.n*detector.p, detector.p0, outfile, detector.istransposed); } fclose(outfile); if (!exists) { if (strcasestr(detector.format, "list")) printf("Events: \"%s\"\n", strlen(detector.filename) ? detector.filename : detector.component); } } /* if outfile */ ); /* MPI_MASTER */ #ifdef USE_MPI if (strcasestr(detector.format, "list") && mpi_node_count > 1) { int node_i=0; /* loop along MPI nodes to write sequentially */ for(node_i=0; node_i strlen(original)) n = strlen(original); else original += strlen(original)-n; strncpy(valid, original, n); for (i=0; i < n; i++) { if ( (valid[i] > 122) || (valid[i] < 32) || (strchr("!\"#$%&'()*+,-.:;<=>?@[\\]^`/ \n\r\t", valid[i]) != NULL) ) { if (i) valid[i] = '_'; else valid[i] = 'm'; } } valid[i] = '\0'; return(valid); } /* strcpy_valid */ /* end ascii output section ================================================= */ #ifdef USE_NEXUS /* ========================================================================== */ /* NeXus output */ /* ========================================================================== */ #define nxprintf(...) nxstr('d', __VA_ARGS__) #define nxprintattr(...) nxstr('a', __VA_ARGS__) /******************************************************************************* * nxstr: output a tag=value data set (char) in NeXus/current group * when 'format' is larger that 1024 chars it is used as value for the 'tag' * else the value is assembled with format and following arguments. * type='d' -> data set * 'a' -> attribute for current data set *******************************************************************************/ static int nxstr(char type, NXhandle *f, char *tag, char *format, ...) { va_list ap; char value[CHAR_BUF_LENGTH]; int i; int ret=NX_OK; if (!tag || !format || !strlen(tag) || !strlen(format)) return(NX_OK); /* assemble the value string */ if (strlen(format) < CHAR_BUF_LENGTH) { va_start(ap, format); ret = vsnprintf(value, CHAR_BUF_LENGTH, format, ap); va_end(ap); i = strlen(value); } else { i = strlen(format); } if (type == 'd') { /* open/put/close data set */ if (NXmakedata (f, tag, NX_CHAR, 1, &i) != NX_OK) return(NX_ERROR); NXopendata (f, tag); if (strlen(format) < CHAR_BUF_LENGTH) ret = NXputdata (f, value); else ret = NXputdata (f, format); NXclosedata(f); } else { if (strlen(format) < CHAR_BUF_LENGTH) ret = NXputattr (f, tag, value, strlen(value), NX_CHAR); else ret = NXputattr (f, tag, format, strlen(format), NX_CHAR); } return(ret); } /* nxstr */ /******************************************************************************* * mcinfo_readfile: read a full file into a string buffer which is allocated * Think to free the buffer after use. * Used in: mcinfo_out_nexus (nexus) *******************************************************************************/ char *mcinfo_readfile(char *filename) { FILE *f = fopen(filename, "rb"); if (!f) return(NULL); fseek(f, 0, SEEK_END); long fsize = ftell(f); rewind(f); char *string = malloc(fsize + 1); if (string) { int n = fread(string, fsize, 1, f); fclose(f); string[fsize] = 0; } return(string); } /******************************************************************************* * mcinfo_out: output instrument/simulation groups in NeXus file * Used in: siminfo_init (nexus) *******************************************************************************/ static void mcinfo_out_nexus(NXhandle f) { FILE *fid; /* for intrument source code/C/IDF */ char *buffer=NULL; time_t t =time(NULL); /* for date */ char entry0[CHAR_BUF_LENGTH]; int count=0; char name[CHAR_BUF_LENGTH]; char class[CHAR_BUF_LENGTH]; if (!f || mcdisable_output_files) return; /* write NeXus NXroot attributes */ /* automatically added: file_name, HDF5_Version, file_time, NeXus_version */ nxprintattr(f, "creator", "%s generated with " MCCODE_STRING, instrument_name); /* count the number of existing NXentry and create the next one */ NXgetgroupinfo(f, &count, name, class); sprintf(entry0, "entry%i", count+1); /* create the main NXentry (mandatory in NeXus) */ if (NXmakegroup(f, entry0, "NXentry") == NX_OK) if (NXopengroup(f, entry0, "NXentry") == NX_OK) { nxprintf(nxhandle, "program_name", MCCODE_STRING); nxprintf(f, "start_time", ctime(&t)); nxprintf(f, "title", "%s%s%s simulation generated by instrument %s", dirname && strlen(dirname) ? dirname : ".", MC_PATHSEP_S, siminfo_name, instrument_name); nxprintattr(f, "program_name", MCCODE_STRING); nxprintattr(f, "instrument", instrument_name); nxprintattr(f, "simulation", "%s%s%s", dirname && strlen(dirname) ? dirname : ".", MC_PATHSEP_S, siminfo_name); /* write NeXus instrument group */ if (NXmakegroup(f, "instrument", "NXinstrument") == NX_OK) if (NXopengroup(f, "instrument", "NXinstrument") == NX_OK) { int i; char *string=NULL; /* write NeXus parameters(types) data =================================== */ string = (char*)malloc(CHAR_BUF_LENGTH); if (string) { strcpy(string, ""); for(i = 0; i < numipar; i++) { char ThisParam[CHAR_BUF_LENGTH]; snprintf(ThisParam, CHAR_BUF_LENGTH, " %s(%s)", mcinputtable[i].name, (*mcinputtypes[mcinputtable[i].type].parminfo) (mcinputtable[i].name)); if (strlen(string) + strlen(ThisParam) < CHAR_BUF_LENGTH) strcat(string, ThisParam); } nxprintattr(f, "Parameters", string); free(string); } nxprintattr(f, "name", instrument_name); nxprintf (f, "name", instrument_name); nxprintattr(f, "Source", instrument_source); nxprintattr(f, "Trace_enabled", traceenabled ? "yes" : "no"); nxprintattr(f, "Default_main", defaultmain ? "yes" : "no"); #ifdef MC_EMBEDDED_RUNTIME nxprintattr(f, "Embedded_runtime", "yes"); #else nxprintattr(f, "Embedded_runtime", "no"); #endif /* add instrument source code when available */ buffer = mcinfo_readfile(instrument_source); if (buffer && strlen(buffer)) { long length=strlen(buffer); nxprintf (f, "description", buffer); NXopendata(f,"description"); nxprintattr(f, "file_name", instrument_source); nxprintattr(f, "file_size", "%li", length); nxprintattr(f, "MCCODE_STRING", MCCODE_STRING); NXclosedata(f); nxprintf (f,"instrument_source", "%s " MCCODE_NAME " " MCCODE_PARTICLE " Monte Carlo simulation", instrument_name); free(buffer); } else nxprintf (f, "description", "File %s not found (instrument description %s is missing)", instrument_source, instrument_name); if (mcnexus_embed_idf) { /* add Mantid/IDF.xml when available */ char *IDFfile=NULL; IDFfile = (char*)malloc(CHAR_BUF_LENGTH); sprintf(IDFfile,"%s%s",instrument_source,".xml"); buffer = mcinfo_readfile(IDFfile); if (buffer && strlen(buffer)) { NXmakegroup (nxhandle, "instrument_xml", "NXnote"); NXopengroup (nxhandle, "instrument_xml", "NXnote"); nxprintf(f, "data", buffer); nxprintf(f, "description", "IDF.xml file found with instrument %s", instrument_source); nxprintf(f, "type", "text/xml"); NXclosegroup(f); /* instrument_xml */ free(buffer); } free(IDFfile); } /* Add "components" entry */ if (NXmakegroup(f, "components", "NXdata") == NX_OK) { NXopengroup(f, "components", "NXdata"); nxprintattr(f, "description", "Component list for instrument %s", instrument_name); NXclosegroup(f); /* components */ } else { printf("Failed to create NeXus component hierarchy\n"); } NXclosegroup(f); /* instrument */ } /* NXinstrument */ /* write NeXus simulation group */ if (NXmakegroup(f, "simulation", "NXnote") == NX_OK) if (NXopengroup(f, "simulation", "NXnote") == NX_OK) { nxprintattr(f, "name", "%s%s%s", dirname && strlen(dirname) ? dirname : ".", MC_PATHSEP_S, siminfo_name); nxprintf (f, "name", "%s", siminfo_name); nxprintattr(f, "Format", mcformat && strlen(mcformat) ? mcformat : MCCODE_NAME); nxprintattr(f, "URL", "http://www.mccode.org"); nxprintattr(f, "program", MCCODE_STRING); nxprintattr(f, "Instrument",instrument_source); nxprintattr(f, "Trace", mcdotrace ? "yes" : "no"); nxprintattr(f, "Gravitation",mcgravitation ? "yes" : "no"); nxprintattr(f, "Seed", "%li", mcseed); nxprintattr(f, "Directory", dirname); #ifdef USE_MPI if (mpi_node_count > 1) nxprintf(f, "Nodes", "%i", mpi_node_count); #endif /* output parameter string ================================================ */ if (NXmakegroup(f, "Param", "NXparameters") == NX_OK) { NXopengroup(f,"Param", "NXparameters"); int i; char string[CHAR_BUF_LENGTH]; for(i = 0; i < numipar; i++) { if (mcget_run_num() || (mcinputtable[i].val && strlen(mcinputtable[i].val))) { if (mcinputtable[i].par == NULL) strncpy(string, (mcinputtable[i].val ? mcinputtable[i].val : ""), CHAR_BUF_LENGTH); else (*mcinputtypes[mcinputtable[i].type].printer)(string, mcinputtable[i].par); nxprintf(f, mcinputtable[i].name, "%s", string); nxprintattr(f, mcinputtable[i].name, string); } } NXclosegroup(f); /* Param */ } /* NXparameters */ NXclosegroup(f); /* simulation */ } /* NXsimulation */ /* create a group to hold all links for all monitors */ NXmakegroup(f, "data", "NXdetector"); /* leave the NXentry opened (closed at exit) */ } /* NXentry */ } /* mcinfo_out_nexus */ /******************************************************************************* * mccomp_placement_type_nexus: * Places * - absolute (3x1) position * - absolute (3x3) rotation * - type / class of component instance into attributes under * entry/instrument/compname * requires: NXentry to be opened *******************************************************************************/ static void mccomp_placement_type_nexus(NXhandle nxhandle, char* component, Coords position, Rotation rotation, char* comptype) { /* open NeXus instrument group */ #ifdef USE_NEXUS if(nxhandle) { if (NXopengroup(nxhandle, "instrument", "NXinstrument") == NX_OK) { if (NXopengroup(nxhandle, "components", "NXdata") == NX_OK) { if (NXmakegroup(nxhandle, component, "NXdata") == NX_OK) { if (NXopengroup(nxhandle, component, "NXdata") == NX_OK) { int64_t pdims[3]; pdims[0]=3; pdims[1]=0; pdims[2]=0; if (NXcompmakedata64(nxhandle, "Position", NX_FLOAT64, 1, pdims, NX_COMPRESSION, pdims) == NX_OK) { if (NXopendata(nxhandle, "Position") == NX_OK) { double pos[3]; coords_get(position, &pos[0], &pos[1], &pos[2]); if (NXputdata (nxhandle, pos) == NX_OK) { NXclosedata(nxhandle); } else { fprintf(stderr, "COULD NOT PUT Position field for component %s\n",component); } } else { fprintf(stderr, "Warning: could not open Position field for component %s\n",component); } } int64_t rdims[3]; rdims[0]=3; rdims[1]=3; rdims[2]=0; if (NXcompmakedata64(nxhandle, "Rotation", NX_FLOAT64, 2, rdims, NX_COMPRESSION, rdims) == NX_OK) { if (NXopendata(nxhandle, "Rotation") == NX_OK) { if (NXputdata (nxhandle, rotation) == NX_OK) { NXclosedata(nxhandle); } else { fprintf(stderr, "COULD NOT PUT Rotation field for component %s\n",component); } } else { fprintf(stderr, "Warning: could not open Rotation field for component %s\n",component); } } nxprintf(nxhandle, "Component_type", comptype); NXclosegroup(nxhandle); // component } else { printf("FAILED to open comp data group %s\n",component); } } else { printf("FAILED to create comp data group %s\n",component); } NXclosegroup(nxhandle); // components } else { printf("Failed to open NeXus component hierarchy\n"); } NXclosegroup(nxhandle); // instrument } else { printf("Failed to open NeXus instrument hierarchy\n"); } } else { fprintf(stderr,"NO NEXUS FILE\n"); } #endif } /* mccomp_placement_nexus */ /******************************************************************************* * mccomp_param_nexus: * Output parameter/value pair for component instance into * the attribute * entry/instrument/compname/parameter * requires: NXentry to be opened *******************************************************************************/ static void mccomp_param_nexus(NXhandle nxhandle, char* component, char* parameter, char* defval, char* value, char* type) { /* open NeXus instrument group */ #ifdef USE_NEXUS if(nxhandle) { if (NXopengroup(nxhandle, "instrument", "NXinstrument") == NX_OK) { if (NXopengroup(nxhandle, "components", "NXdata") == NX_OK) { if (NXopengroup(nxhandle, component, "NXdata") == NX_OK) { NXMDisableErrorReporting(); /* inactivate NeXus error messages, as creation may fail */ NXmakegroup(nxhandle, "parameters", "NXdata"); NXMEnableErrorReporting(); /* re-enable NeXus error messages */ if (NXopengroup(nxhandle, "parameters", "NXdata") == NX_OK) { NXmakegroup(nxhandle, parameter, "NXnote"); if (NXopengroup(nxhandle, parameter, "NXnote") == NX_OK) { nxprintattr(nxhandle, "type", type); nxprintattr(nxhandle, "default", defval); nxprintattr(nxhandle, "value", value); NXclosegroup(nxhandle); // parameter } else { printf("FAILED to open parameters %s data group \n",parameter); } NXclosegroup(nxhandle); // "parameters" } else { printf("FAILED to open comp/parameters data group \n"); } NXclosegroup(nxhandle); // component } else { printf("FAILED to open comp data group %s\n",component); } NXclosegroup(nxhandle); // components } else { printf("Failed to open NeXus component hierarchy\n"); } NXclosegroup(nxhandle); // instrument } else { printf("Failed to open NeXus instrument hierarchy\n"); } } else { fprintf(stderr,"NO NEXUS FILE\n"); } #endif } /* mccomp_param_nexus */ /******************************************************************************* * mcdatainfo_out_nexus: output detector header * mcdatainfo_out_nexus(detector) create group and write info to NeXus data file * open data:NXdetector then filename:NXdata and write headers/attributes * requires: NXentry to be opened *******************************************************************************/ static void mcdatainfo_out_nexus(NXhandle f, MCDETECTOR detector) { char data_name[CHAR_BUF_LENGTH]; if (!f || !detector.m || mcdisable_output_files) return; strcpy_valid(data_name, strlen(detector.filename) ? detector.filename : detector.component); /* the NXdetector group has been created in mcinfo_out_nexus (siminfo_init) */ if (NXopengroup(f, "instrument", "NXinstrument") == NX_OK) { if (NXopengroup(f, "components", "NXdata") == NX_OK) { NXMDisableErrorReporting(); /* inactivate NeXus error messages, as creation may fail */ NXmakegroup(f, detector.nexuscomp, "NXdata"); if (NXopengroup(f, detector.nexuscomp, "NXdata") == NX_OK) { NXmakegroup(f, "output", "NXdetector"); if (NXopengroup(f, "output", "NXdetector") == NX_OK) { if (NXmakegroup(f, data_name, "NXdata") == NX_OK) { if (NXopengroup(f, data_name, "NXdata") == NX_OK) { /* output metadata (as attributes) ======================================== */ nxprintattr(f, "Date", detector.date); nxprintattr(f, "type", detector.type); nxprintattr(f, "Source", detector.instrument); nxprintattr(f, "component", detector.component); nxprintattr(f, "position", detector.position); nxprintattr(f, "title", detector.title); nxprintattr(f, !mcget_run_num() || mcget_run_num() >= mcget_ncount() ? "Ncount" : "ratio", detector.ncount); if (strlen(detector.filename)) { nxprintattr(f, "filename", detector.filename); } nxprintattr(f, "statistics", detector.statistics); nxprintattr(f, "signal", detector.signal); nxprintattr(f, "values", detector.values); if (detector.rank >= 1) { nxprintattr(f, "xvar", detector.xvar); nxprintattr(f, "yvar", detector.yvar); nxprintattr(f, "xlabel", detector.xlabel); nxprintattr(f, "ylabel", detector.ylabel); if (detector.rank > 1) { nxprintattr(f, "zvar", detector.zvar); nxprintattr(f, "zlabel", detector.zlabel); } } nxprintattr(f, abs(detector.rank)==1 ? "xlimits" : "xylimits", detector.limits); nxprintattr(f, "variables", strcasestr(detector.format, "list") ? detector.ylabel : detector.variables); NXclosegroup(f); // data_name } } } NXclosegroup(f); // output NXclosegroup(f); // detector.nexuscomp } NXclosegroup(f); // components } NXMEnableErrorReporting(); /* re-enable NeXus error messages */ NXclosegroup(f); // instrument } /* NXdetector (instrument) */ } /* mcdatainfo_out_nexus */ /******************************************************************************* * mcdetector_out_axis_nexus: write detector axis into current NXdata * requires: NXdata to be opened *******************************************************************************/ int mcdetector_out_axis_nexus(NXhandle f, char *label, char *var, int rank, long length, double min, double max) { if (!f || length <= 1 || mcdisable_output_files || max == min) return(NX_OK); else { double *axis; axis=malloc(sizeof(double)*length); if (!axis ) { printf("Fatal memory error allocating NeXus axis of length %li, exiting!\n", length); return(NX_ERROR); } char *valid; valid=malloc(sizeof(char)*CHAR_BUF_LENGTH); if (!valid ) { printf("Fatal memory error allocating label axis of length %li, exiting!\n", CHAR_BUF_LENGTH); free(axis); return(NX_ERROR); } int dim=(int)length; int i; int nprimary=1; /* create an axis from [min:max] */ for(i = 0; i < length; i++) axis[i] = min+(max-min)*(i+0.5)/length; /* create the data set */ strcpy_valid(valid, label); NXcompmakedata(f, valid, NX_FLOAT64, 1, &dim, NX_COMPRESSION, &dim); /* open it */ if (NXopendata(f, valid) != NX_OK) { fprintf(stderr, "Warning: could not open axis rank %i '%s' (NeXus)\n", rank, valid); free(axis); free(valid); return(NX_ERROR); } /* put the axis and its attributes */ NXputdata (f, axis); nxprintattr(f, "long_name", label); nxprintattr(f, "short_name", var); NXputattr (f, "axis", &rank, 1, NX_INT32); nxprintattr(f, "units", var); NXputattr (f, "primary", &nprimary, 1, NX_INT32); NXclosedata(f); free(axis); free(valid); return(NX_OK); } } /* mcdetector_out_axis_nexus */ /******************************************************************************* * mcdetector_out_array_nexus: write detector array into current NXdata (1D,2D) * requires: NXdata to be opened *******************************************************************************/ int mcdetector_out_array_nexus(NXhandle f, char *part, double *data, MCDETECTOR detector) { int64_t dims[3]={detector.m,detector.n,detector.p}; /* number of elements to write */ int64_t fulldims[3]={detector.m,detector.n,detector.p}; int signal=1; int exists=0; int64_t current_dims[3]={0,0,0}; int ret=NX_OK; if (!f || !data || !detector.m || mcdisable_output_files) return(NX_OK); /* when this is a list, we set 1st dimension to NX_UNLIMITED for creation */ if (strcasestr(detector.format, "list")) fulldims[0] = NX_UNLIMITED; /* create the data set in NXdata group */ NXMDisableErrorReporting(); /* inactivate NeXus error messages, as creation may fail */ ret = NXcompmakedata64(f, part, NX_FLOAT64, detector.rank, fulldims, NX_COMPRESSION, dims); if (ret != NX_OK) { /* failed: data set already exists */ int datatype=0; int rank=0; exists=1; /* inquire current size of data set (nb of events stored) */ NXopendata(f, part); NXgetinfo64(f, &rank, current_dims, &datatype); NXclosedata(f); } NXMEnableErrorReporting(); /* re-enable NeXus error messages */ /* open the data set */ if (NXopendata(f, part) == NX_ERROR) { fprintf(stderr, "Warning: could not open DataSet %s '%s' (NeXus)\n", part, detector.title); return(NX_ERROR); } if (strcasestr(detector.format, "list")) { current_dims[1] = current_dims[2] = 0; /* set starting location for writing slab */ NXputslab64(f, data, current_dims, dims); if (!exists) printf("Events: \"%s\"\n", strlen(detector.filename) ? detector.filename : detector.component); else printf("Append: \"%s\"\n", strlen(detector.filename) ? detector.filename : detector.component); } else { NXputdata (f, data); } if (strstr(part,"data") || strstr(part, "events")) { NXputattr(f, "signal", &signal, 1, NX_INT32); nxprintattr(f, "short_name", strlen(detector.filename) ? detector.filename : detector.component); } nxprintattr(f, "long_name", "%s '%s'", part, detector.title); NXclosedata(f); return(NX_OK); } /* mcdetector_out_array_nexus */ /******************************************************************************* * mcdetector_out_data_nexus: write detector axes+data into current NXdata * The data:NXdetector is opened, then filename:NXdata * requires: NXentry to be opened *******************************************************************************/ int mcdetector_out_data_nexus(NXhandle f, MCDETECTOR detector) { char data_name[CHAR_BUF_LENGTH]; if (!f || !detector.m || mcdisable_output_files) return(NX_OK); strcpy_valid(data_name, strlen(detector.filename) ? detector.filename : detector.component); NXlink pLink; /* the NXdetector group has been created in mcinfo_out_nexus (siminfo_init) */ if (NXopengroup(f, "instrument", "NXinstrument") == NX_OK) { if (NXopengroup(f, "components", "NXdata") == NX_OK) { if (NXopengroup(f, detector.nexuscomp, "NXdata") == NX_OK) { if (NXopengroup(f, "output", "NXdetector") == NX_OK) { /* the NXdata group has been created in mcdatainfo_out_nexus */ if (NXopengroup(f, data_name, "NXdata") == NX_OK) { MPI_MASTER( nxprintattr(f, "options", strlen(detector.options) ? detector.options : "None"); ); /* write axes, for histogram data sets, not for lists */ if (!strcasestr(detector.format, "list")) { mcdetector_out_axis_nexus(f, detector.xlabel, detector.xvar, 1, detector.m, detector.xmin, detector.xmax); mcdetector_out_axis_nexus(f, detector.ylabel, detector.yvar, 2, detector.n, detector.ymin, detector.ymax); mcdetector_out_axis_nexus(f, detector.zlabel, detector.zvar, 3, detector.p, detector.zmin, detector.zmax); } else { MPI_MASTER( nxprintattr(f, "dataset columns", strlen(detector.ylabel) ? detector.ylabel : "None"); ); } /* write the actual data (appended if already exists) */ if (!strcasestr(detector.format, "list") && !strcasestr(detector.format, "pixels")) { mcdetector_out_array_nexus(f, "data", detector.p1, detector); mcdetector_out_array_nexus(f, "errors", detector.p2, detector); mcdetector_out_array_nexus(f, "ncount", detector.p0, detector); } else if (strcasestr(detector.format, "pixels")) { mcdetector_out_array_nexus( f, "pixels", detector.p1, detector); } else { mcdetector_out_array_nexus( f, "events", detector.p1, detector); } NXclosegroup(f); NXopengroup(f, data_name, "NXdata"); NXgetgroupID(nxhandle, &pLink); NXclosegroup(f); } /* NXdata data_name*/ NXclosegroup(f); } /* NXdetector output */ NXclosegroup(f); } /* NXdata detector.nexuscomp */ NXclosegroup(f); } /* NXdata components */ NXclosegroup(f); } /* NXdata instrument */ if (!strcasestr(detector.format, "pixels")) { if (NXopengroup(f, "data", "NXdetector") == NX_OK) { NXmakelink(nxhandle, &pLink); NXclosegroup(f); } } return(NX_OK); } /* mcdetector_out_array_nexus */ #ifdef USE_MPI /******************************************************************************* * mcdetector_out_list_slaves: slaves send their list data to master which writes * requires: NXentry to be opened * WARNING: this method has a flaw: it requires all nodes to flush the lists * the same number of times. In case one node is just below the buffer size * when finishing (e.g. monitor_nd), it may not trigger save but others may. * Then the number of recv/send is not constant along nodes, and simulation stalls. *******************************************************************************/ MCDETECTOR mcdetector_out_list_slaves(MCDETECTOR detector) { int node_i=0; MPI_MASTER( printf("\n** MPI master gathering slave node list data ** \n"); ); if (mpi_node_rank != mpi_node_root) { /* MPI slave: slaves send their data to master: 2 MPI_Send calls */ /* m, n, p must be sent first, since all slaves do not have the same number of events */ int mnp[3]={detector.m,detector.n,detector.p}; if (mc_MPI_Send(mnp, 3, MPI_INT, mpi_node_root)!= MPI_SUCCESS) fprintf(stderr, "Warning: proc %i to master: MPI_Send mnp list error (mcdetector_out_list_slaves)\n", mpi_node_rank); if (!detector.p1 || mc_MPI_Send(detector.p1, mnp[0]*mnp[1]*mnp[2], MPI_DOUBLE, mpi_node_root) != MPI_SUCCESS) fprintf(stderr, "Warning: proc %i to master: MPI_Send p1 list error: mnp=%i (mcdetector_out_list_slaves)\n", mpi_node_rank, abs(mnp[0]*mnp[1]*mnp[2])); /* slaves are done: sent mnp and p1 */ } /* end slaves */ /* MPI master: receive data from slaves sequentially: 2 MPI_Recv calls */ if (mpi_node_rank == mpi_node_root) { for(node_i=0; node_i 1) { mcdetector_out_list_slaves(detector); } #endif /* USE_MPI */ return(detector); } /* mcdetector_out_2D_nexus */ MCDETECTOR mcdetector_out_3D_nexus(MCDETECTOR detector) { printf("Received detector from %s\n",detector.component); MPI_MASTER( mcdatainfo_out_nexus(nxhandle, detector); mcdetector_out_data_nexus(nxhandle, detector); ); return(detector); } /* mcdetector_out_3D_nexus */ #endif /* USE_NEXUS*/ /* ========================================================================== */ /* Main input functions */ /* DETECTOR_OUT_xD function calls -> ascii or NeXus */ /* ========================================================================== */ /******************************************************************************* * siminfo_init: open SIM and write header *******************************************************************************/ FILE *siminfo_init(FILE *f) { int exists=0; /* check format */ if (!mcformat || !strlen(mcformat) || !strcasecmp(mcformat, "MCSTAS") || !strcasecmp(mcformat, "MCXTRACE") || !strcasecmp(mcformat, "PGPLOT") || !strcasecmp(mcformat, "GNUPLOT") || !strcasecmp(mcformat, "MCCODE") || !strcasecmp(mcformat, "MATLAB")) { mcformat="McCode"; #ifdef USE_NEXUS } else if (strcasestr(mcformat, "NeXus")) { /* Do nothing */ #endif } else { fprintf(stderr, "Warning: You have requested the output format %s which is unsupported by this binary. Resetting to standard %s format.\n",mcformat ,"McCode"); mcformat="McCode"; } /* open the SIM file if not defined yet */ if (siminfo_file || mcdisable_output_files) return (siminfo_file); #ifdef USE_NEXUS /* only master writes NeXus header: calls NXopen(nxhandle) */ if (mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( siminfo_file = mcnew_file(siminfo_name, "h5", &exists); if(!siminfo_file) fprintf(stderr, "Warning: could not open simulation description file '%s'\n", siminfo_name); else mcinfo_out_nexus(nxhandle); ); return(siminfo_file); /* points to nxhandle */ } #endif /* write main description file (only MASTER) */ MPI_MASTER( siminfo_file = mcnew_file(siminfo_name, "sim", &exists); if(!siminfo_file) fprintf(stderr, "Warning: could not open simulation description file '%s'\n", siminfo_name); else { /* write SIM header */ time_t t=time(NULL); siminfo_out("%s simulation description file for %s.\n", MCCODE_NAME, instrument_name); siminfo_out("Date: %s", ctime(&t)); /* includes \n */ siminfo_out("Program: %s\n\n", MCCODE_STRING); siminfo_out("begin instrument: %s\n", instrument_name); mcinfo_out( " ", siminfo_file); siminfo_out("end instrument\n"); siminfo_out("\nbegin simulation: %s\n", dirname); mcruninfo_out(" ", siminfo_file); siminfo_out("end simulation\n"); } ); /* MPI_MASTER */ return (siminfo_file); } /* siminfo_init */ /******************************************************************************* * siminfo_close: close SIM *******************************************************************************/ void siminfo_close() { #ifdef USE_MPI if(mpi_node_rank == mpi_node_root) { #endif if(siminfo_file && !mcdisable_output_files) { #ifdef USE_NEXUS if (mcformat && strcasestr(mcformat, "NeXus")) { time_t t=time(NULL); nxprintf(nxhandle, "end_time", ctime(&t)); nxprintf(nxhandle, "duration", "%li", (long)t-mcstartdate); NXclosegroup(nxhandle); /* NXentry */ NXclose(&nxhandle); } else { #endif fclose(siminfo_file); #ifdef USE_NEXUS } #endif #ifdef USE_MPI } #endif siminfo_file = NULL; } } /* siminfo_close */ /******************************************************************************* * mcdetector_out_0D: wrapper for 0D (single value). * Output single detector/monitor data (p0, p1, p2). * Title is t, component name is c. *******************************************************************************/ MCDETECTOR mcdetector_out_0D(char *t, double p0, double p1, double p2, char *c, Coords posa, Rotation rota, int index) { /* import and perform basic detector analysis (and handle MPI reduce) */ MCDETECTOR detector = detector_import(mcformat, c, (t ? t : MCCODE_STRING " data"), 1, 1, 1, "I", "", "", "I", "", "", 0, 0, 0, 0, 0, 0, c, &p0, &p1, &p2, posa, rota, index); /* write Detector: line */ #ifdef USE_NEXUS if (strcasestr(detector.format, "NeXus")) return(mcdetector_out_0D_nexus(detector)); else #endif return(mcdetector_out_0D_ascii(detector)); } /* mcdetector_out_0D */ /******************************************************************************* * mcdetector_out_1D: wrapper for 1D. * Output 1d detector data (p0, p1, p2) for n bins linearly * distributed across the range x1..x2 (x1 is lower limit of first * bin, x2 is upper limit of last bin). Title is t, axis labels are xl * and yl. File name is f, component name is c. * * t: title * xl: x-label * yl: y-label * xvar: measured variable length * x1: x axus min * x2: x axis max * n: 1d data vector lenght * p0: pntr to start of data block#0 * p1: pntr to start of data block#1 * p2: pntr to start of data block#2 * f: filename * * Not included in the macro, and here forwarded to detector_import: * c: ? * posa: ? *******************************************************************************/ MCDETECTOR mcdetector_out_1D(char *t, char *xl, char *yl, char *xvar, double x1, double x2, long n, double *p0, double *p1, double *p2, char *f, char *c, Coords posa, Rotation rota, int index) { /* import and perform basic detector analysis (and handle MPI_Reduce) */ // detector_import calls mcdetector_statistics, which will return different // MCDETECTOR versions for 1-D data based on the value of mcformat. // MCDETECTOR detector = detector_import(mcformat, c, (t ? t : MCCODE_STRING " 1D data"), n, 1, 1, xl, yl, (n > 1 ? "Signal per bin" : " Signal"), xvar, "(I,I_err)", "I", x1, x2, 0, 0, 0, 0, f, p0, p1, p2, posa, rota, index); /* write Detector: line */ if (!detector.p1 || !detector.m) return(detector); #ifdef USE_NEXUS if (strcasestr(detector.format, "NeXus")) detector = mcdetector_out_1D_nexus(detector); else #endif detector = mcdetector_out_1D_ascii(detector); if (detector.p1 != p1 && detector.p1) { // mcdetector_statistics allocated memory but it hasn't been freed. free(detector.p1); // plus undo the other damage done there: detector.p0 = p0; // was set to NULL detector.p1 = p1; // was set to this_p1 detector.p2 = p2; // was set to NULL detector.m = detector.n; // (e.g., labs(n)) detector.n = 1; // not (n x n) detector.istransposed = n < 0 ? 1 : 0; } return detector; } /* mcdetector_out_1D */ /******************************************************************************* * mcdetector_out_2D: wrapper for 2D. * Special case for list: master creates file first, then slaves append their * blocks without header- * * t: title * xl: x-label * yl: y-label * x1: x axus min * x2: x axis max * y1: y axis min * y2: y axis max * m: dim 1 (x) size * n: dim 2 (y) size * p0: pntr to start of data block#0 * p1: pntr to start of data block#1 * p2: pntr to start of data block#2 * f: filename * * Not included in the macro, and here forwarded to detector_import: * c: ? * posa: ? * rota: ? *******************************************************************************/ MCDETECTOR mcdetector_out_2D(char *t, char *xl, char *yl, double x1, double x2, double y1, double y2, long m, long n, double *p0, double *p1, double *p2, char *f, char *c, Coords posa, Rotation rota, int index) { char xvar[CHAR_BUF_LENGTH]; char yvar[CHAR_BUF_LENGTH]; /* create short axes labels */ if (xl && strlen(xl)) { strncpy(xvar, xl, CHAR_BUF_LENGTH); xvar[2]='\0'; } else strcpy(xvar, "x"); if (yl && strlen(yl)) { strncpy(yvar, yl, CHAR_BUF_LENGTH); yvar[2]='\0'; } else strcpy(yvar, "y"); MCDETECTOR detector; /* import and perform basic detector analysis (and handle MPI_Reduce) */ if (labs(m) == 1) {/* n>1 on Y, m==1 on X: 1D, no X axis*/ detector = detector_import(mcformat, c, (t ? t : MCCODE_STRING " 1D data"), n, 1, 1, yl, "", "Signal per bin", yvar, "(I,Ierr)", "I", y1, y2, x1, x2, 0, 0, f, p0, p1, p2, posa, rota, index); /* write Detector: line */ } else if (labs(n)==1) {/* m>1 on X, n==1 on Y: 1D, no Y axis*/ detector = detector_import(mcformat, c, (t ? t : MCCODE_STRING " 1D data"), m, 1, 1, xl, "", "Signal per bin", xvar, "(I,Ierr)", "I", x1, x2, y1, y2, 0, 0, f, p0, p1, p2, posa, rota, index); /* write Detector: line */ }else { detector = detector_import(mcformat, c, (t ? t : MCCODE_STRING " 2D data"), m, n, 1, xl, yl, "Signal per bin", xvar, yvar, "I", x1, x2, y1, y2, 0, 0, f, p0, p1, p2, posa, rota, index); /* write Detector: line */ } if (!detector.p1 || !detector.m) return(detector); #ifdef USE_NEXUS if (strcasestr(detector.format, "NeXus")) return(mcdetector_out_2D_nexus(detector)); else #endif return(mcdetector_out_2D_ascii(detector)); } /* mcdetector_out_2D */ /******************************************************************************* * mcdetector_out_2D_list: List mode 2D including forwarding "options" from * Monitor_nD * * Special case for list: master creates file first, then slaves append their * blocks without header- * * t: title * xl: x-label * yl: y-label * x1: x axus min * x2: x axis max * y1: y axis min * y2: y axis max * m: dim 1 (x) size * n: dim 2 (y) size * p0: pntr to start of data block#0 * p1: pntr to start of data block#1 * p2: pntr to start of data block#2 * f: filename * * Not included in the macro, and here forwarded to detector_import: * c: ? * posa: ? * rota: ? *******************************************************************************/ MCDETECTOR mcdetector_out_2D_list(char *t, char *xl, char *yl, double x1, double x2, double y1, double y2, long m, long n, double *p0, double *p1, double *p2, char *f, char *c, Coords posa, Rotation rota, char* options, int index) { char xvar[CHAR_BUF_LENGTH]; char yvar[CHAR_BUF_LENGTH]; /* create short axes labels */ if (xl && strlen(xl)) { strncpy(xvar, xl, CHAR_BUF_LENGTH); xvar[2]='\0'; } else strcpy(xvar, "x"); if (yl && strlen(yl)) { strncpy(yvar, yl, CHAR_BUF_LENGTH); yvar[2]='\0'; } else strcpy(yvar, "y"); MCDETECTOR detector; /* import and perform basic detector analysis (and handle MPI_Reduce) */ if (labs(m) == 1) {/* n>1 on Y, m==1 on X: 1D, no X axis*/ detector = detector_import(mcformat, c, (t ? t : MCCODE_STRING " 1D data"), n, 1, 1, yl, "", "Signal per bin", yvar, "(I,Ierr)", "I", y1, y2, x1, x2, 0, 0, f, p0, p1, p2, posa, rota, index); /* write Detector: line */ } else if (labs(n)==1) {/* m>1 on X, n==1 on Y: 1D, no Y axis*/ detector = detector_import(mcformat, c, (t ? t : MCCODE_STRING " 1D data"), m, 1, 1, xl, "", "Signal per bin", xvar, "(I,Ierr)", "I", x1, x2, y1, y2, 0, 0, f, p0, p1, p2, posa, rota, index); /* write Detector: line */ }else { detector = detector_import(mcformat, c, (t ? t : MCCODE_STRING " 2D data"), m, n, 1, xl, yl, "Signal per bin", xvar, yvar, "I", x1, x2, y1, y2, 0, 0, f, p0, p1, p2, posa, rota, index); /* write Detector: line */ } MPI_MASTER( if (strlen(options)) { strcpy(detector.options,options); } else { strcpy(detector.options,"None"); } ); if (!detector.p1 || !detector.m) return(detector); #ifdef USE_NEXUS if (strcasestr(detector.format, "NeXus")) return(mcdetector_out_2D_nexus(detector)); else #endif return(mcdetector_out_2D_ascii(detector)); } /* mcdetector_out_2D_list */ /******************************************************************************* * mcdetector_out_list: wrapper for list output (calls out_2D with mcformat+"list"). * m=number of events, n=size of each event *******************************************************************************/ MCDETECTOR mcdetector_out_list(char *t, char *xl, char *yl, long m, long n, double *p1, char *f, char *c, Coords posa, Rotation rota, char* options, int index) { char format_new[CHAR_BUF_LENGTH]; char *format_org; MCDETECTOR detector; format_org = mcformat; strcpy(format_new, mcformat); strcat(format_new, " list"); mcformat = format_new; detector = mcdetector_out_2D_list(t, xl, yl, 1,labs(m),1,labs(n), m,n, NULL, p1, NULL, f, c, posa,rota,options, index); mcformat = format_org; return(detector); } /******************************************************************************* * mcuse_dir: set data/sim storage directory and create it, * or exit with error if exists ******************************************************************************/ static void mcuse_dir(char *dir) { if (!dir || !strlen(dir)) return; #ifdef MC_PORTABLE fprintf(stderr, "Error: " "Directory output cannot be used with portable simulation (mcuse_dir)\n"); exit(1); #else /* !MC_PORTABLE */ /* handle file://directory URL type */ if (strncmp(dir, "file://", strlen("file://"))) dirname = dir; else dirname = dir+strlen("file://"); #ifdef USE_MPI if(mpi_node_rank == mpi_node_root) { #endif int exists=0; DIR* handle = opendir(dirname); if (handle) { /* Directory exists. */ closedir(handle); exists=1; } if(mkdir(dirname, 0777)) { #ifndef DANSE if(!mcappend) { fprintf(stderr, "Error: unable to create directory '%s' (mcuse_dir)\n", dir); fprintf(stderr, "(Maybe the directory already exists?)\n"); #endif #ifdef USE_MPI MPI_Abort(MPI_COMM_WORLD, -1); #endif exit(-1); } } #ifdef USE_MPI } #endif /* remove trailing PATHSEP (if any) */ while (strlen(dirname) && dirname[strlen(dirname) - 1] == MC_PATHSEP_C) dirname[strlen(dirname) - 1]='\0'; #endif /* !MC_PORTABLE */ } /* mcuse_dir */ /******************************************************************************* * mcinfo: display instrument simulation info to stdout and exit *******************************************************************************/ static void mcinfo(void) { fprintf(stdout, "begin instrument: %s\n", instrument_name); mcinfo_out(" ", stdout); fprintf(stdout, "end instrument\n"); fprintf(stdout, "begin simulation: %s\n", dirname ? dirname : "."); mcruninfo_out(" ", stdout); fprintf(stdout, "end simulation\n"); exit(0); /* includes MPI_Finalize in MPI mode */ } /* mcinfo */ /******************************************************************************* * mcparameterinfo: display instrument parameter info to stdout and exit *******************************************************************************/ static void mcparameterinfo(void) { mcparameterinfo_out(" ", stdout); exit(0); /* includes MPI_Finalize in MPI mode */ } /* mcparameterinfo */ #endif /* ndef MCCODE_R_IO_C */ /* end of the I/O section =================================================== */ /******************************************************************************* * mcset_ncount: set total number of rays to generate *******************************************************************************/ void mcset_ncount(unsigned long long int count) { mcncount = count; } /* mcget_ncount: get total number of rays to generate */ unsigned long long int mcget_ncount(void) { return mcncount; } /* mcget_run_num: get curent number of rays */ /* Within the TRACE scope we are now using _particle->uid directly */ unsigned long long int mcget_run_num() // shuld be (_class_particle* _particle) somehow { /* This function only remains for the few cases outside TRACE where we need to know the number of simulated particles */ return mcrun_num; } /* mcsetn_arg: get ncount from a string argument */ static void mcsetn_arg(char *arg) { mcset_ncount((long long int) strtod(arg, NULL)); } /* mcsetseed: set the random generator seed from a string argument */ static void mcsetseed(char *arg) { mcseed = atol(arg); if(!mcseed) { // srandom(mcseed); //} else { fprintf(stderr, "Error: seed must not be zero (mcsetseed)\n"); exit(1); } } /* Following part is only embedded when not redundent with mccode-r.h ========= */ #ifndef MCCODE_H /* SECTION: MCDISPLAY support. =============================================== */ /******************************************************************************* * Just output MCDISPLAY keywords to be caught by an external plotter client. *******************************************************************************/ void mcdis_magnify(char *what){ // Do nothing here, better use interactive zoom from the tools } void mcdis_line(double x1, double y1, double z1, double x2, double y2, double z2){ printf("MCDISPLAY: multiline(2,%g,%g,%g,%g,%g,%g)\n", x1,y1,z1,x2,y2,z2); } void mcdis_dashed_line(double x1, double y1, double z1, double x2, double y2, double z2, int n){ int i; const double dx = (x2-x1)/(2*n+1); const double dy = (y2-y1)/(2*n+1); const double dz = (z2-z1)/(2*n+1); for(i = 0; i < n+1; i++) mcdis_line(x1 + 2*i*dx, y1 + 2*i*dy, z1 + 2*i*dz, x1 + (2*i+1)*dx, y1 + (2*i+1)*dy, z1 + (2*i+1)*dz); } void mcdis_multiline(int count, ...){ va_list ap; double x,y,z; printf("MCDISPLAY: multiline(%d", count); va_start(ap, count); while(count--) { x = va_arg(ap, double); y = va_arg(ap, double); z = va_arg(ap, double); printf(",%g,%g,%g", x, y, z); } va_end(ap); printf(")\n"); } void mcdis_rectangle(char* plane, double x, double y, double z, double width, double height){ /* draws a rectangle in the plane */ /* x is ALWAYS width and y is ALWAYS height */ if (strcmp("xy", plane)==0) { mcdis_multiline(5, x - width/2, y - height/2, z, x + width/2, y - height/2, z, x + width/2, y + height/2, z, x - width/2, y + height/2, z, x - width/2, y - height/2, z); } else if (strcmp("xz", plane)==0) { mcdis_multiline(5, x - width/2, y, z - height/2, x + width/2, y, z - height/2, x + width/2, y, z + height/2, x - width/2, y, z + height/2, x - width/2, y, z - height/2); } else if (strcmp("yz", plane)==0) { mcdis_multiline(5, x, y - height/2, z - width/2, x, y - height/2, z + width/2, x, y + height/2, z + width/2, x, y + height/2, z - width/2, x, y - height/2, z - width/2); } else { fprintf(stderr, "Error: Definition of plane %s unknown\n", plane); exit(1); } } void mcdis_circle(char *plane, double x, double y, double z, double r){ printf("MCDISPLAY: circle('%s',%g,%g,%g,%g)\n", plane, x, y, z, r); } void mcdis_new_circle(double x, double y, double z, double r, double nx, double ny, double nz){ printf("MCDISPLAY: new_circle(%g,%g,%g,%g,%g,%g,%g)\n", x, y, z, r, nx, ny, nz); } /* Draws a circle with center (x,y,z), radius (r), and in the plane * with normal (nx,ny,nz)*/ void mcdis_Circle(double x, double y, double z, double r, double nx, double ny, double nz){ int i; if(nx==0 && ny && nz==0){ for (i=0;i<24; i++){ mcdis_line(x+r*sin(i*2*PI/24),y,z+r*cos(i*2*PI/24), x+r*sin((i+1)*2*PI/24),y,z+r*cos((i+1)*2*PI/24)); } }else{ double mx,my,mz; /*generate perpendicular vector using (nx,ny,nz) and (0,1,0)*/ vec_prod(mx,my,mz, 0,1,0, nx,ny,nz); NORM(mx,my,mz); /*draw circle*/ for (i=0;i<24; i++){ double ux,uy,uz; double wx,wy,wz; rotate(ux,uy,uz, mx,my,mz, i*2*PI/24, nx,ny,nz); rotate(wx,wy,wz, mx,my,mz, (i+1)*2*PI/24, nx,ny,nz); mcdis_line(x+ux*r,y+uy*r,z+uz*r, x+wx*r,y+wy*r,z+wz*r); } } } /* OLD IMPLEMENTATION draws a box with center at (x, y, z) and width (deltax), height (deltay), length (deltaz) */ void mcdis_legacy_box(double x, double y, double z, double width, double height, double length){ mcdis_rectangle("xy", x, y, z-length/2, width, height); mcdis_rectangle("xy", x, y, z+length/2, width, height); mcdis_line(x-width/2, y-height/2, z-length/2, x-width/2, y-height/2, z+length/2); mcdis_line(x-width/2, y+height/2, z-length/2, x-width/2, y+height/2, z+length/2); mcdis_line(x+width/2, y-height/2, z-length/2, x+width/2, y-height/2, z+length/2); mcdis_line(x+width/2, y+height/2, z-length/2, x+width/2, y+height/2, z+length/2); } /* NEW 3D IMPLEMENTATION OF BOX SUPPORTS HOLLOW ALSO draws a box with center at (x, y, z) and width (deltax), height (deltay), length (deltaz) */ void mcdis_box(double x, double y, double z, double width, double height, double length, double thickness, double nx, double ny, double nz){ if (mcdotrace==2) { printf("MCDISPLAY: box(%g,%g,%g,%g,%g,%g,%g,%g,%g,%g)\n", x, y, z, width, height, length, thickness, nx, ny, nz); } else { mcdis_legacy_box(x, y, z, width, height, length); if (thickness) mcdis_legacy_box(x, y, z, width-thickness, height-thickness, length); } } /* OLD IMPLEMENTATION Draws a cylinder with center at (x,y,z) with extent (r,height). * The cylinder axis is along the vector nx,ny,nz. */ void mcdis_legacy_cylinder( double x, double y, double z, double r, double height, int N, double nx, double ny, double nz){ int i; /*no lines make little sense - so trigger the default*/ if(N<=0) N=5; NORM(nx,ny,nz); double h_2=height/2.0; mcdis_Circle(x+nx*h_2,y+ny*h_2,z+nz*h_2,r,nx,ny,nz); mcdis_Circle(x-nx*h_2,y-ny*h_2,z-nz*h_2,r,nx,ny,nz); double mx,my,mz; /*generate perpendicular vector using (nx,ny,nz) and (0,1,0)*/ if(nx==0 && ny && nz==0){ mx=my=0;mz=1; }else{ vec_prod(mx,my,mz, 0,1,0, nx,ny,nz); NORM(mx,my,mz); } /*draw circle*/ for (i=0; i<24; i++){ double ux,uy,uz; rotate(ux,uy,uz, mx,my,mz, i*2*PI/24, nx,ny,nz); mcdis_line(x+nx*h_2+ux*r, y+ny*h_2+uy*r, z+nz*h_2+uz*r, x-nx*h_2+ux*r, y-ny*h_2+uy*r, z-nz*h_2+uz*r); } } /* NEW 3D IMPLEMENTATION ALSO SUPPORTING HOLLOW Draws a cylinder with center at (x,y,z) with extent (r,height). * The cylinder axis is along the vector nx,ny,nz.*/ void mcdis_cylinder( double x, double y, double z, double r, double height, double thickness, double nx, double ny, double nz){ if (mcdotrace==2) { printf("MCDISPLAY: cylinder(%g, %g, %g, %g, %g, %g, %g, %g, %g)\n", x, y, z, r, height, thickness, nx, ny, nz); } else { mcdis_legacy_cylinder(x, y, z, r, height, 12, nx, ny, nz); } } /* Draws a cone with center at (x,y,z) with extent (r,height). * The cone axis is along the vector nx,ny,nz.*/ void mcdis_cone( double x, double y, double z, double r, double height, double nx, double ny, double nz){ if (mcdotrace==2) { printf("MCDISPLAY: cone(%g, %g, %g, %g, %g, %g, %g, %g)\n", x, y, z, r, height, nx, ny, nz); } else { mcdis_Circle(x, y, z, r, nx, ny, nz); mcdis_Circle(x+0.25*height*nx, y+0.25*height*ny, z+0.25*height*nz, 0.75*r, nx, ny, nz); mcdis_Circle(x+0.5*height*nx, y+0.5*height*ny, z+0.5*height*nz, 0.5*r, nx, ny, nz); mcdis_Circle(x+0.75*height*nx, y+0.75*height*ny, z+0.75*height*nz, 0.25*r, nx, ny, nz); mcdis_line(x, y, z, x+height*nx, y+height*ny, z+height*nz); } } /* Draws a disc with center at (x,y,z) with extent (r). * The disc axis is along the vector nx,ny,nz.*/ void mcdis_disc( double x, double y, double z, double r, double nx, double ny, double nz){ printf("MCDISPLAY: disc(%g, %g, %g, %g, %g, %g, %g)\n", x, y, z, r, nx, ny, nz); } /* Draws a annulus with center at (x,y,z) with extent (outer_radius) and remove inner_radius. * The annulus axis is along the vector nx,ny,nz.*/ void mcdis_annulus( double x, double y, double z, double outer_radius, double inner_radius, double nx, double ny, double nz){ printf("MCDISPLAY: annulus(%g, %g, %g, %g, %g, %g, %g, %g)\n", x, y, z, outer_radius, inner_radius, nx, ny, nz); } /* draws a sphere with center at (x,y,z) with extent (r)*/ void mcdis_sphere(double x, double y, double z, double r){ if (mcdotrace==2) { printf("MCDISPLAY: sphere(%g,%g,%g,%g)\n", x, y, z, r); } else { double nx,ny,nz; int i; int N=12; nx=0;ny=0;nz=1; mcdis_Circle(x,y,z,r,nx,ny,nz); for (i=1;i 3) { /* Split in triangles - as many as polygon rank */ faceSize=count; vtxSize=count+1; } else { faceSize=1; vtxSize=count; } for (int i = 0; i < faceSize;) { int num_indices = 3; estimated_size += FACE_OVERHEAD_BASE + num_indices * FACE_INDEX_OVERHEAD; i += num_indices + 1; } char *json_string = malloc(estimated_size); if (json_string == NULL) { fprintf(stderr, "Memory allocation failed.\n"); return; } char *ptr = json_string; ptr += sprintf(ptr, "{ \"vertices\": ["); if (count==3) { // Single, basic triangle ptr += sprintf(ptr, "[%g, %g, %g], [%g, %g, %g], [%g, %g, %g]", x[0], y[0], z[0], x[1], y[1], z[1], x[2], y[2], z[2]); } else { for (int i = 0; i < vtxSize-1; i++) { ptr += sprintf(ptr, "[%g, %g, %g]", x[i], y[i], z[i]); if (i < vtxSize - 2) { ptr += sprintf(ptr, ", "); } else { ptr += sprintf(ptr, ", [%g, %g, %g]", x0, y0, z0); } } } ptr += sprintf(ptr, "], \"faces\": ["); if (count==3) { // Single, basic triangle, 1 face... ptr += sprintf(ptr, "{ \"face\": ["); ptr += sprintf(ptr, "0, 1, 2"); ptr += sprintf(ptr, "]}"); } else { for (int i = 0; i < faceSize; i++) { int num = 3; ptr += sprintf(ptr, "{ \"face\": ["); if (i < faceSize - 1) { ptr += sprintf(ptr, "%d, %d, %d",i,i+1,count); } else { ptr += sprintf(ptr, "%d, %d, %d",i,count,0); } ptr += sprintf(ptr, "]}"); if (i < faceSize-1) { ptr += sprintf(ptr, ", "); } } } ptr += sprintf(ptr, "]}"); mcdis_polyhedron(json_string); free(json_string); } free(x);free(y);free(z); } /* END NEW POLYGON IMPLEMENTATION*/ /* void mcdis_polygon(double x1, double y1, double z1, double x2, double y2, double z2){ printf("MCDISPLAY: polygon(2,%g,%g,%g,%g,%g,%g)\n", x1,y1,z1,x2,y2,z2); } */ /* SECTION: coordinates handling ============================================ */ /******************************************************************************* * Since we use a lot of geometric calculations using Cartesian coordinates, * we collect some useful routines here. However, it is also permissible to * work directly on the underlying struct coords whenever that is most * convenient (that is, the type Coords is not abstract). * * Coordinates are also used to store rotation angles around x/y/z axis. * * Since coordinates are used much like a basic type (such as double), the * structure itself is passed and returned, rather than a pointer. * * At compile-time, the values of the coordinates may be unknown (for example * a motor position). Hence coordinates are general expressions and not simple * numbers. For this we used the type Coords_exp which has three CExp * fields. For runtime (or calculations possible at compile time), we use * Coords which contains three double fields. *******************************************************************************/ /* coords_set: Assign coordinates. */ Coords coords_set(MCNUM x, MCNUM y, MCNUM z) { Coords a; a.x = x; a.y = y; a.z = z; return a; } /* coords_get: get coordinates. Required when 'x','y','z' are #defined as ray pars */ Coords coords_get(Coords a, MCNUM *x, MCNUM *y, MCNUM *z) { *x = a.x; *y = a.y; *z = a.z; return a; } /* coords_add: Add two coordinates. */ Coords coords_add(Coords a, Coords b) { Coords c; c.x = a.x + b.x; c.y = a.y + b.y; c.z = a.z + b.z; if (fabs(c.z) < 1e-14) c.z=0.0; return c; } /* coords_sub: Subtract two coordinates. */ Coords coords_sub(Coords a, Coords b) { Coords c; c.x = a.x - b.x; c.y = a.y - b.y; c.z = a.z - b.z; if (fabs(c.z) < 1e-14) c.z=0.0; return c; } /* coords_neg: Negate coordinates. */ Coords coords_neg(Coords a) { Coords b; b.x = -a.x; b.y = -a.y; b.z = -a.z; return b; } /* coords_scale: Scale a vector. */ Coords coords_scale(Coords b, double scale) { Coords a; a.x = b.x*scale; a.y = b.y*scale; a.z = b.z*scale; return a; } /* coords_sp: Scalar product: a . b */ double coords_sp(Coords a, Coords b) { double value; value = a.x*b.x + a.y*b.y + a.z*b.z; return value; } /* coords_xp: Cross product: a = b x c. */ Coords coords_xp(Coords b, Coords c) { Coords a; a.x = b.y*c.z - c.y*b.z; a.y = b.z*c.x - c.z*b.x; a.z = b.x*c.y - c.x*b.y; return a; } /* coords_len: Gives length of coords set. */ double coords_len(Coords a) { return sqrt(a.x*a.x + a.y*a.y + a.z*a.z); } /* coords_mirror: Mirror a in plane (through the origin) defined by normal n*/ Coords coords_mirror(Coords a, Coords n) { double t = scalar_prod(n.x, n.y, n.z, n.x, n.y, n.z); Coords b; if (t!=1) { t = sqrt(t); n.x /= t; n.y /= t; n.z /= t; } t=scalar_prod(a.x, a.y, a.z, n.x, n.y, n.z); b.x = a.x-2*t*n.x; b.y = a.y-2*t*n.y; b.z = a.z-2*t*n.z; return b; } /* coords_print: Print out vector values. */ void coords_print(Coords a) { #ifndef OPENACC fprintf(stdout, "(%f, %f, %f)\n", a.x, a.y, a.z); #endif return; } mcstatic void coords_norm(Coords* c) { double temp = coords_sp(*c,*c); // Skip if we will end dividing by zero if (temp == 0) return; temp = sqrt(temp); c->x /= temp; c->y /= temp; c->z /= temp; } /* coords_test_zero: check if zero vector*/ int coords_test_zero(Coords a){ return ( a.x==0 && a.y==0 && a.z==0 ); } /******************************************************************************* * The Rotation type implements a rotation transformation of a coordinate * system in the form of a double[3][3] matrix. * * Contrary to the Coords type in coords.c, rotations are passed by * reference. Functions that yield new rotations do so by writing to an * explicit result parameter; rotations are not returned from functions. The * reason for this is that arrays cannot by returned from functions (though * structures can; thus an alternative would have been to wrap the * double[3][3] array up in a struct). Such are the ways of C programming. * * A rotation represents the tranformation of the coordinates of a vector when * changing between coordinate systems that are rotated with respect to each * other. For example, suppose that coordinate system Q is rotated 45 degrees * around the Z axis with respect to coordinate system P. Let T be the * rotation transformation representing a 45 degree rotation around Z. Then to * get the coordinates of a vector r in system Q, apply T to the coordinates * of r in P. If r=(1,0,0) in P, it will be (sqrt(1/2),-sqrt(1/2),0) in * Q. Thus we should be careful when interpreting the sign of rotation angles: * they represent the rotation of the coordinate systems, not of the * coordinates (which has opposite sign). *******************************************************************************/ /******************************************************************************* * rot_set_rotation: Get transformation for rotation first phx around x axis, * then phy around y, then phz around z. *******************************************************************************/ void rot_set_rotation(Rotation t, double phx, double phy, double phz) { if ((phx == 0) && (phy == 0) && (phz == 0)) { t[0][0] = 1.0; t[0][1] = 0.0; t[0][2] = 0.0; t[1][0] = 0.0; t[1][1] = 1.0; t[1][2] = 0.0; t[2][0] = 0.0; t[2][1] = 0.0; t[2][2] = 1.0; } else { double cx = cos(phx); double sx = sin(phx); double cy = cos(phy); double sy = sin(phy); double cz = cos(phz); double sz = sin(phz); t[0][0] = cy*cz; t[0][1] = sx*sy*cz + cx*sz; t[0][2] = sx*sz - cx*sy*cz; t[1][0] = -cy*sz; t[1][1] = cx*cz - sx*sy*sz; t[1][2] = sx*cz + cx*sy*sz; t[2][0] = sy; t[2][1] = -sx*cy; t[2][2] = cx*cy; } } /******************************************************************************* * rot_test_identity: Test if rotation is identity *******************************************************************************/ int rot_test_identity(Rotation t) { return (t[0][0] + t[1][1] + t[2][2] == 3); } /******************************************************************************* * rot_mul: Matrix multiplication of transformations (this corresponds to * combining transformations). After rot_mul(T1, T2, T3), doing T3 is * equal to doing first T2, then T1. * Note that T3 must not alias (use the same array as) T1 or T2. *******************************************************************************/ void rot_mul(Rotation t1, Rotation t2, Rotation t3) { if (rot_test_identity(t1)) { rot_copy(t3, t2); } else if (rot_test_identity(t2)) { rot_copy(t3, t1); } else { int i,j; for(i = 0; i < 3; i++) for(j = 0; j < 3; j++) t3[i][j] = t1[i][0]*t2[0][j] + t1[i][1]*t2[1][j] + t1[i][2]*t2[2][j]; } } /******************************************************************************* * rot_copy: Copy a rotation transformation (arrays cannot be assigned in C). *******************************************************************************/ void rot_copy(Rotation dest, Rotation src) { int i,j; for(i = 0; i < 3; i++) for(j = 0; j < 3; j++) dest[i][j] = src[i][j]; } /******************************************************************************* * rot_transpose: Matrix transposition, which is inversion for Rotation matrices *******************************************************************************/ void rot_transpose(Rotation src, Rotation dst) { dst[0][0] = src[0][0]; dst[0][1] = src[1][0]; dst[0][2] = src[2][0]; dst[1][0] = src[0][1]; dst[1][1] = src[1][1]; dst[1][2] = src[2][1]; dst[2][0] = src[0][2]; dst[2][1] = src[1][2]; dst[2][2] = src[2][2]; } /******************************************************************************* * rot_apply: returns t*a *******************************************************************************/ Coords rot_apply(Rotation t, Coords a) { Coords b; if (rot_test_identity(t)) { return a; } else { b.x = t[0][0]*a.x + t[0][1]*a.y + t[0][2]*a.z; b.y = t[1][0]*a.x + t[1][1]*a.y + t[1][2]*a.z; b.z = t[2][0]*a.x + t[2][1]*a.y + t[2][2]*a.z; return b; } } /** * Pretty-printing of rotation matrices. */ void rot_print(Rotation rot) { printf("[ %4.2f %4.2f %4.2f ]\n", rot[0][0], rot[0][1], rot[0][2]); printf("[ %4.2f %4.2f %4.2f ]\n", rot[1][0], rot[1][1], rot[1][2]); printf("[ %4.2f %4.2f %4.2f ]\n\n", rot[2][0], rot[2][1], rot[2][2]); } /** * Vector product: used by vec_prod (mccode-r.h). Use coords_xp for Coords. */ void vec_prod_func(double *x, double *y, double *z, double x1, double y1, double z1, double x2, double y2, double z2) { *x = (y1)*(z2) - (y2)*(z1); *y = (z1)*(x2) - (z2)*(x1); *z = (x1)*(y2) - (x2)*(y1); } /** * Scalar product: use coords_sp for Coords. */ double scalar_prod( double x1, double y1, double z1, double x2, double y2, double z2) { return ((x1 * x2) + (y1 * y2) + (z1 * z2)); } mcstatic void norm_func(double *x, double *y, double *z) { double temp = (*x * *x) + (*y * *y) + (*z * *z); if (temp != 0) { temp = sqrt(temp); *x /= temp; *y /= temp; *z /= temp; } } /* SECTION: GPU algorithms ================================================== */ /* * Divide-and-conquer strategy for parallelizing this task: Sort absorbed * particles last. * * particles: the particle array, required to checking _absorbed * pbuffer: same-size particle buffer array required for parallel sort * len: sorting area-of-interest size (e.g. from previous calls) * buffer_len: total array size * flag_split: if set, multiply live particles into absorbed slots, up to buffer_len * multiplier: output arg, becomes the SPLIT multiplier if flag_split is set */ #ifdef FUNNEL long sort_absorb_last(_class_particle* particles, _class_particle* pbuffer, long len, long buffer_len, long flag_split, long* multiplier) { #define SAL_THREADS 1024 // num parallel sections if (len_absorbed)); // return (no SPLIT) if (flag_split != 1) return accumlen; // SPLIT - repeat the non-absorbed block N-1 times, where len % accumlen = N + R int mult = buffer_len / accumlen; // TODO: possibly use a new arg, bufferlen, rather than len // not enough space for full-block split, return if (mult <= 1) return accumlen; // copy non-absorbed block #pragma acc parallel loop present(particles[0:buffer_len]) for (long tidx = 0; tidx < accumlen; tidx++) { // tidx: thread index randstate_t randstate[7]; _class_particle sourcebuffer; _class_particle targetbuffer; // assign reduced weight to all particles particles[tidx].p=particles[tidx].p/mult; #pragma acc loop seq for (long bidx = 1; bidx < mult; bidx++) { // bidx: block index // preserve absorbed particle (for randstate) sourcebuffer = particles[bidx*accumlen + tidx]; // buffer full particle struct targetbuffer = particles[tidx]; // reassign previous randstate targetbuffer.randstate[0] = sourcebuffer.randstate[0]; targetbuffer.randstate[1] = sourcebuffer.randstate[1]; targetbuffer.randstate[2] = sourcebuffer.randstate[2]; targetbuffer.randstate[3] = sourcebuffer.randstate[3]; targetbuffer.randstate[4] = sourcebuffer.randstate[4]; targetbuffer.randstate[5] = sourcebuffer.randstate[5]; targetbuffer.randstate[6] = sourcebuffer.randstate[6]; // apply particles[bidx*accumlen + tidx] = targetbuffer; } } // set out split multiplier value *multiplier = mult; // return expanded array size return accumlen * mult; } #endif /* * Fallback serial version of the one above. */ long sort_absorb_last_serial(_class_particle* particles, long len) { long i = 0; long j = len - 1; _class_particle pbuffer; // bubble while (i < j) { while (!particles[i]._absorbed && ix; b.y = particle->y; b.z = particle->z; c = rot_apply(t, b); b = coords_add(c, a); particle->x = b.x; particle->y = b.y; particle->z = b.z; #if MCCODE_PARTICLE_CODE == 2112 if (particle->vz != 0.0 || particle->vx != 0.0 || particle->vy != 0.0) mccoordschange_polarisation(t, &(particle->vx), &(particle->vy), &(particle->vz)); if (particle->sz != 0.0 || particle->sx != 0.0 || particle->sy != 0.0) mccoordschange_polarisation(t, &(particle->sx), &(particle->sy), &(particle->sz)); #elif MCCODE_PARTICLE_CODE == 22 if (particle->kz != 0.0 || particle->kx != 0.0 || particle->ky != 0.0) mccoordschange_polarisation(t, &(particle->kx), &(particle->ky), &(particle->kz)); if (particle->Ez != 0.0 || particle->Ex != 0.0 || particle->Ey != 0.0) mccoordschange_polarisation(t, &(particle->Ex), &(particle->Ey), &(particle->Ez)); #endif } /******************************************************************************* * mccoordschange_polarisation: applies rotation to vector (sx sy sz) *******************************************************************************/ void mccoordschange_polarisation(Rotation t, double *sx, double *sy, double *sz) { Coords b, c; b.x = *sx; b.y = *sy; b.z = *sz; c = rot_apply(t, b); *sx = c.x; *sy = c.y; *sz = c.z; } /* SECTION: vector math ==================================================== */ /* normal_vec_func: Compute normal vector to (x,y,z). */ void normal_vec(double *nx, double *ny, double *nz, double x, double y, double z) { double ax = fabs(x); double ay = fabs(y); double az = fabs(z); double l; if(x == 0 && y == 0 && z == 0) { *nx = 0; *ny = 0; *nz = 0; return; } if(ax < ay) { if(ax < az) { /* Use X axis */ l = sqrt(z*z + y*y); *nx = 0; *ny = z/l; *nz = -y/l; return; } } else { if(ay < az) { /* Use Y axis */ l = sqrt(z*z + x*x); *nx = z/l; *ny = 0; *nz = -x/l; return; } } /* Use Z axis */ l = sqrt(y*y + x*x); *nx = y/l; *ny = -x/l; *nz = 0; } /* normal_vec */ /******************************************************************************* * solve_2nd_order: second order equation solve: A*t^2 + B*t + C = 0 * solve_2nd_order(&t1, NULL, A,B,C) * returns 0 if no solution was found, or set 't1' to the smallest positive * solution. * solve_2nd_order(&t1, &t2, A,B,C) * same as with &t2=NULL, but also returns the second solution. * EXAMPLE usage for intersection of a trajectory with a plane in gravitation * field (gx,gy,gz): * The neutron starts at point r=(x,y,z) with velocityv=(vx vy vz). The plane * has a normal vector n=(nx,ny,nz) and contains the point W=(wx,wy,wz). * The problem consists in solving the 2nd order equation: * 1/2.n.g.t^2 + n.v.t + n.(r-W) = 0 * so that A = 0.5 n.g; B = n.v; C = n.(r-W); * Without acceleration, t=-n.(r-W)/n.v ******************************************************************************/ int solve_2nd_order_old(double *t1, double *t2, double A, double B, double C) { int ret=0; if (!t1) return 0; *t1 = 0; if (t2) *t2=0; if (fabs(A) < 1E-10) /* approximate to linear equation: A ~ 0 */ { if (B) { *t1 = -C/B; ret=1; if (t2) *t2=*t1; } /* else no intersection: A=B=0 ret=0 */ } else { double D; D = B*B - 4*A*C; if (D >= 0) /* Delta > 0: two solutions */ { double sD, dt1, dt2; sD = sqrt(D); dt1 = (-B + sD)/2/A; dt2 = (-B - sD)/2/A; /* we identify very small values with zero */ if (fabs(dt1) < 1e-10) dt1=0.0; if (fabs(dt2) < 1e-10) dt2=0.0; /* now we choose the smallest positive solution */ if (dt1<=0.0 && dt2>0.0) ret=2; /* dt2 positive */ else if (dt2<=0.0 && dt1>0.0) ret=1; /* dt1 positive */ else if (dt1> 0.0 && dt2>0.0) { if (dt1 < dt2) ret=1; else ret=2; } /* all positive: min(dt1,dt2) */ /* else two solutions are negative. ret=-1 */ if (ret==1) { *t1 = dt1; if (t2) *t2=dt2; } else { *t1 = dt2; if (t2) *t2=dt1; } ret=2; /* found 2 solutions and t1 is the positive one */ } /* else Delta <0: no intersection. ret=0 */ } return(ret); } /* solve_2nd_order */ int solve_2nd_order(double *t0, double *t1, double A, double B, double C){ int retval=0; double sign=copysign(1.0,B); double dt0,dt1; dt0=0; dt1=0; if(t1){ *t1=0;} /*protect against rounding errors by locally equating DBL_EPSILON with 0*/ if (fabs(A)=0){ dt0=(-B - sign*sqrt(B*B-4*A*C))/(2*A); dt1=C/(A*dt0); retval=2; }else{ /*no real roots*/ retval=0; } } /*sort the solutions*/ if (retval==1){ /*put both solutions in t0 and t1*/ *t0=dt0; if(t1) *t1=dt1; }else{ /*we have two solutions*/ /*swap if both are positive and t1 smaller than t0 or t1 the only positive*/ int swap=0; if(dt1>0 && ( dt1) * * If height or width is zero, choose random direction in full 4PI, no target. * * Traditionally, this routine had the name randvec_target_rect - this is now a * a define (see mcstas-r.h) pointing here. If you use the old rouine, you are NOT * taking the local emmission coordinate into account. *******************************************************************************/ void _randvec_target_rect_real(double *xo, double *yo, double *zo, double *solid_angle, double xi, double yi, double zi, double width, double height, Rotation A, double lx, double ly, double lz, int order, _class_particle* _particle) { double dx, dy, dist, dist_p, nx, ny, nz, mx, my, mz, n_norm, m_norm; double cos_theta; Coords tmp; Rotation Ainverse; rot_transpose(A, Ainverse); if(height == 0.0 || width == 0.0) { randvec_target_circle(xo, yo, zo, solid_angle, xi, yi, zi, 0); return; } else { /* Now choose point uniformly on rectangle within width x height */ dx = width*randpm1()/2.0; dy = height*randpm1()/2.0; /* Determine distance to target plane*/ dist = sqrt(xi*xi + yi*yi + zi*zi); /* Go to global coordinate system */ tmp = coords_set(xi, yi, zi); tmp = rot_apply(Ainverse, tmp); coords_get(tmp, &xi, &yi, &zi); /* Determine vector normal to trajectory axis (z) and gravity [0 1 0] */ vec_prod(nx, ny, nz, xi, yi, zi, 0, 1, 0); /* This now defines the x-axis, normalize: */ n_norm=sqrt(nx*nx + ny*ny + nz*nz); nx = nx/n_norm; ny = ny/n_norm; nz = nz/n_norm; /* Now, determine our y-axis (vertical in many cases...) */ vec_prod(mx, my, mz, xi, yi, zi, nx, ny, nz); m_norm=sqrt(mx*mx + my*my + mz*mz); mx = mx/m_norm; my = my/m_norm; mz = mz/m_norm; /* Our output, random vector can now be defined by linear combination: */ *xo = xi + dx * nx + dy * mx; *yo = yi + dx * ny + dy * my; *zo = zi + dx * nz + dy * mz; /* Go back to local coordinate system */ tmp = coords_set(*xo, *yo, *zo); tmp = rot_apply(A, tmp); coords_get(tmp, &*xo, &*yo, &*zo); /* Go back to local coordinate system */ tmp = coords_set(xi, yi, zi); tmp = rot_apply(A, tmp); coords_get(tmp, &xi, &yi, &zi); if (solid_angle) { /* Calculate vector from local point to remote random point */ lx = *xo - lx; ly = *yo - ly; lz = *zo - lz; dist_p = sqrt(lx*lx + ly*ly + lz*lz); /* Adjust the 'solid angle' */ /* 1/r^2 to the chosen point times cos(\theta) between the normal */ /* vector of the target rectangle and direction vector of the chosen point. */ cos_theta = (xi * lx + yi * ly + zi * lz) / (dist * dist_p); *solid_angle = width * height / (dist_p * dist_p); int counter; for (counter = 0; counter < order; counter++) { *solid_angle = *solid_angle * cos_theta; } } } } /* randvec_target_rect_real */ /* SECTION: random numbers ================================================== How to add a new RNG: - Use an rng with a manegable state vector, e.g. of lengt 4 or 7. The state will sit on the particle struct as a "randstate_t state[RANDSTATE_LEN]" - If the rng has a long state (as MT), set an empty "srandom" and initialize it explicitly using the appropriate define (RNG_ALG) - Add a seed and a random function (the transforms will be reused) - Write the proper defines in mccode-r.h, e.g. randstate_t and RANDSTATE_LEN, srandom and random. - Compile using -DRNG_ALG= ============================================================================= */ /* "Mersenne Twister", by Makoto Matsumoto and Takuji Nishimura. */ /* See http://www.math.keio.ac.jp/~matumoto/emt.html for original source. */ /* A C-program for MT19937, with initialization improved 2002/1/26. Coded by Takuji Nishimura and Makoto Matsumoto. Before using, initialize the state by using mt_srandom(seed) or init_by_array(init_key, key_length). Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura, All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The names of its contributors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Any feedback is very welcome. http://www.math.keio.ac.jp/matumoto/emt.html email: matumoto@math.keio.ac.jp */ #include #include // for uint32_t #include // for size_t /* Period parameters */ #define N 624 #define M 397 #define MATRIX_A 0x9908b0dfU /* constant vector a */ #define UPPER_MASK 0x80000000U /* most significant w-r bits */ #define LOWER_MASK 0x7fffffffU /* least significant r bits */ static uint32_t mt[N]; /* the array for the state vector */ static int mti = N + 1; /* mti==N+1 means mt[N] is not initialized */ // Required for compatibility with common RNG interface (e.g., kiss/mt polymorphism) void mt_srandom_empty(void) {} // Initializes mt[N] with a seed void mt_srandom(uint32_t seed) { mt[0] = seed; for (mti = 1; mti < N; mti++) { mt[mti] = 1812433253U * (mt[mti-1] ^ (mt[mti-1] >> 30)) + mti; /* See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. */ /* In the previous versions, MSBs of the seed affect */ /* only MSBs of the array mt[]. */ /* 2002/01/09 modified by Makoto Matsumoto */ mt[mti] &= 0xffffffffU; /* for >32 bit machines */ } } /* Initialize by an array with array-length. Init_key is the array for initializing keys. key_length is its length. */ void init_by_array(uint32_t init_key[], size_t key_length) { size_t i = 1, j = 0, k; mt_srandom(19650218U); k = (N > key_length ? N : key_length); for (; k; k--) { mt[i] = (mt[i] ^ ((mt[i-1] ^ (mt[i-1] >> 30)) * 1664525U)) + init_key[j] + (uint32_t)j; mt[i] &= 0xffffffffU; i++; j++; if (i >= N) { mt[0] = mt[N - 1]; i = 1; } if (j >= key_length) j = 0; } for (k = N - 1; k; k--) { mt[i] = (mt[i] ^ ((mt[i-1] ^ (mt[i-1] >> 30)) * 1566083941U)) - (uint32_t)i; mt[i] &= 0xffffffffU; i++; if (i >= N) { mt[0] = mt[N - 1]; i = 1; } } mt[0] = 0x80000000U; /* MSB is 1; ensuring non-zero initial array */ } // Generates a random number on [0, 0xffffffff]-interval uint32_t mt_random(void) { uint32_t y; static const uint32_t mag01[2] = { 0x0U, MATRIX_A }; /* mag01[x] = x * MATRIX_A for x=0,1 */ if (mti >= N) { /* generate N words at one time */ int kk; if (mti == N + 1) /* if mt_srandom() has not been called, */ mt_srandom(5489U); /* a default initial seed is used */ for (kk = 0; kk < N - M; kk++) { y = (mt[kk] & UPPER_MASK) | (mt[kk + 1] & LOWER_MASK); mt[kk] = mt[kk + M] ^ (y >> 1) ^ mag01[y & 0x1U]; } for (; kk < N - 1; kk++) { y = (mt[kk] & UPPER_MASK) | (mt[kk + 1] & LOWER_MASK); mt[kk] = mt[kk + (M - N)] ^ (y >> 1) ^ mag01[y & 0x1U]; } y = (mt[N - 1] & UPPER_MASK) | (mt[0] & LOWER_MASK); mt[N - 1] = mt[M - 1] ^ (y >> 1) ^ mag01[y & 0x1U]; mti = 0; } y = mt[mti++]; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680U; y ^= (y << 15) & 0xefc60000U; y ^= (y >> 18); return y; } #undef N #undef M #undef MATRIX_A #undef UPPER_MASK #undef LOWER_MASK /* End of "Mersenne Twister". */ /* KISS From: http://www.helsbreth.org/random/rng_kiss.html Scott Nelson 1999 Based on Marsaglia's KISS or (KISS+SWB) KISS - Keep it Simple Stupid PRNG the idea is to use simple, fast, individually promising generators to get a composite that will be fast, easy to code have a very long period and pass all the tests put to it. The three components of KISS are x(n)=a*x(n-1)+1 mod 2^32 y(n)=y(n-1)(I+L^13)(I+R^17)(I+L^5), z(n)=2*z(n-1)+z(n-2) +carry mod 2^32 The y's are a shift register sequence on 32bit binary vectors period 2^32-1; The z's are a simple multiply-with-carry sequence with period 2^63+2^32-1. The period of KISS is thus 2^32*(2^32-1)*(2^63+2^32-1) > 2^127 In 2025 adapted for consistent 64-bit behavior across platforms. */ /* the KISS state is stored as a vector of 7 uint64_t */ /* 0 1 2 3 4 5 6 */ /* [ x, y, z, w, carry, k, m ] */ uint64_t *kiss_srandom(uint64_t state[7], uint64_t seed) { if (seed == 0) seed = 1ull; state[0] = seed | 1ull; // x state[1] = seed | 2ull; // y state[2] = seed | 4ull; // z state[3] = seed | 8ull; // w state[4] = 0ull; // carry state[5] = 0ull; // k state[6] = 0ull; // m return state; } uint64_t kiss_random(uint64_t state[7]) { // Linear congruential generator state[0] = state[0] * 69069ull + 1ull; // Xorshift state[1] ^= state[1] << 13ull; state[1] ^= state[1] >> 17ull; state[1] ^= state[1] << 5ull; // Multiply-with-carry state[5] = (state[2] >> 2ull) + (state[3] >> 3ull) + (state[4] >> 2ull); state[6] = state[3] + state[3] + state[2] + state[4]; state[2] = state[3]; state[3] = state[6]; state[4] = state[5] >> 62ull; // Top bit of carry (adjusted for 64-bit) return state[0] + state[1] + state[3]; } /* end of "KISS" rng */ /* FAST KISS in another implementation (Hundt) */ ////////////////////////////////////////////////////////////////////////////// // fast keep it simple stupid generator ////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////// // Thomas Mueller hash for initialization of rngs // http://stackoverflow.com/questions/664014/ // what-integer-hash-function-are-good-that-accepts-an-integer-hash-key ////////////////////////////////////////////////////////////////////////////// randstate_t _hash(randstate_t x) { x = ((x >> 16) ^ x) * (randstate_t)0x45d9f3b; x = ((x >> 16) ^ x) * (randstate_t)0x45d9f3b; x = ((x >> 16) ^ x); return x; } // SECTION: random number transforms ========================================== // generate a random number from normal law double _randnorm(randstate_t* state) { static double v1, v2, s; /* removing static breaks comparison with McStas <= 2.5 */ static int phase = 0; double X, u1, u2; if(phase == 0) { do { u1 = _rand01(state); u2 = _rand01(state); v1 = 2*u1 - 1; v2 = 2*u2 - 1; s = v1*v1 + v2*v2; } while(s >= 1 || s == 0); X = v1*sqrt(-2*log(s)/s); } else { X = v2*sqrt(-2*log(s)/s); } phase = 1 - phase; return X; } // another one double _randnorm2(randstate_t* state) { double x, y, r; do { x = 2.0 * _rand01(state) - 1.0; y = 2.0 * _rand01(state) - 1.0; r = x*x + y*y; } while (r == 0.0 || r >= 1.0); return x * sqrt((-2.0 * log(r)) / r); } // Generate a random number from -1 to 1 with triangle distribution double _randtriangle(randstate_t* state) { double randnum = _rand01(state); if (randnum>0.5) return(1-sqrt(2*(randnum-0.5))); else return(sqrt(2*randnum)-1); } double _rand01(randstate_t* state) { double randnum; randnum = (double) _random(); // TODO: can we mult instead of div? randnum /= (double) MC_RAND_MAX + 1; return randnum; } // Return a random number between 1 and -1 double _randpm1(randstate_t* state) { double randnum; randnum = (double) _random(); randnum /= ((double) MC_RAND_MAX + 1) / 2; randnum -= 1; return randnum; } // Return a random number between 0 and max. double _rand0max(double max, randstate_t* state) { double randnum; randnum = (double) _random(); randnum /= ((double) MC_RAND_MAX + 1) / max; return randnum; } // Return a random number between min and max. double _randminmax(double min, double max, randstate_t* state) { return _rand0max(max - min, state) + max; } /* SECTION: main and signal handlers ======================================== */ /******************************************************************************* * mchelp: displays instrument executable help with possible options *******************************************************************************/ static void mchelp(char *pgmname) { int i; fprintf(stderr, "%s (%s) instrument simulation, generated with " MCCODE_STRING " (" MCCODE_DATE ")\n", instrument_name, instrument_source); fprintf(stderr, "Usage: %s [options] [parm=value ...]\n", pgmname); fprintf(stderr, "Options are:\n" " -s SEED --seed=SEED Set random seed (must be != 0)\n" " -n COUNT --ncount=COUNT Set number of particles to simulate.\n" " -d DIR --dir=DIR Put all data files in directory DIR.\n" " -a --append Append data files to those in directory DIR.\n" " -t --trace Enable trace of " MCCODE_PARTICLE "s through instrument.\n" " (Use -t=2 or --trace=2 for modernised mcdisplay rendering)\n" " -g --gravitation Enable gravitation for all trajectories.\n" " --no-output-files Do not write any data files.\n" " -h --help Show this help message.\n" " -i --info Detailed instrument information.\n" " --list-parameters Print the instrument parameters to standard out\n" " -y --yes Assume default values for all parameters with a default\n" " --meta-list Print names of components which defined metadata\n" " --meta-defined COMP[:NAME] Print component defined metadata names, or (0,1) if NAME provided\n" " --meta-type COMP:NAME Print metadata format type specified in definition\n" " --meta-data COMP:NAME Print the metadata text\n" " --source Show the instrument code which was compiled.\n" #ifdef OPENACC "\n" " --vecsize OpenACC vector-size (default: 128)\n" " --numgangs Number of OpenACC gangs (default: 7813)\n" " --gpu_innerloop Maximum rays to process pr. OpenACC \n" " kernel run (default: 2147483647)\n" "\n" #endif "\n" " --bufsiz Monitor_nD list/buffer-size (default: 1000000)\n" " --format=FORMAT Output data files using FORMAT=" FLAVOR_UPPER #ifdef USE_NEXUS " NEXUS\n" " --IDF Embed an xml-formatted IDF instrument definition\n" " in the NeXus file (if existent in .)\n\n" #else "\n\n" #endif ); #ifdef USE_MPI fprintf(stderr, "This instrument has been compiled with MPI support.\n Use 'mpirun %s [options] [parm=value ...]'.\n", pgmname); #endif #ifdef OPENACC fprintf(stderr, "This instrument has been compiled with NVIDIA GPU support through OpenACC.\n Running on systems without such devices will lead to segfaults.\nFurter, fprintf, sprintf and printf have been removed from any component TRACE.\n"); #endif if(numipar > 0) { fprintf(stderr, "Instrument parameters are:\n"); for(i = 0; i < numipar; i++) if (mcinputtable[i].val && strlen(mcinputtable[i].val)) fprintf(stderr, " %-16s(%s) [default='%s']\n", mcinputtable[i].name, (*mcinputtypes[mcinputtable[i].type].parminfo)(mcinputtable[i].name), mcinputtable[i].val); else fprintf(stderr, " %-16s(%s)\n", mcinputtable[i].name, (*mcinputtypes[mcinputtable[i].type].parminfo)(mcinputtable[i].name)); } #ifndef NOSIGNALS fprintf(stderr, "Known signals are: " #ifdef SIGUSR1 "USR1 (status) " #endif #ifdef SIGUSR2 "USR2 (save) " #endif #ifdef SIGBREAK "BREAK (save) " #endif #ifdef SIGTERM "TERM (save and exit)" #endif "\n"); #endif /* !NOSIGNALS */ } /* mchelp */ /* mcshowhelp: show help and exit with 0 */ static void mcshowhelp(char *pgmname) { mchelp(pgmname); exit(0); } /* mcusage: display usage when error in input arguments and exit with 1 */ static void mcusage(char *pgmname) { fprintf(stderr, "Error: incorrect command line arguments\n"); mchelp(pgmname); exit(1); } /* mcenabletrace: enable trace/mcdisplay or error if requires recompile */ static void mcenabletrace(int mode) { if(traceenabled) { mcdotrace = mode; #pragma acc update device ( mcdotrace ) } else { if (mode>0) { fprintf(stderr, "Error: trace not enabled (mcenabletrace)\n" "Please re-run the " MCCODE_NAME " compiler " "with the --trace option, or rerun the\n" "C compiler with the MC_TRACE_ENABLED macro defined.\n"); exit(1); } } } /******************************************************************************* * mcreadparams: request parameters from the prompt (or use default) *******************************************************************************/ void mcreadparams(void) { int i,j,status; static char buf[CHAR_BUF_LENGTH]; char *p; int len; MPI_MASTER(printf("Instrument parameters for %s (%s)\n", instrument_name, instrument_source)); for(i = 0; mcinputtable[i].name != 0; i++) { do { MPI_MASTER( if (mcinputtable[i].val && strlen(mcinputtable[i].val)) printf("Set value of instrument parameter %s (%s) [default='%s']:\n", mcinputtable[i].name, (*mcinputtypes[mcinputtable[i].type].parminfo) (mcinputtable[i].name), mcinputtable[i].val); else printf("Set value of instrument parameter %s (%s):\n", mcinputtable[i].name, (*mcinputtypes[mcinputtable[i].type].parminfo) (mcinputtable[i].name)); fflush(stdout); ); #ifdef USE_MPI if(mpi_node_rank == mpi_node_root) { p = fgets(buf, CHAR_BUF_LENGTH, stdin); if(p == NULL) { fprintf(stderr, "Error: empty input for paramater %s (mcreadparams)\n", mcinputtable[i].name); exit(1); } } else p = buf; MPI_Bcast(buf, CHAR_BUF_LENGTH, MPI_CHAR, mpi_node_root, MPI_COMM_WORLD); #else /* !USE_MPI */ p = fgets(buf, CHAR_BUF_LENGTH, stdin); if(p == NULL) { fprintf(stderr, "Error: empty input for paramater %s (mcreadparams)\n", mcinputtable[i].name); exit(1); } #endif /* USE_MPI */ len = strlen(buf); if (!len || (len == 1 && (buf[0] == '\n' || buf[0] == '\r'))) { if (mcinputtable[i].val && strlen(mcinputtable[i].val)) { strncpy(buf, mcinputtable[i].val, CHAR_BUF_LENGTH); /* use default value */ len = strlen(buf); } } for(j = 0; j < 2; j++) { if(len > 0 && (buf[len - 1] == '\n' || buf[len - 1] == '\r')) { len--; buf[len] = '\0'; } } status = (*mcinputtypes[mcinputtable[i].type].getparm) (buf, mcinputtable[i].par); if(!status) { (*mcinputtypes[mcinputtable[i].type].error)(mcinputtable[i].name, buf); if (!mcinputtable[i].val || strlen(mcinputtable[i].val)) { fprintf(stderr, " Change %s default value in instrument definition.\n", mcinputtable[i].name); exit(1); } } } while(!status); } } /* mcreadparams */ /******************************************************************************* * mcparseoptions: parse command line arguments (options, parameters) *******************************************************************************/ void mcparseoptions(int argc, char *argv[]) { int i, j; char *p; int paramset = 0, *paramsetarray; char *usedir=NULL; /* Add one to numipar to avoid allocating zero size memory block. */ paramsetarray = (int*)malloc((numipar + 1)*sizeof(*paramsetarray)); if(paramsetarray == NULL) { fprintf(stderr, "Error: insufficient memory (mcparseoptions)\n"); exit(1); } for(j = 0; j < numipar; j++) { paramsetarray[j] = 0; if (mcinputtable[j].val != NULL && strlen(mcinputtable[j].val)) { int status; char buf[CHAR_BUF_LENGTH]; strncpy(buf, mcinputtable[j].val, CHAR_BUF_LENGTH); status = (*mcinputtypes[mcinputtable[j].type].getparm) (buf, mcinputtable[j].par); if(!status) fprintf(stderr, "Invalid '%s' default value %s in instrument definition (mcparseoptions)\n", mcinputtable[j].name, buf); else paramsetarray[j] = 1; } else { (*mcinputtypes[mcinputtable[j].type].getparm) (NULL, mcinputtable[j].par); paramsetarray[j] = 0; } } for(i = 1; i < argc; i++) { if(!strcmp("-s", argv[i]) && (i + 1) < argc) mcsetseed(argv[++i]); else if(!strncmp("-s", argv[i], 2)) mcsetseed(&argv[i][2]); else if(!strcmp("--seed", argv[i]) && (i + 1) < argc) mcsetseed(argv[++i]); else if(!strncmp("--seed=", argv[i], 7)) mcsetseed(&argv[i][7]); else if(!strcmp("-n", argv[i]) && (i + 1) < argc) mcsetn_arg(argv[++i]); else if(!strncmp("-n", argv[i], 2)) mcsetn_arg(&argv[i][2]); else if(!strcmp("--ncount", argv[i]) && (i + 1) < argc) mcsetn_arg(argv[++i]); else if(!strncmp("--ncount=", argv[i], 9)) mcsetn_arg(&argv[i][9]); else if(!strcmp("-d", argv[i]) && (i + 1) < argc) usedir=argv[++i]; /* will create directory after parsing all arguments (end of this function) */ else if(!strncmp("-d", argv[i], 2)) usedir=&argv[i][2]; else if(!strcmp("--dir", argv[i]) && (i + 1) < argc) usedir=argv[++i]; else if(!strncmp("-a", argv[i], 2)) mcappend = 1; else if(!strcmp("--append", argv[i])) mcappend = 1; else if(!strncmp("--dir=", argv[i], 6)) usedir=&argv[i][6]; else if(!strcmp("-h", argv[i])) mcshowhelp(argv[0]); else if(!strcmp("--help", argv[i]) || !strcmp("--version", argv[i])) mcshowhelp(argv[0]); else if(!strcmp("-i", argv[i])) { mcformat=FLAVOR_UPPER; mcinfo(); } else if(!strcmp("--info", argv[i])) mcinfo(); else if (!strcmp("--list-parameters", argv[i])) mcparameterinfo(); else if (!strcmp("--meta-list", argv[i]) && ((i+1) >= argc || argv[i+1][0] == '-')){ //printf("Components with metadata defined:\n"); exit(metadata_table_print_all_components(num_metadata, metadata_table) == 0); } else if (!strcmp("--meta-defined", argv[i]) && (i+1) < argc){ exit(metadata_table_print_component_keys(num_metadata, metadata_table, argv[i+1]) == 0); } else if (!strcmp("--meta-type", argv[i]) && (i+1) < argc){ char * literal_type = metadata_table_type(num_metadata, metadata_table, argv[i+1]); if (literal_type == NULL) exit(1); printf("%s\n", literal_type); exit(0); } else if (!strcmp("--meta-data", argv[i]) && (i+1) < argc){ char * literal = metadata_table_literal(num_metadata, metadata_table, argv[i+1]); if (literal == NULL) exit(1); printf("%s\n", literal); exit(0); } else if(!strncmp("--trace=", argv[i], 8)) { mcenabletrace(atoi(&argv[i][8])); } else if(!strncmp("-t=", argv[i], 3) || !strcmp("--verbose", argv[i])) { mcenabletrace(atoi(&argv[i][3])); } else if(!strcmp("-t", argv[i])) mcenabletrace(1); else if(!strcmp("--trace", argv[i]) || !strcmp("--verbose", argv[i])) mcenabletrace(1); else if(!strcmp("--gravitation", argv[i])) mcgravitation = 1; else if(!strcmp("-g", argv[i])) mcgravitation = 1; else if(!strcmp("--yes", argv[i])) mcusedefaults = 1; else if(!strcmp("-y", argv[i])) mcusedefaults = 1; else if(!strncmp("--format=", argv[i], 9)) { mcformat=&argv[i][9]; } else if(!strcmp("--format", argv[i]) && (i + 1) < argc) { mcformat=argv[++i]; } #ifdef USE_NEXUS else if(!strcmp("--IDF", argv[i])) { mcnexus_embed_idf = 1; } #endif else if(!strncmp("--vecsize=", argv[i], 10)) { vecsize=atoi(&argv[i][10]); } else if(!strcmp("--vecsize", argv[i]) && (i + 1) < argc) { vecsize=atoi(argv[++i]); } else if(!strncmp("--bufsiz=", argv[i], 9)) { MONND_BUFSIZ=atoi(&argv[i][9]); } else if(!strcmp("--bufsiz", argv[i]) && (i + 1) < argc) { MONND_BUFSIZ=atoi(argv[++i]); } else if(!strncmp("--numgangs=", argv[i], 11)) { numgangs=atoi(&argv[i][11]); } else if(!strcmp("--numgangs", argv[i]) && (i + 1) < argc) { numgangs=atoi(argv[++i]); } else if(!strncmp("--gpu_innerloop=", argv[i], 16)) { gpu_innerloop=(long)strtod(&argv[i][16], NULL); } else if(!strcmp("--gpu_innerloop", argv[i]) && (i + 1) < argc) { gpu_innerloop=(long)strtod(argv[++i], NULL); } else if(!strcmp("--no-output-files", argv[i])) mcdisable_output_files = 1; else if(!strcmp("--source", argv[i])) { printf("/* Source code %s from %s: */\n" "/******************************************************************************/\n" "%s\n" "/******************************************************************************/\n" "/* End of source code %s from %s */\n", instrument_name, instrument_source, instrument_code, instrument_name, instrument_source); exit(1); } else if(argv[i][0] != '-' && (p = strchr(argv[i], '=')) != NULL) { *p++ = '\0'; for(j = 0; j < numipar; j++) if(!strcmp(mcinputtable[j].name, argv[i])) { int status; status = (*mcinputtypes[mcinputtable[j].type].getparm)(p, mcinputtable[j].par); if(!status || !strlen(p)) { (*mcinputtypes[mcinputtable[j].type].error) (mcinputtable[j].name, p); exit(1); } paramsetarray[j] = 1; paramset = 1; break; } if(j == numipar) { /* Unrecognized parameter name */ fprintf(stderr, "Error: unrecognized parameter %s (mcparseoptions)\n", argv[i]); exit(1); } } else if(argv[i][0] == '-') { fprintf(stderr, "Error: unrecognized option argument %s (mcparseoptions). Ignored.\n", argv[i++]); } else { fprintf(stderr, "Error: unrecognized argument %s (mcparseoptions). Aborting.\n", argv[i]); mcusage(argv[0]); } } if (mcusedefaults) { MPI_MASTER( printf("Using all default parameter values\n"); ); for(j = 0; j < numipar; j++) { int status; if(mcinputtable[j].val && strlen(mcinputtable[j].val)){ status = (*mcinputtypes[mcinputtable[j].type].getparm)(mcinputtable[j].val, mcinputtable[j].par); paramsetarray[j] = 1; paramset = 1; } } } if(!paramset) mcreadparams(); /* Prompt for parameters if not specified. */ else { for(j = 0; j < numipar; j++) if(!paramsetarray[j]) { fprintf(stderr, "Error: Instrument parameter %s left unset (mcparseoptions)\n", mcinputtable[j].name); exit(1); } } free(paramsetarray); #ifdef USE_MPI if (mcdotrace) mpi_node_count=1; /* disable threading when in trace mode */ #endif if (usedir && strlen(usedir) && !mcdisable_output_files) mcuse_dir(usedir); } /* mcparseoptions */ #ifndef NOSIGNALS /******************************************************************************* * sighandler: signal handler that makes simulation stop, and save results *******************************************************************************/ void sighandler(int sig) { /* MOD: E. Farhi, Sep 20th 2001: give more info */ time_t t1, t0; #define SIG_SAVE 0 #define SIG_TERM 1 #define SIG_STAT 2 #define SIG_ABRT 3 printf("\n# " MCCODE_STRING ": [pid %i] Signal %i detected", getpid(), sig); #ifdef USE_MPI printf(" [proc %i]", mpi_node_rank); #endif #if defined(SIGUSR1) && defined(SIGUSR2) && defined(SIGKILL) if (!strcmp(mcsig_message, "sighandler") && (sig != SIGUSR1) && (sig != SIGUSR2)) { printf("\n# Fatal : unrecoverable loop ! Suicide (naughty boy).\n"); kill(0, SIGKILL); /* kill myself if error occurs within sighandler: loops */ } #endif switch (sig) { #ifdef SIGINT case SIGINT : printf(" SIGINT (interrupt from terminal, Ctrl-C)"); sig = SIG_TERM; break; #endif #ifdef SIGILL case SIGILL : printf(" SIGILL (Illegal instruction)"); sig = SIG_ABRT; break; #endif #ifdef SIGFPE case SIGFPE : printf(" SIGFPE (Math Error)"); sig = SIG_ABRT; break; #endif #ifdef SIGSEGV case SIGSEGV : printf(" SIGSEGV (Mem Error)"); sig = SIG_ABRT; break; #endif #ifdef SIGTERM case SIGTERM : printf(" SIGTERM (Termination)"); sig = SIG_TERM; break; #endif #ifdef SIGABRT case SIGABRT : printf(" SIGABRT (Abort)"); sig = SIG_ABRT; break; #endif #ifdef SIGQUIT case SIGQUIT : printf(" SIGQUIT (Quit from terminal)"); sig = SIG_TERM; break; #endif #ifdef SIGTRAP case SIGTRAP : printf(" SIGTRAP (Trace trap)"); sig = SIG_ABRT; break; #endif #ifdef SIGPIPE case SIGPIPE : printf(" SIGPIPE (Broken pipe)"); sig = SIG_ABRT; break; #endif #ifdef SIGUSR1 case SIGUSR1 : printf(" SIGUSR1 (Display info)"); sig = SIG_STAT; break; #endif #ifdef SIGUSR2 case SIGUSR2 : printf(" SIGUSR2 (Save simulation)"); sig = SIG_SAVE; break; #endif #ifdef SIGHUP case SIGHUP : printf(" SIGHUP (Hangup/update)"); sig = SIG_SAVE; break; #endif #ifdef SIGBUS case SIGBUS : printf(" SIGBUS (Bus error)"); sig = SIG_ABRT; break; #endif #ifdef SIGURG case SIGURG : printf(" SIGURG (Urgent socket condition)"); sig = SIG_ABRT; break; #endif #ifdef SIGBREAK case SIGBREAK: printf(" SIGBREAK (Break signal, Ctrl-Break)"); sig = SIG_SAVE; break; #endif default : printf(" (look at signal list for signification)"); sig = SIG_ABRT; break; } printf("\n"); printf("# Simulation: %s (%s) \n", instrument_name, instrument_source); printf("# Breakpoint: %s ", mcsig_message); if (strstr(mcsig_message, "Save") && (sig == SIG_SAVE)) sig = SIG_STAT; SIG_MESSAGE("sighandler"); if (mcget_ncount() == 0) printf("(0 %%)\n" ); else { printf("%.2f %% (%10.1f/%10.1f)\n", 100.0*mcget_run_num()/mcget_ncount(), 1.0*mcget_run_num(), 1.0*mcget_ncount()); } t0 = (time_t)mcstartdate; t1 = time(NULL); printf("# Date: %s", ctime(&t1)); printf("# Started: %s", ctime(&t0)); if (sig == SIG_STAT) { printf("# " MCCODE_STRING ": Resuming simulation (continue)\n"); fflush(stdout); return; } else if (sig == SIG_SAVE) { printf("# " MCCODE_STRING ": Saving data and resume simulation (continue)\n"); save(NULL); fflush(stdout); return; } else if (sig == SIG_TERM) { printf("# " MCCODE_STRING ": Finishing simulation (save results and exit)\n"); finally(); exit(0); } else { fflush(stdout); perror("# Last I/O Error"); printf("# " MCCODE_STRING ": Simulation stop (abort).\n"); // This portion of the signal handling only works on UNIX #if defined(__unix__) || defined(__APPLE__) signal(sig, SIG_DFL); /* force to use default sighandler now */ kill(getpid(), sig); /* and trigger it with the current signal */ #endif exit(-1); } #undef SIG_SAVE #undef SIG_TERM #undef SIG_STAT #undef SIG_ABRT } /* sighandler */ #endif /* !NOSIGNALS */ #ifdef NEUTRONICS /*Main neutronics function steers the McStas calls, initializes parameters etc */ /* Only called in case NEUTRONICS = TRUE */ void neutronics_main_(float *inx, float *iny, float *inz, float *invx, float *invy, float *invz, float *intime, float *insx, float *insy, float *insz, float *inw, float *outx, float *outy, float *outz, float *outvx, float *outvy, float *outvz, float *outtime, float *outsx, float *outsy, float *outsz, float *outwgt) { extern double mcnx, mcny, mcnz, mcnvx, mcnvy, mcnvz; extern double mcnt, mcnsx, mcnsy, mcnsz, mcnp; /* External code governs iteration - McStas is iterated once per call to neutronics_main. I.e. below counter must be initiancated for each call to neutronics_main*/ mcrun_num=0; time_t t; t = (time_t)mcstartdate; mcstartdate = t; /* set start date before parsing options and creating sim file */ init(); /* *** parse options *** */ SIG_MESSAGE("[" __FILE__ "] main START"); mcformat=getenv(FLAVOR_UPPER "_FORMAT") ? getenv(FLAVOR_UPPER "_FORMAT") : FLAVOR_UPPER; /* Set neutron state based on input from neutronics code */ mcsetstate(*inx,*iny,*inz,*invx,*invy,*invz,*intime,*insx,*insy,*insz,*inw); /* main neutron event loop - runs only one iteration */ //mcstas_raytrace(&mcncount); /* prior to McStas 1.12 */ mcallowbackprop = 1; //avoid absorbtion from negative dt int argc=1; char *argv[0]; int dummy = mccode_main(argc, argv); *outx = mcnx; *outy = mcny; *outz = mcnz; *outvx = mcnvx; *outvy = mcnvy; *outvz = mcnvz; *outtime = mcnt; *outsx = mcnsx; *outsy = mcnsy; *outsz = mcnsz; *outwgt = mcnp; return; } /* neutronics_main */ #endif /*NEUTRONICS*/ #endif /* !MCCODE_H */ /* End of file "mccode-r.c". */ /* End of file "mccode-r.c". */ /* embedding file "mcstas-r.c" */ /******************************************************************************* * * McStas, neutron ray-tracing package * Copyright (C) 1997-2009, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Runtime: share/mcstas-r.c * * %Identification * Written by: KN * Date: Aug 29, 1997 * Release: McStas X.Y * Version: $Revision$ * * Runtime system for McStas. * Embedded within instrument in runtime mode. * * Usage: Automatically embbeded in the c code whenever required. * * $Id$ * *******************************************************************************/ #ifndef MCSTAS_R_H #include "mcstas-r.h" #endif #ifdef DANSE #include "mcstas-globals.h" #endif /******************************************************************************* * The I/O format definitions and functions *******************************************************************************/ /*the magnet stack*/ #ifdef MC_POL_COMPAT void (*mcMagnetPrecession) (double, double, double, double, double, double, double, double*, double*, double*, double, Coords, Rotation)=NULL; Coords mcMagnetPos; Rotation mcMagnetRot; double* mcMagnetData = NULL; /* mcMagneticField(x, y, z, t, Bx, By, Bz) */ int (*mcMagneticField) (double, double, double, double, double*, double*, double*, void *) = NULL; #endif #ifndef MCSTAS_H /******************************************************************************* * mcsetstate: transfer parameters into global McStas variables *******************************************************************************/ _class_particle mcsetstate(double x, double y, double z, double vx, double vy, double vz, double t, double sx, double sy, double sz, double p, int mcgravitation, void *mcMagnet, int mcallowbackprop) { _class_particle mcneutron; mcneutron.x = x; mcneutron.y = y; mcneutron.z = z; mcneutron.vx = vx; mcneutron.vy = vy; mcneutron.vz = vz; mcneutron.t = t; mcneutron.sx = sx; mcneutron.sy = sy; mcneutron.sz = sz; mcneutron.p = p; mcneutron.mcgravitation = mcgravitation; mcneutron.mcMagnet = mcMagnet; mcneutron.allow_backprop = mcallowbackprop; mcneutron._uid = 0; mcneutron._index = 1; mcneutron._absorbed = 0; mcneutron._restore = 0; mcneutron._scattered = 0; mcneutron.flag_nocoordschange = 0; /* init tmp-vars - FIXME are they used? */ mcneutron._mctmp_a = mcneutron._mctmp_b = mcneutron._mctmp_c = 0; // what about mcneutron._logic ? mcneutron._logic.dummy=1; // init uservars via cogen'd-function particle_uservar_init(&mcneutron); return(mcneutron); } /* mcsetstate */ /******************************************************************************* * mcgetstate: get neutron parameters from particle structure *******************************************************************************/ _class_particle mcgetstate(_class_particle mcneutron, double *x, double *y, double *z, double *vx, double *vy, double *vz, double *t, double *sx, double *sy, double *sz, double *p) { *x = mcneutron.x; *y = mcneutron.y; *z = mcneutron.z; *vx = mcneutron.vx; *vy = mcneutron.vy; *vz = mcneutron.vz; *t = mcneutron.t; *sx = mcneutron.sx; *sy = mcneutron.sy; *sz = mcneutron.sz; *p = mcneutron.p; return(mcneutron); } /* mcgetstate */ /******************************************************************************* * mcgenstate: set default neutron parameters *******************************************************************************/ // Moved to generated code /* #pragma acc routine seq */ /* _class_particle mcgenstate(void) */ /* { */ /* return(mcsetstate(0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, mcgravitation, mcMagnet, mcallowbackprop)); */ /* } */ /******************************************************************************* * mccoordschanges: old style rotation routine rot -> (x y z) ,(vx vy vz),(sx,sy,sz) *******************************************************************************/ void mccoordschanges(Coords a, Rotation t, double *x, double *y, double *z, double *vx, double *vy, double *vz, double *sx, double *sy, double *sz) { Coords b, c; b.x = *x; b.y = *y; b.z = *z; c = rot_apply(t, b); b = coords_add(c, a); *x = b.x; *y = b.y; *z = b.z; if ( (vz && vy && vx) && (*vz != 0.0 || *vx != 0.0 || *vy != 0.0) ) mccoordschange_polarisation(t, vx, vy, vz); if ( (sz && sy && sx) && (*sz != 0.0 || *sx != 0.0 || *sy != 0.0) ) mccoordschange_polarisation(t, sx, sy, sz); } /* intersection routines ==================================================== */ /******************************************************************************* * inside_rectangle: Check if (x,y) is inside rectangle (xwidth, yheight) * return 0 if outside and 1 if inside *******************************************************************************/ int inside_rectangle(double x, double y, double xwidth, double yheight) { if (x>-xwidth/2 && x-yheight/2 && y -dy/2 && y_in < dy/2 && z_in > -dz/2 && z_in < dz/2) t[0] = tt; else t[0] = 0; tt = (dx/2 - x)/vx; y_in = y + tt*vy; z_in = z + tt*vz; if( y_in > -dy/2 && y_in < dy/2 && z_in > -dz/2 && z_in < dz/2) t[1] = tt; else t[1] = 0; } else t[0] = t[1] = 0; if(vy != 0) { tt = -(dy/2 + y)/vy; x_in = x + tt*vx; z_in = z + tt*vz; if( x_in > -dx/2 && x_in < dx/2 && z_in > -dz/2 && z_in < dz/2) t[2] = tt; else t[2] = 0; tt = (dy/2 - y)/vy; x_in = x + tt*vx; z_in = z + tt*vz; if( x_in > -dx/2 && x_in < dx/2 && z_in > -dz/2 && z_in < dz/2) t[3] = tt; else t[3] = 0; } else t[2] = t[3] = 0; if(vz != 0) { tt = -(dz/2 + z)/vz; x_in = x + tt*vx; y_in = y + tt*vy; if( x_in > -dx/2 && x_in < dx/2 && y_in > -dy/2 && y_in < dy/2) t[4] = tt; else t[4] = 0; tt = (dz/2 - z)/vz; x_in = x + tt*vx; y_in = y + tt*vy; if( x_in > -dx/2 && x_in < dx/2 && y_in > -dy/2 && y_in < dy/2) t[5] = tt; else t[5] = 0; } else t[4] = t[5] = 0; /* The intersection is evaluated and *dt_in and *dt_out are assigned */ a = b = s = 0; count = 0; for( i = 0; i < 6; i = i + 1 ) if( t[i] == 0 ) s = s+1; else if( count == 0 ) { a = t[i]; count = 1; } else { b = t[i]; count = 2; } if ( a == 0 && b == 0 ) return 0; else if( a < b ) { *dt_in = a; *dt_out = b; return 1; } else { *dt_in = b; *dt_out = a; return 1; } } /* box_intersect */ /******************************************************************************* * cylinder_intersect: compute intersection with a cylinder * returns 0 when no intersection is found * or 2/4/8/16 bits depending on intersection, * and resulting times t0 and t1 * Written by: EM,NB,ABA 4.2.98 *******************************************************************************/ int cylinder_intersect(double *t0, double *t1, double x, double y, double z, double vx, double vy, double vz, double r, double h) { double D, t_in, t_out, y_in, y_out; int ret=1; D = (2*vx*x + 2*vz*z)*(2*vx*x + 2*vz*z) - 4*(vx*vx + vz*vz)*(x*x + z*z - r*r); if (D>=0) { if (vz*vz + vx*vx) { t_in = (-(2*vz*z + 2*vx*x) - sqrt(D))/(2*(vz*vz + vx*vx)); t_out = (-(2*vz*z + 2*vx*x) + sqrt(D))/(2*(vz*vz + vx*vx)); } else if (vy) { /* trajectory parallel to cylinder axis */ t_in = (-h/2-y)/vy; t_out = (h/2-y)/vy; if (t_in>t_out){ double tmp=t_in; t_in=t_out;t_out=tmp; } } else return 0; y_in = vy*t_in + y; y_out =vy*t_out + y; if ( (y_in > h/2 && y_out > h/2) || (y_in < -h/2 && y_out < -h/2) ) return 0; else { if (y_in > h/2) { t_in = ((h/2)-y)/vy; ret += 2; } else if (y_in < -h/2) { t_in = ((-h/2)-y)/vy; ret += 4; } if (y_out > h/2) { t_out = ((h/2)-y)/vy; ret += 8; } else if (y_out < -h/2) { t_out = ((-h/2)-y)/vy; ret += 16; } } *t0 = t_in; *t1 = t_out; return ret; } else { *t0 = *t1 = 0; return 0; } } /* cylinder_intersect */ /******************************************************************************* * sphere_intersect: Calculate intersection between a line and a sphere. * returns 0 when no intersection is found * or 1 in case of intersection with resulting times t0 and t1 *******************************************************************************/ int sphere_intersect(double *t0, double *t1, double x, double y, double z, double vx, double vy, double vz, double r) { double A, B, C, D, v; v = sqrt(vx*vx + vy*vy + vz*vz); A = v*v; B = 2*(x*vx + y*vy + z*vz); C = x*x + y*y + z*z - r*r; D = B*B - 4*A*C; if(D < 0) return 0; D = sqrt(D); *t0 = (-B - D) / (2*A); *t1 = (-B + D) / (2*A); return 1; } /* sphere_intersect */ /******************************************************************************* * plane_intersect: Calculate intersection between a plane and a line. * returns 0 when no intersection is found (i.e. line is parallel to the plane) * returns 1 or -1 when intersection time is positive and negative respectively *******************************************************************************/ int plane_intersect(double *t, double x, double y, double z, double vx, double vy, double vz, double nx, double ny, double nz, double wx, double wy, double wz) { double s; if (fabs(s=scalar_prod(nx,ny,nz,vx,vy,vz)) #include #include #ifndef _MSC_EXTENSIONS #include #else # include # define strcasecmp _stricmp # define strncasecmp _strnicmp #endif typedef struct struct_table { char filename[1024]; long filesize; char *header; /* text header, e.g. comments */ double *data; /* vector { x[0], y[0], ... x[n-1], y[n-1]... } */ double min_x; /* min value of first column */ double max_x; /* max value of first column */ double step_x; /* minimal step value of first column */ long rows; /* number of rows in matrix block */ long columns; /* number of columns in matrix block */ long begin; /* start fseek index of block */ long end; /* stop fseek index of block */ long block_number; /* block index. 0 is catenation of all */ long array_length; /* number of elements in the t_Table array */ char monotonic; /* true when 1st column/vector data is monotonic */ char constantstep; /* true when 1st column/vector data has constant step */ char method[32]; /* interpolation method: nearest, linear */ char quiet; /*output level for messages to the console 0: print all messages, 1:only print some/including errors, 2: never print anything.*/ } t_Table; /*maximum number of rows to rebin a table = 1M*/ enum { mcread_table_rebin_maxsize = 1000000 }; typedef struct t_Read_table_file_item { int ref_count; t_Table *table_ref; } t_Read_table_file_item; typedef enum enum_Read_table_file_actions {STORE,FIND,GC} t_Read_table_file_actions; /* read_table-lib function prototypes */ /* ========================================================================= */ /* 'public' functions */ long Table_Read (t_Table *Table, char *File, long block_number); long Table_Read_Offset (t_Table *Table, char *File, long block_number, long *offset, long max_lines); long Table_Read_Offset_Binary(t_Table *Table, char *File, char *Type, long *Offset, long Rows, long Columns); long Table_Rebin(t_Table *Table); /* rebin table with regular 1st column and interpolate all columns 2:end */ long Table_Info (t_Table Table); #pragma acc routine double Table_Index(t_Table Table, long i, long j); /* get indexed value */ #pragma acc routine double Table_Value(t_Table Table, double X, long j); /* search X in 1st column and return interpolated value in j-column */ t_Table *Table_Read_Array(char *File, long *blocks); void Table_Free_Array(t_Table *Table); long Table_Info_Array(t_Table *Table); int Table_SetElement(t_Table *Table, long i, long j, double value); long Table_Init(t_Table *Table, long rows, long columns); /* create a Table */ #pragma acc routine double Table_Value2d(t_Table Table, double X, double Y); /* same as Table_Index with non-integer indices and 2d interpolation */ MCDETECTOR Table_Write(t_Table Table, char*file, char*xl, char*yl, double x1, double x2, double y1, double y2); /* write Table to disk */ void * Table_File_List_Handler(t_Read_table_file_actions action, void *item, void *item_modifier); t_Table *Table_File_List_find(char *name, int block, int offset); int Table_File_List_gc(t_Table *tab); void *Table_File_List_store(t_Table *tab); #define Table_ParseHeader(header, ...) \ Table_ParseHeader_backend(header,__VA_ARGS__,NULL); char **Table_ParseHeader_backend(char *header, ...); FILE *Open_File(char *name, const char *Mode, char *path); /* private functions */ void Table_Free(t_Table *Table); long Table_Read_Handle(t_Table *Table, FILE *fid, long block_number, long max_lines, char *name); static void Table_Stat(t_Table *Table); #pragma acc routine double Table_Interp1d(double x, double x1, double y1, double x2, double y2); #pragma acc routine double Table_Interp1d_nearest(double x, double x1, double y1, double x2, double y2); #pragma acc routine double Table_Interp2d(double x, double y, double x1, double y1, double x2, double y2, double z11, double z12, double z21, double z22); #endif /* end of read_table-lib.h */ /******************************************************************************* * * McStas, neutron ray-tracing package * Copyright (C) 1997-2009, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Library: share/read_table-lib.c * * %Identification * Written by: EF * Date: Aug 28, 2002 * Origin: ILL * Release: McStas CVS_090504 * Version: $Revision$ * * This file is to be imported by components that may read data from table files * It handles some shared functions. Embedded within instrument in runtime mode. * * Usage: within SHARE * %include "read_table-lib" * *******************************************************************************/ #ifndef READ_TABLE_LIB_H #include "read_table-lib.h" #endif #ifndef READ_TABLE_LIB_C #define READ_TABLE_LIB_C "$Revision$" /******************************************************************************* * void *Table_File_List_Handler(action, item, item_modifier) * ACTION: handle file entries in the read_table-lib file list. If a file is read - it is supposed to be * stored in a list such that we can avoid reading the same file many times. * input action: FIND, STORE, GC. check if file exists in the list, store an item in the list, or check if it can be garbage collected. * input item: depends on the action. * FIND) item is a filename, and item_modifier is the block number * STORE) item is the Table to store - item_modifier is ignored * GC) item is the Table to check. If it has a ref_count >1 then this is simply decremented. * return depends on the action * FIND) return a reference to a table+ref_count item if found - NULL otherwise. I.e. NULL means the file has not been read before and must be read again. * STORE) return NULL always * GC) return NULL if no garbage collection is needed, return an adress to the t_Table which should be garbage collected. 0x1 is returned if * the item is not found in the list *******************************************************************************/ void * Table_File_List_Handler(t_Read_table_file_actions action, void *item, void *item_modifier){ /* logic here is Read_Table should include a call to FIND. If found the return value should just be used as * if the table had been read from disk. If not found then read the table and STORE. * Table_Free should include a call to GC. If this returns non-NULL then we should proceed with freeing the memory * associated with the table item - otherwise only decrement the reference counter since there are more references * that may need it.*/ static t_Read_table_file_item read_table_file_list[1024]; static int read_table_file_count=0; t_Read_table_file_item *tr; switch(action){ case FIND: /*interpret data item as a filename, if it is found return a pointer to the table and increment refcount. * if not found return the item itself*/ tr=read_table_file_list; while ( tr->table_ref!=NULL ){ int i=*((int*) item_modifier); int j=*( ((int*) item_modifier)+1); if ( !strcmp(tr->table_ref->filename,(char *) item) && tr->table_ref->block_number==i && tr->table_ref->begin==j ){ tr->ref_count++; return (void *) tr; } tr++; } return NULL; case STORE: /*find an available slot and store references to table there*/ tr=&(read_table_file_list[read_table_file_count++]); tr->table_ref = ((t_Table *) item); tr->ref_count++; return NULL; case GC: /* Should this item be garbage collected (freed) - if so scratch the entry and return the address of the item - * else decrement ref_count and return NULL. * A non-NULL return expects the item to actually be freed afterwards.*/ tr=read_table_file_list; while ( tr->table_ref!=NULL ){ if ( tr->table_ref->data ==((t_Table *)item)->data && tr->table_ref->block_number == ((t_Table *)item)->block_number){ /*matching item found*/ if (tr->ref_count>1){ /*the item is found and no garbage collection needed*/ tr->ref_count--; return NULL; }else{ /* The item is found and the reference counter is 1. * This means we should garbage collect. Move remaining list items up one slot, * and return the table for garbage collection by caller*/ while (tr->table_ref!=NULL){ *tr=*(tr+1); tr++; } read_table_file_count--; return (t_Table *) item; } } tr++; } /* item not found, and so should be garbage collected. This could be the case if freeing a * Table that has been constructed from code - not read from file. Return 0x1 to flag it for * collection.*/ return (void *) 0x1 ; } /* If we arrive here, nothing worked, return NULL */ return NULL; } /* Access functions to the handler*/ /******************************************** * t_Table *Table_File_List_find(char *name, int block, int offset) * input name: filename to search for in the file list * input block: data block in the file as each file may contain more than 1 data block. * return a ref. to a table if it is found (you may use this pointer and skip reading the file), NULL otherwise (i.e. go ahead and read the file) *********************************************/ t_Table *Table_File_List_find(char *name, int block, int offset){ int vars[2]={block,offset}; t_Read_table_file_item *item = Table_File_List_Handler(FIND,name, vars); if (item == NULL){ return NULL; }else{ return item->table_ref; } } /******************************************** * int Table_File_List_gc(t_Table *tab) * input tab: the table to check for references. * return 0: no garbage collection needed * 1: Table's data and header (at least) should be freed. *********************************************/ int Table_File_List_gc(t_Table *tab){ void *rval=Table_File_List_Handler(GC,tab,0); if (rval==NULL) return 0; else return 1; } /***************************************************************************** * void *Table_File_List_store(t_Table *tab) * input tab: pointer to table to store. * return None. *******************************************************************************/ void *Table_File_List_store(t_Table *tab){ return Table_File_List_Handler(STORE,tab,0); } /******************************************************************************* * FILE *Open_File(char *name, char *Mode, char *path) * ACTION: search for a file and open it. Optionally return the opened path. * input name: file name from which table should be extracted * mode: "r", "w", "a" or any valid fopen mode * path: NULL or a pointer to at least 1024 allocated chars * return initialized file handle or NULL in case of error *******************************************************************************/ FILE *Open_File(char *File, const char *Mode, char *Path) { char path[1024]; FILE *hfile = NULL; if (!File || File[0]=='\0') return(NULL); if (!strcmp(File,"NULL") || !strcmp(File,"0")) return(NULL); /* search in current or full path */ strncpy(path, File, 1024); hfile = fopen(path, Mode); if(!hfile) { char dir[1024]; if (!hfile && instrument_source[0] != '\0' && strlen(instrument_source)) /* search in instrument source location */ { char *path_pos = NULL; /* extract path: searches for last file separator */ path_pos = strrchr(instrument_source, MC_PATHSEP_C); /* last PATHSEP */ if (path_pos) { long path_length = path_pos +1 - instrument_source; /* from start to path+sep */ if (path_length) { strncpy(dir, instrument_source, path_length); dir[path_length] = '\0'; snprintf(path, 1024, "%s%c%s", dir, MC_PATHSEP_C, File); hfile = fopen(path, Mode); } } } if (!hfile && instrument_exe[0] != '\0' && strlen(instrument_exe)) /* search in PWD instrument executable location */ { char *path_pos = NULL; /* extract path: searches for last file separator */ path_pos = strrchr(instrument_exe, MC_PATHSEP_C); /* last PATHSEP */ if (path_pos) { long path_length = path_pos +1 - instrument_exe; /* from start to path+sep */ if (path_length) { strncpy(dir, instrument_exe, path_length); dir[path_length] = '\0'; snprintf(path, 1024, "%s%c%s", dir, MC_PATHSEP_C, File); hfile = fopen(path, Mode); } } } if (!hfile) /* search in HOME or . */ { strcpy(dir, getenv("HOME") ? getenv("HOME") : "."); snprintf(path, 1024, "%s%c%s", dir, MC_PATHSEP_C, File); hfile = fopen(path, Mode); } if (!hfile) /* search in MCSTAS/data */ { strcpy(dir, getenv(FLAVOR_UPPER) ? getenv(FLAVOR_UPPER) : MCSTAS); snprintf(path, 1024, "%s%c%s%c%s", dir, MC_PATHSEP_C, "data", MC_PATHSEP_C, File); hfile = fopen(path, Mode); } if (!hfile) /* search in MVCSTAS/contrib */ { strcpy(dir, getenv(FLAVOR_UPPER) ? getenv(FLAVOR_UPPER) : MCSTAS); snprintf(path, 1024, "%s%c%s%c%s", dir, MC_PATHSEP_C, "contrib", MC_PATHSEP_C, File); hfile = fopen(path, Mode); } if(!hfile) { // fprintf(stderr, "Warning: Could not open input file '%s' (Open_File)\n", File); return (NULL); } } if (Path) strncpy(Path, path, 1024); return(hfile); } /* end Open_File */ /******************************************************************************* * long Read_Table(t_Table *Table, char *name, int block_number) * ACTION: read a single Table from a text file * input Table: pointer to a t_Table structure * name: file name from which table should be extracted * block_number: if the file does contain more than one * data block, then indicates which one to get (from index 1) * a 0 value means append/catenate all * return initialized single Table t_Table structure containing data, header, ... * number of read elements (-1: error, 0:header only) * The routine stores any line starting with '#', '%' and ';' into the header * File is opened, read and closed * Other lines are interpreted as numerical data, and stored. * Data block should be a rectangular matrix or vector. * Data block may be rebinned with Table_Rebin (also sort in ascending order) *******************************************************************************/ long Table_Read(t_Table *Table, char *File, long block_number) { /* reads all or a single data block from 'file' and returns a Table structure */ return(Table_Read_Offset(Table, File, block_number, NULL, 0)); } /* end Table_Read */ /******************************************************************************* * long Table_Read_Offset(t_Table *Table, char *name, int block_number, long *offset * long max_rows) * ACTION: read a single Table from a text file, starting at offset * Same as Table_Read(..) except: * input offset: pointer to an offset (*offset should be 0 at start) * max_rows: max number of data rows to read from file (0 means all) * return initialized single Table t_Table structure containing data, header, ... * number of read elements (-1: error, 0:header only) * updated *offset position (where end of reading occured) *******************************************************************************/ long Table_Read_Offset(t_Table *Table, char *File, long block_number, long *offset, long max_rows) { /* reads all/a data block in 'file' and returns a Table structure */ FILE *hfile; long nelements=0; long begin=0; long filesize=0; char name[1024]; char path[1024]; struct stat stfile; /*Need to be able to store the pointer*/ if (!Table) return(-1); /*TK: Valgrind flags it as usage of uninitialised variable: */ Table->quiet = 0; //if (offset && *offset) snprintf(name, 1024, "%s@%li", File, *offset); //else strncpy(name, File, 1024); if(offset && *offset){ begin=*offset; } /* Check if the table has already been read from file. * If so just reuse the table, if not (this is flagged by returning NULL * set up a new table and read the data into it */ t_Table *tab_p= Table_File_List_find(name,block_number,begin); if ( tab_p!=NULL ){ /*table was found in the Table_File_List*/ *Table=*tab_p; MPI_MASTER( if(Table->quiet<1) printf("Reusing input file '%s' (Table_Read_Offset)\n", name); ); return Table->rows*Table->columns; } /* open the file */ hfile = Open_File(File, "r", path); if (!hfile) return(-1); else { MPI_MASTER( if(Table->quiet<1) printf("Opening input file '%s' (Table_Read_Offset)\n", path); ); } /* read file state */ stat(path,&stfile); filesize = stfile.st_size; if (offset && *offset) fseek(hfile, *offset, SEEK_SET); begin = ftell(hfile); Table_Init(Table, 0, 0); /* read file content and set the Table */ nelements = Table_Read_Handle(Table, hfile, block_number, max_rows, name); Table->begin = begin; Table->end = ftell(hfile); Table->filesize = (filesize>0 ? filesize : 0); Table_Stat(Table); Table_File_List_store(Table); if (offset) *offset=Table->end; fclose(hfile); return(nelements); } /* end Table_Read_Offset */ /******************************************************************************* * long Table_Read_Offset_Binary(t_Table *Table, char *File, char *type, * long *offset, long rows, long columns) * ACTION: read a single Table from a binary file, starting at offset * Same as Table_Read_Offset(..) except that it handles binary files. * input type: may be "float"/NULL or "double" * offset: pointer to an offset (*offset should be 0 at start) * rows : number of rows (0 means read all) * columns: number of columns * return initialized single Table t_Table structure containing data, header, ... * number of read elements (-1: error, 0:header only) * updated *offset position (where end of reading occured) *******************************************************************************/ long Table_Read_Offset_Binary(t_Table *Table, char *File, char *type, long *offset, long rows, long columns) { /* reads all/a data block in binary 'file' and returns a Table structure */ long nelements, sizeofelement; long filesize; FILE *hfile; char path[1024]; struct stat stfile; double *data = NULL; double *datatmp = NULL; long i; long begin; if (!Table) return(-1); Table_Init(Table, 0, 0); /* open the file */ hfile = Open_File(File, "r", path); if (!hfile) return(-1); else { MPI_MASTER( if(Table->quiet<1) printf("Opening input file '%s' (Table_Read, Binary)\n", path); ); } /* read file state */ stat(File,&stfile); filesize = stfile.st_size; Table->filesize=filesize; /* read file content */ if (type && !strcmp(type,"double")) sizeofelement = sizeof(double); else sizeofelement = sizeof(float); if (offset && *offset) fseek(hfile, *offset, SEEK_SET); begin = ftell(hfile); if (rows && filesize > sizeofelement*columns*rows) nelements = columns*rows; else nelements = (long)(filesize/sizeofelement); if (!nelements || filesize <= *offset) return(0); data = (double*)malloc(nelements*sizeofelement); if (!data) { if(!(Table->quiet>1)) fprintf(stderr,"Error: allocating %ld elements for %s file '%s'. Too big (Table_Read_Offset_Binary).\n", nelements, type, File); exit(-1); } nelements = fread(data, sizeofelement, nelements, hfile); if (!data || !nelements) { if(!(Table->quiet>1)) fprintf(stderr,"Error: reading %ld elements from %s file '%s' (Table_Read_Offset_Binary)\n", nelements, type, File); exit(-1); } Table->begin = begin; Table->end = ftell(hfile); if (offset) *offset=Table->end; fclose(hfile); datatmp = (double*)realloc(data, (double)nelements*sizeofelement); if (!datatmp) { free(data); fprintf(stderr,"Error: reallocating %ld elements for %s file '%s'. Too big (Table_Read_Offset_Binary).\n", nelements, type, File); exit(-1); } else { data = datatmp; } /* copy file data into Table */ if (type && !strcmp(type,"double")) Table->data = data; else { float *s; double *dataf; s = (float*)data; dataf = (double*)malloc(sizeof(double)*nelements); if (!dataf) { fprintf(stderr, "Could not allocate data block of size %ld\n", nelements); exit(-1); } for (i=0; idata = dataf; } strncpy(Table->filename, File, 1024); Table->rows = nelements/columns; Table->columns = columns; Table->array_length = 1; Table->block_number = 1; Table_Stat(Table); return(nelements); } /* end Table_Read_Offset_Binary */ /******************************************************************************* * long Table_Read_Handle(t_Table *Table, FILE *fid, int block_number, long max_rows, char *name) * ACTION: read a single Table from a text file handle (private) * input Table:pointer to a t_Table structure * fid: pointer to FILE handle * block_number: if the file does contain more than one * data block, then indicates which one to get (from index 1) * a 0 value means append/catenate all * max_rows: if non 0, only reads that number of lines * return initialized single Table t_Table structure containing data, header, ... * modified Table t_Table structure containing data, header, ... * number of read elements (-1: error, 0:header only) * The routine stores any line starting with '#', '%' and ';' into the header * Other lines are interpreted as numerical data, and stored. * Data block should be a rectangular matrix or vector. * Data block may be rebined with Table_Rebin (also sort in ascending order) *******************************************************************************/ long Table_Read_Handle(t_Table *Table, FILE *hfile, long block_number, long max_rows, char *name) { /* reads all/a data block from 'file' handle and returns a Table structure */ double *Data = NULL; double *Datatmp = NULL; char *Header = NULL; char *Headertmp = NULL; long malloc_size = CHAR_BUF_LENGTH; long malloc_size_h = 4096; long Rows = 0, Columns = 0; long count_in_array = 0; long count_in_header = 0; long count_invalid = 0; long block_Current_index = 0; char flag_End_row_loop = 0; if (!Table) return(-1); Table_Init(Table, 0, 0); if (name && name[0]!='\0') strncpy(Table->filename, name, 1024); if(!hfile) { fprintf(stderr, "Error: File handle is NULL (Table_Read_Handle).\n"); return (-1); } Header = (char*) calloc(malloc_size_h, sizeof(char)); Data = (double*)calloc(malloc_size, sizeof(double)); if ((Header == NULL) || (Data == NULL)) { fprintf(stderr, "Error: Could not allocate Table and Header (Table_Read_Handle).\n"); return (-1); } int flag_In_array = 0; do { /* while (!flag_End_row_loop) */ char *line=malloc(1024*CHAR_BUF_LENGTH*sizeof(char)); long back_pos=0; /* ftell start of line */ if (!line) { fprintf(stderr,"Could not allocate line buffer\n"); exit(-1); } back_pos = ftell(hfile); if (fgets(line, 1024*CHAR_BUF_LENGTH, hfile) != NULL) { /* analyse line */ /* first skip blank and tabulation characters */ int i = strspn(line, " \t"); /* handle comments: stored in header */ if (NULL != strchr("#%;/", line[i])) { /* line is a comment */ count_in_header += strlen(line); if (count_in_header >= malloc_size_h) { /* if succeed and in array : add (and realloc if necessary) */ malloc_size_h = count_in_header+4096; char *Headertmp = (char*)realloc(Header, malloc_size_h*sizeof(char)); if(!Headertmp) { free(Header); fprintf(stderr, "Error: Could not reallocate Header (Table_Read_Handle).\n"); free(Header); return (-1); } else { Header = Headertmp; } } strncat(Header, line, 4096); flag_In_array=0; /* exit line and file if passed desired block */ if (block_number > 0 && block_number == block_Current_index) { flag_End_row_loop = 1; } /* Continue with next line */ continue; } if (strstr(line, "***")) { count_invalid++; /* Continue with next line */ continue; } /* get the number of columns splitting line with strtok */ char *lexeme; char flag_End_Line = 0; long block_Num_Columns = 0; const char seps[] = " ,;\t\n\r"; lexeme = strtok(line, seps); while (!flag_End_Line) { if ((lexeme != NULL) && (lexeme[0] != '\0')) { /* reading line: the token is not empty */ double X; int count=1; /* test if we have 'NaN','Inf' */ if (!strncasecmp(lexeme,"NaN",3)) X = 0; else if (!strncasecmp(lexeme,"Inf",3) || !strncasecmp(lexeme,"+Inf",4)) X = FLT_MAX; else if (!strncasecmp(lexeme,"-Inf",4)) X = -FLT_MAX; else count = sscanf(lexeme,"%lg",&X); if (count == 1) { /* reading line: the token is a number in the line */ if (!flag_In_array) { /* reading num: not already in a block: starts a new data block */ block_Current_index++; flag_In_array = 1; block_Num_Columns= 0; if (block_number > 0) { /* initialise a new data block */ Rows = 0; count_in_array = 0; } /* else append */ } /* reading num: all blocks or selected block */ if (flag_In_array && (block_number == 0 || block_number == block_Current_index)) { /* starting block: already the desired number of rows ? */ if (block_Num_Columns == 0 && max_rows > 0 && Rows >= max_rows) { flag_End_Line = 1; flag_End_row_loop = 1; flag_In_array = 0; /* reposition to begining of line (ignore line) */ fseek(hfile, back_pos, SEEK_SET); } else { /* store into data array */ if (count_in_array >= malloc_size) { /* realloc data buffer if necessary */ malloc_size = count_in_array*1.5; Datatmp = (double*) realloc(Data, malloc_size*sizeof(double)); if (Datatmp == NULL) { fprintf(stderr, "Error: Can not re-allocate memory %zi (Table_Read_Handle).\n", malloc_size*sizeof(double)); free(Data); return (-1); } else { Data=Datatmp; } } if (0 == block_Num_Columns) Rows++; Data[count_in_array] = X; count_in_array++; block_Num_Columns++; } } /* reading num: end if flag_In_array */ } /* end reading num: end if sscanf lexeme -> numerical */ else { /* reading line: the token is not numerical in that line. end block */ if (block_Current_index == block_number) { flag_End_Line = 1; flag_End_row_loop = 1; } else { flag_In_array = 0; flag_End_Line = 1; } } } else { /* no more tokens in line */ flag_End_Line = 1; if (block_Num_Columns > 0) Columns = block_Num_Columns; } // parse next token lexeme = strtok(NULL, seps); } /* while (!flag_End_Line) */ } /* end: if fgets */ else flag_End_row_loop = 1; /* else fgets : end of file */ free(line); } while (!flag_End_row_loop); /* end while flag_End_row_loop */ Table->block_number = block_number; Table->array_length = 1; // shrink header to actual size (plus terminating 0-byte) if (count_in_header) { Headertmp = (char*)realloc(Header, count_in_header*sizeof(char) + 1); if(!Headertmp) { fprintf(stderr, "Error: Could not shrink Header (Table_Read_Handle).\n"); free(Header); return (-1); } else { Header = Headertmp; } } Table->header = Header; if (count_in_array*Rows*Columns == 0) { Table->rows = 0; Table->columns = 0; free(Data); return (0); } if (Rows * Columns != count_in_array) { fprintf(stderr, "Warning: Read_Table :%s %s Data has %li values that should be %li x %li\n", (Table->filename[0] != '\0' ? Table->filename : ""), (!block_number ? " catenated" : ""), count_in_array, Rows, Columns); Columns = count_in_array; Rows = 1; } if (count_invalid) { fprintf(stderr,"Warning: Read_Table :%s %s Data has %li invalid lines (*****). Ignored.\n", (Table->filename[0] != '\0' ? Table->filename : ""), (!block_number ? " catenated" : ""), count_invalid); } Datatmp = (double*)realloc(Data, count_in_array*sizeof(double)); if(!Datatmp) { fprintf(stderr, "Error: Could reallocate Data block to %li doubles (Table_Read_Handle).\n", count_in_array); free(Data); return (-1); } else { Data = Datatmp; } Table->data = Data; Table->rows = Rows; Table->columns = Columns; return (count_in_array); } /* end Table_Read_Handle */ /******************************************************************************* * long Table_Rebin(t_Table *Table) * ACTION: rebin a single Table, sorting 1st column in ascending order * input Table: single table containing data. * The data block is reallocated in this process * return updated Table with increasing, evenly spaced first column (index 0) * number of data elements (-1: error, 0:empty data) *******************************************************************************/ long Table_Rebin(t_Table *Table) { double new_step=0; long i; /* performs linear interpolation on X axis (0-th column) */ if (!Table) return(-1); if (!Table->data || Table->rows*Table->columns == 0 || !Table->step_x) return(0); Table_Stat(Table); /* recompute statitstics and minimal step */ new_step = Table->step_x; /* minimal step in 1st column */ if (!(Table->constantstep)) /* not already evenly spaced */ { long Length_Table; double *New_Table; Length_Table = ceil(fabs(Table->max_x - Table->min_x)/new_step)+1; /*return early if the rebinned table will become too large*/ if (Length_Table > mcread_table_rebin_maxsize){ fprintf(stderr,"WARNING: (Table_Rebin): Rebinning table from %s would exceed 1M rows. Skipping.\n", Table->filename); return(Table->rows*Table->columns); } New_Table = (double*)malloc(Length_Table*Table->columns*sizeof(double)); if (!New_Table) { fprintf(stderr,"Could not allocate New_Table of size %ld x %ld\n", Length_Table, Table->columns); exit(-1); } for (i=0; i < Length_Table; i++) { long j; double X; X = Table->min_x + i*new_step; New_Table[i*Table->columns] = X; for (j=1; j < Table->columns; j++) New_Table[i*Table->columns+j] = Table_Value(*Table, X, j); } /* end for i */ Table->rows = Length_Table; Table->step_x = new_step; Table->max_x = Table->min_x + (Length_Table-1)*new_step; /*max might not be the same anymore * Use Length_Table -1 since the first and laset rows are the limits of the defined interval.*/ free(Table->data); Table->data = New_Table; Table->constantstep=1; } /* end else (!constantstep) */ return (Table->rows*Table->columns); } /* end Table_Rebin */ /******************************************************************************* * double Table_Index(t_Table Table, long i, long j) * ACTION: read an element [i,j] of a single Table * input Table: table containing data * i : index of row (0:Rows-1) * j : index of column (0:Columns-1) * return Value = data[i][j] * Returns Value from the i-th row, j-th column of Table * Tests are performed on indexes i,j to avoid errors *******************************************************************************/ #ifndef MIN #define MIN(a, b) (((a) < (b)) ? (a) : (b)) #endif #ifndef MAX #define MAX(a, b) (((a) > (b)) ? (a) : (b)) #endif double Table_Index(t_Table Table, long i, long j) { long AbsIndex; if (Table.rows == 1 || Table.columns == 1) { /* vector */ j = MIN(MAX(0, i+j), Table.columns*Table.rows - 1); i = 0; } else { /* matrix */ i = MIN(MAX(0, i), Table.rows - 1); j = MIN(MAX(0, j), Table.columns - 1); } /* handle vectors specifically */ AbsIndex = i*(Table.columns)+j; if (Table.data != NULL) return (Table.data[AbsIndex]); else return 0; } /* end Table_Index */ /******************************************************************************* * void Table_SetElement(t_Table *Table, long i, long j, double value) * ACTION: set an element [i,j] of a single Table * input Table: table containing data * i : index of row (0:Rows-1) * j : index of column (0:Columns-1) * value = data[i][j] * Returns 0 in case of error * Tests are performed on indexes i,j to avoid errors *******************************************************************************/ int Table_SetElement(t_Table *Table, long i, long j, double value) { long AbsIndex; if (Table->rows == 1 || Table->columns == 1) { /* vector */ j = MIN(MAX(0, i+j), Table->columns*Table->rows - 1); i=0; } else { /* matrix */ i = MIN(MAX(0, i), Table->rows - 1); j = MIN(MAX(0, j), Table->columns - 1); } AbsIndex = i*(Table->columns)+j; if (Table->data != NULL) { Table->data[AbsIndex] = value; return 1; } return 0; } /* end Table_SetElement */ /******************************************************************************* * double Table_Value(t_Table Table, double X, long j) * ACTION: read column [j] of a single Table at row which 1st column is X * input Table: table containing data. * X : data value in the first column (index 0) * j : index of column from which is extracted the Value (0:Columns-1) * return Value = data[index for X][j] with linear interpolation * Returns Value from the j-th column of Table corresponding to the * X value for the 1st column (index 0) * Tests are performed (within Table_Index) on indexes i,j to avoid errors * NOTE: data should rather be monotonic, and evenly sampled. *******************************************************************************/ double Table_Value(t_Table Table, double X, long j) { long Index = -1; double X1=0, Y1=0, X2=0, Y2=0; double ret=0; if (X > Table.max_x) return Table_Index(Table,Table.rows-1 ,j); if (X < Table.min_x) return Table_Index(Table,0 ,j); // Use constant-time lookup when possible if(Table.constantstep) { Index = (long)floor( (X - Table.min_x) / (Table.max_x - Table.min_x) * (Table.rows-1)); X1 = Table_Index(Table,Index-1,0); X2 = Table_Index(Table,Index ,0); } // Use binary search on large, monotonic tables else if(Table.monotonic && Table.rows > 100) { long left = Table.min_x; long right = Table.max_x; while (!((X1 <= X) && (X < X2)) && (right - left > 1)) { Index = (left + right) / 2; X1 = Table_Index(Table, Index-1, 0); X2 = Table_Index(Table, Index, 0); if (X < X1) { right = Index; } else { left = Index; } } } // Fall back to linear search, if no-one else has set X1, X2 correctly if (!((X1 <= X) && (X < X2))) { /* look for index surrounding X in the table -> Index */ for (Index=1; Index <= Table.rows-1; Index++) { X1 = Table_Index(Table, Index-1,0); X2 = Table_Index(Table, Index ,0); if ((X1 <= X) && (X < X2)) break; } /* end for Index */ } Y1 = Table_Index(Table,Index-1, j); Y2 = Table_Index(Table,Index , j); #ifdef OPENACC #define strcmp(a,b) str_comp(a,b) #endif if (!strcmp(Table.method,"linear")) { ret = Table_Interp1d(X, X1,Y1, X2,Y2); } else if (!strcmp(Table.method,"nearest")) { ret = Table_Interp1d_nearest(X, X1,Y1, X2,Y2); } #ifdef OPENACC #ifdef strcmp #undef strcmp #endif #endif return ret; } /* end Table_Value */ /******************************************************************************* * double Table_Value2d(t_Table Table, double X, double Y) * ACTION: read element [X,Y] of a matrix Table * input Table: table containing data. * X : row index, may be non integer * Y : column index, may be non integer * return Value = data[index X][index Y] with bi-linear interpolation * Returns Value for the indices [X,Y] * Tests are performed (within Table_Index) on indexes i,j to avoid errors * NOTE: data should rather be monotonic, and evenly sampled. *******************************************************************************/ double Table_Value2d(t_Table Table, double X, double Y) { long x1,x2,y1,y2; double z11,z12,z21,z22; double ret=0; x1 = (long)floor(X); y1 = (long)floor(Y); if (x1 > Table.rows-1 || x1 < 0) { x2 = x1; } else { x2 = x1 + 1; } if (y1 > Table.columns-1 || y1 < 0) { y2 = y1; } else { y2 = y1 + 1; } z11 = Table_Index(Table, x1, y1); if (y2 != y1) z12=Table_Index(Table, x1, y2); else z12 = z11; if (x2 != x1) z21=Table_Index(Table, x2, y1); else z21 = z11; if (y2 != y1) z22=Table_Index(Table, x2, y2); else z22 = z21; #ifdef OPENACC #define strcmp(a,b) str_comp(a,b) #endif if (!strcmp(Table.method,"linear")) ret = Table_Interp2d(X,Y, x1,y1,x2,y2, z11,z12,z21,z22); #ifdef OPENACC #ifdef strcmp #undef strcmp #endif #endif else { if (fabs(X-x1) < fabs(X-x2)) { if (fabs(Y-y1) < fabs(Y-y2)) ret = z11; else ret = z12; } else { if (fabs(Y-y1) < fabs(Y-y2)) ret = z21; else ret = z22; } } return ret; } /* end Table_Value2d */ /******************************************************************************* * void Table_Free(t_Table *Table) * ACTION: free a single Table. First Call Table_File_list_gc. If this returns * non-zero it means there are more refernces to the table, and so the table * should not bee freed. * return: empty Table *******************************************************************************/ void Table_Free(t_Table *Table) { if( !Table_File_List_gc(Table) ){ return; } if (!Table) return; if (Table->data != NULL) free(Table->data); if (Table->header != NULL) free(Table->header); Table->data = NULL; Table->header = NULL; } /* end Table_Free */ /****************************************************************************** * void Table_Info(t_Table Table) * ACTION: print informations about a single Table *******************************************************************************/ long Table_Info(t_Table Table) { char buffer[256]; long ret=0; if (!Table.block_number) strcpy(buffer, "catenated"); else sprintf(buffer, "block %li", Table.block_number); printf("Table from file '%s' (%s)", Table.filename[0] != '\0' ? Table.filename : "", buffer); if ((Table.data != NULL) && (Table.rows*Table.columns)) { printf(" is %li x %li ", Table.rows, Table.columns); if (Table.rows*Table.columns > 1) printf("(x=%g:%g)", Table.min_x, Table.max_x); else printf("(x=%g) ", Table.min_x); ret = Table.rows*Table.columns; if (Table.monotonic) printf(", monotonic"); if (Table.constantstep) printf(", constant step"); printf(". interpolation: %s\n", Table.method); } else printf(" is empty.\n"); if (Table.header && strlen(Table.header)) { char *header; int i; header = malloc(80); if (!header) return(ret); for (i=0; i<80; header[i++]=0); strncpy(header, Table.header, 75); if (strlen(Table.header) > 75) { strcat( header, " ..."); } for (i=0; iheader = NULL; Table->filename[0]= '\0'; Table->filesize= 0; Table->min_x = 0; Table->max_x = 0; Table->step_x = 0; Table->block_number = 0; Table->array_length = 0; Table->monotonic = 0; Table->constantstep = 0; Table->begin = 0; Table->end = 0; strcpy(Table->method,"linear"); if (rows*columns >= 1) { data = (double*)malloc(rows*columns*sizeof(double)); if (data) for (i=0; i < rows*columns; data[i++]=0); else { if(Table->quiet<2) fprintf(stderr,"Error: allocating %ld double elements." "Too big (Table_Init).\n", rows*columns); rows = columns = 0; } } Table->rows = (rows >= 1 ? rows : 0); Table->columns = (columns >= 1 ? columns : 0); Table->data = data; return(Table->rows*Table->columns); } /* end Table_Init */ /****************************************************************************** * long Table_Write(t_Table Table, char *file, x1,x2, y1,y2) * ACTION: write a Table to disk (ascii). * when x1=x2=0 or y1=y2=0, the table default limits are used. * return: 0=all is fine, non-0: error *******************************************************************************/ MCDETECTOR Table_Write(t_Table Table, char *file, char *xl, char *yl, double x1, double x2, double y1, double y2) { MCDETECTOR detector; if ((Table.data == NULL) && (Table.rows*Table.columns)) { detector.m = 0; detector.xmin = 0; detector.xmax = 0; detector.ymin = 0; detector.ymax = 0; detector.zmin = 0; detector.zmax = 0; detector.intensity = 0; detector.error = 0; detector.events = 0; detector.min = 0; detector.max = 0; detector.mean = 0; detector.centerX = 0; detector.halfwidthX = 0; detector.centerY = 0; detector.halfwidthY = 0; detector.rank = 0; detector.istransposed = 0; detector.n = 0; detector.p = 0; detector.date_l = 0; detector.p0 = NULL; detector.p1 = NULL; detector.p2 = NULL; return(detector); /* Table is empty - nothing to do */ } if (!x1 && !x2) { x1 = Table.min_x; x2 = Table.max_x; } if (!y1 && !y2) { y1 = 1; y2 = Table.columns; } /* transfer content of the Table into a 2D detector */ Coords coords = { 0, 0, 0}; Rotation rot; rot_set_rotation(rot, 0, 0, 0); if (Table.rows == 1 || Table.columns == 1) { detector = mcdetector_out_1D(Table.filename, xl ? xl : "", yl ? yl : "", "x", x1, x2, Table.rows * Table.columns, NULL, Table.data, NULL, file, file, coords, rot,9999); } else { detector = mcdetector_out_2D(Table.filename, xl ? xl : "", yl ? yl : "", x1, x2, y1, y2, Table.rows, Table.columns, NULL, Table.data, NULL, file, file, coords, rot,9999); } return(detector); } /****************************************************************************** * void Table_Stat(t_Table *Table) * ACTION: computes min/max/mean step of 1st column for a single table (private) * return: updated Table *******************************************************************************/ static void Table_Stat(t_Table *Table) { long i; double max_x, min_x; double row=1; char monotonic=1; char constantstep=1; double step=0; long n; if (!Table) return; if (!Table->rows || !Table->columns) return; if (Table->rows == 1) row=0; // single row max_x = -FLT_MAX; min_x = FLT_MAX; n = (row ? Table->rows : Table->columns); /* get min and max of first column/vector */ for (i=0; i < n; i++) { double X; X = (row ? Table_Index(*Table,i ,0) : Table_Index(*Table,0, i)); if (X < min_x) min_x = X; if (X > max_x) max_x = X; } /* for */ /* test for monotonicity and constant step if the table is an XY or single vector */ if (n > 1) { /* mean step */ step = (max_x - min_x)/(n-1); /* now test if table is monotonic on first column, and get minimal step size */ for (i=0; i < n-1; i++) { double X, diff;; X = (row ? Table_Index(*Table,i ,0) : Table_Index(*Table,0, i)); diff = (row ? Table_Index(*Table,i+1,0) : Table_Index(*Table,0, i+1)) - X; if (diff && fabs(diff) < fabs(step)) step = diff; /* change sign ? */ if ((max_x - min_x)*diff < 0 && monotonic) monotonic = 0; } /* end for */ /* now test if steps are constant within READ_TABLE_STEPTOL */ if(!step){ /*means there's a disconitnuity -> not constantstep*/ constantstep=0; }else if (monotonic) { for (i=0; i < n-1; i++) { double X, diff; X = (row ? Table_Index(*Table,i ,0) : Table_Index(*Table,0, i)); diff = (row ? Table_Index(*Table,i+1,0) : Table_Index(*Table,0, i+1)) - X; if ( fabs(step)*(1+READ_TABLE_STEPTOL) < fabs(diff) || fabs(diff) < fabs(step)*(1-READ_TABLE_STEPTOL) ) { constantstep = 0; break; } } } } Table->step_x= step; Table->max_x = max_x; Table->min_x = min_x; Table->monotonic = monotonic; Table->constantstep = constantstep; } /* end Table_Stat */ /****************************************************************************** * t_Table *Table_Read_Array(char *File, long *blocks) * ACTION: read as many data blocks as available, iteratively from file * return: initialized t_Table array, last element is an empty Table. * the number of extracted blocks in non NULL pointer *blocks *******************************************************************************/ t_Table *Table_Read_Array(char *File, long *blocks) { t_Table *Table_Array = NULL; t_Table *Table_Arraytmp = NULL; long offset=0; long block_number=0; long allocated=256; long nelements=1; /* first allocate an initial empty t_Table array */ Table_Array = (t_Table *)malloc(allocated*sizeof(t_Table)); if (!Table_Array) { fprintf(stderr, "Error: Can not allocate memory %zi (Table_Read_Array).\n", allocated*sizeof(t_Table)); *blocks = 0; return (NULL); } while (nelements > 0) { t_Table Table; /* if ok, set t_Table block number else exit loop */ block_number++; Table.block_number = block_number; /* access file at offset and get following block. Block number is from the set offset * hence the hardcoded 1 - i.e. the next block counted from offset.*/ nelements = Table_Read_Offset(&Table, File, 1, &offset,0); /*if the block is empty - don't store it*/ if (nelements>0){ /* if t_Table array is not long enough, expand and realocate */ if (block_number >= allocated-1) { allocated += 256; Table_Arraytmp = (t_Table *)realloc(Table_Array, allocated*sizeof(t_Table)); if (!Table_Arraytmp) { fprintf(stderr, "Error: Can not re-allocate memory %zi (Table_Read_Array).\n", allocated*sizeof(t_Table)); free(Table_Array); *blocks = 0; return (NULL); } else { Table_Array = Table_Arraytmp; } } /* store it into t_Table array */ //snprintf(Table.filename, 1024, "%s#%li", File, block_number-1); Table_Array[block_number-1] = Table; } /* continues until we find an empty block */ } /* send back number of extracted blocks */ if (blocks) *blocks = block_number-1; /* now store total number of elements in Table array */ for (offset=0; offset < block_number; Table_Array[offset++].array_length = block_number-1); return(Table_Array); } /* end Table_Read_Array */ /******************************************************************************* * void Table_Free_Array(t_Table *Table) * ACTION: free a Table array *******************************************************************************/ void Table_Free_Array(t_Table *Table) { long index; if (!Table) return; for (index=0;index < Table[0].array_length; index++){ Table_Free(&Table[index]); } free(Table); } /* end Table_Free_Array */ /****************************************************************************** * long Table_Info_Array(t_Table *Table) * ACTION: print informations about a Table array * return: number of elements in the Table array *******************************************************************************/ long Table_Info_Array(t_Table *Table) { long index=0; if (!Table) return(-1); while (index < Table[index].array_length && (Table[index].data || Table[index].header) && (Table[index].rows*Table[index].columns) ) { Table_Info(Table[index]); index++; } printf("This Table array contains %li elements\n", index); return(index); } /* end Table_Info_Array */ /****************************************************************************** * char **Table_ParseHeader(char *header, symbol1, symbol2, ..., NULL) * ACTION: search for char* symbols in header and return their value or NULL * the search is not case sensitive. * Last argument MUST be NULL * return: array of char* with line following each symbol, or NULL if not found *******************************************************************************/ #ifndef MyNL_ARGMAX #define MyNL_ARGMAX 50 #endif char **Table_ParseHeader_backend(char *header, ...){ va_list ap; char exit_flag=0; int counter =0; char **ret =NULL; if (!header || header[0]=='\0') return(NULL); ret = (char**)calloc(MyNL_ARGMAX, sizeof(char*)); if (!ret) { printf("Table_ParseHeader: Cannot allocate %i values array for Parser (Table_ParseHeader).\n", MyNL_ARGMAX); return(NULL); } for (counter=0; counter < MyNL_ARGMAX; ret[counter++] = NULL); counter=0; va_start(ap, header); while(!exit_flag && counter < MyNL_ARGMAX-1) { char *arg_char=NULL; char *pos =NULL; /* get variable argument value as a char */ arg_char = va_arg(ap, char *); if (!arg_char || arg_char[0]=='\0'){ exit_flag = 1; break; } /* search for the symbol in the header */ pos = (char*)strcasestr(header, arg_char); if (pos) { char *eol_pos; eol_pos = strchr(pos+strlen(arg_char), '\n'); if (!eol_pos) eol_pos = strchr(pos+strlen(arg_char), '\r'); if (!eol_pos) eol_pos = pos+strlen(pos)-1; ret[counter] = (char*)malloc(eol_pos - pos); if (!ret[counter]) { printf("Table_ParseHeader: Cannot allocate value[%i] array for Parser searching for %s (Table_ParseHeader).\n", counter, arg_char); exit_flag = 1; break; } strncpy(ret[counter], pos+strlen(arg_char), eol_pos - pos - strlen(arg_char)); ret[counter][eol_pos - pos - strlen(arg_char)]='\0'; } counter++; } va_end(ap); return(ret); } /* Table_ParseHeader */ /****************************************************************************** * double Table_Interp1d(x, x1, y1, x2, y2) * ACTION: interpolates linearly at x between y1=f(x1) and y2=f(x2) * return: y=f(x) value *******************************************************************************/ double Table_Interp1d(double x, double x1, double y1, double x2, double y2) { double slope; if (x2 == x1) return (y1+y2)/2; if (y1 == y2) return y1; slope = (y2 - y1)/(x2 - x1); return y1+slope*(x - x1); } /* Table_Interp1d */ /****************************************************************************** * double Table_Interp1d_nearest(x, x1, y1, x2, y2) * ACTION: table lookup with nearest method at x between y1=f(x1) and y2=f(x2) * return: y=f(x) value *******************************************************************************/ double Table_Interp1d_nearest(double x, double x1, double y1, double x2, double y2) { if (fabs(x-x1) < fabs(x-x2)) return (y1); else return(y2); } /* Table_Interp1d_nearest */ /****************************************************************************** * double Table_Interp2d(x,y, x1,y1, x2,y2, z11,z12,z21,z22) * ACTION: interpolates bi-linearly at (x,y) between z1=f(x1,y1) and z2=f(x2,y2) * return: z=f(x,y) value * x,y | x1 x2 * ---------------- * y1 | z11 z21 * y2 | z12 z22 *******************************************************************************/ double Table_Interp2d(double x, double y, double x1, double y1, double x2, double y2, double z11, double z12, double z21, double z22) { double ratio_x, ratio_y; if (x2 == x1) return Table_Interp1d(y, y1,z11, y2,z12); if (y1 == y2) return Table_Interp1d(x, x1,z11, x2,z21); ratio_y = (y - y1)/(y2 - y1); ratio_x = (x - x1)/(x2 - x1); return (1-ratio_x)*(1-ratio_y)*z11 + ratio_x*(1-ratio_y)*z21 + ratio_x*ratio_y*z22 + (1-ratio_x)*ratio_y*z12; } /* Table_Interp2d */ /* end of read_table-lib.c */ #endif // READ_TABLE_LIB_C #ifndef SOURCE_GEN_DEF #define SOURCE_GEN_DEF /******************************************************************************* * str_dup_numeric: replaces non 'valid name' chars with spaces *******************************************************************************/ char *str_dup_numeric(char *orig) { long i; if (!orig || !strlen(orig)) return(NULL); for (i=0; i < strlen(orig); i++) { if ( (orig[i] > 122) || (orig[i] < 32) || (strchr("!\"#$%&'()*,:;<=>?@[\\]^`/ ", orig[i]) != NULL) ) { orig[i] = ' '; } } orig[i] = '\0'; /* now skip spaces */ for (i=0; i < strlen(orig); i++) { if (*orig == ' ') orig++; else break; } return(orig); } /* str_dup_numeric */ /* A normalised Maxwellian distribution : Integral over all l = 1 */ #pragma acc routine seq double SG_Maxwell(double l, double temp) { double a=949.0/temp; return 2*a*a*exp(-a/(l*l))/(l*l*l*l*l); } #endif /* Shared user declarations for all components types 'Monitor_nD'. */ /******************************************************************************* * * McStas, neutron ray-tracing package * Copyright 1997-2002, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Library: share/monitor_nd-lib.h * * %Identification * Written by: EF * Date: Aug 28, 2002 * Origin: ILL * Modified by: TW, Nov 2020: introduced user doubles * Release: McStas 1.6 * Version: $Revision$ * * This file is to be imported by the monitor_nd related components * It handles some shared functions. * * Usage: within SHARE * %include "monitor_nd-lib" * *******************************************************************************/ #ifndef MONITOR_ND_LIB_H #define MONITOR_ND_LIB_H "$Revision$" #define MONnD_COORD_NMAX 30 /* max number of variables to record */ typedef struct MonitornD_Defines { int COORD_NONE ; int COORD_X ; int COORD_Y ; int COORD_Z ; int COORD_RADIUS; int COORD_VX ; int COORD_VY ; int COORD_VZ ; int COORD_V ; int COORD_T ; int COORD_P ; int COORD_SX ; int COORD_SY ; int COORD_SZ ; int COORD_KX ; int COORD_KY ; int COORD_KZ ; int COORD_K ; int COORD_ENERGY; int COORD_LAMBDA; int COORD_KXY ; int COORD_KYZ ; int COORD_KXZ ; int COORD_VXY ; int COORD_VYZ ; int COORD_VXZ ; int COORD_HDIV ; int COORD_VDIV ; int COORD_ANGLE ; int COORD_NCOUNT; int COORD_THETA ; int COORD_PHI ; int COORD_USER1 ; int COORD_USER2 ; int COORD_USER3 ; int COORD_USERDOUBLE0 ; int COORD_USERDOUBLE1 ; int COORD_USERDOUBLE2 ; int COORD_USERDOUBLE3 ; int COORD_USERDOUBLE4 ; int COORD_USERDOUBLE5 ; int COORD_USERDOUBLE6 ; int COORD_USERDOUBLE7 ; int COORD_USERDOUBLE8 ; int COORD_USERDOUBLE9 ; int COORD_USERDOUBLE10 ; int COORD_USERDOUBLE11 ; int COORD_USERDOUBLE12 ; int COORD_USERDOUBLE13 ; int COORD_USERDOUBLE14 ; int COORD_USERDOUBLE15 ; int COORD_XY ; int COORD_XZ ; int COORD_YZ ; int COORD_PIXELID; /* token modifiers */ int COORD_VAR ; /* next token should be a variable or normal option */ int COORD_MIN ; /* next token is a min value */ int COORD_MAX ; /* next token is a max value */ int COORD_DIM ; /* next token is a bin value */ int COORD_FIL ; /* next token is a filename */ int COORD_EVNT ; /* next token is a buffer size value */ int COORD_3HE ; /* next token is a 3He pressure value */ int COORD_LOG ; /* next variable will be in log scale */ int COORD_ABS ; /* next variable will be in abs scale */ int COORD_SIGNAL; /* next variable will be the signal var */ int COORD_AUTO ; /* set auto limits */ char TOKEN_DEL[32]; /* token separators */ char SHAPE_SQUARE; /* shape of the monitor */ char SHAPE_DISK ; char SHAPE_SPHERE; char SHAPE_CYLIND; char SHAPE_BANANA; /* cylinder without top/bottom, on restricted angular area */ char SHAPE_BOX ; char SHAPE_PREVIOUS; char SHAPE_OFF; } MonitornD_Defines_type; typedef struct MonitornD_Variables { double area; double Sphere_Radius ; double Cylinder_Height ; char Flag_With_Borders ; /* 2 means xy borders too */ char Flag_List ; /* 1 store 1 buffer, 2 is list all, 3 list all+append */ char Flag_nexusbins ; /* Only relevant in NeXus mode. -1 fully disable, 0 store BINS arrays if list mode, 1 store always */ char Flag_Multiple ; /* 1 when n1D, 0 for 2D */ char Flag_Verbose ; int Flag_Shape ; char Flag_Auto_Limits ; /* get limits from first Buffer */ char Flag_Absorb ; /* monitor is also a slit */ char Flag_per_cm2 ; /* flux is per cm2 */ char Flag_log ; /* log10 of the flux */ char Flag_parallel ; /* set neutron state back after detection (parallel components) */ char Flag_Binary_List ; char Flag_capture ; /* lambda monitor with lambda/lambda(2200m/s = 1.7985 Angs) weightening */ int Flag_signal ; /* 0:monitor p, else monitor a mean value */ int Flag_mantid ; /* 0:normal monitor, else do mantid-event specifics */ int Flag_OFF ; /* Flag to indicate external geometry from OFF file */ long long OFF_polyidx; /* When intersection is done externally by off_intersect, this gives the polygon number, i.e. pixel index */ unsigned long Coord_Number ; /* total number of variables to monitor, plus intensity (0) */ unsigned long Coord_NumberNoPixel; /* same but without counting PixelID */ unsigned long Buffer_Block ; /* Buffer size for list or auto limits */ long long Neutron_Counter ; /* event counter, simulation total counts is mcget_ncount() */ unsigned long Buffer_Counter ; /* index in Buffer size (for realloc) */ unsigned long Buffer_Size ; int Coord_Type[MONnD_COORD_NMAX]; /* type of variable */ char Coord_Label[MONnD_COORD_NMAX][30]; /* label of variable */ char Coord_Var[MONnD_COORD_NMAX][30]; /* short id of variable */ long Coord_Bin[MONnD_COORD_NMAX]; /* bins of variable array */ long Coord_BinProd[MONnD_COORD_NMAX]; /* product of bins of variable array */ double Coord_Min[MONnD_COORD_NMAX]; double Coord_Max[MONnD_COORD_NMAX]; char Monitor_Label[MONnD_COORD_NMAX*30];/* Label for monitor */ char Mon_File[128]; /* output file name */ /* these don't seem to be used anymore as they are superseded by _particle double cx, cy, cz; double cvx, cvy, cvz; double ckx, cky, ckz; double csx, csy, csz; double cEx, cEy, cEz; double cs1, cs2, ct, cphi, cp; */ double He3_pressure; char Flag_UsePreMonitor ; /* use a previously stored neutron parameter set */ char UserName1[128]; char UserName2[128]; char UserName3[128]; char UserVariable1[128]; char UserVariable2[128]; char UserVariable3[128]; double UserDoubles[16]; char option[CHAR_BUF_LENGTH]; long long int Nsum; double psum, p2sum; double **Mon2D_N; double **Mon2D_p; double **Mon2D_p2; double *Mon2D_Buffer; unsigned long PixelID; double mxmin,mxmax,mymin,mymax,mzmin,mzmax; double mean_dx, mean_dy, min_x, min_y, max_x, max_y, mean_p; char compcurname[128]; Coords compcurpos; Rotation compcurrot; int compcurindex; } MonitornD_Variables_type; /* monitor_nd-lib function prototypes */ /* ========================================================================= */ void Monitor_nD_Init(MonitornD_Defines_type *, MonitornD_Variables_type *, MCNUM, MCNUM, MCNUM, MCNUM, MCNUM, MCNUM, MCNUM, MCNUM, MCNUM, int, int); #pragma acc routine int Monitor_nD_Trace(MonitornD_Defines_type *, MonitornD_Variables_type *, _class_particle* _particle); MCDETECTOR Monitor_nD_Save(MonitornD_Defines_type *, MonitornD_Variables_type *); void Monitor_nD_Finally(MonitornD_Defines_type *, MonitornD_Variables_type *); void Monitor_nD_McDisplay(MonitornD_Defines_type *, MonitornD_Variables_type *); #endif /* end of monitor_nd-lib.h */ /******************************************************************************* * * McStas, neutron ray-tracing package * Copyright 1997-2002, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Library: share/monitor_nd-lib.c * * %Identification * Written by: EF * Date: Aug 28, 2002 * Origin: ILL * Modified by: TW, Nov 2020: introduced user doubles * Release: McStas 1.6 * Version: $Revision$ * * This file is to be imported by the monitor_nd related components * It handles some shared functions. Embedded within instrument in runtime mode. * * Usage: within SHARE * %include "monitor_nd-lib" * *******************************************************************************/ #ifndef MONITOR_ND_LIB_H #error McStas : please import this library with %include "monitor_nd-lib" #endif /* ========================================================================= */ /* Monitor_nD_Init: this routine is used to parse options */ /* ========================================================================= */ void Monitor_nD_Init(MonitornD_Defines_type *DEFS, MonitornD_Variables_type *Vars, MCNUM xwidth, MCNUM yheight, MCNUM zdepth, MCNUM xmin, MCNUM xmax, MCNUM ymin, MCNUM ymax, MCNUM zmin, MCNUM zmax, int offflag, int nexusbins) { long carg = 1; char *option_copy, *token; char Flag_New_token = 1; char Flag_End = 1; char Flag_All = 0; char Flag_No = 0; char Flag_abs = 0; int Flag_auto = 0; /* -1: all, 1: the current variable */ int Set_Vars_Coord_Type; char Set_Vars_Coord_Label[64]; char Set_Vars_Coord_Var[64]; char Short_Label[MONnD_COORD_NMAX][64]; int Set_Coord_Mode; long i=0, j=0; double lmin, lmax, XY=0; long t; int N_spatial_dims=0; t = (long)time(NULL); /* initialize DEFS */ /* Variables to monitor */ DEFS->COORD_NONE =0; DEFS->COORD_X =1; DEFS->COORD_Y =2; DEFS->COORD_Z =3; DEFS->COORD_RADIUS =19; DEFS->COORD_VX =4; DEFS->COORD_VY =5; DEFS->COORD_VZ =6; DEFS->COORD_V =16; DEFS->COORD_T =7; DEFS->COORD_P =8; DEFS->COORD_SX =9; DEFS->COORD_SY =10; DEFS->COORD_SZ =11; DEFS->COORD_KX =12; DEFS->COORD_KY =13; DEFS->COORD_KZ =14; DEFS->COORD_K =15; DEFS->COORD_ENERGY =17; DEFS->COORD_LAMBDA =18; DEFS->COORD_HDIV =20; DEFS->COORD_VDIV =21; DEFS->COORD_ANGLE =22; DEFS->COORD_NCOUNT =23; DEFS->COORD_THETA =24; DEFS->COORD_PHI =25; DEFS->COORD_USER1 =26; DEFS->COORD_USER2 =27; DEFS->COORD_USER3 =28; DEFS->COORD_USERDOUBLE0=39; DEFS->COORD_USERDOUBLE1=40; DEFS->COORD_USERDOUBLE2=41; DEFS->COORD_USERDOUBLE3=42; DEFS->COORD_USERDOUBLE4=43; DEFS->COORD_USERDOUBLE5=44; DEFS->COORD_USERDOUBLE6=45; DEFS->COORD_USERDOUBLE7=46; DEFS->COORD_USERDOUBLE8=47; DEFS->COORD_USERDOUBLE9=48; DEFS->COORD_USERDOUBLE10=49; DEFS->COORD_USERDOUBLE11=50; DEFS->COORD_USERDOUBLE12=51; DEFS->COORD_USERDOUBLE13=52; DEFS->COORD_USERDOUBLE14=53; DEFS->COORD_USERDOUBLE15=54; DEFS->COORD_XY =37; DEFS->COORD_YZ =31; DEFS->COORD_XZ =32; DEFS->COORD_VXY =30; DEFS->COORD_VYZ =34; DEFS->COORD_VXZ =36; DEFS->COORD_KXY =29; DEFS->COORD_KYZ =33; DEFS->COORD_KXZ =35; DEFS->COORD_PIXELID=38; /* token modifiers */ DEFS->COORD_VAR =0; /* next token should be a variable or normal option */ DEFS->COORD_MIN =1; /* next token is a min value */ DEFS->COORD_MAX =2; /* next token is a max value */ DEFS->COORD_DIM =3; /* next token is a bin value */ DEFS->COORD_FIL =4; /* next token is a filename */ DEFS->COORD_EVNT =5; /* next token is a buffer size value */ DEFS->COORD_3HE =6; /* next token is a 3He pressure value */ DEFS->COORD_LOG =64; /* next variable will be in log scale */ DEFS->COORD_ABS =128; /* next variable will be in abs scale */ DEFS->COORD_SIGNAL =256; /* next variable will be the signal var */ DEFS->COORD_AUTO =512; /* set auto limits */ strcpy(DEFS->TOKEN_DEL, " =,;[](){}:"); /* token separators */ DEFS->SHAPE_SQUARE =0; /* shape of the monitor */ DEFS->SHAPE_DISK =1; DEFS->SHAPE_SPHERE =2; DEFS->SHAPE_CYLIND =3; DEFS->SHAPE_BANANA =4; DEFS->SHAPE_BOX =5; DEFS->SHAPE_PREVIOUS=6; DEFS->SHAPE_OFF=7; Vars->Sphere_Radius = 0; Vars->Cylinder_Height = 0; Vars->Flag_With_Borders = 0; /* 2 means xy borders too */ Vars->Flag_List = 0; /* 1=store 1 buffer, 2=list all, 3=re-use buffer */ Vars->Flag_nexusbins = 0; /* NeXus only: -1=disable, 0=enable for list mode, 1=enable for all monitors */ /* (Actual control of variable happens in comp INIT) */ Vars->Flag_Multiple = 0; /* 1 when n1D, 0 for 2D */ Vars->Flag_Verbose = 0; Vars->Flag_Shape = DEFS->SHAPE_SQUARE; Vars->Flag_Auto_Limits = 0; /* get limits from first Buffer */ Vars->Flag_Absorb = 0; /* monitor is also a slit */ Vars->Flag_per_cm2 = 0; /* flux is per cm2 */ Vars->Flag_log = 0; /* log10 of the flux */ Vars->Flag_parallel = 0; /* set neutron state back after detection (parallel components) */ Vars->Flag_Binary_List = 0; /* save list as a binary file (smaller) */ Vars->Coord_Number = 0; /* total number of variables to monitor, plus intensity (0) */ Vars->Coord_NumberNoPixel=0; /* same but without counting PixelID */ Vars->Buffer_Block = MONND_BUFSIZ; /* Buffer size for list or auto limits */ Vars->Neutron_Counter = 0; /* event counter, simulation total counts is mcget_ncount() */ Vars->Buffer_Counter = 0; /* index in Buffer size (for realloc) */ Vars->Buffer_Size = 0; Vars->He3_pressure = 0; Vars->Flag_capture = 0; Vars->Flag_signal = DEFS->COORD_P; Vars->Flag_mantid = 0; Vars->Flag_OFF = offflag; Vars->OFF_polyidx = -1; Vars->mean_dx=Vars->mean_dy=0; Vars->min_x = Vars->max_x =0; Vars->min_y = Vars->max_y =0; Set_Vars_Coord_Type = DEFS->COORD_NONE; Set_Coord_Mode = DEFS->COORD_VAR; /* handle size parameters */ /* normal use is with xwidth, yheight, zdepth */ /* if xmin,xmax,ymin,ymax,zmin,zmax are non 0, use them */ if (fabs(xmin-xmax) == 0) { Vars->mxmin = -fabs(xwidth)/2; Vars->mxmax = fabs(xwidth)/2; } else { if (xmin < xmax) {Vars->mxmin = xmin; Vars->mxmax = xmax;} else {Vars->mxmin = xmax; Vars->mxmax = xmin;} } if (fabs(ymin-ymax) == 0) { Vars->mymin = -fabs(yheight)/2; Vars->mymax = fabs(yheight)/2; } else { if (ymin < ymax) {Vars->mymin = ymin; Vars->mymax = ymax;} else {Vars->mymin = ymax; Vars->mymax = ymin;} } if (fabs(zmin-zmax) == 0) { Vars->mzmin = -fabs(zdepth)/2; Vars->mzmax = fabs(zdepth)/2; } else { if (zmin < zmax) {Vars->mzmin = zmin; Vars->mzmax = zmax; } else {Vars->mzmin = zmax; Vars->mzmax = zmin; } } if (fabs(Vars->mzmax-Vars->mzmin) == 0) Vars->Flag_Shape = DEFS->SHAPE_SQUARE; else Vars->Flag_Shape = DEFS->SHAPE_BOX; if (Vars->Flag_OFF) { N_spatial_dims++; Vars->Flag_Shape = DEFS->SHAPE_OFF; } /* parse option string */ option_copy = (char*)malloc(strlen(Vars->option)+1); if (option_copy == NULL) { fprintf(stderr,"Monitor_nD: %s cannot allocate 'options' copy (%li). Fatal.\n", Vars->compcurname, (long)strlen(Vars->option)); exit(-1); } if (strlen(Vars->option)) { Flag_End = 0; strcpy(option_copy, Vars->option); } if (strstr(Vars->option, "cm2") || strstr(Vars->option, "cm^2")) Vars->Flag_per_cm2 = 1; if (strstr(Vars->option, "binary") || strstr(Vars->option, "float")) Vars->Flag_Binary_List = 1; if (strstr(Vars->option, "double")) Vars->Flag_Binary_List = 2; strcpy(Vars->Coord_Label[0],"Intensity"); strncpy(Vars->Coord_Var[0],"p",30); Vars->Coord_Type[0] = DEFS->COORD_P; Vars->Coord_Bin[0] = 1; Vars->Coord_Min[0] = 0; Vars->Coord_Max[0] = FLT_MAX; /* default file name is comp_name+dateID */ sprintf(Vars->Mon_File, "%s_%li", Vars->compcurname, t); carg = 1; while((Flag_End == 0) && (carg < 128)) { if (Flag_New_token) /* retain previous token or get a new one */ { if (carg == 1) token=(char *)strtok(option_copy,DEFS->TOKEN_DEL); else token=(char *)strtok(NULL,DEFS->TOKEN_DEL); if (token == NULL) Flag_End=1; } Flag_New_token = 1; if ((token != NULL) && (strlen(token) != 0)) { char iskeyword=0; /* left at 0 when variables are processed, 1 for modifiers */ int old_Mode; /* change token to lower case */ for (i=0; iCOORD_MAX) /* max=%i */ { if (!Flag_All) Vars->Coord_Max[Vars->Coord_Number] = atof(token); else for (i = 0; i <= Vars->Coord_Number; Vars->Coord_Max[i++] = atof(token)); Set_Coord_Mode = DEFS->COORD_VAR; Flag_All = 0; } if (Set_Coord_Mode == DEFS->COORD_MIN) /* min=%i */ { if (!Flag_All) Vars->Coord_Min[Vars->Coord_Number] = atof(token); else for (i = 0; i <= Vars->Coord_Number; Vars->Coord_Min[i++] = atof(token)); Set_Coord_Mode = DEFS->COORD_MAX; } if (Set_Coord_Mode == DEFS->COORD_DIM) /* bins=%i */ { if (!Flag_All) Vars->Coord_Bin[Vars->Coord_Number] = atoi(token); else for (i = 0; i <= Vars->Coord_Number; Vars->Coord_Bin[i++] = atoi(token)); Set_Coord_Mode = DEFS->COORD_VAR; Flag_All = 0; } if (Set_Coord_Mode == DEFS->COORD_FIL) /* file=%s */ { if (!Flag_No) strncpy(Vars->Mon_File,token,128); else { strcpy(Vars->Mon_File,""); Vars->Coord_Number = 0; Flag_End = 1;} Set_Coord_Mode = DEFS->COORD_VAR; } if (Set_Coord_Mode == DEFS->COORD_EVNT) /* list=%i */ { if (!strcmp(token, "all") || Flag_All) Vars->Flag_List = 2; else { i = (long)ceil(atof(token)); if (i) Vars->Buffer_Block = i; Vars->Flag_List = 1; } Set_Coord_Mode = DEFS->COORD_VAR; Flag_All = 0; } if (Set_Coord_Mode == DEFS->COORD_3HE) /* pressure=%g */ { Vars->He3_pressure = atof(token); Set_Coord_Mode = DEFS->COORD_VAR; Flag_All = 0; } /* now look for general option keywords */ if (!strcmp(token, "borders")) {Vars->Flag_With_Borders = 1; iskeyword=1; } if (!strcmp(token, "verbose")) {Vars->Flag_Verbose = 1; iskeyword=1; } if (!strcmp(token, "log")) {Vars->Flag_log = 1; iskeyword=1; } if (!strcmp(token, "abs")) {Flag_abs = 1; iskeyword=1; } if (!strcmp(token, "multiple")) {Vars->Flag_Multiple = 1; iskeyword=1; } if (!strcmp(token, "list") || !strcmp(token, "events")) { Vars->Flag_List = 1; Set_Coord_Mode = DEFS->COORD_EVNT; } if (!strcmp(token, "limits") || !strcmp(token, "min")) Set_Coord_Mode = DEFS->COORD_MIN; if (!strcmp(token, "slit") || !strcmp(token, "absorb")) { Vars->Flag_Absorb = 1; iskeyword=1; } if (!strcmp(token, "max")) Set_Coord_Mode = DEFS->COORD_MAX; if (!strcmp(token, "bins") || !strcmp(token, "dim")) Set_Coord_Mode = DEFS->COORD_DIM; if (!strcmp(token, "file") || !strcmp(token, "filename")) { Set_Coord_Mode = DEFS->COORD_FIL; if (Flag_No) { strcpy(Vars->Mon_File,""); Vars->Coord_Number = 0; Flag_End = 1; } } if (!strcmp(token, "inactivate")) { Flag_End = 1; Vars->Coord_Number = 0; iskeyword=1; } if (!strcmp(token, "all")) { Flag_All = 1; iskeyword=1; } if (!strcmp(token, "sphere")) { Vars->Flag_Shape = DEFS->SHAPE_SPHERE; iskeyword=1; } if (!strcmp(token, "cylinder")) { Vars->Flag_Shape = DEFS->SHAPE_CYLIND; iskeyword=1; } if (!strcmp(token, "banana")) { Vars->Flag_Shape = DEFS->SHAPE_BANANA; iskeyword=1; } if (!strcmp(token, "square")) { Vars->Flag_Shape = DEFS->SHAPE_SQUARE; iskeyword=1; } if (!strcmp(token, "disk")) { Vars->Flag_Shape = DEFS->SHAPE_DISK; iskeyword=1; } if (!strcmp(token, "box")) { Vars->Flag_Shape = DEFS->SHAPE_BOX; iskeyword=1; } if (!strcmp(token, "previous")) { Vars->Flag_Shape = DEFS->SHAPE_PREVIOUS; iskeyword=1; } if (!strcmp(token, "parallel")){ Vars->Flag_parallel = 1; iskeyword=1; } if (!strcmp(token, "capture")) { Vars->Flag_capture = 1; iskeyword=1; } if (!strcmp(token, "auto")) { #ifndef OPENACC if (Flag_auto != -1) { Vars->Flag_Auto_Limits = 1; if (Flag_All) Flag_auto = -1; else Flag_auto = 1; iskeyword=1; Flag_All=0; } #endif } if (!strcmp(token, "premonitor")) { Vars->Flag_UsePreMonitor = 1; iskeyword=1; } if (!strcmp(token, "3He_pressure") || !strcmp(token, "pressure")) { Vars->He3_pressure = 3; iskeyword=1; } if (!strcmp(token, "no") || !strcmp(token, "not")) { Flag_No = 1; iskeyword=1; } if (!strcmp(token, "signal")) Set_Coord_Mode = DEFS->COORD_SIGNAL; if (!strcmp(token, "mantid")) { Vars->Flag_mantid = 1; iskeyword=1; } /* Mode has changed: this was a keyword or value ? */ if (Set_Coord_Mode != old_Mode) iskeyword=1; /* now look for variable names to monitor */ Set_Vars_Coord_Type = DEFS->COORD_NONE; lmin = 0; lmax = 0; if (!strcmp(token, "x")) { Set_Vars_Coord_Type = DEFS->COORD_X; strcpy(Set_Vars_Coord_Label,"x [m]"); strcpy(Set_Vars_Coord_Var,"x"); lmin = Vars->mxmin; lmax = Vars->mxmax; Vars->Coord_Min[Vars->Coord_Number+1] = Vars->mxmin; Vars->Coord_Max[Vars->Coord_Number+1] = Vars->mxmax; N_spatial_dims++;} if (!strcmp(token, "y")) { Set_Vars_Coord_Type = DEFS->COORD_Y; strcpy(Set_Vars_Coord_Label,"y [m]"); strcpy(Set_Vars_Coord_Var,"y"); lmin = Vars->mymin; lmax = Vars->mymax; Vars->Coord_Min[Vars->Coord_Number+1] = Vars->mymin; Vars->Coord_Max[Vars->Coord_Number+1] = Vars->mymax; N_spatial_dims++;} if (!strcmp(token, "z")) { Set_Vars_Coord_Type = DEFS->COORD_Z; strcpy(Set_Vars_Coord_Label,"z [m]"); strcpy(Set_Vars_Coord_Var,"z"); lmin = Vars->mzmin; lmax = Vars->mzmax; N_spatial_dims++;} if (!strcmp(token, "k") || !strcmp(token, "wavevector")) { Set_Vars_Coord_Type = DEFS->COORD_K; strcpy(Set_Vars_Coord_Label,"|k| [Angs-1]"); strcpy(Set_Vars_Coord_Var,"k"); lmin = 0; lmax = 10; } if (!strcmp(token, "v")) { Set_Vars_Coord_Type = DEFS->COORD_V; strcpy(Set_Vars_Coord_Label,"Velocity [m/s]"); strcpy(Set_Vars_Coord_Var,"v"); lmin = 0; lmax = 10000; } if (!strcmp(token, "t") || !strcmp(token, "time") || !strcmp(token, "tof")) { Set_Vars_Coord_Type = DEFS->COORD_T; strcpy(Set_Vars_Coord_Label,"TOF [s]"); strcpy(Set_Vars_Coord_Var,"t"); lmin = 0; lmax = 1.0; } if ((!strcmp(token, "p") || !strcmp(token, "i") || !strcmp(token, "intensity") || !strcmp(token, "flux"))) { Set_Vars_Coord_Type = DEFS->COORD_P; strcpy(Set_Vars_Coord_Label,"Intensity"); strncat(Set_Vars_Coord_Label, " [n/s", 30); if (Vars->Flag_per_cm2) strncat(Set_Vars_Coord_Label, "/cm2", 30); if (XY > 1 && Vars->Coord_Number) strncat(Set_Vars_Coord_Label, "/bin", 30); strncat(Set_Vars_Coord_Label, "]", 30); strcpy(Set_Vars_Coord_Var,"I"); lmin = 0; lmax = FLT_MAX; if (Flag_auto>0) Flag_auto=0; } if (!strcmp(token, "vx")) { Set_Vars_Coord_Type = DEFS->COORD_VX; strcpy(Set_Vars_Coord_Label,"vx [m/s]"); strcpy(Set_Vars_Coord_Var,"vx"); lmin = -1000; lmax = 1000; } if (!strcmp(token, "vy")) { Set_Vars_Coord_Type = DEFS->COORD_VY; strcpy(Set_Vars_Coord_Label,"vy [m/s]"); strcpy(Set_Vars_Coord_Var,"vy"); lmin = -1000; lmax = 1000; } if (!strcmp(token, "vz")) { Set_Vars_Coord_Type = DEFS->COORD_VZ; strcpy(Set_Vars_Coord_Label,"vz [m/s]"); strcpy(Set_Vars_Coord_Var,"vz"); lmin = -10000; lmax = 10000; } if (!strcmp(token, "kx")) { Set_Vars_Coord_Type = DEFS->COORD_KX; strcpy(Set_Vars_Coord_Label,"kx [Angs-1]"); strcpy(Set_Vars_Coord_Var,"kx"); lmin = -1; lmax = 1; } if (!strcmp(token, "ky")) { Set_Vars_Coord_Type = DEFS->COORD_KY; strcpy(Set_Vars_Coord_Label,"ky [Angs-1]"); strcpy(Set_Vars_Coord_Var,"ky"); lmin = -1; lmax = 1; } if (!strcmp(token, "kz")) { Set_Vars_Coord_Type = DEFS->COORD_KZ; strcpy(Set_Vars_Coord_Label,"kz [Angs-1]"); strcpy(Set_Vars_Coord_Var,"kz"); lmin = -10; lmax = 10; } if (!strcmp(token, "sx")) { Set_Vars_Coord_Type = DEFS->COORD_SX; strcpy(Set_Vars_Coord_Label,"sx [1]"); strcpy(Set_Vars_Coord_Var,"sx"); lmin = -1; lmax = 1; } if (!strcmp(token, "sy")) { Set_Vars_Coord_Type = DEFS->COORD_SY; strcpy(Set_Vars_Coord_Label,"sy [1]"); strcpy(Set_Vars_Coord_Var,"sy"); lmin = -1; lmax = 1; } if (!strcmp(token, "sz")) { Set_Vars_Coord_Type = DEFS->COORD_SZ; strcpy(Set_Vars_Coord_Label,"sz [1]"); strcpy(Set_Vars_Coord_Var,"sz"); lmin = -1; lmax = 1; } if (!strcmp(token, "energy") || !strcmp(token, "omega") || !strcmp(token, "e")) { Set_Vars_Coord_Type = DEFS->COORD_ENERGY; strcpy(Set_Vars_Coord_Label,"Energy [meV]"); strcpy(Set_Vars_Coord_Var,"E"); lmin = 0; lmax = 100; } if (!strcmp(token, "lambda") || !strcmp(token, "wavelength") || !strcmp(token, "l")) { Set_Vars_Coord_Type = DEFS->COORD_LAMBDA; strcpy(Set_Vars_Coord_Label,"Wavelength [Angs]"); strcpy(Set_Vars_Coord_Var,"L"); lmin = 0; lmax = 100; } if (!strcmp(token, "radius") || !strcmp(token, "r")) { Set_Vars_Coord_Type = DEFS->COORD_RADIUS; strcpy(Set_Vars_Coord_Label,"Radius [m]"); strcpy(Set_Vars_Coord_Var,"xy"); lmin = 0; lmax = xmax; } if (!strcmp(token, "xy")) { Set_Vars_Coord_Type = DEFS->COORD_XY; strcpy(Set_Vars_Coord_Label,"Radius (xy) [m]"); strcpy(Set_Vars_Coord_Var,"xy"); lmin = 0; lmax = xmax; N_spatial_dims+=1;} if (!strcmp(token, "yz")) { Set_Vars_Coord_Type = DEFS->COORD_YZ; strcpy(Set_Vars_Coord_Label,"Radius (yz) [m]"); strcpy(Set_Vars_Coord_Var,"yz"); lmin = 0; lmax = xmax; N_spatial_dims+=1;} if (!strcmp(token, "xz")) { Set_Vars_Coord_Type = DEFS->COORD_XZ; strcpy(Set_Vars_Coord_Label,"Radius (xz) [m]"); strcpy(Set_Vars_Coord_Var,"xz"); lmin = 0; lmax = xmax; N_spatial_dims+=1;} if (!strcmp(token, "vxy")) { Set_Vars_Coord_Type = DEFS->COORD_VXY; strcpy(Set_Vars_Coord_Label,"Radial Velocity (xy) [m]"); strcpy(Set_Vars_Coord_Var,"Vxy"); lmin = 0; lmax = 2000; } if (!strcmp(token, "kxy")) { Set_Vars_Coord_Type = DEFS->COORD_KXY; strcpy(Set_Vars_Coord_Label,"Radial Wavevector (xy) [Angs-1]"); strcpy(Set_Vars_Coord_Var,"Kxy"); lmin = 0; lmax = 2; } if (!strcmp(token, "vyz")) { Set_Vars_Coord_Type = DEFS->COORD_VYZ; strcpy(Set_Vars_Coord_Label,"Radial Velocity (yz) [m]"); strcpy(Set_Vars_Coord_Var,"Vyz"); lmin = 0; lmax = 2000; } if (!strcmp(token, "kyz")) { Set_Vars_Coord_Type = DEFS->COORD_KYZ; strcpy(Set_Vars_Coord_Label,"Radial Wavevector (yz) [Angs-1]"); strcpy(Set_Vars_Coord_Var,"Kyz"); lmin = 0; lmax = 2; } if (!strcmp(token, "vxz")) { Set_Vars_Coord_Type = DEFS->COORD_VXZ; strcpy(Set_Vars_Coord_Label,"Radial Velocity (xz) [m]"); strcpy(Set_Vars_Coord_Var,"Vxz"); lmin = 0; lmax = 2000; } if (!strcmp(token, "kxz")) { Set_Vars_Coord_Type = DEFS->COORD_KXZ; strcpy(Set_Vars_Coord_Label,"Radial Wavevector (xz) [Angs-1]"); strcpy(Set_Vars_Coord_Var,"Kxz"); lmin = 0; lmax = 2; } if (!strcmp(token, "angle") || !strcmp(token, "a")) { Set_Vars_Coord_Type = DEFS->COORD_ANGLE; strcpy(Set_Vars_Coord_Label,"Angle [deg]"); strcpy(Set_Vars_Coord_Var,"A"); lmin = -50; lmax = 50; N_spatial_dims++;} if (!strcmp(token, "hdiv")|| !strcmp(token, "divergence") || !strcmp(token, "xdiv") || !strcmp(token, "hd") || !strcmp(token, "dx")) { Set_Vars_Coord_Type = DEFS->COORD_HDIV; strcpy(Set_Vars_Coord_Label,"Hor. Divergence [deg]"); strcpy(Set_Vars_Coord_Var,"hd"); lmin = -5; lmax = 5; N_spatial_dims++;} if (!strcmp(token, "vdiv") || !strcmp(token, "ydiv") || !strcmp(token, "vd") || !strcmp(token, "dy")) { Set_Vars_Coord_Type = DEFS->COORD_VDIV; strcpy(Set_Vars_Coord_Label,"Vert. Divergence [deg]"); strcpy(Set_Vars_Coord_Var,"vd"); lmin = -5; lmax = 5; N_spatial_dims++;} if (!strcmp(token, "theta") || !strcmp(token, "longitude") || !strcmp(token, "th")) { Set_Vars_Coord_Type = DEFS->COORD_THETA; strcpy(Set_Vars_Coord_Label,"Longitude [deg]"); strcpy(Set_Vars_Coord_Var,"th"); lmin = -180; lmax = 180; N_spatial_dims++;} if (!strcmp(token, "phi") || !strcmp(token, "latitude") || !strcmp(token, "ph")) { Set_Vars_Coord_Type = DEFS->COORD_PHI; strcpy(Set_Vars_Coord_Label,"Latitude [deg]"); strcpy(Set_Vars_Coord_Var,"ph"); lmin = -90; lmax = 90; N_spatial_dims++;} if (!strcmp(token, "ncounts") || !strcmp(token, "n") || !strcmp(token, "neutron")) { Set_Vars_Coord_Type = DEFS->COORD_NCOUNT; strcpy(Set_Vars_Coord_Label,"Neutron ID [1]"); strcpy(Set_Vars_Coord_Var,"n"); lmin = 0; lmax = mcget_ncount(); if (Flag_auto>0) Flag_auto=0; } if (!strcmp(token, "id") || !strcmp(token, "pixel")) { Set_Vars_Coord_Type = DEFS->COORD_PIXELID; strcpy(Set_Vars_Coord_Label,"Pixel ID [1]"); strcpy(Set_Vars_Coord_Var,"id"); lmin = 0; lmax = FLT_MAX; if (Flag_auto>0) Flag_auto=0; Vars->Flag_List = 1; } if (!strcmp(token, "user") || !strcmp(token, "user1") || !strcmp(token, "u1")) { Set_Vars_Coord_Type = DEFS->COORD_USER1; strncpy(Set_Vars_Coord_Label,Vars->UserName1,30); strcpy(Set_Vars_Coord_Var,"U1"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "user2") || !strcmp(token, "u2")) { Set_Vars_Coord_Type = DEFS->COORD_USER2; strncpy(Set_Vars_Coord_Label,Vars->UserName2,30); strcpy(Set_Vars_Coord_Var,"U2"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "user3") || !strcmp(token, "u3")) { Set_Vars_Coord_Type = DEFS->COORD_USER3; strncpy(Set_Vars_Coord_Label,Vars->UserName3,30); strcpy(Set_Vars_Coord_Var,"U3"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble0") || !strcmp(token, "ud0")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE0; strcpy(Set_Vars_Coord_Label,"ud0 [1]"); strcpy(Set_Vars_Coord_Var,"ud0"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble1") || !strcmp(token, "ud1")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE1; strcpy(Set_Vars_Coord_Label,"ud1 [1]"); strcpy(Set_Vars_Coord_Var,"ud1"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble2") || !strcmp(token, "ud2")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE2; strcpy(Set_Vars_Coord_Label,"ud2 [1]"); strcpy(Set_Vars_Coord_Var,"ud2"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble3") || !strcmp(token, "ud3")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE3; strcpy(Set_Vars_Coord_Label,"ud3 [1]"); strcpy(Set_Vars_Coord_Var,"ud3"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble4") || !strcmp(token, "ud4")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE4; strcpy(Set_Vars_Coord_Label,"ud4 [1]"); strcpy(Set_Vars_Coord_Var,"ud4"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble5") || !strcmp(token, "ud5")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE5; strcpy(Set_Vars_Coord_Label,"ud5 [1]"); strcpy(Set_Vars_Coord_Var,"ud5"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble6") || !strcmp(token, "ud6")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE6; strcpy(Set_Vars_Coord_Label,"ud6 [1]"); strcpy(Set_Vars_Coord_Var,"ud6"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble7") || !strcmp(token, "ud7")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE7; strcpy(Set_Vars_Coord_Label,"ud7 [1]"); strcpy(Set_Vars_Coord_Var,"ud7"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble8") || !strcmp(token, "ud8")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE8; strcpy(Set_Vars_Coord_Label,"ud8 [1]"); strcpy(Set_Vars_Coord_Var,"ud8"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble9") || !strcmp(token, "ud9")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE9; strcpy(Set_Vars_Coord_Label,"ud9 [1]"); strcpy(Set_Vars_Coord_Var,"ud9"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble10") || !strcmp(token, "ud10")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE10; strcpy(Set_Vars_Coord_Label,"ud10 [1]"); strcpy(Set_Vars_Coord_Var,"ud10"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble11") || !strcmp(token, "ud11")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE11; strcpy(Set_Vars_Coord_Label,"ud11 [1]"); strcpy(Set_Vars_Coord_Var,"ud11"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble12") || !strcmp(token, "ud12")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE12; strcpy(Set_Vars_Coord_Label,"ud12 [1]"); strcpy(Set_Vars_Coord_Var,"ud12"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble13") || !strcmp(token, "ud13")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE13; strcpy(Set_Vars_Coord_Label,"ud13 [1]"); strcpy(Set_Vars_Coord_Var,"ud13"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble14") || !strcmp(token, "ud14")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE14; strcpy(Set_Vars_Coord_Label,"ud14 [1]"); strcpy(Set_Vars_Coord_Var,"ud14"); lmin = -1e10; lmax = 1e10; } if (!strcmp(token, "userdouble15") || !strcmp(token, "ud15")) { Set_Vars_Coord_Type = DEFS->COORD_USERDOUBLE15; strcpy(Set_Vars_Coord_Label,"ud15 [1]"); strcpy(Set_Vars_Coord_Var,"ud15"); lmin = -1e10; lmax = 1e10; } /* now stores variable keywords detected, if any */ if (Set_Vars_Coord_Type != DEFS->COORD_NONE) { int Coord_Number = Vars->Coord_Number; if (Vars->Flag_log) { Set_Vars_Coord_Type |= DEFS->COORD_LOG; Vars->Flag_log = 0; } if (Flag_abs) { Set_Vars_Coord_Type |= DEFS->COORD_ABS; Flag_abs = 0; } if (Flag_auto != 0) { Set_Vars_Coord_Type |= DEFS->COORD_AUTO; if (Flag_auto > 0) Flag_auto = 0; } if (Set_Coord_Mode == DEFS->COORD_SIGNAL) { Coord_Number = 0; Vars->Flag_signal = Set_Vars_Coord_Type; } else { if (Coord_Number < MONnD_COORD_NMAX) { Coord_Number++; Vars->Coord_Number = Coord_Number; if (Set_Vars_Coord_Type != DEFS->COORD_PIXELID) Vars->Coord_NumberNoPixel++; } else if (Vars->Flag_Verbose) printf("Monitor_nD: %s reached max number of variables (%i).\n", Vars->compcurname, MONnD_COORD_NMAX); } Vars->Coord_Type[Coord_Number] = Set_Vars_Coord_Type; strncpy(Vars->Coord_Label[Coord_Number], Set_Vars_Coord_Label,30); strncpy(Vars->Coord_Var[Coord_Number], Set_Vars_Coord_Var,30); if (lmin > lmax) { XY = lmin; lmin=lmax; lmax = XY; } Vars->Coord_Min[Coord_Number] = lmin; Vars->Coord_Max[Coord_Number] = lmax; if (Set_Vars_Coord_Type == DEFS->COORD_NCOUNT || Set_Vars_Coord_Type == DEFS->COORD_PIXELID || Set_Vars_Coord_Type == DEFS->COORD_SIGNAL) Vars->Coord_Bin[Coord_Number] = 1; else Vars->Coord_Bin[Coord_Number] = 20; Set_Coord_Mode = DEFS->COORD_VAR; Flag_All = 0; Flag_No = 0; } else { /* no variable name could be read from options */ if (!iskeyword) { if (strcmp(token, "cm2") && strcmp(token, "incoming") && strcmp(token, "outgoing") && strcmp(token, "cm2") && strcmp(token, "cm^2") && strcmp(token, "float") && strcmp(token, "double") && strcmp(token, "binary") && strcmp(token, "steradian") && Vars->Flag_Verbose) printf("Monitor_nD: %s: unknown '%s' keyword in 'options'. Ignoring.\n", Vars->compcurname, token); } } carg++; } /* end if token */ } /* end while carg */ /* Handle nexusbins information */ /* Case 1, list mode and not disabled i.e. >-1 */ if (Vars->Flag_List && nexusbins>-1) Vars->Flag_nexusbins=1; /* Case 2, NOT list mode and enabled i.e. ==1 */ if (!Vars->Flag_List && nexusbins==1) Vars->Flag_nexusbins=1; free(option_copy); if (carg == 128) printf("Monitor_nD: %s reached max number of tokens (%i). Skipping.\n", Vars->compcurname, 128); if ((Vars->Flag_Shape == DEFS->SHAPE_BOX) && (fabs(Vars->mzmax - Vars->mzmin) == 0)) Vars->Flag_Shape = DEFS->SHAPE_SQUARE; if (Vars->Flag_log == 1) Vars->Coord_Type[0] |= DEFS->COORD_LOG; if (Vars->Coord_Number == 0) { Vars->Flag_Auto_Limits=0; Vars->Flag_Multiple=0; Vars->Flag_List=0; } /* now setting Monitor Name from variable labels */ strcpy(Vars->Monitor_Label,""); XY = 1; /* will contain total bin number */ for (i = 0; i <= Vars->Coord_Number; i++) { if (Flag_auto != 0) Vars->Coord_Type[i] |= DEFS->COORD_AUTO; Set_Vars_Coord_Type = (Vars->Coord_Type[i] & (DEFS->COORD_LOG-1)); if ((Set_Vars_Coord_Type == DEFS->COORD_X) || (Set_Vars_Coord_Type == DEFS->COORD_Y) || (Set_Vars_Coord_Type == DEFS->COORD_Z)) strcpy(Short_Label[i],"Position"); else if ((Set_Vars_Coord_Type == DEFS->COORD_THETA) || (Set_Vars_Coord_Type == DEFS->COORD_PHI) || (Set_Vars_Coord_Type == DEFS->COORD_ANGLE)) strcpy(Short_Label[i],"Angle"); else if ((Set_Vars_Coord_Type == DEFS->COORD_XY) || (Set_Vars_Coord_Type == DEFS->COORD_XZ) || (Set_Vars_Coord_Type == DEFS->COORD_YZ) || (Set_Vars_Coord_Type == DEFS->COORD_RADIUS)) strcpy(Short_Label[i],"Radius"); else if ((Set_Vars_Coord_Type == DEFS->COORD_VX) || (Set_Vars_Coord_Type == DEFS->COORD_VY) || (Set_Vars_Coord_Type == DEFS->COORD_VZ) || (Set_Vars_Coord_Type == DEFS->COORD_V) || (Set_Vars_Coord_Type == DEFS->COORD_VXY) || (Set_Vars_Coord_Type == DEFS->COORD_VYZ) || (Set_Vars_Coord_Type == DEFS->COORD_VXZ)) strcpy(Short_Label[i],"Velocity"); else if ((Set_Vars_Coord_Type == DEFS->COORD_KX) || (Set_Vars_Coord_Type == DEFS->COORD_KY) || (Set_Vars_Coord_Type == DEFS->COORD_KZ) || (Set_Vars_Coord_Type == DEFS->COORD_KXY) || (Set_Vars_Coord_Type == DEFS->COORD_KYZ) || (Set_Vars_Coord_Type == DEFS->COORD_KXZ) || (Set_Vars_Coord_Type == DEFS->COORD_K)) strcpy(Short_Label[i],"Wavevector"); else if ((Set_Vars_Coord_Type == DEFS->COORD_SX) || (Set_Vars_Coord_Type == DEFS->COORD_SY) || (Set_Vars_Coord_Type == DEFS->COORD_SZ)) strcpy(Short_Label[i],"Spin"); else if ((Set_Vars_Coord_Type == DEFS->COORD_HDIV) || (Set_Vars_Coord_Type == DEFS->COORD_VDIV)) strcpy(Short_Label[i],"Divergence"); else if (Set_Vars_Coord_Type == DEFS->COORD_ENERGY) strcpy(Short_Label[i],"Energy"); else if (Set_Vars_Coord_Type == DEFS->COORD_LAMBDA) strcpy(Short_Label[i],"Wavelength"); else if (Set_Vars_Coord_Type == DEFS->COORD_NCOUNT) strcpy(Short_Label[i],"Neutron_ID"); else if (Set_Vars_Coord_Type == DEFS->COORD_PIXELID) strcpy(Short_Label[i],"Pixel_ID"); else if (Set_Vars_Coord_Type == DEFS->COORD_T) strcpy(Short_Label[i],"Time_Of_Flight"); else if (Set_Vars_Coord_Type == DEFS->COORD_P) strcpy(Short_Label[i],"Intensity"); else if (Set_Vars_Coord_Type == DEFS->COORD_USER1) strncpy(Short_Label[i],Vars->UserName1,30); else if (Set_Vars_Coord_Type == DEFS->COORD_USER2) strncpy(Short_Label[i],Vars->UserName2,30); else if (Set_Vars_Coord_Type == DEFS->COORD_USER3) strncpy(Short_Label[i],Vars->UserName3,30); else strcpy(Short_Label[i],"Unknown"); if (Vars->Coord_Type[i] & DEFS->COORD_ABS) { strcat(Vars->Coord_Label[i]," (abs)"); } if (Vars->Coord_Type[i] & DEFS->COORD_LOG) { strcat(Vars->Coord_Label[i]," (log)"); } strcat(Vars->Monitor_Label, " "); strcat(Vars->Monitor_Label, Short_Label[i]); XY *= Vars->Coord_Bin[i]; } /* end for Short_Label */ if ((Vars->Coord_Type[0] & (DEFS->COORD_LOG-1)) == DEFS->COORD_P) { strncat(Vars->Coord_Label[0], " [n/s", 30); if (Vars->Flag_per_cm2) strncat(Vars->Coord_Label[0], "/cm2", 30); if (XY > 1 && Vars->Coord_Number) strncat(Vars->Coord_Label[0], "/bin", 30); strncat(Vars->Coord_Label[0], "]", 30); } /* update label 'signal per bin' if more than 1 bin */ if (XY > 1 && Vars->Coord_Number) { if (Vars->Flag_capture) printf("Monitor_nD: %s: Using capture flux weightening on %ld bins.\n" "WARNING Use binned data with caution, and prefer monitor integral value (I,Ierr).\n", Vars->compcurname, (long)XY); } strcat(Vars->Monitor_Label, " Monitor"); if (Vars->Flag_Shape == DEFS->SHAPE_SQUARE) strcat(Vars->Monitor_Label, " (Square)"); if (Vars->Flag_Shape == DEFS->SHAPE_DISK) strcat(Vars->Monitor_Label, " (Disk)"); if (Vars->Flag_Shape == DEFS->SHAPE_SPHERE) strcat(Vars->Monitor_Label, " (Sphere)"); if (Vars->Flag_Shape == DEFS->SHAPE_CYLIND) strcat(Vars->Monitor_Label, " (Cylinder)"); if (Vars->Flag_Shape == DEFS->SHAPE_BANANA) strcat(Vars->Monitor_Label, " (Banana)"); if (Vars->Flag_Shape == DEFS->SHAPE_BOX) strcat(Vars->Monitor_Label, " (Box)"); if (Vars->Flag_Shape == DEFS->SHAPE_PREVIOUS) strcat(Vars->Monitor_Label, " (on PREVIOUS)"); if (Vars->Flag_Shape == DEFS->SHAPE_OFF) strcat(Vars->Monitor_Label, " (OFF geometry)"); if ((Vars->Flag_Shape == DEFS->SHAPE_CYLIND) || (Vars->Flag_Shape == DEFS->SHAPE_BANANA) || (Vars->Flag_Shape == DEFS->SHAPE_SPHERE) || (Vars->Flag_Shape == DEFS->SHAPE_BOX)) { if (strstr(Vars->option, "incoming")) { Vars->Flag_Shape = abs(Vars->Flag_Shape); strcat(Vars->Monitor_Label, " [in]"); } else /* if strstr(Vars->option, "outgoing")) */ { Vars->Flag_Shape = -abs(Vars->Flag_Shape); strcat(Vars->Monitor_Label, " [out]"); } } if (Vars->Flag_UsePreMonitor == 1) { strcat(Vars->Monitor_Label, " at "); strncat(Vars->Monitor_Label, Vars->UserName1,30); } if (Vars->Flag_log == 1) strcat(Vars->Monitor_Label, " [log] "); /* now allocate memory to store variables in TRACE */ /* Vars->Coord_Number 0 : intensity or signal * Vars->Coord_Number 1:n : detector variables */ if ((Vars->Coord_NumberNoPixel != 2) && !Vars->Flag_Multiple && !Vars->Flag_List) { Vars->Flag_Multiple = 1; /* default is n1D */ if (Vars->Coord_Number != Vars->Coord_NumberNoPixel) Vars->Flag_List = 1; } /* list and auto limits case : Vars->Flag_List or Vars->Flag_Auto_Limits * -> Buffer to flush and suppress after Vars->Flag_Auto_Limits */ if ((Vars->Flag_Auto_Limits || Vars->Flag_List) && Vars->Coord_Number) { /* Dim : (Vars->Coord_Number+1)*Vars->Buffer_Block matrix (for p, dp) */ Vars->Mon2D_Buffer = (double *)malloc((Vars->Coord_Number+1)*Vars->Buffer_Block*sizeof(double)); if (Vars->Mon2D_Buffer == NULL) { printf("Monitor_nD: %s cannot allocate Vars->Mon2D_Buffer (%zi). No list and auto limits.\n", Vars->compcurname, Vars->Buffer_Block*(Vars->Coord_Number+1)*sizeof(double)); Vars->Flag_List = 0; Vars->Flag_Auto_Limits = 0; } else { for (i=0; i < (Vars->Coord_Number+1)*Vars->Buffer_Block; Vars->Mon2D_Buffer[i++] = (double)0); } Vars->Buffer_Size = Vars->Buffer_Block; } /* 1D and n1D case : Vars->Flag_Multiple */ if (Vars->Flag_Multiple && Vars->Coord_NumberNoPixel) { /* Dim : Vars->Coord_Number*Vars->Coord_Bin[i] vectors */ Vars->Mon2D_N = (double **)malloc((Vars->Coord_Number)*sizeof(double *)); Vars->Mon2D_p = (double **)malloc((Vars->Coord_Number)*sizeof(double *)); Vars->Mon2D_p2 = (double **)malloc((Vars->Coord_Number)*sizeof(double *)); if ((Vars->Mon2D_N == NULL) || (Vars->Mon2D_p == NULL) || (Vars->Mon2D_p2 == NULL)) { fprintf(stderr,"Monitor_nD: %s n1D cannot allocate Vars->Mon2D_N/p/p2 (%zi). Fatal.\n", Vars->compcurname, (Vars->Coord_Number)*sizeof(double *)); exit(-1); } for (i= 1; i <= Vars->Coord_Number; i++) { Vars->Mon2D_N[i-1] = (double *)malloc(Vars->Coord_Bin[i]*sizeof(double)); Vars->Mon2D_p[i-1] = (double *)malloc(Vars->Coord_Bin[i]*sizeof(double)); Vars->Mon2D_p2[i-1] = (double *)malloc(Vars->Coord_Bin[i]*sizeof(double)); if ((Vars->Mon2D_N == NULL) || (Vars->Mon2D_p == NULL) || (Vars->Mon2D_p2 == NULL)) { fprintf(stderr,"Monitor_nD: %s n1D cannot allocate %s Vars->Mon2D_N/p/p2[%li] (%zi). Fatal.\n", Vars->compcurname, Vars->Coord_Var[i], i, (Vars->Coord_Bin[i])*sizeof(double *)); exit(-1); } else { for (j=0; j < Vars->Coord_Bin[i]; j++ ) { Vars->Mon2D_N[i-1][j] = (double)0; Vars->Mon2D_p[i-1][j] = (double)0; Vars->Mon2D_p2[i-1][j] = (double)0; } } } } else /* 2D case : Vars->Coord_Number==2 and !Vars->Flag_Multiple and !Vars->Flag_List */ if ((Vars->Coord_NumberNoPixel == 2) && !Vars->Flag_Multiple) { /* Dim : Vars->Coord_Bin[1]*Vars->Coord_Bin[2] matrix */ Vars->Mon2D_N = (double **)malloc((Vars->Coord_Bin[1])*sizeof(double *)); Vars->Mon2D_p = (double **)malloc((Vars->Coord_Bin[1])*sizeof(double *)); Vars->Mon2D_p2 = (double **)malloc((Vars->Coord_Bin[1])*sizeof(double *)); if ((Vars->Mon2D_N == NULL) || (Vars->Mon2D_p == NULL) || (Vars->Mon2D_p2 == NULL)) { fprintf(stderr,"Monitor_nD: %s 2D cannot allocate %s Vars->Mon2D_N/p/p2 (%zi). Fatal.\n", Vars->compcurname, Vars->Coord_Var[1], (Vars->Coord_Bin[1])*sizeof(double *)); exit(-1); } for (i= 0; i < Vars->Coord_Bin[1]; i++) { Vars->Mon2D_N[i] = (double *)malloc(Vars->Coord_Bin[2]*sizeof(double)); Vars->Mon2D_p[i] = (double *)malloc(Vars->Coord_Bin[2]*sizeof(double)); Vars->Mon2D_p2[i] = (double *)malloc(Vars->Coord_Bin[2]*sizeof(double)); if ((Vars->Mon2D_N == NULL) || (Vars->Mon2D_p == NULL) || (Vars->Mon2D_p2 == NULL)) { fprintf(stderr,"Monitor_nD: %s 2D cannot allocate %s Vars->Mon2D_N/p/p2[%li] (%zi). Fatal.\n", Vars->compcurname, Vars->Coord_Var[1], i, (Vars->Coord_Bin[2])*sizeof(double *)); exit(-1); } else { for (j=0; j < Vars->Coord_Bin[2]; j++ ) { Vars->Mon2D_N[i][j] = (double)0; Vars->Mon2D_p[i][j] = (double)0; Vars->Mon2D_p2[i][j] = (double)0; } } } } else { Vars->Mon2D_N = Vars->Mon2D_p = Vars->Mon2D_p2 = NULL; } /* no Mon2D allocated for * (Vars->Coord_Number != 2) && !Vars->Flag_Multiple && Vars->Flag_List */ Vars->psum = 0; Vars->p2sum = 0; Vars->Nsum = 0; Vars->area = fabs(Vars->mxmax - Vars->mxmin)*fabs(Vars->mymax - Vars->mymin)*1E4; /* in cm**2 for square and box shapes */ Vars->Sphere_Radius = fabs(Vars->mxmax - Vars->mxmin)/2; if ((abs(Vars->Flag_Shape) == DEFS->SHAPE_DISK) || (abs(Vars->Flag_Shape) == DEFS->SHAPE_SPHERE)) { Vars->area = PI*Vars->Sphere_Radius*Vars->Sphere_Radius*1E4; /* disk shapes */ } if (Vars->area == 0 && abs(Vars->Flag_Shape) != DEFS->SHAPE_PREVIOUS ) { if (abs(Vars->Flag_Shape) != DEFS->SHAPE_OFF) { Vars->Coord_Number = 0; } } if (Vars->Coord_Number == 0 && Vars->Flag_Verbose) printf("Monitor_nD: %s is inactivated (0D)\n", Vars->compcurname); Vars->Cylinder_Height = fabs(Vars->mymax - Vars->mymin); if (Vars->Flag_Verbose) { printf("Monitor_nD: %s is a %s.\n", Vars->compcurname, Vars->Monitor_Label); printf("Monitor_nD: version %s with options=%s\n", MONITOR_ND_LIB_H, Vars->option); } /* compute the product of bin dimensions for PixelID */ Vars->Coord_BinProd[0]=1; for (i = 1; i <= Vars->Coord_Number; i++) { Vars->Coord_BinProd[i]=Vars->Coord_Bin[i]*Vars->Coord_BinProd[i-1]; } #ifdef USE_NEXUS #ifdef USE_MPI if(mpi_node_rank == mpi_node_root) { #endif if(nxhandle) { /* This section of code writes detector shape information to entryN/instrument/components/'name'/geometry in the NeXus file */ char nexuscomp[CHAR_BUF_LENGTH]; char pref[5]; if (Vars->compcurindex-1 < 10) { sprintf(pref,"000"); } else if (Vars->compcurindex-1 < 100) { sprintf(pref,"00"); } else if (Vars->compcurindex-1 < 1000) { sprintf(pref,"0"); } else if (Vars->compcurindex-1 < 10000) { sprintf(pref,""); } else { fprintf(stderr,"Error, no support for > 10000 comps at the moment!\n"); exit(-1); } sprintf(nexuscomp,"%s%d_%s",pref,Vars->compcurindex-1,Vars->compcurname); if (NXopengroup(nxhandle, "instrument", "NXinstrument") == NX_OK) { if (NXopengroup(nxhandle, "components", "NXdata") == NX_OK) { if (NXopengroup(nxhandle, nexuscomp, "NXdata") == NX_OK) { if (NXmakegroup(nxhandle, "Geometry", "NXdata") == NX_OK) { if (NXopengroup(nxhandle, "Geometry", "NXdata") == NX_OK) { char tmp[CHAR_BUF_LENGTH]; sprintf(tmp,"%g",Vars->Sphere_Radius); nxprintattr(nxhandle, "radius", tmp); sprintf(tmp,"%g",Vars->Cylinder_Height); nxprintattr(nxhandle, "height", tmp); sprintf(tmp,"%g",Vars->mxmin); nxprintattr(nxhandle, "xmin", tmp); sprintf(tmp,"%g",Vars->mxmax); nxprintattr(nxhandle, "xmax", tmp); sprintf(tmp,"%g",Vars->mymin); nxprintattr(nxhandle, "ymin", tmp); sprintf(tmp,"%g",Vars->mymax); nxprintattr(nxhandle, "ymax", tmp); sprintf(tmp,"%g",Vars->mzmin); nxprintattr(nxhandle, "zmin", tmp); sprintf(tmp,"%g",Vars->mzmax); nxprintattr(nxhandle, "zmax", tmp); sprintf(tmp,"%g",Vars->mzmin); nxprintattr(nxhandle, "zmin", tmp); sprintf(tmp,"%g",Vars->mzmax); nxprintattr(nxhandle, "zmax", tmp); sprintf(tmp,"%i",Vars->Flag_Shape); nxprintattr(nxhandle, "Shape identifier", tmp); sprintf(tmp,"%s",Vars->Monitor_Label); nxprintattr(nxhandle, "Shape string", tmp); sprintf(tmp,"%s",Vars->option); nxprintattr(nxhandle, "Option string", tmp); NXclosegroup(nxhandle); // Geometry } else { printf("Failed to open component NeXus component Geometry group\n"); } } else { printf("Failed to create component NeXus component Geometry group\n"); } NXclosegroup(nxhandle); // component } NXclosegroup(nxhandle); // components } else { printf("Failed to open NeXus component hierarchy\n"); } NXclosegroup(nxhandle); // instrument } if (Vars->Flag_nexusbins) { /* Below code communicates geometry-oriented "BINS" for the detector. */ char metadata[CHAR_BUF_LENGTH]; char metadatatmp[CHAR_BUF_LENGTH]; // Vars for 1D, >3D, OFF long numbins; long minbins = 0; long maxbins = 0; char binlabel[CHAR_BUF_LENGTH]; char binvar[CHAR_BUF_LENGTH]; sprintf(binlabel,"none"); sprintf(binvar,"none"); // Find index of pixel column int id_index; for (id_index=0;id_index<30;id_index++) { if (strcmp(Vars->Coord_Var[id_index], "id") == 0) break; } if (id_index == 30) id_index = Vars->Coord_Number-1; // Revert to earlier behavior is id not found long pix=Vars->Coord_Min[id_index]; MCDETECTOR detector; /* Init - perhaps better with an init-function in mccode-r? */ detector.m = 0; detector.xmin = 0; detector.xmax = 0; detector.ymin = 0; detector.ymax = 0; detector.zmin = 0; detector.zmax = 0; detector.intensity = 0; detector.error = 0; detector.events = 0; detector.min = 0; detector.max = 0; detector.mean = 0; detector.centerX = 0; detector.halfwidthX = 0; detector.centerY = 0; detector.halfwidthY = 0; detector.rank = 0; detector.istransposed = 0; detector.n = 0; detector.p = 0; detector.date_l = 0; detector.p0 = NULL; detector.p1 = NULL; detector.p2 = NULL; sprintf(detector.filename,"BINS"); sprintf(detector.component,"%s",Vars->compcurname); sprintf(detector.nexuscomp,"%s%d_%s",pref,Vars->compcurindex-1,detector.component); sprintf(detector.format,"pixels"); if(!Vars->Flag_OFF) { sprintf(metadata,"id=%ld + %ld pixels: ",(long)Vars->Coord_Min[id_index],(long)Vars->Coord_BinProd[Vars->Coord_Number]); for (i=1; iCoord_Label[i],Vars->Coord_Bin[i]); sprintf(metadata,"%s",metadatatmp); } sprintf(metadatatmp,"%s %s (%ld bins)",metadata,Vars->Coord_Label[i],Vars->Coord_Bin[i]); sprintf(metadata,"%s",metadatatmp); numbins = Vars->Coord_BinProd[Vars->Coord_Number]; if (N_spatial_dims==1) { minbins=Vars->Coord_Min[1]; maxbins=Vars->Coord_Max[1]; sprintf(binlabel,"%s",Vars->Coord_Label[1]); sprintf(binvar,"%s",Vars->Coord_Var[1]); } else if (N_spatial_dims>3) { minbins=1; maxbins=Vars->Coord_BinProd[Vars->Coord_Number]; sprintf(binlabel,"More than 3 dimensions"); sprintf(binvar,"wrapped_variables_4plus_dims"); N_spatial_dims=1; } sprintf(detector.xlabel,"%s",binlabel); sprintf(detector.xvar,"%s",binvar); detector.xmin=minbins; detector.xmax=maxbins; } else { numbins = Vars->Flag_OFF; minbins=1; maxbins=Vars->Flag_OFF; sprintf(binlabel,"OFF pixel index"); sprintf(binvar,"OFF"); N_spatial_dims=1; sprintf(detector.xlabel,"%s",binlabel); sprintf(detector.xvar,"%s",binvar); detector.xmin=minbins; detector.xmax=maxbins; } long k,l,m; if (N_spatial_dims==1) { // 1D case or ND detector.m=numbins; detector.n=1; detector.p=1; detector.rank=1; detector.p0=(double *)calloc(numbins, sizeof(double)); detector.p1=(double *)calloc(numbins, sizeof(double)); detector.p2=(double *)calloc(numbins, sizeof(double)); if (Vars->Flag_Verbose) printf("1D case %ld \n",Vars->Coord_Bin[1]); for (k=0; kFlag_Verbose) printf("Assigning pixel no [%ld] = %ld\n",k,pix); detector.p1[k]=pix; pix++; } mcdetector_out_1D_nexus(detector); free(detector.p0); free(detector.p1); free(detector.p2); } else if (N_spatial_dims==2) { // 2D case detector.m=Vars->Coord_Bin[1]; detector.n=Vars->Coord_Bin[2]; detector.p=1; detector.rank=2; sprintf(detector.xlabel,"%s",Vars->Coord_Label[1]); sprintf(detector.xvar,"%s",Vars->Coord_Var[1]); detector.xmin=Vars->Coord_Min[1]; detector.xmax=Vars->Coord_Max[1]; sprintf(detector.ylabel,"%s",Vars->Coord_Label[2]); sprintf(detector.yvar,"%s",Vars->Coord_Var[2]); detector.ymin=Vars->Coord_Min[2]; detector.ymax=Vars->Coord_Max[2]; detector.p0=(double *)calloc(Vars->Coord_BinProd[Vars->Coord_Number], sizeof(double)); detector.p1=(double *)calloc(Vars->Coord_BinProd[Vars->Coord_Number], sizeof(double)); detector.p2=(double *)calloc(Vars->Coord_BinProd[Vars->Coord_Number], sizeof(double)); if (Vars->Flag_Verbose) printf("2D case %ld x %ld \n",Vars->Coord_Bin[1],Vars->Coord_Bin[2]); for (k=0; kCoord_Bin[1]; k++) { for (l=0; lCoord_Bin[2]; l++) { if (Vars->Flag_Verbose) printf("Assigning pixel no [%ld,%ld] = %ld\n",l,k,pix); detector.p1[k*Vars->Coord_Bin[2]+l]=pix; pix++; } } mcdetector_out_2D_nexus(detector); free(detector.p0); free(detector.p1); free(detector.p2); } else if (N_spatial_dims==3) { // 3D case detector.m=Vars->Coord_Bin[1]; detector.n=Vars->Coord_Bin[2]; detector.p=Vars->Coord_Bin[3];; detector.rank=3; sprintf(detector.xlabel,"%s",Vars->Coord_Label[1]); sprintf(detector.xvar,"%s",Vars->Coord_Var[1]); detector.xmin=Vars->Coord_Min[1]; detector.xmax=Vars->Coord_Max[1]; sprintf(detector.ylabel,"%s",Vars->Coord_Label[2]); sprintf(detector.yvar,"%s",Vars->Coord_Var[2]); detector.ymin=Vars->Coord_Min[2]; detector.ymax=Vars->Coord_Max[2]; sprintf(detector.zlabel,"%s",Vars->Coord_Label[3]); sprintf(detector.zvar,"%s",Vars->Coord_Var[3]); detector.zmin=Vars->Coord_Min[3]; detector.zmax=Vars->Coord_Max[3]; detector.p0=(double *)calloc(Vars->Coord_BinProd[Vars->Coord_Number], sizeof(double)); detector.p1=(double *)calloc(Vars->Coord_BinProd[Vars->Coord_Number], sizeof(double)); detector.p2=(double *)calloc(Vars->Coord_BinProd[Vars->Coord_Number], sizeof(double)); if (Vars->Flag_Verbose) printf("3D case %ld x %ld x %ld \n",Vars->Coord_Bin[1],Vars->Coord_Bin[2],Vars->Coord_Bin[3]); for (k=0; kCoord_Bin[1]; k++) { for (l=0; lCoord_Bin[2]; l++) { for (m=0; mCoord_Bin[3]; m++) { if (Vars->Flag_Verbose) printf("Assigning pixel no [%ld,%ld,%ld] = %ld\n",m,l,k,pix); detector.p1[k*Vars->Coord_Bin[2]*Vars->Coord_Bin[3] + l*Vars->Coord_Bin[3] + m]=pix; pix++; } } } mcdetector_out_3D_nexus(detector); free(detector.p0); free(detector.p1); free(detector.p2); } } // Flag_nexusbins active } // nxhandle available #ifdef USE_MPI } // Master only #endif #endif // USE_NEXUS } /* end Monitor_nD_Init */ /* ========================================================================= */ /* Monitor_nD_Trace: this routine is used to monitor one propagating neutron */ /* return values: 0=neutron was absorbed, -1=neutron was outside bounds, 1=neutron was measured*/ /* ========================================================================= */ int Monitor_nD_Trace(MonitornD_Defines_type *DEFS, MonitornD_Variables_type *Vars, _class_particle* _particle) { double XY=0, pp=0; long i =0, j =0; double Coord[MONnD_COORD_NMAX]; long Coord_Index[MONnD_COORD_NMAX]; char While_End =0; long While_Buffer=0; char Set_Vars_Coord_Type = DEFS->COORD_NONE; /* the logic below depends mainly on: Flag_List: 1=store 1 buffer, 2=list all, 3=re-use buffer Flag_Auto_Limits: 0 (no auto limits/list), 1 (store events into Buffer), 2 (re-emit store events) */ /* Vars->Flag_Auto_Limits=1: buffer full, we read the Buffer, and determine min and max bounds */ if ((Vars->Buffer_Counter >= Vars->Buffer_Block) && (Vars->Flag_Auto_Limits == 1) && (Vars->Coord_Number > 0)) { /* auto limits case : get limits in Buffer for each variable */ /* Dim : (Vars->Coord_Number+1)*Vars->Buffer_Block matrix (for p, dp) */ if (Vars->Flag_Verbose) printf("Monitor_nD: %s getting %li Auto Limits from List (%li events) in TRACE.\n", Vars->compcurname, Vars->Coord_Number, Vars->Buffer_Counter); for (i = 1; i <= Vars->Coord_Number; i++) { if (Vars->Coord_Type[i] & DEFS->COORD_AUTO) { Vars->Coord_Min[i] = FLT_MAX; Vars->Coord_Max[i] = -FLT_MAX; for (j = 0; j < Vars->Buffer_Counter; j++) { XY = Vars->Mon2D_Buffer[i+j*(Vars->Coord_Number+1)]; /* scanning variables in Buffer */ if (XY < Vars->Coord_Min[i]) Vars->Coord_Min[i] = XY; if (XY > Vars->Coord_Max[i]) Vars->Coord_Max[i] = XY; } if (Vars->Flag_Verbose) printf(" %s: min=%g max=%g\n", Vars->Coord_Var[i], Vars->Coord_Min[i], Vars->Coord_Max[i]); } } Vars->Flag_Auto_Limits = 2; /* pass to 2nd auto limits step (read Buffer and generate new events to store in histograms) */ } /* end if Flag_Auto_Limits == 1 */ #ifndef OPENACC /* manage realloc for 'list all' if Buffer size exceeded: flush Buffer to file */ if ((Vars->Buffer_Counter >= Vars->Buffer_Block) && (Vars->Flag_List >= 2)) { if (Vars->Buffer_Size >= 1000000 || Vars->Flag_List == 3) { /* save current (possibly append) and re-use Buffer */ Monitor_nD_Save(DEFS, Vars); Vars->Flag_List = 3; Vars->Buffer_Block = Vars->Buffer_Size; Vars->Buffer_Counter = 0; Vars->Neutron_Counter = 0; } else { Vars->Mon2D_Buffer = (double *)realloc(Vars->Mon2D_Buffer, (Vars->Coord_Number+1)*(2*Vars->Buffer_Block)*sizeof(double)); if (Vars->Mon2D_Buffer == NULL) { printf("Monitor_nD: %s cannot reallocate Vars->Mon2D_Buffer[%li] (%zi). Skipping.\n", Vars->compcurname, i, (long int)(2*Vars->Buffer_Block)*sizeof(double)); Vars->Flag_List = 1; } else { Vars->Buffer_Block = 2*Vars->Buffer_Block; Vars->Buffer_Size = Vars->Buffer_Block; } } } /* end if Buffer realloc */ #endif char outsidebounds=0; while (!While_End) { /* we generate Coord[] and Coord_index[] from Buffer (auto limits) or passing neutron */ if ((Vars->Flag_Auto_Limits == 2) && (Vars->Coord_Number > 0)) { /* Vars->Flag_Auto_Limits == 2: read back from Buffer (Buffer is filled or auto limits have been computed) */ if (While_Buffer < Vars->Buffer_Block) { /* first while loop (While_Buffer) */ /* auto limits case : scan Buffer within limits and store in Mon2D */ Coord[0] = pp = Vars->Mon2D_Buffer[While_Buffer*(Vars->Coord_Number+1)]; for (i = 1; i <= Vars->Coord_Number; i++) { /* scanning variables in Buffer */ if (Vars->Coord_Bin[i] <= 1) continue; XY = (Vars->Coord_Max[i]-Vars->Coord_Min[i]); Coord[i] = Vars->Mon2D_Buffer[i+While_Buffer*(Vars->Coord_Number+1)]; if (XY > 0) Coord_Index[i] = floor((Coord[i]-Vars->Coord_Min[i])*Vars->Coord_Bin[i]/XY); else Coord_Index[i] = 0; if (Vars->Flag_With_Borders) { if (Coord_Index[i] < 0) Coord_Index[i] = 0; if (Coord_Index[i] >= Vars->Coord_Bin[i]) Coord_Index[i] = Vars->Coord_Bin[i] - 1; } } /* end for */ /* update the PixelID, we compute it from the previous variables index */ if (Vars->Coord_NumberNoPixel < Vars->Coord_Number) /* there is a Pixel variable */ for (i = 1; i <= Vars->Coord_Number; i++) { char Set_Vars_Coord_Type = (Vars->Coord_Type[i] & (DEFS->COORD_LOG-1)); if (Set_Vars_Coord_Type == DEFS->COORD_PIXELID) { char flag_outside=0; Coord_Index[i] = Coord[i] = 0; for (j= 1; j < i; j++) { /* not for 1D variables with Bin=1 such as PixelID, NCOUNT, Intensity */ if (Vars->Coord_Bin[j] == 1) continue; if (0 > Coord_Index[j] || Coord_Index[j] >= Vars->Coord_Bin[j]) { flag_outside=1; Coord[i] = 0; break; } Coord[i] += Coord_Index[j]*Vars->Coord_BinProd[j-1]; } if (!flag_outside) { Vars->Mon2D_Buffer[i+While_Buffer*(Vars->Coord_Number+1)] = Coord[i]; } } /* end if PixelID */ } While_Buffer++; } /* end if in Buffer */ else /* (While_Buffer >= Vars->Buffer_Block) && (Vars->Flag_Auto_Limits == 2) */ { Vars->Flag_Auto_Limits = 0; if (!Vars->Flag_List) /* free Buffer not needed anymore (no list to output) */ { /* Dim : (Vars->Coord_Number+1)*Vars->Buffer_Block matrix (for p, p2) */ free(Vars->Mon2D_Buffer); Vars->Mon2D_Buffer = NULL; } if (Vars->Flag_Verbose) printf("Monitor_nD: %s flushed %li Auto Limits from List (%li) in TRACE.\n", Vars->compcurname, Vars->Coord_Number, Vars->Buffer_Counter); } } /* if Vars->Flag_Auto_Limits == 2 */ if (Vars->Flag_Auto_Limits != 2 || !Vars->Coord_Number) /* Vars->Flag_Auto_Limits == 0 (no auto limits/list) or 1 (store events into Buffer) */ { /* automatically compute area and steradian solid angle when in AUTO mode */ /* compute the steradian solid angle incoming on the monitor */ double v; double tmp; v=sqrt(_particle->vx*_particle->vx + _particle->vy*_particle->vy + _particle->vz*_particle->vz); tmp=_particle->x; if (Vars->min_x > _particle->x){ #pragma acc atomic write Vars->min_x = tmp; } if (Vars->max_x < _particle->x){ #pragma acc atomic write Vars->max_x = tmp; } tmp=_particle->y; if (Vars->min_y > _particle->y){ #pragma acc atomic write Vars->min_y = tmp; } if (Vars->max_y < _particle->y){ tmp=_particle->y; #pragma acc atomic write Vars->max_y = tmp; } #pragma acc atomic Vars->mean_p = Vars->mean_p + _particle->p; if (v) { tmp=_particle->p*fabs(_particle->vx/v); #pragma acc atomic Vars->mean_dx = Vars->mean_dx + tmp; //_particle->p*fabs(_particle->vx/v); tmp=_particle->p*fabs(_particle->vy/v); #pragma acc atomic Vars->mean_dy = Vars->mean_dy + tmp; //_particle->p*fabs(_particle->vy/v); } for (i = 0; i <= Vars->Coord_Number; i++) { /* handle current neutron : last while */ XY = 0; Set_Vars_Coord_Type = (Vars->Coord_Type[i] & (DEFS->COORD_LOG-1)); /* get values for variables to monitor */ if (Set_Vars_Coord_Type == DEFS->COORD_X) XY = _particle->x; else if (Set_Vars_Coord_Type == DEFS->COORD_Y) XY = _particle->y; else if (Set_Vars_Coord_Type == DEFS->COORD_Z) XY = _particle->z; else if (Set_Vars_Coord_Type == DEFS->COORD_VX) XY = _particle->vx; else if (Set_Vars_Coord_Type == DEFS->COORD_VY) XY = _particle->vy; else if (Set_Vars_Coord_Type == DEFS->COORD_VZ) XY = _particle->vz; else if (Set_Vars_Coord_Type == DEFS->COORD_KX) XY = V2K*_particle->vx; else if (Set_Vars_Coord_Type == DEFS->COORD_KY) XY = V2K*_particle->vy; else if (Set_Vars_Coord_Type == DEFS->COORD_KZ) XY = V2K*_particle->vz; else if (Set_Vars_Coord_Type == DEFS->COORD_SX) XY = _particle->sx; else if (Set_Vars_Coord_Type == DEFS->COORD_SY) XY = _particle->sy; else if (Set_Vars_Coord_Type == DEFS->COORD_SZ) XY = _particle->sz; else if (Set_Vars_Coord_Type == DEFS->COORD_T) XY = _particle->t; else if (Set_Vars_Coord_Type == DEFS->COORD_P) XY = _particle->p; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE0) XY = Vars->UserDoubles[0]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE1) XY = Vars->UserDoubles[1]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE2) XY = Vars->UserDoubles[2]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE3) XY = Vars->UserDoubles[3]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE4) XY = Vars->UserDoubles[4]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE5) XY = Vars->UserDoubles[5]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE6) XY = Vars->UserDoubles[6]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE7) XY = Vars->UserDoubles[7]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE8) XY = Vars->UserDoubles[8]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE9) XY = Vars->UserDoubles[9]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE10) XY = Vars->UserDoubles[10]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE11) XY = Vars->UserDoubles[11]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE12) XY = Vars->UserDoubles[12]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE13) XY = Vars->UserDoubles[13]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE14) XY = Vars->UserDoubles[14]; else if (Set_Vars_Coord_Type == DEFS->COORD_USERDOUBLE15) XY = Vars->UserDoubles[15]; else if (Set_Vars_Coord_Type == DEFS->COORD_HDIV) XY = RAD2DEG*atan2(_particle->vx,_particle->vz); else if (Set_Vars_Coord_Type == DEFS->COORD_VDIV) XY = RAD2DEG*atan2(_particle->vy,_particle->vz); else if (Set_Vars_Coord_Type == DEFS->COORD_V) XY = sqrt(_particle->vx*_particle->vx+_particle->vy*_particle->vy+_particle->vz*_particle->vz); else if (Set_Vars_Coord_Type == DEFS->COORD_RADIUS) XY = sqrt(_particle->x*_particle->x+_particle->y*_particle->y+_particle->z*_particle->z); else if (Set_Vars_Coord_Type == DEFS->COORD_XY) XY = sqrt(_particle->x*_particle->x+_particle->y*_particle->y)*(_particle->x > 0 ? 1 : -1); else if (Set_Vars_Coord_Type == DEFS->COORD_YZ) XY = sqrt(_particle->y*_particle->y+_particle->z*_particle->z); else if (Set_Vars_Coord_Type == DEFS->COORD_XZ) XY = sqrt(_particle->x*_particle->x+_particle->z*_particle->z); else if (Set_Vars_Coord_Type == DEFS->COORD_VXY) XY = sqrt(_particle->vx*_particle->vx+_particle->vy*_particle->vy); else if (Set_Vars_Coord_Type == DEFS->COORD_VXZ) XY = sqrt(_particle->vx*_particle->vx+_particle->vz*_particle->vz); else if (Set_Vars_Coord_Type == DEFS->COORD_VYZ) XY = sqrt(_particle->vy*_particle->vy+_particle->vz*_particle->vz); else if (Set_Vars_Coord_Type == DEFS->COORD_K) { XY = sqrt(_particle->vx*_particle->vx+_particle->vy*_particle->vy+_particle->vz*_particle->vz); XY *= V2K; } else if (Set_Vars_Coord_Type == DEFS->COORD_KXY) { XY = sqrt(_particle->vx*_particle->vx+_particle->vy*_particle->vy); XY *= V2K; } else if (Set_Vars_Coord_Type == DEFS->COORD_KXZ) { XY = sqrt(_particle->vx*_particle->vx+_particle->vz*_particle->vz); XY *= V2K; } else if (Set_Vars_Coord_Type == DEFS->COORD_KYZ) { XY = sqrt(_particle->vy*_particle->vy+_particle->vz*_particle->vz); XY *= V2K; } else if (Set_Vars_Coord_Type == DEFS->COORD_ENERGY) { XY = _particle->vx*_particle->vx+_particle->vy*_particle->vy+_particle->vz*_particle->vz; XY *= VS2E; } else if (Set_Vars_Coord_Type == DEFS->COORD_LAMBDA) { XY = sqrt(_particle->vx*_particle->vx+_particle->vy*_particle->vy+_particle->vz*_particle->vz); XY *= V2K; if (XY != 0) XY = 2*PI/XY; } else if (Set_Vars_Coord_Type == DEFS->COORD_NCOUNT) XY = _particle->_uid; else if (Set_Vars_Coord_Type == DEFS->COORD_ANGLE) { XY = sqrt(_particle->vx*_particle->vx+_particle->vy*_particle->vy); if (_particle->vz != 0) XY = RAD2DEG*atan2(XY,_particle->vz)*(_particle->x > 0 ? 1 : -1); else XY = 0; } else if (Set_Vars_Coord_Type == DEFS->COORD_THETA) { if (_particle->z != 0) XY = RAD2DEG*atan2(_particle->x,_particle->z); } else if (Set_Vars_Coord_Type == DEFS->COORD_PHI) { double rr=sqrt(_particle->x*_particle->x+ _particle->y*_particle->y + _particle->z*_particle->z); if (rr != 0) XY = RAD2DEG*asin(_particle->y/rr); } else if (Set_Vars_Coord_Type == DEFS->COORD_USER1) {int fail; XY = particle_getvar(_particle,Vars->UserVariable1,&fail); if(fail) XY=0; } else if (Set_Vars_Coord_Type == DEFS->COORD_USER2) {int fail; XY = particle_getvar(_particle,Vars->UserVariable2,&fail); if(fail) XY=0; } else if (Set_Vars_Coord_Type == DEFS->COORD_USER3) {int fail; XY = particle_getvar(_particle,Vars->UserVariable3,&fail); if(fail) XY=0; } else if (Set_Vars_Coord_Type == DEFS->COORD_PIXELID && !Vars->Flag_Auto_Limits) { /* compute the PixelID from previous coordinates the PixelID is the product of Coord_Index[i] in the detector geometry pixelID = sum( Coord_Index[j]*prod(Vars->Coord_Bin[1:(j-1)]) ) this does not apply when we store events in the buffer as Coord_Index is not set. Then the pixelID will be re-computed during SAVE. */ char flag_outside=0; for (j= 1; j < i; j++) { /* not for 1D variables with Bin=1 such as PixelID, NCOUNT, Intensity */ if (Vars->Coord_Bin[j] <= 1) continue; if (0 > Coord_Index[j] || Coord_Index[j] >= Vars->Coord_Bin[j]) { flag_outside=1; XY=0; break; } XY += Coord_Index[j]*Vars->Coord_BinProd[j-1]; } if (Vars->Flag_mantid && Vars->Flag_OFF && Vars->OFF_polyidx >=0) XY=Vars->OFF_polyidx; if (!flag_outside) XY += Vars->Coord_Min[i]; } /* handle 'abs' and 'log' keywords */ if (Vars->Coord_Type[i] & DEFS->COORD_ABS) XY=fabs(XY); if (Vars->Coord_Type[i] & DEFS->COORD_LOG) /* compute log of variable if requested */ { if (XY > 0) XY = log(XY)/log(10); else XY = -100; } Coord[i] = XY; Coord_Index[i] = 0; if (i == 0) { pp = XY; Coord_Index[i] = 0; } else { /* check bounds for variables which have no automatic limits */ if ((!Vars->Flag_Auto_Limits || !(Vars->Coord_Type[i] & DEFS->COORD_AUTO)) && Vars->Coord_Bin[i]>1) { /* compute index in histograms for each variable to monitor */ XY = (Vars->Coord_Max[i]-Vars->Coord_Min[i]); if (XY > 0) Coord_Index[i] = floor((Coord[i]-Vars->Coord_Min[i])*Vars->Coord_Bin[i]/XY); if (Vars->Flag_With_Borders) { if (Coord_Index[i] >= Vars->Coord_Bin[i]) Coord_Index[i] = Vars->Coord_Bin[i] - 1; if (Coord_Index[i] < 0) Coord_Index[i] = 0; } //if (0 > Coord_Index[i] || Coord_Index[i] >= Vars->Coord_Bin[i]) // outsidebounds=1; } /* else will get Index later from Buffer when Flag_Auto_Limits == 2 */ } } /* end for i */ While_End = 1; }/* end else if Vars->Flag_Auto_Limits == 2 */ /* ====================================================================== */ /* store n1d/2d neutron from Buffer (Auto_Limits == 2) or current neutron in while */ if (Vars->Flag_Auto_Limits != 1) /* not when storing auto limits Buffer */ { /* apply per cm2 */ if (Vars->Flag_per_cm2 && Vars->area != 0) pp /= Vars->area; /* 2D case : Vars->Coord_Number==2 and !Vars->Flag_Multiple and !Vars->Flag_List */ if ( Vars->Coord_NumberNoPixel == 2 && !Vars->Flag_Multiple) { /* Dim : Vars->Coord_Bin[1]*Vars->Coord_Bin[2] matrix */ i = Coord_Index[1]; j = Coord_Index[2]; if (i >= 0 && i < Vars->Coord_Bin[1] && j >= 0 && j < Vars->Coord_Bin[2]) { if (Vars->Mon2D_N) { double p2 = pp*pp; #pragma acc atomic Vars->Mon2D_N[i][j] = Vars->Mon2D_N[i][j]+1; #pragma acc atomic Vars->Mon2D_p[i][j] = Vars->Mon2D_p[i][j]+pp; #pragma acc atomic Vars->Mon2D_p2[i][j] = Vars->Mon2D_p2[i][j] + p2; } } else { outsidebounds=1; } } else { /* 1D and n1D case : Vars->Flag_Multiple */ /* Dim : Vars->Coord_Number*Vars->Coord_Bin[i] vectors (intensity is not included) */ for (i= 1; i <= Vars->Coord_Number; i++) { j = Coord_Index[i]; if (j >= 0 && j < Vars->Coord_Bin[i]) { if (Vars->Flag_Multiple && Vars->Mon2D_N) { if (Vars->Mon2D_N) { double p2 = pp*pp; #pragma acc atomic Vars->Mon2D_N[i-1][j] = Vars->Mon2D_N[i-1][j]+1; #pragma acc atomic Vars->Mon2D_p[i-1][j] = Vars->Mon2D_p[i-1][j]+pp; #pragma acc atomic Vars->Mon2D_p2[i-1][j] = Vars->Mon2D_p2[i-1][j] + p2; } } } else { outsidebounds=1; break; } } } } /* end (Vars->Flag_Auto_Limits != 1) */ if (Vars->Flag_Auto_Limits != 2 && !outsidebounds) /* not when reading auto limits Buffer */ { /* now store Coord into Buffer (no index needed) if necessary (list or auto limits) */ if ((Vars->Buffer_Counter < Vars->Buffer_Block) && ((Vars->Flag_List) || (Vars->Flag_Auto_Limits == 1))) { for (i = 0; i <= Vars->Coord_Number; i++) { // This is is where the list is appended. How to make this "atomic"? #pragma acc atomic write Vars->Mon2D_Buffer[i + Vars->Buffer_Counter*(Vars->Coord_Number+1)] = Coord[i]; } #pragma acc atomic update Vars->Buffer_Counter = Vars->Buffer_Counter + 1; if (Vars->Flag_Verbose && (Vars->Buffer_Counter >= Vars->Buffer_Block) && (Vars->Flag_List == 1)) printf("Monitor_nD: %s %li neutrons stored in List.\n", Vars->compcurname, Vars->Buffer_Counter); } } /* end (Vars->Flag_Auto_Limits != 2) */ } /* end while */ #pragma acc atomic Vars->Nsum = Vars->Nsum + 1; #pragma acc atomic Vars->psum = Vars->psum + pp; #pragma acc atomic Vars->p2sum = Vars->p2sum + pp*pp; /*determine return value: 1:neutron was in bounds and measured, -1: outside bounds, 0: outside bounds, should be absorbed.*/ if(outsidebounds){ if(Vars->Flag_Absorb){ return 0; }else{ return -1; } } else { /* For the OPENACC list buffer an atomic capture/update of the updated Neutron_counter - updated below under list mode Only need to be updated when inside bounds. */ #pragma acc atomic update Vars->Neutron_Counter++; } return 1; } /* end Monitor_nD_Trace */ /* ========================================================================= */ /* Monitor_nD_Save: this routine is used to save data files */ /* ========================================================================= */ MCDETECTOR Monitor_nD_Save(MonitornD_Defines_type *DEFS, MonitornD_Variables_type *Vars) { char *fname; long i,j; double *p0m = NULL; double *p1m = NULL; double *p2m = NULL; char Coord_X_Label[CHAR_BUF_LENGTH]; double min1d, max1d; double min2d, max2d; char While_End = 0; long While_Buffer = 0; double XY=0, pp=0; double Coord[MONnD_COORD_NMAX]; long Coord_Index[MONnD_COORD_NMAX]; char label[CHAR_BUF_LENGTH]; MCDETECTOR detector; strcpy(detector.options,Vars->option); if (Vars->Flag_Verbose && Vars->Flag_per_cm2) { printf("Monitor_nD: %s: active flat detector area is %g [cm^2], total area is %g [cm^2]\n", Vars->compcurname, (Vars->max_x-Vars->min_x) *(Vars->max_y-Vars->min_y)*1E4, Vars->area); printf("Monitor_nD: %s: beam solid angle is %g [st] (%g x %g [deg^2])\n", Vars->compcurname, 2*fabs(2*atan2(Vars->mean_dx,Vars->mean_p) *sin(2*atan2(Vars->mean_dy,Vars->mean_p)/2)), atan2(Vars->mean_dx,Vars->mean_p)*RAD2DEG, atan2(Vars->mean_dy,Vars->mean_p)*RAD2DEG); } /* check Buffer flush when end of simulation reached */ if ((Vars->Buffer_Counter <= Vars->Buffer_Block) && Vars->Flag_Auto_Limits && Vars->Mon2D_Buffer && Vars->Buffer_Counter) { /* Get Auto Limits */ if (Vars->Flag_Verbose) printf("Monitor_nD: %s getting %li Auto Limits from List (%li events).\n", Vars->compcurname, Vars->Coord_Number, Vars->Buffer_Counter); for (i = 1; i <= Vars->Coord_Number; i++) { if ((Vars->Coord_Type[i] & DEFS->COORD_AUTO) && Vars->Coord_Bin[i] > 1) { Vars->Coord_Min[i] = FLT_MAX; Vars->Coord_Max[i] = -FLT_MAX; for (j = 0; j < Vars->Buffer_Counter; j++) { XY = Vars->Mon2D_Buffer[i+j*(Vars->Coord_Number+1)]; /* scanning variables in Buffer */ if (XY < Vars->Coord_Min[i]) Vars->Coord_Min[i] = XY; if (XY > Vars->Coord_Max[i]) Vars->Coord_Max[i] = XY; } if (Vars->Flag_Verbose) printf(" %s: min=%g max=%g in %li bins\n", Vars->Coord_Var[i], Vars->Coord_Min[i], Vars->Coord_Max[i], Vars->Coord_Bin[i]); } } Vars->Flag_Auto_Limits = 2; /* pass to 2nd auto limits step */ Vars->Buffer_Block = Vars->Buffer_Counter; while (!While_End) { /* we generate Coord[] and Coord_index[] from Buffer (auto limits) */ /* simulation ended before Buffer was filled. Limits have to be computed, and stored events must be sent into histograms */ if (While_Buffer < Vars->Buffer_Block) { /* first while loops (While_Buffer) */ Coord[0] = Vars->Mon2D_Buffer[While_Buffer*(Vars->Coord_Number+1)]; /* auto limits case : scan Buffer within limits and store in Mon2D */ for (i = 1; i <= Vars->Coord_Number; i++) { /* scanning variables in Buffer */ if (Vars->Coord_Bin[i] <= 1) Coord_Index[i] = 0; else { XY = (Vars->Coord_Max[i]-Vars->Coord_Min[i]); Coord[i] = Vars->Mon2D_Buffer[i+While_Buffer*(Vars->Coord_Number+1)]; if (XY > 0) Coord_Index[i] = floor((Coord[i]-Vars->Coord_Min[i])*Vars->Coord_Bin[i]/XY); else Coord_Index[i] = 0; if (Vars->Flag_With_Borders) { if (Coord_Index[i] < 0) Coord_Index[i] = 0; if (Coord_Index[i] >= Vars->Coord_Bin[i]) Coord_Index[i] = Vars->Coord_Bin[i] - 1; } } } /* end for */ /* update the PixelID, we compute it from the previous variables index */ for (i = 1; i <= Vars->Coord_Number; i++) { char Set_Vars_Coord_Type = (Vars->Coord_Type[i] & (DEFS->COORD_LOG-1)); if (Set_Vars_Coord_Type == DEFS->COORD_PIXELID) { char outsidebounds=0; Coord_Index[i] = Coord[i] = 0; for (j= 1; j < i; j++) { /* not for 1D variables with Bin=1 such as PixelID, NCOUNT, Intensity */ if (Vars->Coord_Bin[j] == 1) continue; if (0 > Coord_Index[j] || Coord_Index[j] >= Vars->Coord_Bin[j]) { outsidebounds=1; Coord[i] = 0; break; } Coord[i] += Coord_Index[j]*Vars->Coord_BinProd[j-1]; } if (!outsidebounds) { Vars->Mon2D_Buffer[i+While_Buffer*(Vars->Coord_Number+1)] = Coord[i]; } } /* end if PixelID */ } While_Buffer++; } /* end if in Buffer */ else /* (While_Buffer >= Vars->Buffer_Block) && (Vars->Flag_Auto_Limits == 2) */ { Vars->Flag_Auto_Limits = 0; While_End = 1; if (Vars->Flag_Verbose) printf("Monitor_nD: %s flushed %li Auto Limits from List (%li).\n", Vars->compcurname, Vars->Coord_Number, Vars->Buffer_Counter); } /* store n1d/2d section from Buffer */ pp = Coord[0]; /* apply per cm2 or per st */ if (Vars->Flag_per_cm2 && Vars->area != 0) pp /= Vars->area; /* 2D case : Vars->Coord_Number==2 and !Vars->Flag_Multiple and !Vars->Flag_List */ if (!Vars->Flag_Multiple && Vars->Coord_NumberNoPixel == 2) { /* Dim : Vars->Coord_Bin[1]*Vars->Coord_Bin[2] matrix */ i = Coord_Index[1]; j = Coord_Index[2]; if (i >= 0 && i < Vars->Coord_Bin[1] && j >= 0 && j < Vars->Coord_Bin[2]) { if (Vars->Mon2D_N) { Vars->Mon2D_N[i][j]++; Vars->Mon2D_p[i][j] += pp; Vars->Mon2D_p2[i][j] += pp*pp; } } else if (Vars->Flag_Absorb) pp=0; } else /* 1D and n1D case : Vars->Flag_Multiple */ { /* Dim : Vars->Coord_Number*Vars->Coord_Bin[i] vectors (intensity is not included) */ for (i= 1; i <= Vars->Coord_Number; i++) { j = Coord_Index[i]; if (j >= 0 && j < Vars->Coord_Bin[i]) { if (Vars->Flag_Multiple && Vars->Mon2D_N) { Vars->Mon2D_N[i-1][j]++; Vars->Mon2D_p[i-1][j] += pp; Vars->Mon2D_p2[i-1][j] += pp*pp; } } else if (Vars->Flag_Absorb) { pp=0; break; } } } /* end store 2D/1D */ } /* end while */ } /* end Force Get Limits */ /* write output files (sent to file as p[i*n + j] vectors) */ if (Vars->Coord_Number == 0) { double Nsum; double psum, p2sum; Nsum = Vars->Nsum; psum = Vars->psum; p2sum= Vars->p2sum; if (Vars->Flag_signal != DEFS->COORD_P && Nsum > 0) { psum /=Nsum; p2sum /= Nsum*Nsum; } /* DETECTOR_OUT_0D(Vars->Monitor_Label, Vars->Nsum, Vars->psum, Vars->p2sum); */ detector = mcdetector_out_0D(Vars->Monitor_Label, Nsum, psum, p2sum, Vars->compcurname, Vars->compcurpos, Vars->compcurrot,Vars->compcurindex); } else if (strlen(Vars->Mon_File) > 0) { fname = (char*)malloc(strlen(Vars->Mon_File)+10*Vars->Coord_Number); if (Vars->Flag_List && Vars->Mon2D_Buffer) /* List: DETECTOR_OUT_2D */ { if (Vars->Flag_List >= 2) Vars->Buffer_Size = Vars->Neutron_Counter; if (Vars->Buffer_Size >= Vars->Neutron_Counter) Vars->Buffer_Size = Vars->Neutron_Counter; strcpy(fname,Vars->Mon_File); if (strchr(Vars->Mon_File,'.') == NULL) strcat(fname, "_list"); strcpy(Coord_X_Label,""); for (i= 0; i <= Vars->Coord_Number; i++) { strcat(Coord_X_Label, Vars->Coord_Var[i]); strcat(Coord_X_Label, " "); if (strchr(Vars->Mon_File,'.') == NULL) { strcat(fname, "."); strcat(fname, Vars->Coord_Var[i]); } } if (Vars->Flag_Verbose) printf("Monitor_nD: %s write monitor file %s List (%lix%li).\n", Vars->compcurname, fname,(long int)Vars->Neutron_Counter,Vars->Coord_Number); /* handle the type of list output */ strcpy(label, Vars->Monitor_Label); detector = mcdetector_out_list( label, "List of neutron events", Coord_X_Label, -Vars->Buffer_Size, Vars->Coord_Number+1, Vars->Mon2D_Buffer, fname, Vars->compcurname, Vars->compcurpos, Vars->compcurrot, Vars->option,Vars->compcurindex); } if (Vars->Flag_Multiple) /* n1D: DETECTOR_OUT_1D */ { for (i= 0; i < Vars->Coord_Number; i++) { strcpy(fname,Vars->Mon_File); if (strchr(Vars->Mon_File,'.') == NULL) { strcat(fname, "."); strcat(fname, Vars->Coord_Var[i+1]); } sprintf(Coord_X_Label, "%s monitor", Vars->Coord_Label[i+1]); strcpy(label, Coord_X_Label); if (Vars->Coord_Bin[i+1] > 0) { /* 1D monitor */ if (Vars->Flag_Verbose) printf("Monitor_nD: %s write monitor file %s 1D (%li).\n", Vars->compcurname, fname, Vars->Coord_Bin[i+1]); min1d = Vars->Coord_Min[i+1]; max1d = Vars->Coord_Max[i+1]; if (min1d == max1d) max1d = min1d+1e-6; p1m = (double *)malloc(Vars->Coord_Bin[i+1]*sizeof(double)); p2m = (double *)malloc(Vars->Coord_Bin[i+1]*sizeof(double)); if (p2m == NULL) /* use Raw Buffer line output */ { if (Vars->Flag_Verbose) printf("Monitor_nD: %s cannot allocate memory for output. Using raw data.\n", Vars->compcurname); if (p1m != NULL) free(p1m); detector = mcdetector_out_1D( label, Vars->Coord_Label[i+1], Vars->Coord_Label[0], Vars->Coord_Var[i+1], min1d, max1d, Vars->Coord_Bin[i+1], Vars->Mon2D_N[i],Vars->Mon2D_p[i],Vars->Mon2D_p2[i], fname, Vars->compcurname, Vars->compcurpos, Vars->compcurrot,Vars->compcurindex); } /* if (p2m == NULL) */ else { if (Vars->Flag_log != 0) { XY = FLT_MAX; for (j=0; j < Vars->Coord_Bin[i+1]; j++) /* search min of signal */ if ((XY > Vars->Mon2D_p[i][j]) && (Vars->Mon2D_p[i][j] > 0)) XY = Vars->Mon2D_p[i][j]; if (XY <= 0) XY = -log(FLT_MAX)/log(10); else XY = log(XY)/log(10)-1; } /* if */ for (j=0; j < Vars->Coord_Bin[i+1]; j++) { p1m[j] = Vars->Mon2D_p[i][j]; p2m[j] = Vars->Mon2D_p2[i][j]; if (Vars->Flag_signal != DEFS->COORD_P && Vars->Mon2D_N[i][j] > 0) { /* normalize mean signal to the number of events */ p1m[j] /= Vars->Mon2D_N[i][j]; p2m[j] /= Vars->Mon2D_N[i][j]*Vars->Mon2D_N[i][j]; } if (Vars->Flag_log != 0) { if ((p1m[j] > 0) && (p2m[j] > 0)) { p2m[j] /= p1m[j]*p1m[j]; p1m[j] = log(p1m[j])/log(10); } else { p1m[j] = XY; p2m[j] = 0; } } } /* for */ detector = mcdetector_out_1D( label, Vars->Coord_Label[i+1], Vars->Coord_Label[0], Vars->Coord_Var[i+1], min1d, max1d, Vars->Coord_Bin[i+1], Vars->Mon2D_N[i],p1m,p2m, fname, Vars->compcurname, Vars->compcurpos, Vars->compcurrot,Vars->compcurindex); } /* else */ /* comment out 'free memory' lines to avoid loosing arrays if 'detector' structure is used by other instrument parts if (p1m != NULL) free(p1m); p1m=NULL; if (p2m != NULL) free(p2m); p2m=NULL; */ } else { /* 0d monitor */ detector = mcdetector_out_0D(label, Vars->Mon2D_p[i][0], Vars->Mon2D_p2[i][0], Vars->Mon2D_N[i][0], Vars->compcurname, Vars->compcurpos, Vars->compcurrot,Vars->compcurindex); } } /* for */ } /* if 1D */ else if (Vars->Coord_NumberNoPixel == 2) /* 2D: DETECTOR_OUT_2D */ { strcpy(fname,Vars->Mon_File); p0m = (double *)malloc(Vars->Coord_Bin[1]*Vars->Coord_Bin[2]*sizeof(double)); p1m = (double *)malloc(Vars->Coord_Bin[1]*Vars->Coord_Bin[2]*sizeof(double)); p2m = (double *)malloc(Vars->Coord_Bin[1]*Vars->Coord_Bin[2]*sizeof(double)); if (p2m == NULL) { if (Vars->Flag_Verbose) printf("Monitor_nD: %s cannot allocate memory for 2D array (%zi). Skipping.\n", Vars->compcurname, 3*Vars->Coord_Bin[1]*Vars->Coord_Bin[2]*sizeof(double)); /* comment out 'free memory' lines to avoid loosing arrays if 'detector' structure is used by other instrument parts if (p0m != NULL) free(p0m); if (p1m != NULL) free(p1m); */ } else { if (Vars->Flag_log != 0) { XY = FLT_MAX; for (i= 0; i < Vars->Coord_Bin[1]; i++) for (j= 0; j < Vars->Coord_Bin[2]; j++) /* search min of signal */ if ((XY > Vars->Mon2D_p[i][j]) && (Vars->Mon2D_p[i][j]>0)) XY = Vars->Mon2D_p[i][j]; if (XY <= 0) XY = -log(FLT_MAX)/log(10); else XY = log(XY)/log(10)-1; } for (i= 0; i < Vars->Coord_Bin[1]; i++) { for (j= 0; j < Vars->Coord_Bin[2]; j++) { long index; index = j + i*Vars->Coord_Bin[2]; p0m[index] = Vars->Mon2D_N[i][j]; p1m[index] = Vars->Mon2D_p[i][j]; p2m[index] = Vars->Mon2D_p2[i][j]; if (Vars->Flag_signal != DEFS->COORD_P && p0m[index] > 0) { p1m[index] /= p0m[index]; p2m[index] /= p0m[index]*p0m[index]; } if (Vars->Flag_log != 0) { if ((p1m[index] > 0) && (p2m[index] > 0)) { p2m[index] /= (p1m[index]*p1m[index]); p1m[index] = log(p1m[index])/log(10); } else { p1m[index] = XY; p2m[index] = 0; } } } } if (strchr(Vars->Mon_File,'.') == NULL) { strcat(fname, "."); strcat(fname, Vars->Coord_Var[1]); strcat(fname, "_"); strcat(fname, Vars->Coord_Var[2]); } if (Vars->Flag_Verbose) printf("Monitor_nD: %s write monitor file %s 2D (%lix%li).\n", Vars->compcurname, fname, Vars->Coord_Bin[1], Vars->Coord_Bin[2]); min1d = Vars->Coord_Min[1]; max1d = Vars->Coord_Max[1]; if (min1d == max1d) max1d = min1d+1e-6; min2d = Vars->Coord_Min[2]; max2d = Vars->Coord_Max[2]; if (min2d == max2d) max2d = min2d+1e-6; strcpy(label, Vars->Monitor_Label); if (Vars->Coord_Bin[1]*Vars->Coord_Bin[2] > 1 && Vars->Flag_signal == DEFS->COORD_P) strcat(label, " per bin"); if (Vars->Flag_List) { detector = mcdetector_out_2D_list( label, Vars->Coord_Label[1], Vars->Coord_Label[2], min1d, max1d, min2d, max2d, Vars->Coord_Bin[1], Vars->Coord_Bin[2], p0m,p1m,p2m, fname, Vars->compcurname, Vars->compcurpos, Vars->compcurrot,Vars->option,Vars->compcurindex); } else { detector = mcdetector_out_2D( label, Vars->Coord_Label[1], Vars->Coord_Label[2], min1d, max1d, min2d, max2d, Vars->Coord_Bin[1], Vars->Coord_Bin[2], p0m,p1m,p2m, fname, Vars->compcurname, Vars->compcurpos, Vars->compcurrot,Vars->compcurindex); } /* comment out 'free memory' lines to avoid loosing arrays if 'detector' structure is used by other instrument parts if (p0m != NULL) free(p0m); if (p1m != NULL) free(p1m); if (p2m != NULL) free(p2m); */ } } free(fname); } return(detector); } /* end Monitor_nD_Save */ /* ========================================================================= */ /* Monitor_nD_Finally: this routine is used to free memory */ /* ========================================================================= */ void Monitor_nD_Finally(MonitornD_Defines_type *DEFS, MonitornD_Variables_type *Vars) { int i; /* Now Free memory Mon2D.. */ if ((Vars->Flag_Auto_Limits || Vars->Flag_List) && Vars->Coord_Number) { /* Dim : (Vars->Coord_Number+1)*Vars->Buffer_Block matrix (for p, dp) */ if (Vars->Mon2D_Buffer != NULL) free(Vars->Mon2D_Buffer); } /* 1D and n1D case : Vars->Flag_Multiple */ if (Vars->Flag_Multiple && Vars->Coord_Number) { /* Dim : Vars->Coord_Number*Vars->Coord_Bin[i] vectors */ for (i= 0; i < Vars->Coord_Number; i++) { free(Vars->Mon2D_N[i]); free(Vars->Mon2D_p[i]); free(Vars->Mon2D_p2[i]); } free(Vars->Mon2D_N); free(Vars->Mon2D_p); free(Vars->Mon2D_p2); } /* 2D case : Vars->Coord_Number==2 and !Vars->Flag_Multiple and !Vars->Flag_List */ if ((Vars->Coord_NumberNoPixel == 2) && !Vars->Flag_Multiple) { /* Dim : Vars->Coord_Bin[1]*Vars->Coord_Bin[2] matrix */ for (i= 0; i < Vars->Coord_Bin[1]; i++) { free(Vars->Mon2D_N[i]); free(Vars->Mon2D_p[i]); free(Vars->Mon2D_p2[i]); } free(Vars->Mon2D_N); free(Vars->Mon2D_p); free(Vars->Mon2D_p2); } } /* end Monitor_nD_Finally */ /* ========================================================================= */ /* Monitor_nD_McDisplay: this routine is used to display component */ /* ========================================================================= */ void Monitor_nD_McDisplay(MonitornD_Defines_type *DEFS, MonitornD_Variables_type *Vars) { double radius, h; double xmin; double xmax; double ymin; double ymax; double zmin; double zmax; int i; double hdiv_min=-180, hdiv_max=180, vdiv_min=-90, vdiv_max=90; char restricted = 0; radius = Vars->Sphere_Radius; h = Vars->Cylinder_Height; xmin = Vars->mxmin; xmax = Vars->mxmax; ymin = Vars->mymin; ymax = Vars->mymax; zmin = Vars->mzmin; zmax = Vars->mzmax; /* determine if there are angular limits set at start (no auto) in coord_types * cylinder/banana: look for hdiv * sphere: look for angle, radius (->atan2(val,radius)), hdiv, vdiv * this activates a 'restricted' flag, to draw a region as blades on cylinder/sphere */ for (i= 0; i <= Vars->Coord_Number; i++) { int Set_Vars_Coord_Type; Set_Vars_Coord_Type = (Vars->Coord_Type[i] & (DEFS->COORD_LOG-1)); if (Set_Vars_Coord_Type == DEFS->COORD_HDIV || Set_Vars_Coord_Type == DEFS->COORD_THETA) { hdiv_min = Vars->Coord_Min[i]; hdiv_max = Vars->Coord_Max[i]; restricted = 1; } else if (Set_Vars_Coord_Type == DEFS->COORD_VDIV || Set_Vars_Coord_Type == DEFS->COORD_PHI) { vdiv_min = Vars->Coord_Min[i]; vdiv_max = Vars->Coord_Max[i];restricted = 1; } else if (Set_Vars_Coord_Type == DEFS->COORD_ANGLE) { hdiv_min = vdiv_min = Vars->Coord_Min[i]; hdiv_max = vdiv_max = Vars->Coord_Max[i]; restricted = 1; } else if (Set_Vars_Coord_Type == DEFS->COORD_RADIUS) { double angle; angle = RAD2DEG*atan2(Vars->Coord_Max[i], radius); hdiv_min = vdiv_min = angle; hdiv_max = vdiv_max = angle; restricted = 1; } else if (Set_Vars_Coord_Type == DEFS->COORD_Y && abs(Vars->Flag_Shape) == DEFS->SHAPE_SPHERE) { vdiv_min = atan2(ymin,radius)*RAD2DEG; vdiv_max = atan2(ymax,radius)*RAD2DEG; restricted = 1; } } /* full sphere */ if ((!restricted && (abs(Vars->Flag_Shape) == DEFS->SHAPE_SPHERE)) || abs(Vars->Flag_Shape) == DEFS->SHAPE_PREVIOUS) { mcdis_magnify(""); mcdis_circle("xy",0,0,0,radius); mcdis_circle("xz",0,0,0,radius); mcdis_circle("yz",0,0,0,radius); } /* banana/cylinder/sphere portion */ else if (restricted && ((abs(Vars->Flag_Shape) == DEFS->SHAPE_CYLIND) || (abs(Vars->Flag_Shape) == DEFS->SHAPE_BANANA) || (abs(Vars->Flag_Shape) == DEFS->SHAPE_SPHERE))) { int NH=24, NV=24; int ih, iv; double width, height; int issphere; issphere = (abs(Vars->Flag_Shape) == DEFS->SHAPE_SPHERE); width = (hdiv_max-hdiv_min)/NH; if (!issphere) { NV=1; /* cylinder has vertical axis */ } height= (vdiv_max-vdiv_min)/NV; /* check width and height of elements (sphere) to make sure the nb of plates remains limited */ if (width < 10 && NH > 1) { width = 10; NH=(hdiv_max-hdiv_min)/width; width=(hdiv_max-hdiv_min)/NH; } if (height < 10 && NV > 1) { height = 10; NV=(vdiv_max-vdiv_min)/height; height= (vdiv_max-vdiv_min)/NV; } mcdis_magnify("xyz"); for(ih = 0; ih < NH; ih++) for(iv = 0; iv < NV; iv++) { double theta0, phi0, theta1, phi1; /* angles in spherical coordinates */ double x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3; /* vertices at plate edges */ phi0 = (hdiv_min+ width*ih-90)*DEG2RAD; /* in xz plane */ phi1 = (hdiv_min+ width*(ih+1)-90)*DEG2RAD; if (issphere) { theta0= (vdiv_min+height* iv + 90) *DEG2RAD; /* in vertical plane */ theta1= (vdiv_min+height*(iv+1) + 90)*DEG2RAD; y0 = -radius*cos(theta0); /* z with Z vertical */ y1 = -radius*cos(theta1); if (y0 < ymin) y0=ymin; if (y0 > ymax) y0=ymax; if (y1 < ymin) y1=ymin; if (y1 > ymax) y1=ymax; } else { y0 = ymin; y1 = ymax; theta0=theta1=90*DEG2RAD; } x0 = radius*sin(theta0)*cos(phi0); /* x with Z vertical */ z0 =-radius*sin(theta0)*sin(phi0); /* y with Z vertical */ x1 = radius*sin(theta1)*cos(phi0); z1 =-radius*sin(theta1)*sin(phi0); x2 = radius*sin(theta1)*cos(phi1); z2 =-radius*sin(theta1)*sin(phi1); x3 = radius*sin(theta0)*cos(phi1); z3 =-radius*sin(theta0)*sin(phi1); y2 = y1; y3 = y0; mcdis_multiline(5, x0,y0,z0, x1,y1,z1, x2,y2,z2, x3,y3,z3, x0,y0,z0); } if (Vars->Flag_mantid) { /* First define the base pixel type */ double dt, dy; dt = (Vars->Coord_Max[1]-Vars->Coord_Min[1])/Vars->Coord_Bin[1]; dy = (Vars->Coord_Max[2]-Vars->Coord_Min[2])/Vars->Coord_Bin[2]; printf("MANTID_BANANA_DET: %g, %g, %g, %g, %g, %li, %li, %llu\n", radius, Vars->Coord_Min[1],Vars->Coord_Max[1], Vars->Coord_Min[2],Vars->Coord_Max[2], Vars->Coord_Bin[1], Vars->Coord_Bin[2], (long long unsigned)Vars->Coord_Min[4]); } } /* disk (circle) */ else if (abs(Vars->Flag_Shape) == DEFS->SHAPE_DISK) { mcdis_magnify(""); mcdis_circle("xy",0,0,0,radius); } /* rectangle (square) */ else if (abs(Vars->Flag_Shape) == DEFS->SHAPE_SQUARE) { mcdis_magnify("xy"); mcdis_multiline(5, (double)xmin, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, (double)ymin, 0.0); if (Vars->Flag_mantid) { /* First define the base pixel type */ double dx, dy; dx = (Vars->Coord_Max[1]-Vars->Coord_Min[1])/Vars->Coord_Bin[1]; dy = (Vars->Coord_Max[2]-Vars->Coord_Min[2])/Vars->Coord_Bin[2]; printf("MANTID_RECTANGULAR_DET: %g, %g, %g, %g, %li, %li, %llu\n", Vars->Coord_Min[1],Vars->Coord_Max[1], Vars->Coord_Min[2],Vars->Coord_Max[2], Vars->Coord_Bin[1], Vars->Coord_Bin[2], (long long unsigned)Vars->Coord_Min[4]); } } /* full cylinder/banana */ else if (!restricted && ((abs(Vars->Flag_Shape) == DEFS->SHAPE_CYLIND) || (abs(Vars->Flag_Shape) == DEFS->SHAPE_BANANA))) { mcdis_magnify("xyz"); mcdis_circle("xz", 0, h/2.0, 0, radius); mcdis_circle("xz", 0, -h/2.0, 0, radius); mcdis_line(-radius, -h/2.0, 0, -radius, +h/2.0, 0); mcdis_line(+radius, -h/2.0, 0, +radius, +h/2.0, 0); mcdis_line(0, -h/2.0, -radius, 0, +h/2.0, -radius); mcdis_line(0, -h/2.0, +radius, 0, +h/2.0, +radius); } else /* box */ if (abs(Vars->Flag_Shape) == DEFS->SHAPE_BOX) { mcdis_magnify("xyz"); mcdis_multiline(5, xmin, ymin, zmin, xmax, ymin, zmin, xmax, ymax, zmin, xmin, ymax, zmin, xmin, ymin, zmin); mcdis_multiline(5, xmin, ymin, zmax, xmax, ymin, zmax, xmax, ymax, zmax, xmin, ymax, zmax, xmin, ymin, zmax); mcdis_line(xmin, ymin, zmin, xmin, ymin, zmax); mcdis_line(xmax, ymin, zmin, xmax, ymin, zmax); mcdis_line(xmin, ymax, zmin, xmin, ymax, zmax); mcdis_line(xmax, ymax, zmin, xmax, ymax, zmax); } } /* end Monitor_nD_McDisplay */ /* end of monitor_nd-lib.c */ /******************************************************************************* * * McStas, neutron ray-tracing package * Copyright (C) 1997-2008, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Runtime: share/interoff.h * * %Identification * Written by: Reynald Arnerin * Date: Jun 12, 2008 * Release: * Version: * * Object File Format intersection header for McStas. Requires the qsort function. * * Such files may be obtained with e.g. * qhull < points.xyz Qx Qv Tv o > points.off * where points.xyz has format: * 3 * * * ... * The resulting file should have its first line being changed from '3' into 'OFF'. * It can then be displayed with geomview. * A similar, but somewhat older solution is to use 'powercrust' with e.g. * powercrust -i points.xyz * which will generate a 'pc.off' file to be renamed as suited. * *******************************************************************************/ #ifndef INTEROFF_LIB_H #define INTEROFF_LIB_H "$Revision$" #ifndef OFF_EPSILON #define OFF_EPSILON 1e-13 #endif #ifndef OFF_INTERSECT_MAX #ifdef OPENACC #define OFF_INTERSECT_MAX 100 #else #define OFF_INTERSECT_MAX 1024 #endif #endif //#include #define N_VERTEX_DISPLAYED 200000 typedef struct intersection { MCNUM time; //time of the intersection Coords v; //intersection point Coords normal; //normal vector of the surface intersected short in_out; //1 if the ray enters the volume, -1 otherwise short edge; //1 if the intersection is on the boundary of the polygon, and error is possible unsigned long index; // index of the face } intersection; typedef struct polygon { MCNUM* p; //vertices of the polygon in adjacent order, this way : x1 | y1 | z1 | x2 | y2 | z2 ... int npol; //number of vertices #pragma acc shape(p[0:npol]) init_needed(npol) Coords normal; double D; } polygon; typedef struct off_struct { long vtxSize; long polySize; long faceSize; Coords* vtxArray; #pragma acc shape(vtxArray[0:vtxSize]) init_needed(vtxSize) Coords* normalArray; #pragma acc shape(vtxArray[0:faceSize]) init_needed(faceSize) unsigned long* faceArray; #pragma acc shape(vtxArray[0:faceSize][0:polySize]) init_needed(faceSize,polySize) double* DArray; #pragma acc shape(vtxArray[0:polySize]) init_needed(polySize) char *filename; int mantidflag; long mantidoffset; intersection intersects[OFF_INTERSECT_MAX]; // After a call to off_intersect_all contains the list of intersections. int nextintersect; // 'Next' intersection (first t>0) solution after call to off_intersect_all int numintersect; // Number of intersections after call to off_intersect_all } off_struct; /******************************************************************************* * long off_init( char *offfile, double xwidth, double yheight, double zdepth, off_struct* data) * ACTION: read an OFF file, optionally center object and rescale, initialize OFF data structure * INPUT: 'offfile' OFF file to read * 'xwidth,yheight,zdepth' if given as non-zero, apply bounding box. * Specifying only one of these will also use the same ratio on all axes * 'notcenter' center the object to the (0,0,0) position in local frame when set to zero * RETURN: number of polyhedra and 'data' OFF structure *******************************************************************************/ long off_init( char *offfile, double xwidth, double yheight, double zdepth, int notcenter, off_struct* data); /******************************************************************************* * int off_intersect_all(double* t0, double* t3, Coords *n0, Coords *n3, double x, double y, double z, double vx, double vy, double vz, double ax, double ay, double az, off_struct *data ) * ACTION: computes intersection of neutron trajectory with an object. * INPUT: x,y,z and vx,vy,vz are the position and velocity of the neutron * ax, ay, az are the local acceleration vector * data points to the OFF data structure * RETURN: the number of polyhedral which trajectory intersects * t0 and t3 are the smallest incoming and outgoing intersection times * n0 and n3 are the corresponding normal vectors to the surface * data is the full OFF structure, including a list intersection type *******************************************************************************/ #pragma acc routine int off_intersect_all(double* t0, double* t3, Coords *n0, Coords *n3, double x, double y, double z, double vx, double vy, double vz, double ax, double ay, double az, off_struct *data ); /******************************************************************************* * int off_intersect(double* t0, double* t3, Coords *n0, Coords *n3, double x, double y, double z, double vx, double vy, double vz, double ax, double ay, double az, off_struct data ) * ACTION: computes intersection of neutron trajectory with an object. * INPUT: x,y,z and vx,vy,vz are the position and velocity of the neutron * ax, ay, az are the local acceleration vector * data points to the OFF data structure * RETURN: the number of polyhedral which trajectory intersects * t0 and t3 are the smallest incoming and outgoing intersection times * n0 and n3 are the corresponding normal vectors to the surface *******************************************************************************/ #pragma acc routine int off_intersect(double* t0, double* t3, Coords *n0, Coords *n3, double x, double y, double z, double vx, double vy, double vz, double ax, double ay, double az, off_struct data ); /***************************************************************************** * int off_intersectx(double* l0, double* l3, Coords *n0, Coords *n3, double x, double y, double z, double kx, double ky, double kz, off_struct data ) * ACTION: computes intersection of an xray trajectory with an object. * INPUT: x,y,z and kx,ky,kz, are spatial coordinates and wavevector of the x-ray * respectively. data points to the OFF data structure. * RETURN: the number of polyhedral the trajectory intersects * l0 and l3 are the smallest incoming and outgoing intersection lengths * n0 and n3 are the corresponding normal vectors to the surface *******************************************************************************/ #pragma acc routine int off_x_intersect(double *l0,double *l3, Coords *n0, Coords *n3, double x, double y, double z, double kx, double ky, double kz, off_struct data ); /******************************************************************************* * void off_display(off_struct data) * ACTION: display up to N_VERTEX_DISPLAYED points from the object *******************************************************************************/ void off_display(off_struct); /******************************************************************************* void p_to_quadratic(double eq[], Coords acc, Coords pos, Coords vel, double* teq) * ACTION: define the quadratic for the intersection of a parabola with a plane * INPUT: 'eq' plane equation * 'acc' acceleration vector * 'vel' velocity of the particle * 'pos' position of the particle * equation of plane A * x + B * y + C * z - D = 0 * eq[0] = (C*az)/2+(B*ay)/2+(A*ax)/2 * eq[1] = C*vz+B*vy+A*vx * eq[2] = C*z0+B*y0+A*x0-D * RETURN: equation of parabola: teq(0) * t^2 + teq(1) * t + teq(2) *******************************************************************************/ void p_to_quadratic(Coords norm, MCNUM d, Coords acc, Coords pos, Coords vel, double* teq); /******************************************************************************* int quadraticSolve(double eq[], double* x1, double* x2); * ACTION: solves the quadratic for the roots x1 and x2 * eq[0] * t^2 + eq[1] * t + eq[2] = 0 * INPUT: 'eq' the coefficients of the parabola * RETURN: roots x1 and x2 and the number of solutions *******************************************************************************/ int quadraticSolve(double* eq, double* x1, double* x2); #endif /* end of interoff-lib.h */ /******************************************************************************* * * McStas, neutron ray-tracing package * Copyright (C) 1997-2008, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Runtime: share/interoff-lib.c * * %Identification * Written by: Reynald Arnerin * Date: Jun 12, 2008 * Origin: ILL * Release: $Revision$ * Version: McStas X.Y * * Object File Format intersection library for McStas. Requires the qsort function. * * Such files may be obtained with e.g. * qhull < points.xyz Qx Qv Tv o > points.off * where points.xyz has format (it supports comments): * 3 * * * ... * The resulting file should have its first line being changed from '3' into 'OFF'. * It can then be displayed with geomview. * A similar, but somewhat older solution is to use 'powercrust' with e.g. * powercrust -i points.xyz * which will generate a 'pc.off' file to be renamed as suited. * *******************************************************************************/ #ifndef INTEROFF_LIB_H #include "interoff-lib.h" #endif #ifndef INTEROFF_LIB_C #define INTEROFF_LIB_C "$Revision$" #ifdef OPENACC // If on GPU map fprintf to printf #define fprintf(stderr,...) printf(__VA_ARGS__) #endif #pragma acc routine double off_F(double x, double y,double z,double A,double B,double C,double D) { return ( A*x + B*y + C*z + D ); } #pragma acc routine char off_sign(double a) { if (a<0) return(-1); else if (a==0) return(0); else return(1); } // off_normal ****************************************************************** //gives the normal vector of p #pragma acc routine void off_normal(Coords* n, polygon p) { //using Newell method int i=0,j=0; n->x=0;n->y=0;n->z=0; for (i = 0, j = p.npol-1; i < p.npol; j = i++) { MCNUM x1=p.p[3*i], y1=p.p[3*i+1], z1=p.p[3*i+2]; MCNUM x2=p.p[3*j], y2=p.p[3*j+1], z2=p.p[3*j+2]; // n is the cross product of v1*v2 n->x += (y1 - y2) * (z1 + z2); n->y += (z1 - z2) * (x1 + x2); n->z += (x1 - x2) * (y1 + y2); } } /* off_normal */ // off_pnpoly ****************************************************************** //based on http://www.ecse.rpi.edu/Homepages/wrf/Research/Short_Notes/pnpoly.html //return 0 if the vertex is out // 1 if it is in // -1 if on the boundary #pragma acc routine int off_pnpoly(polygon p, Coords v) { int i=0, c = 0; MCNUM minx=FLT_MAX,maxx=-FLT_MAX,miny=FLT_MAX,maxy=-FLT_MAX,minz=FLT_MAX,maxz=-FLT_MAX; MCNUM areax=0,areay=0,areaz=0; int pol2dx=0,pol2dy=1; //2d restriction of the poly MCNUM x=v.x,y=v.y; /*areax: projected area with x-scratched = |v1_yz x v2_yz|, where v1=(x1-x0,0,z1-z0) & v2=(x2-x0,0,z2-z0).*/ /* In principle, if polygon is triangle area should be scaled by 1/2, but this is irrelevant for finding the maximum area.*/ /* Similarly for y and z scratched.*/ areax=coords_len(coords_xp( coords_set(0,p.p[3*1+1]-p.p[0+1],p.p[3*1+2]-p.p[0+2]), coords_set(0,p.p[3*2+1]-p.p[0+1],p.p[3*2+2]-p.p[0+2]))); areay=coords_len(coords_xp( coords_set(p.p[3*1+0]-p.p[0+0],0,p.p[3*1+2]-p.p[0+2]), coords_set(p.p[3*2+0]-p.p[0+0],0,p.p[3*2+2]-p.p[0+2]))); areaz=coords_len(coords_xp( coords_set(p.p[3*1+0]-p.p[0+0],p.p[3*1+1]-p.p[0+1],0), coords_set(p.p[3*2+0]-p.p[0+0],p.p[3*2+1]-p.p[0+1],0))); if(areaztime = inter->edge = inter->in_out=0; inter->v = inter->normal = coords_set(0,0,1); if (fabs(ndir) < OFF_EPSILON) // ray is parallel to polygon plane { if (nw0 == 0) // ray lies in polygon plane (infinite number of solution) return 0; else return 0; // ray disjoint from plane (no solution) } // get intersect point of ray with polygon plane inter->time = nw0 / ndir; //parametric value the point on line (a,b) inter->v = coords_set(a.x + inter->time * dir.x,// intersect point of ray and plane a.y + inter->time * dir.y, a.z + inter->time * dir.z); int res=off_pnpoly(p,inter->v); inter->edge=(res==-1); if (ndir<0) inter->in_out=1; //the negative dot product means we enter the surface else inter->in_out=-1; inter->normal=p.normal; return res; //true if the intersection point lies inside the poly } /* off_intersectPoly */ // off_getBlocksIndex ********************************************************** /*reads the indexes at the beginning of the off file as this : line 1 OFF line 2 nbVertex nbFaces nbEdges */ FILE *off_getBlocksIndex(char* filename, long* vtxSize, long* polySize ) { FILE* f = Open_File(filename,"r", NULL); /* from read_table-lib: FILE *Open_File(char *name, char *Mode, char *path) */ if (!f) return (f); char line[CHAR_BUF_LENGTH]; char *ret=0; *vtxSize = *polySize = 0; /* **************** start to read the file header */ /* OFF file: 'OFF' or '3' */ ret=fgets(line,CHAR_BUF_LENGTH , f);// line 1 = "OFF" if (ret == NULL) { fprintf(stderr, "Error: Can not read 1st line in file %s (interoff/off_getBlocksIndex)\n", filename); exit(1); } if (strlen(line)>5) { fprintf(stderr,"Error: First line in %s is too long (=%lu). Possibly the line is not terminated by '\\n'.\n" " The first line is required to be exactly 'OFF', '3' or 'ply'.\n", filename,(long unsigned)strlen(line)); fclose(f); return(NULL); } if (strncmp(line,"OFF",3) && strncmp(line,"3",1) && strncmp(line,"ply",1)) { fprintf(stderr, "Error: %s is probably not an OFF, NOFF or PLY file (interoff/off_getBlocksIndex).\n" " Requires first line to be 'OFF', '3' or 'ply'.\n",filename); fclose(f); return(NULL); } if (!strncmp(line,"OFF",3) || !strncmp(line,"3",1)) { do /* OFF file: skip # comments which may be there */ { ret=fgets(line,CHAR_BUF_LENGTH , f); if (ret == NULL) { fprintf(stderr, "Error: Can not read line in file %s (interoff/off_getBlocksIndex)\n", filename); exit(1); } } while (line[0]=='#'); //line = nblines of vertex,faces and edges arrays sscanf(line,"%lu %lu",vtxSize,polySize); } else { do /* PLY file: read all lines until find 'end_header' and locate 'element faces' and 'element vertex' */ { ret=fgets(line,CHAR_BUF_LENGTH , f); if (ret == NULL) { fprintf(stderr, "Error: Can not read line in file %s (interoff/off_getBlocksIndex)\n", filename); exit(1); } if (!strncmp(line,"element face",12)) sscanf(line,"element face %lu",polySize); else if (!strncmp(line,"element vertex",14)) sscanf(line,"element vertex %lu",vtxSize); else if (!strncmp(line,"format binary",13)) exit(fprintf(stderr, "Error: Can not read binary PLY file %s, only 'format ascii' (interoff/off_getBlocksIndex)\n%s\n", filename, line)); } while (strncmp(line,"end_header",10)); } /* The FILE is left opened ready to read 'vtxSize' vertices (vtxSize *3 numbers) and then polySize polygons (rows) */ return(f); } /* off_getBlocksIndex */ // off_init_planes ************************************************************* //gives the equations of 2 perpandicular planes of [ab] #pragma acc routine void off_init_planes(Coords a, Coords b, MCNUM* A1, MCNUM* C1, MCNUM* D1, MCNUM *A2, MCNUM* B2, MCNUM* C2, MCNUM* D2) { //direction vector of [a b] Coords dir={b.x-a.x, b.y-a.y, b.z-a.z}; //the plane parallel to the 'y' is computed with the normal vector of the projection of [ab] on plane 'xz' *A1= dir.z; *C1=-dir.x; if(*A1!=0 || *C1!=0) *D1=-(a.x)*(*A1)-(a.z)*(*C1); else { //the plane does not support the vector, take the one parallel to 'z'' *A1=1; //B1=dir.x=0 *D1=-(a.x); } //the plane parallel to the 'x' is computed with the normal vector of the projection of [ab] on plane 'yz' *B2= dir.z; *C2=-dir.y; *A2= 0; if (*B2==0 && *C2==0) { //the plane does not support the vector, take the one parallel to 'z' *B2=1; //B1=dir.x=0 *D2=-(a.y); } else { if (dir.z==0) { //the planes are the same, take the one parallel to 'z' *A2= dir.y; *B2=-dir.x; *D2=-(a.x)*(*A2)-(a.y)*(*B2); } else *D2=-(a.y)**B2-(a.z)**C2; } } /* off_init_planes */ // off_clip_3D_mod ************************************************************* #pragma acc routine int off_clip_3D_mod(intersection* t, Coords a, Coords b, Coords* vtxArray, unsigned long vtxSize, unsigned long* faceArray, unsigned long faceSize, Coords* normalArray) { MCNUM A1=0, C1=0, D1=0, A2=0, B2=0, C2=0, D2=0; //perpendicular plane equations to [a,b] off_init_planes(a, b, &A1, &C1, &D1, &A2, &B2, &C2, &D2); int t_size=0; MCNUM popol[3*4]; /*3 dimensions and max 4 vertices to form a polygon*/ unsigned long i=0,indPoly=0; //exploring the polygons : i=indPoly=0; while (iOFF_INTERSECT_MAX) { fprintf(stderr, "Warning: number of intersection exceeded (%d) (interoff-lib/off_clip_3D_mod)\n", OFF_INTERSECT_MAX); return (t_size); } #endif //both planes intersect the polygon, let's find the intersection point //our polygon : int k; for (k=0; k t[0].time) { t[0]=x; } } else { /* Case 2, positive time */ intersection xtmp; if (x.time < t[3].time) { t[3]=x; if (t[3].time < t[2].time) { xtmp = t[2]; t[2] = t[3]; t[3] = xtmp; } if (t[2].time < t[1].time) { xtmp = t[1]; t[1] = t[2]; t[2] = xtmp; } } } #endif } } /* if (jCHAR_BUF_LENGTH) { fprintf(stderr, "Warning: number of intersection exceeded (%d) (interoff-lib/off_clip_3D_mod)\n", CHAR_BUF_LENGTH); return (t_size); } //both planes intersect the polygon, let's find the intersection point //our polygon : int k; for (k=0; k= 1) { double time = 1.0e36; if (x1 < time && x1 > 0.0) { time = x1; } if (nsol == 2 && x2 < time && x2 > 0.0) { time = x2; } if (time != 1.0e36) { intersection inters; double t2 = time * time * 0.5; double tx = pos.x + time * vel.x; if (acc.x != 0.0) { tx = tx + t2 * acc.x; } double ty = pos.y + time * vel.y; if (acc.y != 0.0) { ty = ty + t2 * acc.y; } double tz = pos.z + time * vel.z; if (acc.z != 0.0) { tz = tz + t2 * acc.z; } inters.v = coords_set(tx, ty, tz); Coords tvel = coords_set(vel.x + time * acc.x, vel.y + time * acc.y, vel.z + time * acc.z); inters.time = time; inters.normal = pol.normal; inters.index = indPoly; int res=off_pnpoly(pol,inters.v); if (res != 0) { inters.edge=(res==-1); MCNUM ndir = scalar_prod(pol.normal.x,pol.normal.y,pol.normal.z,tvel.x,tvel.y,tvel.z); if (ndir<0) { inters.in_out=1; //the negative dot product means we enter the surface } else { inters.in_out=-1; } #ifdef OFF_LEGACY t[t_size++]=inters; #else /* Check against our 4 existing times, starting from [-FLT_MAX, FLT_MAX, FLT_MAX, FLT_MAX] */ /* Case 1, negative time? */ if (t_size < 4) t_size++; if (inters.time < 0) { if (inters.time > t[0].time) { t[0]=inters; } } else { /* Case 2, positive time */ intersection xtmp; if (inters.time < t[3].time) { t[3]=inters; if (t[3].time < t[2].time) { xtmp = t[2]; t[2] = t[3]; t[3] = xtmp; } if (t[2].time < t[1].time) { xtmp = t[1]; t[1] = t[2]; t[2] = xtmp; } } } #endif } } } i += pol.npol; indPoly++; } /* while itime - pb->time); } /* off_compare */ // off_cleanDouble ************************************************************* //given an array of intersections throw those which appear several times //returns 1 if there is a possibility of error #pragma acc routine int off_cleanDouble(intersection* t, int* t_size) { int i=1; intersection prev=t[0]; while (i<*t_size) { int j=i; //for each intersection with the same time while (j<*t_size && fabs(prev.time-t[j].time)maxx) maxx=vtxArray[i].x; if (vtxArray[i].ymaxy) maxy=vtxArray[i].y; if (vtxArray[i].zmaxz) maxz=vtxArray[i].z; i++; // inquire next vertex } // resizing and repositioning params double centerx=0, centery=0, centerz=0; if (!notcenter) { centerx=(minx+maxx)*0.5; centery=(miny+maxy)*0.5; centerz=(minz+maxz)*0.5; } double rangex=-minx+maxx, rangey=-miny+maxy, rangez=-minz+maxz; double ratiox=1,ratioy=1,ratioz=1; if (xwidth && rangex) { ratiox=xwidth/rangex; ratioy=ratiox; ratioz=ratiox; } if (yheight && rangey) { ratioy=yheight/rangey; if(!xwidth) ratiox=ratioy; ratioz=ratioy; } if (zdepth && rangez) { ratioz=zdepth/rangez; if(!xwidth) ratiox=ratioz; if(!yheight) ratioy=ratioz; } rangex *= ratiox; rangey *= ratioy; rangez *= ratioz; //center and resize the object for (i=0; i polySize*10) { fprintf(stderr, "Error: %li exceeded allocated polygon array[%li] in file %s (interoff/off_init)\n", faceSize, polySize*10, offfile); } faceArray[faceSize++] = nbVertex; // length of the polygon/face // then read the vertex ID's for (j=0; jvtxArray = vtxArray; data->normalArray= normalArray; data->DArray = DArray; data->faceArray = faceArray; data->vtxSize = vtxSize; data->polySize = polySize; data->faceSize = faceSize; data->filename = offfile; #ifdef OPENACC acc_attach((void *)&vtxArray); acc_attach((void *)&normalArray); acc_attach((void *)&faceArray); #endif return(polySize); } /* off_init */ #pragma acc routine int Min_int(int x, int y) { return (xintersects, pos, vel, acc, data->vtxArray, data->vtxSize, data->faceArray, data->faceSize, data->normalArray, data->DArray ); } else { /////////////////////////////////// // non-grav Coords A={x, y, z}; Coords B={x+vx, y+vy, z+vz}; t_size=off_clip_3D_mod(data->intersects, A, B, data->vtxArray, data->vtxSize, data->faceArray, data->faceSize, data->normalArray ); } #ifndef OPENACC qsort(data->intersects, t_size, sizeof(intersection), off_compare); #else #ifdef USE_OFF gpusort(data->intersects, t_size); #endif #endif off_cleanDouble(data->intersects, &t_size); off_cleanInOut(data->intersects, &t_size); /*find intersections "closest" to 0 (favouring positive ones)*/ if(t_size>0){ int i=0; if(t_size>1) { for (i=1; i < t_size-1; i++){ if (data->intersects[i-1].time > 0 && data->intersects[i].time > 0) break; } data->nextintersect=i-1; data->numintersect=t_size; if (t0) *t0 = data->intersects[i-1].time; if (n0) *n0 = data->intersects[i-1].normal; if (t3) *t3 = data->intersects[i].time; if (n3) *n3 = data->intersects[i].normal; } else { if (t0) *t0 = data->intersects[0].time; if (n0) *n0 = data->intersects[0].normal; } /* should also return t[0].index and t[i].index as polygon ID */ data->nextintersect=(data->intersects[data->nextintersect]).index; return t_size; } #else intersection intersect4[4]; intersect4[0].time=-FLT_MAX; intersect4[1].time=FLT_MAX; intersect4[2].time=FLT_MAX; intersect4[3].time=FLT_MAX; if(mcgravitation) { Coords pos={ x, y, z}; Coords vel={vx, vy, vz}; Coords acc={ax, ay, az}; t_size=off_clip_3D_mod_grav(intersect4, pos, vel, acc, data->vtxArray, data->vtxSize, data->faceArray, data->faceSize, data->normalArray, data->DArray); } else { /////////////////////////////////// // non-grav Coords A={x, y, z}; Coords B={x+vx, y+vy, z+vz}; t_size=off_clip_3D_mod(intersect4, A, B, data->vtxArray, data->vtxSize, data->faceArray, data->faceSize, data->normalArray ); } if(t_size>0){ int i=0; if (intersect4[0].time == -FLT_MAX) i=1; data->numintersect=t_size; if (t0) *t0 = intersect4[i].time; if (n0) *n0 = intersect4[i].normal; if (t3) *t3 = intersect4[i+1].time; if (n3) *n3 = intersect4[i+1].normal; if (intersect4[1].time == FLT_MAX) { if (t3) *t3 = 0.0; } /* should also return t[0].index and t[i].index as polygon ID */ data->nextintersect=(int)intersect4[i].index; return t_size; } #endif return 0; } /* off_intersect */ /******************************************************************************* * int off_intersect(double* t0, double* t3, Coords *n0, Coords *n3, double x, double y, double z, double vx, double vy, double vz, off_struct data ) * ACTION: computes intersection of neutron trajectory with an object. * INPUT: x,y,z and vx,vy,vz are the position and velocity of the neutron * data points to the OFF data structure * RETURN: the number of polyhedral which trajectory intersects * t0 and t3 are the smallest incoming and outgoing intersection times * n0 and n3 are the corresponding normal vectors to the surface *******************************************************************************/ int off_intersect(double* t0, double* t3, Coords *n0, Coords *n3, double x, double y, double z, double vx, double vy, double vz, double ax, double ay, double az, off_struct data ) { return off_intersect_all(t0, t3, n0, n3, x, y, z, vx, vy, vz, ax, ay, az, &data ); } /* off_intersect */ /***************************************************************************** * int off_x_intersect(double* l0, double* l3, Coords *n0, Coords *n3, double x, double y, double z, double kx, double ky, double kz, off_struct data ) * ACTION: computes intersection of an xray trajectory with an object. * INPUT: x,y,z and kx,ky,kz, are spatial coordinates and wavevector of the x-ray * respectively. data points to the OFF data structure. * RETURN: the number of polyhedral the trajectory intersects * l0 and l3 are the smallest incoming and outgoing intersection lengths * n0 and n3 are the corresponding normal vectors to the surface *******************************************************************************/ int off_x_intersect(double *l0,double *l3, Coords *n0, Coords *n3, double x, double y, double z, double kx, double ky, double kz, off_struct data ) { /*This function simply reformats and calls off_intersect (as for neutrons) *by normalizing the wavevector - this will yield the intersection lengths *in m*/ double jx,jy,jz,invk; int n; invk=1/sqrt(scalar_prod(kx,ky,kz,kx,ky,kz)); jx=kx*invk;jy=ky*invk;jz=kz*invk; n=off_intersect(l0,l3,n0,n3,x,y,z,jx,jy,jz,0.0,0.0,0.0,data); return n; } /******************************************************************************* * void off_display(off_struct data) * ACTION: display up to N_VERTEX_DISPLAYED polygons from the object *******************************************************************************/ void off_display(off_struct data) { if(mcdotrace==2){ // Estimate size of the JSON string const int VERTEX_OVERHEAD = 30; const int FACE_OVERHEAD_BASE = 20; const int FACE_INDEX_OVERHEAD = 15; int estimated_size = 256; // Base size estimated_size += data.vtxSize * VERTEX_OVERHEAD; for (int i = 0; i < data.faceSize;) { int num_indices = data.faceArray[i]; estimated_size += FACE_OVERHEAD_BASE + num_indices * FACE_INDEX_OVERHEAD; i += num_indices + 1; } char *json_string = malloc(estimated_size); if (json_string == NULL) { fprintf(stderr, "Memory allocation failed.\n"); return; } char *ptr = json_string; ptr += sprintf(ptr, "{ \"vertices\": ["); for (int i = 0; i < data.vtxSize; i++) { ptr += sprintf(ptr, "[%g, %g, %g]", data.vtxArray[i].x, data.vtxArray[i].y, data.vtxArray[i].z); if (i < data.vtxSize - 1) { ptr += sprintf(ptr, ", "); } } ptr += sprintf(ptr, "], \"faces\": ["); for (int i = 0; i < data.faceSize;) { int num = data.faceArray[i]; ptr += sprintf(ptr, "{ \"face\": ["); for (int j = 1; j <= num; j++) { ptr += sprintf(ptr, "%lu", data.faceArray[i + j]); if (j < num) { ptr += sprintf(ptr, ", "); } } ptr += sprintf(ptr, "]}"); i += num + 1; if(i 1 || drawthis) { mcdis_line(x1,y1,z1,x2,y2,z2); } x1 = x2; y1 = y2; z1 = z2; } if (ratio > 1 || drawthis) { mcdis_line(x1,y1,z1,x0,y0,z0); } if (data.mantidflag) { printf("MANTID_PIXEL: %s\n", pixelinfo); pixel++; } i += nbVertex; } } } /* off_display */ /* end of interoff-lib.c */ #endif // INTEROFF_LIB_C /* Shared user declarations for all components types 'Slit'. */ void slit_print_if (int condition, char* level, char* message, char* component) { if (condition) fprintf (stderr, "Slit: %s: %s: %s\n", component, level, message); } void slit_error_if (int condition, char* message, char* component) { slit_print_if (condition, "Error", message, component); if (condition) exit (-1); } void slit_warning_if (int condition, char* message, char* component) { slit_print_if (condition, "Warning", message, component); } /* Shared user declarations for all components types 'Conics_PH'. */ /***************************************************************************** * * McStas, neutron ray-tracing package * Copyright 1997-2006, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Library: share/ref-lib.h * * %Identification * Written by: Peter Christiansen * Date: August, 2006 * Origin: RISOE * Release: McStas 1.10 * Version: $Revision$ * * Add StdDoubleReflecFunc, ExtendedReflecFunc * Date: October, 2022 * Locale: ESS * Release: McStas 2.7x, 3.1x * * Commonly used reflection functions are declared in this file which * are used by some guide and mirror components. * * Depends on read_table-lib * * Usage: within SHARE * %include "ref-lib" * ****************************************************************************/ #ifndef REF_LIB_H #define REF_LIB_H "$Revision$" void StdReflecFunc(double, double*, double*); void TableReflecFunc(double, t_Table*, double*); void StdDoubleReflecFunc(double, double*, double*); void ExtendedReflecFunc(double, double*, double*); #endif /* end of ref-lib.h */ /**************************************************************************** * * McStas, neutron ray-tracing package * Copyright 1997-2006, All rights reserved * Risoe National Laboratory, Roskilde, Denmark * Institut Laue Langevin, Grenoble, France * * Library: share/ref-lib.c * * %Identification * Written by: Peter Christiansen * Date: August, 2006 * Origin: RISOE * Release: McStas 1.10 * Version: $Revision$ * * Add StdDoubleReflecFunc, ExtendedReflecFunc * Date: October, 2022 * Locale: ESS * Release: McStas 2.7.x, 3.x * * Commonly used reflection functions are declared in this file which * are used by some guide and mirror components. * * Variable names have prefix 'mc_ref_' for 'McStas Reflection' * to avoid conflicts * * Usage: within SHARE * %include "ref-lib" * ****************************************************************************/ #ifndef REF_LIB_H #include "ref-lib.h" #endif #ifndef READ_TABLE_LIB_H #include "read_table-lib.h" #include "read_table-lib.c" #endif /**************************************************************************** * void StdReflecFunc(double q, double *par, double *r) * * The McStas standard analytic parametrization of the reflectivity. * The parameters are: * R0: [1] Low-angle reflectivity * Qc: [AA-1] Critical scattering vector * alpha: [AA] Slope of reflectivity * m: [1] m-value of material. Zero means completely absorbing. * W: [AA-1] Width of supermirror cut-off *****************************************************************************/ #pragma acc routine seq void StdReflecFunc(double mc_pol_q, double *mc_pol_par, double *mc_pol_r) { double R0 = mc_pol_par[0]; double Qc = mc_pol_par[1]; double alpha = mc_pol_par[2]; double m = mc_pol_par[3]; double W = mc_pol_par[4]; double beta = 0; mc_pol_q = fabs(mc_pol_q); double arg; double m_corr; /* Simpler parametrization from Henrik Jacobsen uses these values that depend on m only. double m_value=m*0.9853+0.1978; double W=-0.0002*m_value+0.0022; double alpha=0.2304*m_value+5.0944; double beta=-7.6251*m_value+68.1137; If W and alpha are set to 0, use Henrik's approach for estimating these parameters and apply the formulation: arg = R0*0.5*(1-tanh(arg))*(1-alpha*(q-Qc)+beta*(q-Qc)*(q-Qc)); */ if (W==0 && alpha==0) { m = m * 0.9853 + 0.1978; m_corr = m * 0.9853 - 0.7875; W = -0.0002 * m_corr + 0.0022; alpha = 0.2304 * m_corr + 5.0944; beta = -7.6251 * m_corr + 68.1137; if (m==3) { alpha = m_corr; beta = 0; } arg = (mc_pol_q - m*Qc)/W; // <--- here m, not m_corr!! } arg = W > 0 ? (mc_pol_q - m*Qc)/W : 11; if (arg > 10 || m <= 0 || Qc <=0 || R0 <= 0) { *mc_pol_r = 0; return; } if (m < 1) { Qc *= m; m=1; } if(mc_pol_q <= Qc) { *mc_pol_r = R0; return; } *mc_pol_r = R0*0.5*(1 - tanh(arg))*(1 - alpha*(mc_pol_q - Qc) + beta*(mc_pol_q - Qc)*(mc_pol_q - Qc)); return; } /**************************************************************************** * void TableReflecFunc(double q, t_Table *par, double *r) { * * Looks up the reflectivity in a table using the routines in read_table-lib. *****************************************************************************/ #pragma acc routine seq void TableReflecFunc(double mc_pol_q, t_Table *mc_pol_par, double *mc_pol_r) { *mc_pol_r = Table_Value(*mc_pol_par, mc_pol_q, 1); if(*mc_pol_r>1) *mc_pol_r = 1; return; } /**************************************************************************** * void StdDoubleReflecFunc(double q, double *par, double *r) * * The McStas standard analytic parametrization of the reflectivity for * double-side coated supermirror. * The parameters are: * R0: [1] Low-angle reflectivity * Qc: [AA-1] Critical scattering vector * alpha: [AA] Slope of reflectivity * m: [1] m-value of material. Zero means completely absorbing. * W: [AA-1] Width of supermirror cut-off *****************************************************************************/ void StdDoubleReflecFunc(double mc_pol_q, double *mc_pol_par, double *mc_pol_r) { double R0 = mc_pol_par[0]; double Qc = mc_pol_par[1]; double alpha = mc_pol_par[2]; double m = mc_pol_par[3]; double W = mc_pol_par[4]; double beta = 0; mc_pol_q = fabs(mc_pol_q); double arg; /* Simpler parametrization from Henrik Jacobsen uses these values that depend on m only. double m_value=m*0.9853+0.1978; double W=-0.0002*m_value+0.0022; double alpha=0.2304*m_value+5.0944; double beta=-7.6251*m_value+68.1137; If W and alpha are set to 0, use Henrik's approach for estimating these parameters and apply the formulation: arg = R0*0.5*(1-tanh(arg))*(1-alpha*(q-Qc)+beta*(q-Qc)*(q-Qc)); */ if (W==0 && alpha==0) { m=m*0.9853+0.1978; W=-0.0002*m+0.0022; alpha=0.2304*m+5.0944; beta=-7.6251*m+68.1137; if (m<=3) { alpha=m; beta=0; } } arg = W > 0 ? (mc_pol_q - m*Qc)/W : 11; if (arg > 10 || m <= 0 || Qc <=0 || R0 <= 0) { *mc_pol_r = 0; return; } if (m < 1) { Qc *= m; m=1; } /* Reflectivity R0 = single-side coated supermirror reflectivity double-side coated supermirror reflectivity = 1- (1-R0)^2 */ if(mc_pol_q <= Qc) { *mc_pol_r = 1- (1-R0)*(1-R0); return; } R0 = R0*0.5*(1 - tanh(arg))*(1 - alpha*(mc_pol_q - Qc) + beta*(mc_pol_q - Qc)*(mc_pol_q - Qc)); *mc_pol_r = 1- (1-R0)*(1-R0); return; } void ExtendedReflecFunc(double mc_pol_q, double *mc_pol_par, double *mc_pol_r) { double R0 = mc_pol_par[0]; double Qc = mc_pol_par[1]; double alpha = mc_pol_par[2]; double m = mc_pol_par[3]; double W = mc_pol_par[4]; double beta = mc_pol_par[5]; mc_pol_q = fabs(mc_pol_q); double arg; /* Simpler parametrization from Henrik Jacobsen uses these values that depend on m only. double m_value=m*0.9853+0.1978; double W=-0.0002*m_value+0.0022; double alpha=0.2304*m_value+5.0944; double beta=-7.6251*m_value+68.1137; If W and alpha are set to 0, use Henrik's approach for estimating these parameters and apply the formulation: arg = R0*0.5*(1-tanh(arg))*(1-alpha*(q-Qc)+beta*(q-Qc)*(q-Qc)); */ if (W==0 && alpha==0) { m=m*0.9853+0.1978; W=-0.0002*m+0.0022; alpha=0.2304*m+5.0944; beta=-7.6251*m+68.1137; if (m<=3) { alpha=m; beta=0; } } arg = W > 0 ? (mc_pol_q - m*Qc)/W : 11; if (arg > 10 || m <= 0 || Qc <=0 || R0 <= 0) { *mc_pol_r = 0; return; } if (m < 1) { Qc *= m; m=1; } if(mc_pol_q <= Qc) { *mc_pol_r = R0; return; } *mc_pol_r = R0*0.5*(1 - tanh(arg))*(1 - alpha*(mc_pol_q - Qc) + beta*(mc_pol_q - Qc)*(mc_pol_q - Qc)); return; } /* end of ref-lib.c */ /** \mainpage Simple Meta-Conic Neutron Raytracer is a framework for raytracing geometries of the form: @f$ r^2=k_1 + k_2 z + k_3 z^2 @f$.

General Notes

To use the software you must make a Scene element using the function makeScene(). You must then add items to this scene element using the various add function (addDisk(), addParaboloid(), etc...). Next you must call the function traceSingleNeutron() for every neutron you would like to trace through the geometry. The maximum number of each geometry you can place in a scene is defined by the MAX_CONICSURF, MAX_DISK and MAX_DETECTOR definitions in the conic.h file.

TODO

@todo Name variable for each component
Normalize Detector Events by weight of neutron

Known Bugs

@bug HPPH works incorrectly for M != 1
Neutrons t=1e-11 away from a surface will pass through

Note on Pointers

This framework uses pointers extensivly. It is important to be familiar with how to use pointers.
Here is a quick overview. @code //Making an Element ConicSurf c = makeParaboloid(...); int k = 10; //Making a Pointer from an Element ConicSurf * c_pointer = &c; int * k_pointer = &k; //Making an Element from a Pointer ConicSurf c2 = *c_pointer; int ten = *k_pointer; //Getting Item in Element double k1 = c.k1; //Getting Item in Element from a Pointer double k1 = c_pointer->k1; //Functions that have pointers as parameters can modify the element being pointed to. //Functions that have elements as parameters can not modify the value of the element. @endcode

Stand Alone Example Code

This framework can be used entirely by itself as the following example demonstrates. @code ///////////////////////////////////////////////////////////////////////////////// // Giacomo Resta // // Basic standalone exmaple of a raytracer. It is advised to modify // the getRandom() function to use a better random number generator (i.e. glib). // The systems random generator was used to preserve clarity and conciseness. ///////////////////////////////////////////////////////////////////////////////// #include #include #include "conic.h" //#include "w1_conics.h" #define NUM_NEUTRON 1000000 //Function to get random number double getRandom() { return rand01(); } //Function to get new particle from source _class_particle generate_class_particleFromSource(double radius, double div, double Lambda0, double num_neutrons) { double chi = 2*M_PI*(getRandom()); double r = sqrt(getRandom()) * radius; double v = 3956.036 / Lambda0; double theta = sqrt(getRandom())*div; double phi = getRandom()*2*M_PI; double tan_r = tan(theta); double vz = v/sqrt(1+tan_r*tan_r); double vr = tan_r * vz; return make_class_particle(r*cos(chi),r*sin(chi),0,cos(phi)*vr,sin(phi)*vr, vz,0,0.0,0.0,0.0,1.0/num_neutrons); } //Function to add items to scene void addItems(Scene* s, double instr_len,double r,double f,double M, double max_mir_len,double m, double mirr_thick) { //Change code here to make different Scenes PP p = addPPShell(0.0, instr_len, r, f, M, max_mir_len, m, m, mirr_thick, s); addDisk(p.p0->zs, 0.0, rConic(p.p0->ze, *p.p0)*p.p0->zs/p.p0->ze, s); addDisk(p.p1->zs, rConic(p.p1->zs, *p.p1), 10000,s); addDetector(10.0, -0.01, 0.01, -0.01, 0.01, 600, 600, NUM_NEUTRON, "test.txt", s); } //Main Function int main() { //seed random generator (starts the generator) srand48((long)time(0)); //Make a new Scene Scene s = makeScene(); //Add Items and initialize Scene addItems(&s,10.0,0.068,4.2,1,0.7,3,0.001); initSimulation(&s); //Raytrace all particles through the Scene double i; for (i = 0; i < NUM_NEUTRON; i++) { _class_particle p = generate_class_particleFromSource(0.005, 0.02422, 4, NUM_NEUTRON); traceSingleNeutron(&p,s); } //Finish Simulation of the Scene finishSimulation(&s); return 0; } @endcode */ /** @file conic.h \brief General Framework for generating and raytracing geometries of the form @f$ r = k_1+k_2 z+k_3 z^2 @f$ @author Giacomo Resta @version 0.2 @section LICENSE Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. @section DESCRIPTION General Framework for generating and raytracing geometries of the form @f$ r = k_1+k_2 z+k_3 z^2 @f$ */ ///////////////////////////////////// // Simulation ///////////////////////////////////// #ifndef MIT_CONICS #define MIT_CONICS #include #include #include /** @defgroup simgroup Simulator Internals Contains items general to the simulation @{ */ //! Max number of ConicSurf allowed in a Scene #define MAX_FLATSURF 200 //! Max number of ConicSurf allowed in a Scene #define MAX_CONICSURF 100 //! Max number of Disks allowed in a Scene #define MAX_DISK 100 //! Max number of Detectors allowed in a Scene #define MAX_DETECTOR 10 //! If "1" simulator will record z location where neutron with greatest grazing angle reflected for each ConicSurf /*! The information is stored in the max_ga and max_ga_z0 members of each ConicSurf, which are only present if this flag is 1. See source code for clarification. @note You must use default traceNeutronConic function or implement saving routine yourself */ #define REC_MAX_GA 0 #define V2Q_conic 1.58825361e-3 #define Q2V_conic 629.622368 #define POT_V 46.839498800356665//theta_crit = 4 pi^2 kappa^2/m_n^2 #define m_Si 0.478 // m-value of pure silicon //! Stucture to represent a point typedef struct { double x; //!< x-axis position of point double y; //!< y-axis position of point double z; //!< z-axis position of point } Point; //! Structure to represent a vector typedef struct { double x; //!< x-axis length of vector double y; //!< y-axis length of vector double z; //!< z-axis length of vector } Vec; //! Structure to represent a particle /* typedef struct { */ /* double _x; //!< x axis position of particle */ /* double _y; //!< y axis position of particle */ /* double _z; //!< z axis position of particle */ /* double _vx; //!< x axis components of velocity */ /* double _vy; //!< y axis components of velocity */ /* double _vz; //!< z axis components of velocity */ /* double _sx; //!< x spin vector components */ /* double _sy; //!< y spin vector components */ /* double _sz; //!< z spin vector components */ /* double w; //!< Weight of particle */ /* int absorb; //!< Absorb flag (0 is not absorbed) */ /* double _t; //!< Time of flight of particle */ /* } _class_particle; */ /*! \brief Function to make a point @param x x-axis position @param y y-axis position @param z z-axis position */ Point makePoint(double x, double y, double z) { Point p; p.x = x; p.y = y; p.z = z; return p; } /*! \brief Function to make a vector @param x x-axis length @param y y-axis length @param z z-axis length */ Vec makeVec(double x, double y, double z) { Vec p; p.x = x; p.y = y; p.z = z; return p; } //! Function to compute length of a vector double getMagVec(Vec v) { return sqrt(v.x*v.x+v.y*v.y+v.z*v.z); } //! Function to compute dot product of two vectors double dotVec(Vec v1, Vec v2) { return v1.x*v2.x + v1.y*v2.y + v1.z*v2.z; } //! Function to compute the sum of two vectors Vec difVec(Vec v1, Vec v2){ return makeVec(v1.x-v2.x, v1.y-v2.y, v1.z-v2.z); } //! Function to compute the sum of two vectors Vec sumVec(Vec v1, Vec v2){ return makeVec(v1.x+v2.x, v1.y+v2.y, v1.z+v2.z); } //! Function to compute the sum of two vectors Vec skalarVec(Vec v1, double k){ return makeVec(v1.x*k, v1.y*k, v1.z*k); } /*! \brief Function to make a particle @param x x-axis position @param y y-axis position @param z z-axis position @param vx x-axis velocity @param vy y-axis velocity @param vz z-axis velocity @param t time of flight of neutron @param sx x-axis component of spin vector @param sy y-axis component of spin vector @param sz z-axis component of spin vector @param w weight of particle */ _class_particle make_class_particle(double x, double y, double z, double vx, double vy, double vz, double t, double sx, double sy, double sz, int silicon, double w) { _class_particle pa=mcgenstate(); pa.x = x; pa.y = y; pa.z = z; pa.vx = vx; pa.vy = vy; pa.vz = vz; pa.sx = sx; pa.sy = sy; pa.sz = sz; pa.p = w; pa.t = t; return pa; } //! Function to get position of particle Point get_class_particlePos(_class_particle p) { return makePoint(p.x,p.y,p.z); } //! Function to get velocity vector of particle Vec get_class_particleVel(_class_particle p) { return makeVec(p.vx, p.vy, p.vz); } /*! \brief Function to move particle a specific time step. Will not move particle if t < 0. Does not simulate gravity. @param t time step to move particle @param p pointer to particle */ void move_class_particleT(double t, _class_particle* p) { if (t < 0) return; if (p->_mctmp_a>0){ p->x = p->x+p->vx*t; p->y = p->y+p->vy*t; p->z = p->z+p->vz*t; p->t = p->t+t; p->p *= exp(-t*98900/52.338);//ugly hard coding in the penetration depth of silicon at 989 m/s //absorb_class_particle(p); } else{ p->x = p->x+p->vx*t; p->y = p->y+p->vy*t; p->z = p->z+p->vz*t; p->t = p->t+t; } } /*! \brief Function to move particle to position z. Will not move particle if moving particle to z position would require negative time. Does not simulate gravity. @param z z-position to move particle @param p pointer to particle */ void move_class_particleZ(double z, _class_particle* p) { double t = (z-p->z)/p->vz; move_class_particleT(t, p); } /*! \brief Function to compute new position of particle without modifying the position of the actual particle. Will not move particle if t < 0. Does not simulate gravity. @param t timestep to move particle @param p particle */ _class_particle copyMove_class_particleT(double t, _class_particle p) { _class_particle p2 = p; move_class_particleT(t,&p2); return p2; } /*! \brief Function to move particle to position z without modifying the position of the actual particle. Will not move particle if moving particle to z position would require negative time. Does not simulate gravity. @param z z-position to move particle @param p pointer to particle */ _class_particle copyMove_class_particleZ(double z, _class_particle p) { _class_particle p2 = p; move_class_particleZ(z,&p2); return p2; } /*! \brief Mathematical Aid for Snell's Law for reflection. Does not take into account grazing angle constrictions. Only computes mathematical reflection. @param n Normal vector @param p Pointer to particle */ void reflect_class_particle(Vec n, _class_particle* p) { double vn = dotVec(get_class_particleVel(*p),n); p->vx = p->vx-2*vn*n.x; p->vy = p->vy-2*vn*n.y; p->vz = p->vz-2*vn*n.z; } /*! \brief Function to mark particle as absorbed @param p Pointer to particle to be absorbed */ void absorb_class_particle(_class_particle* p) { p->vx = 0; p->vy = 0; p->vz = 0; p->p = 0; p->_absorbed = 1; } /*! \brief Function to set weight of particle. Will set the weight of the particle to w. */ void setWeight_class_particle(double w, _class_particle* pa) { pa->p = w; } /*! \brief Function to solve quadratic equations for smallest positive result. If no positive result returns -1. Parameters are coefficents such that @f$ 0=A z^2 + B z + C @f$ @return Will return smallest positive value or -1 if no smallest positive value */ double solveQuad(double A, double B, double C) { if (fabs(A) < 1e-11 && B != 0) //FIXME: 1e-11 cutoff may cause problems return -C/B; else { double det = B*B - 4*A*C; if (det < 0) return -1; else { double sdet = sqrt(det); double s1 = (-B+sdet)/(2*A); double s2 = (-B-sdet)/(2*A); if (fabs(s1) < 1e-11) s1=0.0; //FIXME: 1e-11 cutoff may cause problems if (fabs(s2) < 1e-11) s2=0.0; //FIXME: 1e-11 cutoff may cause problems if (s1 > 0.0) { if (s2 > 0.0) { if (s1 > s2) return s2; return s1; } else return s1; } if (s2 > 0.0) return s2; } } return -1; } //! Returns sign of x, either -1 or 1 int sign(double x) { if (x < 0) return -1; return 1; } /** @} */ //end of simgroup /*! @ingroup detectorgroup \brief Structure for representing inline detectors @warning Do not directly modify this structure*/ typedef struct { double z0; //!< z-axis position of detector double xmin; //!< Smallest x value to detect double xmax; //!< Largest x value to detect double xstep; //!< x size of subsampling pixel double ymin; //!< Smallest y value to detect double ymax; //!< Largest y value to detect double ystep; //!< y size of subsampling pixel int nrows; //!< Number of pixels along y axis int ncols; //!< Number of pixels along x axis double num_particles; //!< Number of particles being emitted from source double *num_count; //!< Pointer to the number of particles that hit detector double **data; //!< Pointer to 2d data, pixel_x_y = data[x][y] char* filename; //!< Name of output file of detector (should end in .txt) } Detector; /*! @ingroup diskgroup \brief Structure for representing Disk geometry Creates a doughnut with inner radius r0 and outer radus r1 at position z0. Neutrons between r0 and r1 are absorbed. */ typedef struct { double r0; //!< Inner radius of doughnut double r1; //!< Outer radius of doughnut double z0; //!< z-axis position of Disk int absorb; // !< Flag to inicate if disk absorbs or not } Disk; /*! @ingroup conicgroup */ enum ConicType { PARA, HYPER, ELLIP }; /*! @ingroup conicgroup \brief Structure to contain z-axis symetric conic sections Contains any geometry that can be expressed as @f$ r^2=k_1 + k_2 z + k_3 z^2 @f$ @warning Do not directly modify values in this structure directly */ typedef struct { double k1; //!< @f$ k_1 @f$ in equation below double k2; //!< @f$ k_2 @f$ in equation below double k3; //!< @f$ k_3 @f$ in equation below double zs; //!< z-axis position of start of mirror double ze; //!< z-axis position of end of mirror double m; //!< m value for mirror (1.0 for Nickel) double Qc; //!< m value for mirror (0.0219 AA-1 for Nickel substrate) double R0; //!< R0 reflectivity for mirror (0.99 for Nickel substrate) double alpha; //!< alpha, slope of reflectivity (6.07 AA for m=2 mirror) double W; //!< Width of supermirror cut-off, 0.003 AA-1 for m=2 mirror //Only for reference double f1; //!< z-axis position of first focus double f2; //!< z-axis position of second focus, for paraboloid this is unassigned double a; //!< Value of a, specific to geometry type double c; //!< Value of c, for paraboloid this is unassigned enum ConicType type; //!< Type of mirror geometry #if REC_MAX_GA double max_ga; //!< Max Grazing Angle of Reflected Neutron (Exists only if REC_MAX_GA) double max_ga_z0; //!< Collision point of Max Grazing Neutron (Exists only if REC_MAX_GA) #endif } ConicSurf; /*! @ingroup flatgroup \brief Structure to contain z-axis symetric flat sections Contains flat geometries which can be expressed as @f$ x^2 = k_1 + k_2 z + k_3 z^2 @f$ or @f$ y^2 = k_1 + k_2 z + k_3 z^2 @f$ @warning Do not directly modify values in this structure directly */ typedef struct { double k1; //!< @f$ k_1 @f$ in equation below double k2; //!< @f$ k_2 @f$ in equation below double k3; //!< @f$ k_3 @f$ in equation below double zs; //!< z-axis position of start of mirror double ze; //!< z-axis position of end of mirror double ll; //!< left/lower limit of mirror along translational symmetry double rl; //!< right/upper limit of mirror along translational symmetry double m; //!< m value for mirror (1.0 for Nickel) double Qc; //!< m value for mirror (0.0219 AA-1 for Nickel substrate) double R0; //!< R0 reflectivity for mirror (0.99 for Nickel substrate) double alpha; //!< alpha, slope of reflectivity (6.07 AA for m=2 mirror) double W; //!< Width of supermirror cut-off, 0.003 AA-1 for m=2 mirror //Only for reference double f1; //!< z-axis position of first focus double f2; //!< z-axis position of second focus, for paraboloid this is unassigned double a; //!< Value of a, specific to geometry type double c; //!< Value of c, for paraboloid this is unassigned //enum FlatType type; //!< Type of mirror geometry int doubleReflections; // will determine whether the geometry allows double reflections #if REC_MAX_GA double max_ga; //!< Max Grazing Angle of Reflected Neutron (Exists only if REC_MAX_GA) double max_ga_z0; //!< Collision point of Max Grazing Neutron (Exists only if REC_MAX_GA) #endif } FlatSurf; /*! @ingroup simgroup \brief Structure to hold all scene geometry The number of possible ConicSurf, Disk and Detector in the Scene are determined by MAX_CONICSURF, MAX_DISK and MAX_DETECTOR. */ typedef struct { FlatSurf f[MAX_FLATSURF]; //!< Array of all ConicSurf in Scene int num_f; //!< Number of ConicSurf in Scene ConicSurf c[MAX_CONICSURF]; //!< Array of all ConicSurf in Scene int num_c; //!< Number of ConicSurf in Scene Disk di[MAX_DISK]; //!< Array of all Disk in Scene int num_di; //!< Number of Disk in Scene Detector d[MAX_DETECTOR]; //!< Array of all Detector in Scene int num_d; //!< Number of Detector in Scene } Scene; ///////////////////////////////////// // Inline Detector ///////////////////////////////////// /** @defgroup detectorgroup Detector Contains code related to the inline detectors @{ */ /*! \brief Function to make Detector @param z0 z-axis position of detector @param xmin Smallest x value to detect @param xmax Largest x value to detect @param ymin Smallest y value to detect @param ymax Largest y value to detect @param xres Number of pixels along x axis @param yres Number of pixels along y axis @param num_particles Total number of particles being emitted @param filename Name of output file of detector (should end in .txt) */ Detector makeDetector(double z0,double xmin, double xmax, double ymin, double ymax, int xres, int yres, double num_particles, char* filename) { Detector d; d.z0 = z0; d.xmin = xmin; d.xmax = xmax; d.xstep = (xmax-xmin)/xres; d.ymin = ymin; d.ymax = ymax; d.ystep = (ymax-ymin)/yres; d.ncols = xres; d.nrows = yres; d.filename = filename; d.num_particles = num_particles; d.num_count = (double*)malloc(sizeof(double)); if (d.num_count == NULL) { fprintf(stderr, "MEMORY ALLOCATION PROBLEM\n"); exit(-1); } (*d.num_count) = 0; d.data = (double**)malloc(d.ncols*sizeof(double *)); if (d.data == NULL) { fprintf(stderr, "MEMORY ALLOCATION PROBLEM\n"); exit(-1); } int x; for(x = 0; x < d.ncols; x++) { d.data[x] = (double*)malloc(d.ncols*sizeof(double)); if (d.data[x] == NULL) { fprintf(stderr, "MEMORY ALLOCATION PROBLEM\n"); exit(-1); } (*d.data[x]) = 0; } return d; } /*! \brief Function to make and add Detector @param z0 z-axis position of detector @param xmin Smallest x value to detect @param xmax Largest x value to detect @param ymin Smallest y value to detect @param ymax Largest y value to detect @param xres Number of pixels along x axis @param yres Number of pixels along y axis @param num_particles Total number of particles being emitted @param filename Name of output file of detector (should end in .txt) @param s Scene to add Detector to */ Detector* addDetector(double z0, double xmin, double xmax, double ymin, double ymax, double xres, double yres, double num_particles, char* filename, Scene* s) { if (s->num_d >= MAX_DETECTOR-1) { fprintf(stderr,"TOO MANY DETECTORS IN SCENE"); exit(-1); } s->d[s->num_d] = makeDetector(z0,xmin,xmax,ymin,ymax,xres,yres,num_particles,filename); s->num_d++; return &s->d[s->num_d-1]; } /*! \brief Function to compute time of first collision for a Detector. @param p _class_particle to consider @param d Detector to consider @return Time until the propogation or -1 if particle will not hit detector */ double getTimeOfFirstCollisionDetector(_class_particle p, Detector d) { double t = (d.z0-p.z)/p.vz; if (t <= 0) return -1; _class_particle p2 = copyMove_class_particleT(t,p); if (p2.x > d.xmax || p2.x < d.xmin || p2.y > d.ymax || p2.y < d.ymin) return -1; return t; } /*! \brief Function to raytrace Detector @param p Pointer to particle to be traced @param d Detector to be traced */ void traceNeutronDetector(_class_particle* p, Detector d) { double t = getTimeOfFirstCollisionDetector(*p, d); if (t < 0) return; move_class_particleT(t,p); d.data[(int)floor((p->x-d.xmin)/d.xstep)][(int)floor((p->y-d.ymin)/d.ystep)] += p->p; (*d.num_count) += p->p; } /*! \brief Function to finalize detector Will write data and free data array. @param d Detector to finalize */ void finishDetector(Detector d) { int x,y; if (strcmp(d.filename,"")) { FILE *file; file = fopen(d.filename,"w"); if (file) { double intensity = (*d.num_count); fprintf(file, "#I=%e I_ERR=%e xmin=%f xmax=%f ymin=%f ymax=%f ncols=%i nrows=%i\n", intensity, sqrt(intensity/d.num_particles), d.xmin, d.xmax, d.ymin, d.ymax, d.ncols, d.nrows); //FIXME: check I_ERR sqrt(I/num_particles) //Write data for (x=0; x < d.ncols; x++) { for (y=0; y < d.nrows; y++) fprintf(file, "%e ", d.data[x][y]); fprintf(file, "\n"); } fclose(file); } else { fprintf(stderr,"Warning from conic.h: Could not open file %s in write mode. No data written!\n",d.filename); } } for (x=0; x < d.ncols; x++) free(d.data[x]); free(d.data); free(d.num_count); return; } /** @} */ //end of detectorgroup ///////////////////////////////////// // Geometry Types ///////////////////////////////////// ///////////////////////////////////// // Disks ///////////////////////////////////// /** @defgroup diskgroup Disk Contains code related to Disks @{ */ /*! \brief Function for creating a Disk structure @param z0 z-axis position of Disk @param r0 Inner radius of doughnut @param r1 Outer radius of doughnut @see Disk */ Disk makeDisk(double z0, double r0, double r1) { Disk d; d.r0 = r0; d.z0 = z0; d.r1 = r1; d.absorb = 1; // By default, absorb on propagation to disk return d; } /*! \brief Function for making and adding Disk to Scene @param z0 z-axis position of Disk @param r0 Inner radius of doughnut @param r1 Outer radius of doughnut @param s Scene to add Disk to @see Disk */ Disk* addDisk(double z0, double r0, double r1, Scene* s) { if (s->num_di >= MAX_DISK-1) { fprintf(stderr,"TOO MANY DISKS IN SCENE"); exit(-1); } s->di[s->num_di] = makeDisk(z0, r0, r1); s->num_di++; return &s->di[s->num_di -1]; } /*! \brief Function for making and adding non-absorbing end-Disk to Scene @param z0 z-axis position of Disk @param r0 Inner radius of doughnut @param r1 Outer radius of doughnut @param s Scene to add Disk to @see Disk */ Disk* addEndDisk(double z0, double r0, double r1, Scene* s) { if (s->num_di >= MAX_DISK-1) { fprintf(stderr,"TOO MANY DISKS IN SCENE"); exit(-1); } s->di[s->num_di] = makeDisk(z0, r0, r1); s->di[s->num_di].absorb = 0; s->num_di++; return &s->di[s->num_di -1]; } /*! \brief Function to compute time of first collision for a disk @param p _class_particle to consider @param d Disk to consider @return Time until the propogation or -1 if particle will not hit disk */ double getTimeOfFirstCollisionDisk(_class_particle p, Disk d) { double tz = (d.z0-p.z)/p.vz; if (tz <= 0) return -1; _class_particle p2 = copyMove_class_particleT(tz, p); double rp = sqrt(p2.x*p2.x+p2.y*p2.y); if (rp > d.r0 && rp < d.r1 && fabs(p2.z-d.z0) < 1e-11) return (d.z0-p.z)/p.vz; return -1; } /*! \brief Function to raytrace Disks @param p Pointer to particle to be traced @param d Disk to be traced */ void traceNeutronDisk(_class_particle* p, Disk d) { double t = getTimeOfFirstCollisionDisk(*p, d); if (t <= 0) return; move_class_particleT(t, p); if (d.absorb) absorb_class_particle(p); } /** @} */ //end of diskgroup ///////////////////////////////////// // Z-Axis Symetric Conic Sections ///////////////////////////////////// /** @defgroup conicgroup ConicSurf Contains code related to ConicSurfs @{ */ /*! \brief Function to return radius of ConicSurf at a z-axis position. Will return radius even if z is outside the bounds of zs and ze for the particular ConicSurf. @param z z-axis position to compute radius @param s ConicSurf to compute radius of */ double rConic(double z, ConicSurf s) { return sqrt(s.k1+s.k2*z+s.k3*z*z); } /*! \brief Function for generating Hyperboloid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @see ConicSurf */ ConicSurf makeHyperboloid(double f1, double f2, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W) { ConicSurf s; s.zs = zstart; s.ze = zend; double r2 = p.x*p.x+p.y*p.y; double c = (f1-f2)/2; double u = p.z+c-f1; double a = sqrt(((u*u+c*c+r2)-sqrt(pow(u*u+c*c+r2,2)-4*c*c*u*u))/2); s.k3 = c*c/(a*a)-1; s.k2 = 2*s.k3*(c-f1); s.k1 = (s.k3)*(c-f1)*(c-f1)-c*c+a*a; s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f1; s.f2 = f2; s.a = a; s.c = c; s.type = HYPER; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif return s; } /*! \brief Function for generating Ellipsoid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @see ConicSurf */ ConicSurf makeEllipsoid(double f1, double f2, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W) { ConicSurf s; s.zs = zstart; s.ze = zend; double r2 = p.x*p.x+p.y*p.y; double c = (f1-f2)/2; double u = p.z+c-f1; double a = sqrt(((u*u+c*c+r2)+sqrt(pow(u*u+c*c+r2,2)-4*c*c*u*u))/2); s.k3 = c*c/(a*a)-1; s.k2 = 2*s.k3*(c-f1); s.k1 = (s.k3)*(c-f1)*(c-f1)-c*c+a*a; s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f1; s.f2 = f2; s.a = a; s.c = c; s.type = ELLIP; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif return s; } /*! \brief Function for generating Flat Ellipse with symmetry along the vertical y. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param b the short half axis of the ellipse, positive for translational symmetry along y, negative for translational symmetry along x @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param ll the left/lower limit of the ellipse surface (in either y or x for b > 0 or b < 0 @param rl the right/upper limit of the ellipse surface (in either y or x for b > 0 or b < 0 @param m m value for reflectivity of the surface @see ConicSurf */ FlatSurf makeFlatEllipse(double f1, double f2, Point p, double zstart, double zend, double ll, double rl, double m, double R0, double Qc, double alpha, double W) { FlatSurf s; s.zs = zstart; s.ze = zend; s.ll = ll; s.rl = rl; double r2 = p.x*p.x + p.y*p.y; double c = (f1-f2)/2; double u = p.z+c-f1; double a = sqrt(((u*u+c*c+r2)+sqrt(pow(u*u+c*c+r2,2)-4*c*c*u*u))/2); s.k3 = c*c/(a*a)-1; s.k2 = 2*s.k3*(c-f1); s.k1 = (s.k3)*(c-f1)*(c-f1)-c*c+a*a; s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f1; s.f2 = f2; s.a = a; s.c = c; //s.type = ELLIP; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif // PW Initializer added from linter hints... s.doubleReflections=0; return s; } /*! \brief Function for generating Paraboloid ConicSurf. @param f z position of focus closest to actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @see ConicSurf */ ConicSurf makeParaboloid(double f, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W) { ConicSurf s; s.zs = zstart; s.ze = zend; double r2 = p.x*p.x+p.y*p.y; double a = (-(p.z-f)+sign(p.z-f)*sqrt((p.z-f)*(p.z-f)+r2))/2; s.k3 = 0.0; s.k2 = 4*a; s.k1 = s.k2*(a-f); s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f; s.a = a; s.type = PARA; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif // PW Initializer added from linter hints... s.f2=0; s.c=0; return s; } /*! \brief Function for generating Flat Parabola for FlatSurf. @param f z position of focus closest to actual mirror surface @param p A Point on the actual surface of the mirror, putting one of x or y to 0 results in the surface being parallel to said coordinate @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param ll the left/lower limit of the ellipse surface (in either y or x for b > 0 or b < 0 @param rl the right/upper limit of the ellipse surface (in either y or x for b > 0 or b < 0 @param m m value for reflectivity of the surface @param doubleReflections wether double reflections are allowed @see FlatSurf */ FlatSurf makeFlatparbola( double f, Point p, double zstart, double zend, double ll, double rl, double m, double R0, double Qc, double alpha, double W) { FlatSurf s; s.zs = zstart; s.ze = zend; double r2 = p.x*p.x+p.y*p.y; double a = (-(p.z-f)+sign(p.z-f)*sqrt((p.z-f)*(p.z-f)+r2))/2; s.k3 = 0.0; s.k2 = 4*a; s.k1 = s.k2*(a-f); s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f; s.a = a; s.ll = ll; s.rl = rl; //s.type = PARA; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif // PW Initializer added from linter hints... s.doubleReflections=0; s.f2=0; s.c=0; return s; } /*! \brief Function for generating and adding Paraboloid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @param s Scene to add Paraboloid to @see ConicSurf */ ConicSurf* addParaboloid(double f1, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_c >= MAX_CONICSURF-1) { fprintf(stderr,"TOO MANY CONICSURF IN SCENE"); exit(-1); } s->c[s->num_c] = makeParaboloid(f1,p,zstart,zend,m,R0,Qc,alpha,W); s->num_c++; return &s->c[s->num_c-1]; } /*! \brief Function for generating and adding a flat Parabolic FlatSurf. @param f1 z position of focus closest to actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param ll the lower bound of the mirror @param rl the upper bound of the mirror @param m m value for reflectivity of the surface @param s Scene to add Ellipsoid to @param doubleReflections wether double reflections can occur @see FlatSurf */ FlatSurf* addFlatParabola( double f, Point p, double zstart, double zend, double ll, double rl, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_f >= MAX_FLATSURF-1) { fprintf(stderr,"TOO MANY FLATSURF IN SCENE"); exit(-1); } s->f[s->num_f] = makeFlatparbola(f,p,zstart,zend,ll,rl,m, R0, Qc, alpha, W); s->num_f++; return &s->f[s->num_f-1]; } /*! \brief Function for generating and adding Hyperboloid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @param s Scene to add Hyperboloid to @see ConicSurf */ ConicSurf* addHyperboloid(double f1, double f2, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_c >= MAX_CONICSURF-1) { fprintf(stderr,"TOO MANY CONICSURF IN SCENE"); exit(-1); } s->c[s->num_c] = makeHyperboloid(f1,f2,p,zstart,zend,m,R0,Qc,alpha,W); s->num_c++; return &s->c[s->num_c-1]; } /*! \brief Function for generating and adding Ellipsoid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @param s Scene to add Ellipsoid to @see ConicSurf */ ConicSurf* addEllipsoid(double f1, double f2, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_c >= MAX_CONICSURF-1) { fprintf(stderr,"TOO MANY CONICSURF IN SCENE"); exit(-1); } s->c[s->num_c] = makeEllipsoid(f1,f2,p,zstart,zend,m,R0,Qc,alpha,W); s->num_c++; return &s->c[s->num_c-1]; } /*! \brief Function for generating and adding a flat Ellipse FlatSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @param s Scene to add Ellipsoid to @see ConicSurf */ FlatSurf* addFlatEllipse( double f1, double f2, Point p, double zstart, double zend, double ll, double rl, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_f >= MAX_FLATSURF-1) { fprintf(stderr,"TOO MANY FLATSURF IN SCENE"); exit(-1); } s->f[s->num_f] = makeFlatEllipse(f1,f2,p,zstart,zend,ll,rl,m,R0,Qc,alpha,W); s->num_f++; return &s->f[s->num_f-1]; } //!TODO double getGrazeAngleConic(_class_particle p, ConicSurf s) { /* double v = sqrt(dotVec(get_class_particleVel(p),get_class_particleVel(p))); double vn = dotVec(get_class_particleVel(p),n); return fabs(acos(vn/v)) - M_PI/2; */ /* Even though this function does absolutely nothing, better add return value... Negative to indicate something went wrong */ return -1; } /*! \brief Function for returning normal vector of ConicSurf at Point p Will compute vector even if p is not on surface. MAKE SURE p IS ON SURFACE @param p Point to compute normal vector @param s ConicSurf to compute normal vector of */ Vec getNormConic(Point p, ConicSurf s) { double det = s.k2*s.k2+4*s.k3*(p.x*p.x+p.y*p.y-s.k1); if (det <= 0.){ return makeVec(-p.x/sqrt(p.x*p.x + p.y*p.y),-p.y/(p.x*p.x + p.y*p.y),0); } double den = sqrt(det); double nx = -2*p.x/den; double ny = -2*p.y/den; double nz = sign(2*s.k3*p.z+s.k2); double n = sqrt(nx*nx+ny*ny+nz*nz); return makeVec(nx/n,ny/n,nz/n); } /*! \brief Function for returning normal vector of FlatSurf at Point p Will compute vector even if p is not on surface. MAKE SURE p IS ON SURFACE @param p Point to compute normal vector @param s FlatSurf to compute normal vector of; for s.b > 0 surface posseses translation symmetry along y direction */ Vec getNormFlat(Point p, FlatSurf s) { double r; //if(s.b > 0){ r = p.x; //else{ // r = p.y; //}; double den; double det = s.k2*s.k2+4*s.k3*(r*r-s.k1); if (det > 0){ den = sqrt(det); } else{ return makeVec(-1,0,0); // if the neutron hits the apex of the ellipse we run into a divide by zero problem } double nx = -2*p.x/den; double ny = 0; double nz = sign(2*s.k3*p.z+s.k2); double n = sqrt(nx*nx+ny*ny+nz*nz); return makeVec(nx/n,ny/n,nz/n); } /*! \brief Function to compute time of first collision for a ConicSurf @param p _class_particle to consider @param s ConicSurf to consider @return Time until the propogation or -1 if particle will not hit disk */ double getTimeOfFirstCollisionConic(_class_particle p, ConicSurf s) { double tz = (s.zs-p.z)/p.vz; if (tz < 0) { tz = 0; if (p.z > s.ze) return -1; } _class_particle p2 = copyMove_class_particleT(tz,p); double A = p2.vx*p2.vx+p2.vy*p2.vy-s.k3*p2.vz*p2.vz; double B = 2*(p2.vx*p2.x+p2.vy*p2.y-s.k3*p2.vz*p2.z)-s.k2*p2.vz; double C = p2.x*p2.x+p2.y*p2.y-s.k3*p2.z*p2.z-s.k2*p2.z-s.k1; double t = solveQuad(A,B,C); if (t <= 0 || p2.vz*t+p2.z > s.ze || p2.vz*t+p2.z < s.zs) return -1; return t+tz; } /*! \brief Function to compute time of first collision for a FlatSurf @param p Particle to consider @param s FlatSurf to consider @return Time until the propogation or -1 if particle will not hit surface */ //TODO double getTimeOfFirstCollisionFlat(_class_particle p, FlatSurf s) { double tz = (s.zs-p.z)/p.vz; if (tz < 0) { tz = 0; if (p.z > s.ze) return -1; } _class_particle p2 = copyMove_class_particleT(tz,p); double vs = 0;//the vector important for calculating the intersection with the ellipse double s0 = 0; double vt = 0;//the other component only important for testing whether the mirror is hit double t0 = 0; //if(s.b > 0){//obsolete iteration allowing to rotate by 90 deg with out rotation in McStas, not really needed vs = p2.vx; s0 = p2.x; vt = p2.vy; t0 = p2.y; //} /*else{ vs = p2.vy; s0 = p2.y; vt = p2.vx; t0 = p2.x; }; */ double A = vs*vs-s.k3*p2.vz*p2.vz; double B = 2*(vs*s0-s.k3*p2.vz*p2.z)-s.k2*p2.vz; double C = s0*s0-s.k3*p2.z*p2.z-s.k2*p2.z-s.k1; double t = solveQuad(A,B,C); if (t <= 0 || p2.vz*t+p2.z > s.ze || p2.vz*t+p2.z < s.zs||vt*t+t0 < s.ll||vt*t +t0 > s.rl) return -1; return t+tz; } /*! \brief Function to rotate a vector (by D. Liu) @param v vector to rotate @param angle rotation angle @param axis rotation according to this axis */ Vec rotateM(Vec v, double angle, Vec axis) { Vec p; double miu = 1-cos(angle); double ux = axis.x, uy = axis.y, uz=axis.z; p.x = v.x*(cos(angle)+ux*ux*miu) + v.y*(ux*uy*miu-uz*sin(angle)) + v.z*(ux*uz*miu+uy*sin(angle)); p.y = v.x*(uy*ux*miu+uz*sin(angle)) + v.y*(cos(angle)+uy*uy*miu) + v.z*(uy*uz*miu-ux*sin(angle)); p.z = v.x*(uz*ux*miu-uy*sin(angle)) + v.y*(uz*uy*miu+ux*sin(angle)) + v.z*(cos(angle)+uz*uz*miu); return p; } /*! \brief Function to handle supermirror reflectivity copied from mcstas. @note Uses only m-value for calculating reflectivity curve TODO more sophisticated formulae in the future @param q k_i - k_f momentum transfer of the neutron at the super mirror surface @param m supermirror m-value @param R_0 low angle reflectivity @param Q_c critical momentum transfer of the super mirror @return p weight reduction of the neutron for further simulation */ double calcSupermirrorReflectivity(double q, double m, double R_0, double Q_c){ double arg; double beta = 0;//values fitting supermirror data from sn double alpha = 2.5; double W = 0.004; double weight = 1.0; //neutron weight to be transformed q = fabs(q); if (m >= 10){ weight = 1.0; return weight; } if (W==0 && alpha==0) { m=m*0.9853+0.1978; W=-0.0002*m+0.0022; alpha=0.2304*m+5.0944; beta=-7.6251*m+68.1137; if (m<=3) { alpha=m; beta=0; } } arg = W > 0 ? (q - m*Q_c)/W : 11; if (arg > 10 || m <= 0 || Q_c <=0 || R_0 <= 0) { weight = 0.0; return weight; } if (m < 1) { Q_c *= m; m=1; } if(q <= Q_c) { weight = R_0; return weight; } weight = R_0*0.5*(1 - tanh(arg))*(1 - alpha*(q - Q_c) + beta*(q - Q_c)*(q - Q_c)); return weight; } /*! \brief Function to handle reflection of neutron for a ConicSurf. @note Uses step function for reflectivity @warning Make sure particle has been moved to surface of mirror before computing reflection @param p Pointer of particle to reflect @param s ConicSurf to use @return Value of critical angle of the neutron or -1 if neutron is absorbed @see traceNeutronConic() */ double reflectNeutronConic(_class_particle* _particle, ConicSurf s) { Vec n = getNormConic(get_class_particlePos(*_particle),s); Vec pv = get_class_particleVel(*_particle); int disp = 0; if (disp>0) { printf("\n n = %f, %f, %f",n.x,n.y,n.z); printf("\n pv = %f, %f, %f",pv.x,pv.y,pv.z); } //add figure error by D. Liu Vec n_p = makeVec(-n.y/sqrt(n.x*n.x+n.y*n.y),n.x/sqrt(n.x*n.x+n.y*n.y),0); //define a vector perpendicular to norm //Vec n_p = makeVec(0,-n.z/sqrt(n.z*n.z+n.y*n.y),n.y/sqrt(n.z*n.z+n.y*n.y)); //define a vector perpendicular to norm //Vec n_p = makeVec(-n.z/sqrt(n.z*n.z+n.x*n.x),0,n.x/sqrt(n.z*n.z+n.x*n.x)); //define a vector perpendicular to norm if (disp>0) { printf("\n n_p %f, %f, %f", n_p.x, n_p.y, n_p.z); } double len_p2 = sqrt((n.x*n.x+n.y*n.y)*(n.x*n.x+n.y*n.y+n.z*n.z)); Vec n_p2 = makeVec(-n.x*n.z/len_p2, -n.y*n.z/len_p2, (n.x*n.x+n.y*n.y)/len_p2); //define a vector perpendicular to both n and n_p //double phi, theta = rand01()*2*M_PI; double phi1, theta1, sigma1; //sigma = 37.7e-6; sigma1 = 1e-6; // sigma1 is half-sigma (unit in rad): sigma1=5e-6 means the FWHM is 23.6 urad phi1 = sigma1*randnorm();//randgaussian(0.0,sigma1); theta1 = 250*sigma1*randnorm();//randgaussian(0.0,sigma1); if (disp>0) { printf("\n phi and theta %f, %f", phi1, theta1); } Vec R1 = rotateM(n,phi1,n_p); //rotate n by phi according to n_p if (disp>0) { printf("\n R1 %f, %f, %f", R1.x, R1.y, R1.z); } Vec R2 = rotateM(R1,theta1,n_p2); //rotate R1 by theta according to n_p2 //Vec R2 = rotateM(R1,theta1,n); //rotate R1 by theta according to n_p2 n = R2; // //n.y = n.y+theta1; //n.z = n.z; // end of adding figure error double v = getMagVec(pv); double vn = dotVec(pv,n); //Hitting shell from outside if (vn > 0) { absorb_class_particle(_particle); return -1; } double ga = fabs(acos(vn/v)) - M_PI/2; double gc = 6.84459399932*s.m/v; double ref=1.0; if (ga > gc) { absorb_class_particle(_particle); return -1; } else { _particle->vx = _particle->vx-2*vn*n.x; _particle->vy = _particle->vy-2*vn*n.y; _particle->vz = _particle->vz-2*vn*n.z; double q = V2Q*(-2)*vn/sqrt(pv.x*pv.x + pv.y*pv.y + pv.z*pv.z); double par[5] = {s.R0, s.Qc, s.alpha, s.m, s.W}; StdReflecFunc(q, par, &ref); _particle->p = _particle->p * ref; if (disp>0) { printf("\n pv final = %f, %f, %f",pv.x,pv.y,pv.z); } } return ga; } /*! \brief Function to handle refraction of neutron. @warning Make sure particle has been moved to surface of mirror before computing reflection @param p Pointer of particle to reflect/refract @param n Normal vector @param m1 m-value of the material we come from @param m2 m-value of the goal material we go to @return Value of critical angle of the neutron or -1 if neutron is absorbed @see traceNeutronConic() */ void refractNeutronFlat(_class_particle* p, Vec n, double m1, double m2) { Vec pv = get_class_particleVel(*p); //printf("incoming %.14g %.14g %.14g\n", pv.x, pv.y, pv.z); //printf("normal %.14g %.14g %.14g\n", n.x, n.y, n.z); double v = getMagVec(pv); double vn = dotVec(pv, n); //printf("vn %.9g", vn); Vec v_p = difVec(pv, skalarVec(n, vn)); double k2_perp = POT_V*(m1*m1-m2*m2)+vn*vn; //printf("the magnitude %f\n", k2_perp); if (k2_perp>0){//refraction k2_perp = sqrt(k2_perp)*sign(vn); p->vx = v_p.x + n.x*k2_perp; p->vy = v_p.y + n.y*k2_perp; p->vz = v_p.z + n.z*k2_perp; p->_mctmp_a *= -1;// from silicon to air or vice versa //printf("resulting vector %f %f %f\n", p->vx, p->vy, p->vz); }else{//total reflection, no change in material p->vx = p->vx-2*vn*n.x; p->vy = p->vy-2*vn*n.y; p->vz = p->vz-2*vn*n.z; //no change in material } } /*! \brief Function to handle reflection of neutron for a FlatSurf. @note Uses step function for reflectivity @warning Make sure particle has been moved to surface of mirror before computing reflection @param p Pointer of particle to reflect @param s FlatSurf to use @return Value of critical angle of the neutron or -1 if neutron is absorbed @see traceNeutronConic() */ double reflectNeutronFlat(_class_particle* _particle, FlatSurf s) { Vec n = getNormFlat(get_class_particlePos(*_particle),s); Vec pv = get_class_particleVel(*_particle); //printf("nothing"); double v = getMagVec(pv); double vn = dotVec(pv,n); //printf("before %f \n", p->w); //Hitting shell from outside For FlatSurface this has to be checked // make it able to reflect from the outside double ga = fabs(acos(vn/v)) - M_PI/2; double gc = 6.84459399932*s.m/v; double ref=1.0; double q = V2Q*(-2)*vn/sqrt(pv.x*pv.x + pv.y*pv.y + pv.z*pv.z); double par[5] = {s.R0, s.Qc, s.alpha, s.m, s.W}; StdReflecFunc(q, par, &ref); _particle->p = _particle->p * ref; if (ref < 0) { printf("this happens?"); absorb_class_particle(_particle); return -1; } else {//here we need to implement the refraction if (rand01() <= ref){//to be updated to use the mcstas random function or quasoi deterministic model //printf("oh a reflections\n"); //printf("this total reflection?"); _particle->vx = _particle->vx-2*vn*n.x; _particle->vy = _particle->vy-2*vn*n.y; _particle->vz = _particle->vz-2*vn*n.z; return ga; } else{// //printf("enter the refraction process"); double m1 = 0; double m2 = 0; //if no mirrorwidth is specified no refraction has to be calc if (_particle->_mctmp_a == 0){ return ga; } if (_particle->_mctmp_a == 1){ m1 = m_Si; m2 = 0; } if (_particle->_mctmp_a == -1){ m1 = 0; m2 = m_Si; } //printf("k1 %f k2 %f k3 %f x %f y %f z %f\n", s.k1, s.k2, s.k3, p->_x, p->_y, p->_z); refractNeutronFlat(_particle, n, m1, m2);// this can still lead to total reflection, we miss the supermirror, but are still reflected by the silicon takes care of change of material for refraction return ga; } } return ga; } /*! \brief Function to handle raytracing of neutron for a ConicSurf. @param p Pointer of particle to reflect @param c ConicSurf to use */ void traceNeutronConic(_class_particle* _particle, ConicSurf c) { double t = getTimeOfFirstCollisionConic(*_particle, c); if (t < 0) return; else { move_class_particleT(t, _particle); double ga = reflectNeutronConic(_particle, c); #if REC_MAX_GA if (ga > c.max_ga) { c.max_ga = ga; c.max_ga_z0 = _particle->z; } #endif } } /*! \brief Function to handle raytracing of neutron for a FlatSurf. @param p Pointer of particle to reflect @param f FlatSurf to use */ void traceNeutronFlat(_class_particle* _particle, FlatSurf f) { double t = getTimeOfFirstCollisionFlat(*_particle, f); if (t < 0) return; else { move_class_particleT(t, _particle); double ga = reflectNeutronFlat(_particle, f); #if REC_MAX_GA if (ga > f.max_ga) { f.max_ga = ga; f.max_ga_z0 = p->_z; } #endif } } /** @} */ //end of conicgroup ///////////////////////////////////// // Scene Functions ///////////////////////////////////// /** @ingroup simgroup @{ */ enum GEO { NONE, DETECTOR, DISK, CONIC, FLAT }; //! Function to generate an empty Scene Scene makeScene() { Scene s; s.num_f = 0; s.num_c = 0; s.num_di = 0; s.num_d = 0; return s; } //! Function to init simulation items /*! Should be called after all items have been added to scene but before neutrons are traced. @param s Pointer of Scene to init */ void initSimulation(Scene* s) { // } /*! \brief Function to raytrace single neutron through geometries specified by d, di and c. @param p Pointer of particle to trace @param s Scene to trace */ void traceSingleNeutron(_class_particle* _particle, Scene s) { int contact = 1; do { double t; enum GEO type = NONE; int index = -1; int i; for (i = 0; i < s.num_c; i++) { double t2 = getTimeOfFirstCollisionConic(*_particle,s.c[i]); if (t2 <= 0) continue; if (index == -1 || t2 < t) { type = CONIC; index = i; t = t2; } } for (i = 0; i < s.num_f; i++) { double t2 = getTimeOfFirstCollisionFlat(*_particle,s.f[i]); if (t2 <= 0) continue; if (index == -1 || t2 < t) { type = FLAT; index = i; t = t2; } } for (i = 0; i < s.num_di; i++) { double t2 = getTimeOfFirstCollisionDisk(*_particle,s.di[i]); if (t2 <= 0) continue; else if (index == -1 || t2 < t) { type = DISK; index = i; t = t2; } } for (i = 0; i < s.num_d; i++) { double t2 = getTimeOfFirstCollisionDetector(*_particle,s.d[i]); if (t2 <= 0) continue; else if (index == -1 || t2 < t) { type = DETECTOR; index = i; t = t2; } } switch (type) { case DETECTOR: traceNeutronDetector(_particle, s.d[index]); break; case FLAT: traceNeutronFlat(_particle, s.f[index]); break; case DISK: traceNeutronDisk(_particle, s.di[index]); break; case CONIC: traceNeutronConic(_particle, s.c[index]); break; default: contact = 0; break; } } while (contact && !_particle->_absorbed); } //!Finishes tracing the scene /*! This function should be called after all of the particles have been raytraced. @param s Pointer of Scene to finish tracing */ void finishSimulation(Scene* s) { int i; //Finish Detectors for (i=0; i < s->num_d; i++) finishDetector(s->d[i]); } /** @} */ //end of ingroup simgroup #endif /* Shared user declarations for all components types 'Conics_EH'. */ /** \mainpage Simple Meta-Conic Neutron Raytracer is a framework for raytracing geometries of the form: @f$ r^2=k_1 + k_2 z + k_3 z^2 @f$.

General Notes

To use the software you must make a Scene element using the function makeScene(). You must then add items to this scene element using the various add function (addDisk(), addParaboloid(), etc...). Next you must call the function traceSingleNeutron() for every neutron you would like to trace through the geometry. The maximum number of each geometry you can place in a scene is defined by the MAX_CONICSURF, MAX_DISK and MAX_DETECTOR definitions in the conic.h file.

TODO

@todo Name variable for each component
Normalize Detector Events by weight of neutron

Known Bugs

@bug HPPH works incorrectly for M != 1
Neutrons t=1e-11 away from a surface will pass through

Note on Pointers

This framework uses pointers extensivly. It is important to be familiar with how to use pointers.
Here is a quick overview. @code //Making an Element ConicSurf c = makeParaboloid(...); int k = 10; //Making a Pointer from an Element ConicSurf * c_pointer = &c; int * k_pointer = &k; //Making an Element from a Pointer ConicSurf c2 = *c_pointer; int ten = *k_pointer; //Getting Item in Element double k1 = c.k1; //Getting Item in Element from a Pointer double k1 = c_pointer->k1; //Functions that have pointers as parameters can modify the element being pointed to. //Functions that have elements as parameters can not modify the value of the element. @endcode

Stand Alone Example Code

This framework can be used entirely by itself as the following example demonstrates. @code ///////////////////////////////////////////////////////////////////////////////// // Giacomo Resta // // Basic standalone exmaple of a raytracer. It is advised to modify // the getRandom() function to use a better random number generator (i.e. glib). // The systems random generator was used to preserve clarity and conciseness. ///////////////////////////////////////////////////////////////////////////////// #include #include #include "conic.h" //#include "w1_conics.h" #define NUM_NEUTRON 1000000 //Function to get random number double getRandom() { return rand01(); } //Function to get new particle from source _class_particle generate_class_particleFromSource(double radius, double div, double Lambda0, double num_neutrons) { double chi = 2*M_PI*(getRandom()); double r = sqrt(getRandom()) * radius; double v = 3956.036 / Lambda0; double theta = sqrt(getRandom())*div; double phi = getRandom()*2*M_PI; double tan_r = tan(theta); double vz = v/sqrt(1+tan_r*tan_r); double vr = tan_r * vz; return make_class_particle(r*cos(chi),r*sin(chi),0,cos(phi)*vr,sin(phi)*vr, vz,0,0.0,0.0,0.0,1.0/num_neutrons); } //Function to add items to scene void addItems(Scene* s, double instr_len,double r,double f,double M, double max_mir_len,double m, double mirr_thick) { //Change code here to make different Scenes PP p = addPPShell(0.0, instr_len, r, f, M, max_mir_len, m, m, mirr_thick, s); addDisk(p.p0->zs, 0.0, rConic(p.p0->ze, *p.p0)*p.p0->zs/p.p0->ze, s); addDisk(p.p1->zs, rConic(p.p1->zs, *p.p1), 10000,s); addDetector(10.0, -0.01, 0.01, -0.01, 0.01, 600, 600, NUM_NEUTRON, "test.txt", s); } //Main Function int main() { //seed random generator (starts the generator) srand48((long)time(0)); //Make a new Scene Scene s = makeScene(); //Add Items and initialize Scene addItems(&s,10.0,0.068,4.2,1,0.7,3,0.001); initSimulation(&s); //Raytrace all particles through the Scene double i; for (i = 0; i < NUM_NEUTRON; i++) { _class_particle p = generate_class_particleFromSource(0.005, 0.02422, 4, NUM_NEUTRON); traceSingleNeutron(&p,s); } //Finish Simulation of the Scene finishSimulation(&s); return 0; } @endcode */ /** @file conic.h \brief General Framework for generating and raytracing geometries of the form @f$ r = k_1+k_2 z+k_3 z^2 @f$ @author Giacomo Resta @version 0.2 @section LICENSE Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. @section DESCRIPTION General Framework for generating and raytracing geometries of the form @f$ r = k_1+k_2 z+k_3 z^2 @f$ */ ///////////////////////////////////// // Simulation ///////////////////////////////////// #ifndef MIT_CONICS #define MIT_CONICS #include #include #include /** @defgroup simgroup Simulator Internals Contains items general to the simulation @{ */ //! Max number of ConicSurf allowed in a Scene #define MAX_FLATSURF 200 //! Max number of ConicSurf allowed in a Scene #define MAX_CONICSURF 100 //! Max number of Disks allowed in a Scene #define MAX_DISK 100 //! Max number of Detectors allowed in a Scene #define MAX_DETECTOR 10 //! If "1" simulator will record z location where neutron with greatest grazing angle reflected for each ConicSurf /*! The information is stored in the max_ga and max_ga_z0 members of each ConicSurf, which are only present if this flag is 1. See source code for clarification. @note You must use default traceNeutronConic function or implement saving routine yourself */ #define REC_MAX_GA 0 #define V2Q_conic 1.58825361e-3 #define Q2V_conic 629.622368 #define POT_V 46.839498800356665//theta_crit = 4 pi^2 kappa^2/m_n^2 #define m_Si 0.478 // m-value of pure silicon //! Stucture to represent a point typedef struct { double x; //!< x-axis position of point double y; //!< y-axis position of point double z; //!< z-axis position of point } Point; //! Structure to represent a vector typedef struct { double x; //!< x-axis length of vector double y; //!< y-axis length of vector double z; //!< z-axis length of vector } Vec; //! Structure to represent a particle /* typedef struct { */ /* double _x; //!< x axis position of particle */ /* double _y; //!< y axis position of particle */ /* double _z; //!< z axis position of particle */ /* double _vx; //!< x axis components of velocity */ /* double _vy; //!< y axis components of velocity */ /* double _vz; //!< z axis components of velocity */ /* double _sx; //!< x spin vector components */ /* double _sy; //!< y spin vector components */ /* double _sz; //!< z spin vector components */ /* double w; //!< Weight of particle */ /* int absorb; //!< Absorb flag (0 is not absorbed) */ /* double _t; //!< Time of flight of particle */ /* } _class_particle; */ /*! \brief Function to make a point @param x x-axis position @param y y-axis position @param z z-axis position */ Point makePoint(double x, double y, double z) { Point p; p.x = x; p.y = y; p.z = z; return p; } /*! \brief Function to make a vector @param x x-axis length @param y y-axis length @param z z-axis length */ Vec makeVec(double x, double y, double z) { Vec p; p.x = x; p.y = y; p.z = z; return p; } //! Function to compute length of a vector double getMagVec(Vec v) { return sqrt(v.x*v.x+v.y*v.y+v.z*v.z); } //! Function to compute dot product of two vectors double dotVec(Vec v1, Vec v2) { return v1.x*v2.x + v1.y*v2.y + v1.z*v2.z; } //! Function to compute the sum of two vectors Vec difVec(Vec v1, Vec v2){ return makeVec(v1.x-v2.x, v1.y-v2.y, v1.z-v2.z); } //! Function to compute the sum of two vectors Vec sumVec(Vec v1, Vec v2){ return makeVec(v1.x+v2.x, v1.y+v2.y, v1.z+v2.z); } //! Function to compute the sum of two vectors Vec skalarVec(Vec v1, double k){ return makeVec(v1.x*k, v1.y*k, v1.z*k); } /*! \brief Function to make a particle @param x x-axis position @param y y-axis position @param z z-axis position @param vx x-axis velocity @param vy y-axis velocity @param vz z-axis velocity @param t time of flight of neutron @param sx x-axis component of spin vector @param sy y-axis component of spin vector @param sz z-axis component of spin vector @param w weight of particle */ _class_particle make_class_particle(double x, double y, double z, double vx, double vy, double vz, double t, double sx, double sy, double sz, int silicon, double w) { _class_particle pa=mcgenstate(); pa.x = x; pa.y = y; pa.z = z; pa.vx = vx; pa.vy = vy; pa.vz = vz; pa.sx = sx; pa.sy = sy; pa.sz = sz; pa.p = w; pa.t = t; return pa; } //! Function to get position of particle Point get_class_particlePos(_class_particle p) { return makePoint(p.x,p.y,p.z); } //! Function to get velocity vector of particle Vec get_class_particleVel(_class_particle p) { return makeVec(p.vx, p.vy, p.vz); } /*! \brief Function to move particle a specific time step. Will not move particle if t < 0. Does not simulate gravity. @param t time step to move particle @param p pointer to particle */ void move_class_particleT(double t, _class_particle* p) { if (t < 0) return; if (p->_mctmp_a>0){ p->x = p->x+p->vx*t; p->y = p->y+p->vy*t; p->z = p->z+p->vz*t; p->t = p->t+t; p->p *= exp(-t*98900/52.338);//ugly hard coding in the penetration depth of silicon at 989 m/s //absorb_class_particle(p); } else{ p->x = p->x+p->vx*t; p->y = p->y+p->vy*t; p->z = p->z+p->vz*t; p->t = p->t+t; } } /*! \brief Function to move particle to position z. Will not move particle if moving particle to z position would require negative time. Does not simulate gravity. @param z z-position to move particle @param p pointer to particle */ void move_class_particleZ(double z, _class_particle* p) { double t = (z-p->z)/p->vz; move_class_particleT(t, p); } /*! \brief Function to compute new position of particle without modifying the position of the actual particle. Will not move particle if t < 0. Does not simulate gravity. @param t timestep to move particle @param p particle */ _class_particle copyMove_class_particleT(double t, _class_particle p) { _class_particle p2 = p; move_class_particleT(t,&p2); return p2; } /*! \brief Function to move particle to position z without modifying the position of the actual particle. Will not move particle if moving particle to z position would require negative time. Does not simulate gravity. @param z z-position to move particle @param p pointer to particle */ _class_particle copyMove_class_particleZ(double z, _class_particle p) { _class_particle p2 = p; move_class_particleZ(z,&p2); return p2; } /*! \brief Mathematical Aid for Snell's Law for reflection. Does not take into account grazing angle constrictions. Only computes mathematical reflection. @param n Normal vector @param p Pointer to particle */ void reflect_class_particle(Vec n, _class_particle* p) { double vn = dotVec(get_class_particleVel(*p),n); p->vx = p->vx-2*vn*n.x; p->vy = p->vy-2*vn*n.y; p->vz = p->vz-2*vn*n.z; } /*! \brief Function to mark particle as absorbed @param p Pointer to particle to be absorbed */ void absorb_class_particle(_class_particle* p) { p->vx = 0; p->vy = 0; p->vz = 0; p->p = 0; p->_absorbed = 1; } /*! \brief Function to set weight of particle. Will set the weight of the particle to w. */ void setWeight_class_particle(double w, _class_particle* pa) { pa->p = w; } /*! \brief Function to solve quadratic equations for smallest positive result. If no positive result returns -1. Parameters are coefficents such that @f$ 0=A z^2 + B z + C @f$ @return Will return smallest positive value or -1 if no smallest positive value */ double solveQuad(double A, double B, double C) { if (fabs(A) < 1e-11 && B != 0) //FIXME: 1e-11 cutoff may cause problems return -C/B; else { double det = B*B - 4*A*C; if (det < 0) return -1; else { double sdet = sqrt(det); double s1 = (-B+sdet)/(2*A); double s2 = (-B-sdet)/(2*A); if (fabs(s1) < 1e-11) s1=0.0; //FIXME: 1e-11 cutoff may cause problems if (fabs(s2) < 1e-11) s2=0.0; //FIXME: 1e-11 cutoff may cause problems if (s1 > 0.0) { if (s2 > 0.0) { if (s1 > s2) return s2; return s1; } else return s1; } if (s2 > 0.0) return s2; } } return -1; } //! Returns sign of x, either -1 or 1 int sign(double x) { if (x < 0) return -1; return 1; } /** @} */ //end of simgroup /*! @ingroup detectorgroup \brief Structure for representing inline detectors @warning Do not directly modify this structure*/ typedef struct { double z0; //!< z-axis position of detector double xmin; //!< Smallest x value to detect double xmax; //!< Largest x value to detect double xstep; //!< x size of subsampling pixel double ymin; //!< Smallest y value to detect double ymax; //!< Largest y value to detect double ystep; //!< y size of subsampling pixel int nrows; //!< Number of pixels along y axis int ncols; //!< Number of pixels along x axis double num_particles; //!< Number of particles being emitted from source double *num_count; //!< Pointer to the number of particles that hit detector double **data; //!< Pointer to 2d data, pixel_x_y = data[x][y] char* filename; //!< Name of output file of detector (should end in .txt) } Detector; /*! @ingroup diskgroup \brief Structure for representing Disk geometry Creates a doughnut with inner radius r0 and outer radus r1 at position z0. Neutrons between r0 and r1 are absorbed. */ typedef struct { double r0; //!< Inner radius of doughnut double r1; //!< Outer radius of doughnut double z0; //!< z-axis position of Disk int absorb; // !< Flag to inicate if disk absorbs or not } Disk; /*! @ingroup conicgroup */ enum ConicType { PARA, HYPER, ELLIP }; /*! @ingroup conicgroup \brief Structure to contain z-axis symetric conic sections Contains any geometry that can be expressed as @f$ r^2=k_1 + k_2 z + k_3 z^2 @f$ @warning Do not directly modify values in this structure directly */ typedef struct { double k1; //!< @f$ k_1 @f$ in equation below double k2; //!< @f$ k_2 @f$ in equation below double k3; //!< @f$ k_3 @f$ in equation below double zs; //!< z-axis position of start of mirror double ze; //!< z-axis position of end of mirror double m; //!< m value for mirror (1.0 for Nickel) double Qc; //!< m value for mirror (0.0219 AA-1 for Nickel substrate) double R0; //!< R0 reflectivity for mirror (0.99 for Nickel substrate) double alpha; //!< alpha, slope of reflectivity (6.07 AA for m=2 mirror) double W; //!< Width of supermirror cut-off, 0.003 AA-1 for m=2 mirror //Only for reference double f1; //!< z-axis position of first focus double f2; //!< z-axis position of second focus, for paraboloid this is unassigned double a; //!< Value of a, specific to geometry type double c; //!< Value of c, for paraboloid this is unassigned enum ConicType type; //!< Type of mirror geometry #if REC_MAX_GA double max_ga; //!< Max Grazing Angle of Reflected Neutron (Exists only if REC_MAX_GA) double max_ga_z0; //!< Collision point of Max Grazing Neutron (Exists only if REC_MAX_GA) #endif } ConicSurf; /*! @ingroup flatgroup \brief Structure to contain z-axis symetric flat sections Contains flat geometries which can be expressed as @f$ x^2 = k_1 + k_2 z + k_3 z^2 @f$ or @f$ y^2 = k_1 + k_2 z + k_3 z^2 @f$ @warning Do not directly modify values in this structure directly */ typedef struct { double k1; //!< @f$ k_1 @f$ in equation below double k2; //!< @f$ k_2 @f$ in equation below double k3; //!< @f$ k_3 @f$ in equation below double zs; //!< z-axis position of start of mirror double ze; //!< z-axis position of end of mirror double ll; //!< left/lower limit of mirror along translational symmetry double rl; //!< right/upper limit of mirror along translational symmetry double m; //!< m value for mirror (1.0 for Nickel) double Qc; //!< m value for mirror (0.0219 AA-1 for Nickel substrate) double R0; //!< R0 reflectivity for mirror (0.99 for Nickel substrate) double alpha; //!< alpha, slope of reflectivity (6.07 AA for m=2 mirror) double W; //!< Width of supermirror cut-off, 0.003 AA-1 for m=2 mirror //Only for reference double f1; //!< z-axis position of first focus double f2; //!< z-axis position of second focus, for paraboloid this is unassigned double a; //!< Value of a, specific to geometry type double c; //!< Value of c, for paraboloid this is unassigned //enum FlatType type; //!< Type of mirror geometry int doubleReflections; // will determine whether the geometry allows double reflections #if REC_MAX_GA double max_ga; //!< Max Grazing Angle of Reflected Neutron (Exists only if REC_MAX_GA) double max_ga_z0; //!< Collision point of Max Grazing Neutron (Exists only if REC_MAX_GA) #endif } FlatSurf; /*! @ingroup simgroup \brief Structure to hold all scene geometry The number of possible ConicSurf, Disk and Detector in the Scene are determined by MAX_CONICSURF, MAX_DISK and MAX_DETECTOR. */ typedef struct { FlatSurf f[MAX_FLATSURF]; //!< Array of all ConicSurf in Scene int num_f; //!< Number of ConicSurf in Scene ConicSurf c[MAX_CONICSURF]; //!< Array of all ConicSurf in Scene int num_c; //!< Number of ConicSurf in Scene Disk di[MAX_DISK]; //!< Array of all Disk in Scene int num_di; //!< Number of Disk in Scene Detector d[MAX_DETECTOR]; //!< Array of all Detector in Scene int num_d; //!< Number of Detector in Scene } Scene; ///////////////////////////////////// // Inline Detector ///////////////////////////////////// /** @defgroup detectorgroup Detector Contains code related to the inline detectors @{ */ /*! \brief Function to make Detector @param z0 z-axis position of detector @param xmin Smallest x value to detect @param xmax Largest x value to detect @param ymin Smallest y value to detect @param ymax Largest y value to detect @param xres Number of pixels along x axis @param yres Number of pixels along y axis @param num_particles Total number of particles being emitted @param filename Name of output file of detector (should end in .txt) */ Detector makeDetector(double z0,double xmin, double xmax, double ymin, double ymax, int xres, int yres, double num_particles, char* filename) { Detector d; d.z0 = z0; d.xmin = xmin; d.xmax = xmax; d.xstep = (xmax-xmin)/xres; d.ymin = ymin; d.ymax = ymax; d.ystep = (ymax-ymin)/yres; d.ncols = xres; d.nrows = yres; d.filename = filename; d.num_particles = num_particles; d.num_count = (double*)malloc(sizeof(double)); if (d.num_count == NULL) { fprintf(stderr, "MEMORY ALLOCATION PROBLEM\n"); exit(-1); } (*d.num_count) = 0; d.data = (double**)malloc(d.ncols*sizeof(double *)); if (d.data == NULL) { fprintf(stderr, "MEMORY ALLOCATION PROBLEM\n"); exit(-1); } int x; for(x = 0; x < d.ncols; x++) { d.data[x] = (double*)malloc(d.ncols*sizeof(double)); if (d.data[x] == NULL) { fprintf(stderr, "MEMORY ALLOCATION PROBLEM\n"); exit(-1); } (*d.data[x]) = 0; } return d; } /*! \brief Function to make and add Detector @param z0 z-axis position of detector @param xmin Smallest x value to detect @param xmax Largest x value to detect @param ymin Smallest y value to detect @param ymax Largest y value to detect @param xres Number of pixels along x axis @param yres Number of pixels along y axis @param num_particles Total number of particles being emitted @param filename Name of output file of detector (should end in .txt) @param s Scene to add Detector to */ Detector* addDetector(double z0, double xmin, double xmax, double ymin, double ymax, double xres, double yres, double num_particles, char* filename, Scene* s) { if (s->num_d >= MAX_DETECTOR-1) { fprintf(stderr,"TOO MANY DETECTORS IN SCENE"); exit(-1); } s->d[s->num_d] = makeDetector(z0,xmin,xmax,ymin,ymax,xres,yres,num_particles,filename); s->num_d++; return &s->d[s->num_d-1]; } /*! \brief Function to compute time of first collision for a Detector. @param p _class_particle to consider @param d Detector to consider @return Time until the propogation or -1 if particle will not hit detector */ double getTimeOfFirstCollisionDetector(_class_particle p, Detector d) { double t = (d.z0-p.z)/p.vz; if (t <= 0) return -1; _class_particle p2 = copyMove_class_particleT(t,p); if (p2.x > d.xmax || p2.x < d.xmin || p2.y > d.ymax || p2.y < d.ymin) return -1; return t; } /*! \brief Function to raytrace Detector @param p Pointer to particle to be traced @param d Detector to be traced */ void traceNeutronDetector(_class_particle* p, Detector d) { double t = getTimeOfFirstCollisionDetector(*p, d); if (t < 0) return; move_class_particleT(t,p); d.data[(int)floor((p->x-d.xmin)/d.xstep)][(int)floor((p->y-d.ymin)/d.ystep)] += p->p; (*d.num_count) += p->p; } /*! \brief Function to finalize detector Will write data and free data array. @param d Detector to finalize */ void finishDetector(Detector d) { int x,y; if (strcmp(d.filename,"")) { FILE *file; file = fopen(d.filename,"w"); if (file) { double intensity = (*d.num_count); fprintf(file, "#I=%e I_ERR=%e xmin=%f xmax=%f ymin=%f ymax=%f ncols=%i nrows=%i\n", intensity, sqrt(intensity/d.num_particles), d.xmin, d.xmax, d.ymin, d.ymax, d.ncols, d.nrows); //FIXME: check I_ERR sqrt(I/num_particles) //Write data for (x=0; x < d.ncols; x++) { for (y=0; y < d.nrows; y++) fprintf(file, "%e ", d.data[x][y]); fprintf(file, "\n"); } fclose(file); } else { fprintf(stderr,"Warning from conic.h: Could not open file %s in write mode. No data written!\n",d.filename); } } for (x=0; x < d.ncols; x++) free(d.data[x]); free(d.data); free(d.num_count); return; } /** @} */ //end of detectorgroup ///////////////////////////////////// // Geometry Types ///////////////////////////////////// ///////////////////////////////////// // Disks ///////////////////////////////////// /** @defgroup diskgroup Disk Contains code related to Disks @{ */ /*! \brief Function for creating a Disk structure @param z0 z-axis position of Disk @param r0 Inner radius of doughnut @param r1 Outer radius of doughnut @see Disk */ Disk makeDisk(double z0, double r0, double r1) { Disk d; d.r0 = r0; d.z0 = z0; d.r1 = r1; d.absorb = 1; // By default, absorb on propagation to disk return d; } /*! \brief Function for making and adding Disk to Scene @param z0 z-axis position of Disk @param r0 Inner radius of doughnut @param r1 Outer radius of doughnut @param s Scene to add Disk to @see Disk */ Disk* addDisk(double z0, double r0, double r1, Scene* s) { if (s->num_di >= MAX_DISK-1) { fprintf(stderr,"TOO MANY DISKS IN SCENE"); exit(-1); } s->di[s->num_di] = makeDisk(z0, r0, r1); s->num_di++; return &s->di[s->num_di -1]; } /*! \brief Function for making and adding non-absorbing end-Disk to Scene @param z0 z-axis position of Disk @param r0 Inner radius of doughnut @param r1 Outer radius of doughnut @param s Scene to add Disk to @see Disk */ Disk* addEndDisk(double z0, double r0, double r1, Scene* s) { if (s->num_di >= MAX_DISK-1) { fprintf(stderr,"TOO MANY DISKS IN SCENE"); exit(-1); } s->di[s->num_di] = makeDisk(z0, r0, r1); s->di[s->num_di].absorb = 0; s->num_di++; return &s->di[s->num_di -1]; } /*! \brief Function to compute time of first collision for a disk @param p _class_particle to consider @param d Disk to consider @return Time until the propogation or -1 if particle will not hit disk */ double getTimeOfFirstCollisionDisk(_class_particle p, Disk d) { double tz = (d.z0-p.z)/p.vz; if (tz <= 0) return -1; _class_particle p2 = copyMove_class_particleT(tz, p); double rp = sqrt(p2.x*p2.x+p2.y*p2.y); if (rp > d.r0 && rp < d.r1 && fabs(p2.z-d.z0) < 1e-11) return (d.z0-p.z)/p.vz; return -1; } /*! \brief Function to raytrace Disks @param p Pointer to particle to be traced @param d Disk to be traced */ void traceNeutronDisk(_class_particle* p, Disk d) { double t = getTimeOfFirstCollisionDisk(*p, d); if (t <= 0) return; move_class_particleT(t, p); if (d.absorb) absorb_class_particle(p); } /** @} */ //end of diskgroup ///////////////////////////////////// // Z-Axis Symetric Conic Sections ///////////////////////////////////// /** @defgroup conicgroup ConicSurf Contains code related to ConicSurfs @{ */ /*! \brief Function to return radius of ConicSurf at a z-axis position. Will return radius even if z is outside the bounds of zs and ze for the particular ConicSurf. @param z z-axis position to compute radius @param s ConicSurf to compute radius of */ double rConic(double z, ConicSurf s) { return sqrt(s.k1+s.k2*z+s.k3*z*z); } /*! \brief Function for generating Hyperboloid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @see ConicSurf */ ConicSurf makeHyperboloid(double f1, double f2, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W) { ConicSurf s; s.zs = zstart; s.ze = zend; double r2 = p.x*p.x+p.y*p.y; double c = (f1-f2)/2; double u = p.z+c-f1; double a = sqrt(((u*u+c*c+r2)-sqrt(pow(u*u+c*c+r2,2)-4*c*c*u*u))/2); s.k3 = c*c/(a*a)-1; s.k2 = 2*s.k3*(c-f1); s.k1 = (s.k3)*(c-f1)*(c-f1)-c*c+a*a; s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f1; s.f2 = f2; s.a = a; s.c = c; s.type = HYPER; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif return s; } /*! \brief Function for generating Ellipsoid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @see ConicSurf */ ConicSurf makeEllipsoid(double f1, double f2, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W) { ConicSurf s; s.zs = zstart; s.ze = zend; double r2 = p.x*p.x+p.y*p.y; double c = (f1-f2)/2; double u = p.z+c-f1; double a = sqrt(((u*u+c*c+r2)+sqrt(pow(u*u+c*c+r2,2)-4*c*c*u*u))/2); s.k3 = c*c/(a*a)-1; s.k2 = 2*s.k3*(c-f1); s.k1 = (s.k3)*(c-f1)*(c-f1)-c*c+a*a; s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f1; s.f2 = f2; s.a = a; s.c = c; s.type = ELLIP; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif return s; } /*! \brief Function for generating Flat Ellipse with symmetry along the vertical y. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param b the short half axis of the ellipse, positive for translational symmetry along y, negative for translational symmetry along x @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param ll the left/lower limit of the ellipse surface (in either y or x for b > 0 or b < 0 @param rl the right/upper limit of the ellipse surface (in either y or x for b > 0 or b < 0 @param m m value for reflectivity of the surface @see ConicSurf */ FlatSurf makeFlatEllipse(double f1, double f2, Point p, double zstart, double zend, double ll, double rl, double m, double R0, double Qc, double alpha, double W) { FlatSurf s; s.zs = zstart; s.ze = zend; s.ll = ll; s.rl = rl; double r2 = p.x*p.x + p.y*p.y; double c = (f1-f2)/2; double u = p.z+c-f1; double a = sqrt(((u*u+c*c+r2)+sqrt(pow(u*u+c*c+r2,2)-4*c*c*u*u))/2); s.k3 = c*c/(a*a)-1; s.k2 = 2*s.k3*(c-f1); s.k1 = (s.k3)*(c-f1)*(c-f1)-c*c+a*a; s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f1; s.f2 = f2; s.a = a; s.c = c; //s.type = ELLIP; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif // PW Initializer added from linter hints... s.doubleReflections=0; return s; } /*! \brief Function for generating Paraboloid ConicSurf. @param f z position of focus closest to actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @see ConicSurf */ ConicSurf makeParaboloid(double f, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W) { ConicSurf s; s.zs = zstart; s.ze = zend; double r2 = p.x*p.x+p.y*p.y; double a = (-(p.z-f)+sign(p.z-f)*sqrt((p.z-f)*(p.z-f)+r2))/2; s.k3 = 0.0; s.k2 = 4*a; s.k1 = s.k2*(a-f); s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f; s.a = a; s.type = PARA; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif // PW Initializer added from linter hints... s.f2=0; s.c=0; return s; } /*! \brief Function for generating Flat Parabola for FlatSurf. @param f z position of focus closest to actual mirror surface @param p A Point on the actual surface of the mirror, putting one of x or y to 0 results in the surface being parallel to said coordinate @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param ll the left/lower limit of the ellipse surface (in either y or x for b > 0 or b < 0 @param rl the right/upper limit of the ellipse surface (in either y or x for b > 0 or b < 0 @param m m value for reflectivity of the surface @param doubleReflections wether double reflections are allowed @see FlatSurf */ FlatSurf makeFlatparbola( double f, Point p, double zstart, double zend, double ll, double rl, double m, double R0, double Qc, double alpha, double W) { FlatSurf s; s.zs = zstart; s.ze = zend; double r2 = p.x*p.x+p.y*p.y; double a = (-(p.z-f)+sign(p.z-f)*sqrt((p.z-f)*(p.z-f)+r2))/2; s.k3 = 0.0; s.k2 = 4*a; s.k1 = s.k2*(a-f); s.m = m; s.R0 = R0; s.Qc = Qc; s.alpha = alpha; s.W = W; s.f1 = f; s.a = a; s.ll = ll; s.rl = rl; //s.type = PARA; #if REC_MAX_GA s.max_ga = -1; s.max_ga_z0 = -1; #endif // PW Initializer added from linter hints... s.doubleReflections=0; s.f2=0; s.c=0; return s; } /*! \brief Function for generating and adding Paraboloid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @param s Scene to add Paraboloid to @see ConicSurf */ ConicSurf* addParaboloid(double f1, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_c >= MAX_CONICSURF-1) { fprintf(stderr,"TOO MANY CONICSURF IN SCENE"); exit(-1); } s->c[s->num_c] = makeParaboloid(f1,p,zstart,zend,m,R0,Qc,alpha,W); s->num_c++; return &s->c[s->num_c-1]; } /*! \brief Function for generating and adding a flat Parabolic FlatSurf. @param f1 z position of focus closest to actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param ll the lower bound of the mirror @param rl the upper bound of the mirror @param m m value for reflectivity of the surface @param s Scene to add Ellipsoid to @param doubleReflections wether double reflections can occur @see FlatSurf */ FlatSurf* addFlatParabola( double f, Point p, double zstart, double zend, double ll, double rl, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_f >= MAX_FLATSURF-1) { fprintf(stderr,"TOO MANY FLATSURF IN SCENE"); exit(-1); } s->f[s->num_f] = makeFlatparbola(f,p,zstart,zend,ll,rl,m, R0, Qc, alpha, W); s->num_f++; return &s->f[s->num_f-1]; } /*! \brief Function for generating and adding Hyperboloid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @param s Scene to add Hyperboloid to @see ConicSurf */ ConicSurf* addHyperboloid(double f1, double f2, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_c >= MAX_CONICSURF-1) { fprintf(stderr,"TOO MANY CONICSURF IN SCENE"); exit(-1); } s->c[s->num_c] = makeHyperboloid(f1,f2,p,zstart,zend,m,R0,Qc,alpha,W); s->num_c++; return &s->c[s->num_c-1]; } /*! \brief Function for generating and adding Ellipsoid ConicSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @param s Scene to add Ellipsoid to @see ConicSurf */ ConicSurf* addEllipsoid(double f1, double f2, Point p, double zstart, double zend, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_c >= MAX_CONICSURF-1) { fprintf(stderr,"TOO MANY CONICSURF IN SCENE"); exit(-1); } s->c[s->num_c] = makeEllipsoid(f1,f2,p,zstart,zend,m,R0,Qc,alpha,W); s->num_c++; return &s->c[s->num_c-1]; } /*! \brief Function for generating and adding a flat Ellipse FlatSurf. @param f1 z position of focus closest to actual mirror surface @param f2 z position of focus furthest from actual mirror surface @param p A Point on the actual surface of the mirror @param zstart z position of start of mirror surface @param zend z position of end of mirror surface @param m m value for reflectivity of the surface @param s Scene to add Ellipsoid to @see ConicSurf */ FlatSurf* addFlatEllipse( double f1, double f2, Point p, double zstart, double zend, double ll, double rl, double m, double R0, double Qc, double alpha, double W, Scene* s) { if (s->num_f >= MAX_FLATSURF-1) { fprintf(stderr,"TOO MANY FLATSURF IN SCENE"); exit(-1); } s->f[s->num_f] = makeFlatEllipse(f1,f2,p,zstart,zend,ll,rl,m,R0,Qc,alpha,W); s->num_f++; return &s->f[s->num_f-1]; } //!TODO double getGrazeAngleConic(_class_particle p, ConicSurf s) { /* double v = sqrt(dotVec(get_class_particleVel(p),get_class_particleVel(p))); double vn = dotVec(get_class_particleVel(p),n); return fabs(acos(vn/v)) - M_PI/2; */ /* Even though this function does absolutely nothing, better add return value... Negative to indicate something went wrong */ return -1; } /*! \brief Function for returning normal vector of ConicSurf at Point p Will compute vector even if p is not on surface. MAKE SURE p IS ON SURFACE @param p Point to compute normal vector @param s ConicSurf to compute normal vector of */ Vec getNormConic(Point p, ConicSurf s) { double det = s.k2*s.k2+4*s.k3*(p.x*p.x+p.y*p.y-s.k1); if (det <= 0.){ return makeVec(-p.x/sqrt(p.x*p.x + p.y*p.y),-p.y/(p.x*p.x + p.y*p.y),0); } double den = sqrt(det); double nx = -2*p.x/den; double ny = -2*p.y/den; double nz = sign(2*s.k3*p.z+s.k2); double n = sqrt(nx*nx+ny*ny+nz*nz); return makeVec(nx/n,ny/n,nz/n); } /*! \brief Function for returning normal vector of FlatSurf at Point p Will compute vector even if p is not on surface. MAKE SURE p IS ON SURFACE @param p Point to compute normal vector @param s FlatSurf to compute normal vector of; for s.b > 0 surface posseses translation symmetry along y direction */ Vec getNormFlat(Point p, FlatSurf s) { double r; //if(s.b > 0){ r = p.x; //else{ // r = p.y; //}; double den; double det = s.k2*s.k2+4*s.k3*(r*r-s.k1); if (det > 0){ den = sqrt(det); } else{ return makeVec(-1,0,0); // if the neutron hits the apex of the ellipse we run into a divide by zero problem } double nx = -2*p.x/den; double ny = 0; double nz = sign(2*s.k3*p.z+s.k2); double n = sqrt(nx*nx+ny*ny+nz*nz); return makeVec(nx/n,ny/n,nz/n); } /*! \brief Function to compute time of first collision for a ConicSurf @param p _class_particle to consider @param s ConicSurf to consider @return Time until the propogation or -1 if particle will not hit disk */ double getTimeOfFirstCollisionConic(_class_particle p, ConicSurf s) { double tz = (s.zs-p.z)/p.vz; if (tz < 0) { tz = 0; if (p.z > s.ze) return -1; } _class_particle p2 = copyMove_class_particleT(tz,p); double A = p2.vx*p2.vx+p2.vy*p2.vy-s.k3*p2.vz*p2.vz; double B = 2*(p2.vx*p2.x+p2.vy*p2.y-s.k3*p2.vz*p2.z)-s.k2*p2.vz; double C = p2.x*p2.x+p2.y*p2.y-s.k3*p2.z*p2.z-s.k2*p2.z-s.k1; double t = solveQuad(A,B,C); if (t <= 0 || p2.vz*t+p2.z > s.ze || p2.vz*t+p2.z < s.zs) return -1; return t+tz; } /*! \brief Function to compute time of first collision for a FlatSurf @param p Particle to consider @param s FlatSurf to consider @return Time until the propogation or -1 if particle will not hit surface */ //TODO double getTimeOfFirstCollisionFlat(_class_particle p, FlatSurf s) { double tz = (s.zs-p.z)/p.vz; if (tz < 0) { tz = 0; if (p.z > s.ze) return -1; } _class_particle p2 = copyMove_class_particleT(tz,p); double vs = 0;//the vector important for calculating the intersection with the ellipse double s0 = 0; double vt = 0;//the other component only important for testing whether the mirror is hit double t0 = 0; //if(s.b > 0){//obsolete iteration allowing to rotate by 90 deg with out rotation in McStas, not really needed vs = p2.vx; s0 = p2.x; vt = p2.vy; t0 = p2.y; //} /*else{ vs = p2.vy; s0 = p2.y; vt = p2.vx; t0 = p2.x; }; */ double A = vs*vs-s.k3*p2.vz*p2.vz; double B = 2*(vs*s0-s.k3*p2.vz*p2.z)-s.k2*p2.vz; double C = s0*s0-s.k3*p2.z*p2.z-s.k2*p2.z-s.k1; double t = solveQuad(A,B,C); if (t <= 0 || p2.vz*t+p2.z > s.ze || p2.vz*t+p2.z < s.zs||vt*t+t0 < s.ll||vt*t +t0 > s.rl) return -1; return t+tz; } /*! \brief Function to rotate a vector (by D. Liu) @param v vector to rotate @param angle rotation angle @param axis rotation according to this axis */ Vec rotateM(Vec v, double angle, Vec axis) { Vec p; double miu = 1-cos(angle); double ux = axis.x, uy = axis.y, uz=axis.z; p.x = v.x*(cos(angle)+ux*ux*miu) + v.y*(ux*uy*miu-uz*sin(angle)) + v.z*(ux*uz*miu+uy*sin(angle)); p.y = v.x*(uy*ux*miu+uz*sin(angle)) + v.y*(cos(angle)+uy*uy*miu) + v.z*(uy*uz*miu-ux*sin(angle)); p.z = v.x*(uz*ux*miu-uy*sin(angle)) + v.y*(uz*uy*miu+ux*sin(angle)) + v.z*(cos(angle)+uz*uz*miu); return p; } /*! \brief Function to handle supermirror reflectivity copied from mcstas. @note Uses only m-value for calculating reflectivity curve TODO more sophisticated formulae in the future @param q k_i - k_f momentum transfer of the neutron at the super mirror surface @param m supermirror m-value @param R_0 low angle reflectivity @param Q_c critical momentum transfer of the super mirror @return p weight reduction of the neutron for further simulation */ double calcSupermirrorReflectivity(double q, double m, double R_0, double Q_c){ double arg; double beta = 0;//values fitting supermirror data from sn double alpha = 2.5; double W = 0.004; double weight = 1.0; //neutron weight to be transformed q = fabs(q); if (m >= 10){ weight = 1.0; return weight; } if (W==0 && alpha==0) { m=m*0.9853+0.1978; W=-0.0002*m+0.0022; alpha=0.2304*m+5.0944; beta=-7.6251*m+68.1137; if (m<=3) { alpha=m; beta=0; } } arg = W > 0 ? (q - m*Q_c)/W : 11; if (arg > 10 || m <= 0 || Q_c <=0 || R_0 <= 0) { weight = 0.0; return weight; } if (m < 1) { Q_c *= m; m=1; } if(q <= Q_c) { weight = R_0; return weight; } weight = R_0*0.5*(1 - tanh(arg))*(1 - alpha*(q - Q_c) + beta*(q - Q_c)*(q - Q_c)); return weight; } /*! \brief Function to handle reflection of neutron for a ConicSurf. @note Uses step function for reflectivity @warning Make sure particle has been moved to surface of mirror before computing reflection @param p Pointer of particle to reflect @param s ConicSurf to use @return Value of critical angle of the neutron or -1 if neutron is absorbed @see traceNeutronConic() */ double reflectNeutronConic(_class_particle* _particle, ConicSurf s) { Vec n = getNormConic(get_class_particlePos(*_particle),s); Vec pv = get_class_particleVel(*_particle); int disp = 0; if (disp>0) { printf("\n n = %f, %f, %f",n.x,n.y,n.z); printf("\n pv = %f, %f, %f",pv.x,pv.y,pv.z); } //add figure error by D. Liu Vec n_p = makeVec(-n.y/sqrt(n.x*n.x+n.y*n.y),n.x/sqrt(n.x*n.x+n.y*n.y),0); //define a vector perpendicular to norm //Vec n_p = makeVec(0,-n.z/sqrt(n.z*n.z+n.y*n.y),n.y/sqrt(n.z*n.z+n.y*n.y)); //define a vector perpendicular to norm //Vec n_p = makeVec(-n.z/sqrt(n.z*n.z+n.x*n.x),0,n.x/sqrt(n.z*n.z+n.x*n.x)); //define a vector perpendicular to norm if (disp>0) { printf("\n n_p %f, %f, %f", n_p.x, n_p.y, n_p.z); } double len_p2 = sqrt((n.x*n.x+n.y*n.y)*(n.x*n.x+n.y*n.y+n.z*n.z)); Vec n_p2 = makeVec(-n.x*n.z/len_p2, -n.y*n.z/len_p2, (n.x*n.x+n.y*n.y)/len_p2); //define a vector perpendicular to both n and n_p //double phi, theta = rand01()*2*M_PI; double phi1, theta1, sigma1; //sigma = 37.7e-6; sigma1 = 1e-6; // sigma1 is half-sigma (unit in rad): sigma1=5e-6 means the FWHM is 23.6 urad phi1 = sigma1*randnorm();//randgaussian(0.0,sigma1); theta1 = 250*sigma1*randnorm();//randgaussian(0.0,sigma1); if (disp>0) { printf("\n phi and theta %f, %f", phi1, theta1); } Vec R1 = rotateM(n,phi1,n_p); //rotate n by phi according to n_p if (disp>0) { printf("\n R1 %f, %f, %f", R1.x, R1.y, R1.z); } Vec R2 = rotateM(R1,theta1,n_p2); //rotate R1 by theta according to n_p2 //Vec R2 = rotateM(R1,theta1,n); //rotate R1 by theta according to n_p2 n = R2; // //n.y = n.y+theta1; //n.z = n.z; // end of adding figure error double v = getMagVec(pv); double vn = dotVec(pv,n); //Hitting shell from outside if (vn > 0) { absorb_class_particle(_particle); return -1; } double ga = fabs(acos(vn/v)) - M_PI/2; double gc = 6.84459399932*s.m/v; double ref=1.0; if (ga > gc) { absorb_class_particle(_particle); return -1; } else { _particle->vx = _particle->vx-2*vn*n.x; _particle->vy = _particle->vy-2*vn*n.y; _particle->vz = _particle->vz-2*vn*n.z; double q = V2Q*(-2)*vn/sqrt(pv.x*pv.x + pv.y*pv.y + pv.z*pv.z); double par[5] = {s.R0, s.Qc, s.alpha, s.m, s.W}; StdReflecFunc(q, par, &ref); _particle->p = _particle->p * ref; if (disp>0) { printf("\n pv final = %f, %f, %f",pv.x,pv.y,pv.z); } } return ga; } /*! \brief Function to handle refraction of neutron. @warning Make sure particle has been moved to surface of mirror before computing reflection @param p Pointer of particle to reflect/refract @param n Normal vector @param m1 m-value of the material we come from @param m2 m-value of the goal material we go to @return Value of critical angle of the neutron or -1 if neutron is absorbed @see traceNeutronConic() */ void refractNeutronFlat(_class_particle* p, Vec n, double m1, double m2) { Vec pv = get_class_particleVel(*p); //printf("incoming %.14g %.14g %.14g\n", pv.x, pv.y, pv.z); //printf("normal %.14g %.14g %.14g\n", n.x, n.y, n.z); double v = getMagVec(pv); double vn = dotVec(pv, n); //printf("vn %.9g", vn); Vec v_p = difVec(pv, skalarVec(n, vn)); double k2_perp = POT_V*(m1*m1-m2*m2)+vn*vn; //printf("the magnitude %f\n", k2_perp); if (k2_perp>0){//refraction k2_perp = sqrt(k2_perp)*sign(vn); p->vx = v_p.x + n.x*k2_perp; p->vy = v_p.y + n.y*k2_perp; p->vz = v_p.z + n.z*k2_perp; p->_mctmp_a *= -1;// from silicon to air or vice versa //printf("resulting vector %f %f %f\n", p->vx, p->vy, p->vz); }else{//total reflection, no change in material p->vx = p->vx-2*vn*n.x; p->vy = p->vy-2*vn*n.y; p->vz = p->vz-2*vn*n.z; //no change in material } } /*! \brief Function to handle reflection of neutron for a FlatSurf. @note Uses step function for reflectivity @warning Make sure particle has been moved to surface of mirror before computing reflection @param p Pointer of particle to reflect @param s FlatSurf to use @return Value of critical angle of the neutron or -1 if neutron is absorbed @see traceNeutronConic() */ double reflectNeutronFlat(_class_particle* _particle, FlatSurf s) { Vec n = getNormFlat(get_class_particlePos(*_particle),s); Vec pv = get_class_particleVel(*_particle); //printf("nothing"); double v = getMagVec(pv); double vn = dotVec(pv,n); //printf("before %f \n", p->w); //Hitting shell from outside For FlatSurface this has to be checked // make it able to reflect from the outside double ga = fabs(acos(vn/v)) - M_PI/2; double gc = 6.84459399932*s.m/v; double ref=1.0; double q = V2Q*(-2)*vn/sqrt(pv.x*pv.x + pv.y*pv.y + pv.z*pv.z); double par[5] = {s.R0, s.Qc, s.alpha, s.m, s.W}; StdReflecFunc(q, par, &ref); _particle->p = _particle->p * ref; if (ref < 0) { printf("this happens?"); absorb_class_particle(_particle); return -1; } else {//here we need to implement the refraction if (rand01() <= ref){//to be updated to use the mcstas random function or quasoi deterministic model //printf("oh a reflections\n"); //printf("this total reflection?"); _particle->vx = _particle->vx-2*vn*n.x; _particle->vy = _particle->vy-2*vn*n.y; _particle->vz = _particle->vz-2*vn*n.z; return ga; } else{// //printf("enter the refraction process"); double m1 = 0; double m2 = 0; //if no mirrorwidth is specified no refraction has to be calc if (_particle->_mctmp_a == 0){ return ga; } if (_particle->_mctmp_a == 1){ m1 = m_Si; m2 = 0; } if (_particle->_mctmp_a == -1){ m1 = 0; m2 = m_Si; } //printf("k1 %f k2 %f k3 %f x %f y %f z %f\n", s.k1, s.k2, s.k3, p->_x, p->_y, p->_z); refractNeutronFlat(_particle, n, m1, m2);// this can still lead to total reflection, we miss the supermirror, but are still reflected by the silicon takes care of change of material for refraction return ga; } } return ga; } /*! \brief Function to handle raytracing of neutron for a ConicSurf. @param p Pointer of particle to reflect @param c ConicSurf to use */ void traceNeutronConic(_class_particle* _particle, ConicSurf c) { double t = getTimeOfFirstCollisionConic(*_particle, c); if (t < 0) return; else { move_class_particleT(t, _particle); double ga = reflectNeutronConic(_particle, c); #if REC_MAX_GA if (ga > c.max_ga) { c.max_ga = ga; c.max_ga_z0 = _particle->z; } #endif } } /*! \brief Function to handle raytracing of neutron for a FlatSurf. @param p Pointer of particle to reflect @param f FlatSurf to use */ void traceNeutronFlat(_class_particle* _particle, FlatSurf f) { double t = getTimeOfFirstCollisionFlat(*_particle, f); if (t < 0) return; else { move_class_particleT(t, _particle); double ga = reflectNeutronFlat(_particle, f); #if REC_MAX_GA if (ga > f.max_ga) { f.max_ga = ga; f.max_ga_z0 = p->_z; } #endif } } /** @} */ //end of conicgroup ///////////////////////////////////// // Scene Functions ///////////////////////////////////// /** @ingroup simgroup @{ */ enum GEO { NONE, DETECTOR, DISK, CONIC, FLAT }; //! Function to generate an empty Scene Scene makeScene() { Scene s; s.num_f = 0; s.num_c = 0; s.num_di = 0; s.num_d = 0; return s; } //! Function to init simulation items /*! Should be called after all items have been added to scene but before neutrons are traced. @param s Pointer of Scene to init */ void initSimulation(Scene* s) { // } /*! \brief Function to raytrace single neutron through geometries specified by d, di and c. @param p Pointer of particle to trace @param s Scene to trace */ void traceSingleNeutron(_class_particle* _particle, Scene s) { int contact = 1; do { double t; enum GEO type = NONE; int index = -1; int i; for (i = 0; i < s.num_c; i++) { double t2 = getTimeOfFirstCollisionConic(*_particle,s.c[i]); if (t2 <= 0) continue; if (index == -1 || t2 < t) { type = CONIC; index = i; t = t2; } } for (i = 0; i < s.num_f; i++) { double t2 = getTimeOfFirstCollisionFlat(*_particle,s.f[i]); if (t2 <= 0) continue; if (index == -1 || t2 < t) { type = FLAT; index = i; t = t2; } } for (i = 0; i < s.num_di; i++) { double t2 = getTimeOfFirstCollisionDisk(*_particle,s.di[i]); if (t2 <= 0) continue; else if (index == -1 || t2 < t) { type = DISK; index = i; t = t2; } } for (i = 0; i < s.num_d; i++) { double t2 = getTimeOfFirstCollisionDetector(*_particle,s.d[i]); if (t2 <= 0) continue; else if (index == -1 || t2 < t) { type = DETECTOR; index = i; t = t2; } } switch (type) { case DETECTOR: traceNeutronDetector(_particle, s.d[index]); break; case FLAT: traceNeutronFlat(_particle, s.f[index]); break; case DISK: traceNeutronDisk(_particle, s.di[index]); break; case CONIC: traceNeutronConic(_particle, s.c[index]); break; default: contact = 0; break; } } while (contact && !_particle->_absorbed); } //!Finishes tracing the scene /*! This function should be called after all of the particles have been raytraced. @param s Pointer of Scene to finish tracing */ void finishSimulation(Scene* s) { int i; //Finish Detectors for (i=0; i < s->num_d; i++) finishDetector(s->d[i]); } /** @} */ //end of ingroup simgroup #endif /* ************************************************************************** */ /* End of SHARE user declarations for all components */ /* ************************************************************************** */ /* ********************** component definition declarations. **************** */ /* component origin=Progress_bar() [1] DECLARE */ /* Parameter definition for component type 'Progress_bar' */ struct _struct_Progress_bar_parameters { /* Component type 'Progress_bar' setting parameters */ char profile[16384]; MCNUM percent; MCNUM flag_save; MCNUM minutes; /* Component type 'Progress_bar' private parameters */ double IntermediateCnts; time_t StartTime; time_t EndTime; time_t CurrentTime; char infostring[64]; }; /* _struct_Progress_bar_parameters */ typedef struct _struct_Progress_bar_parameters _class_Progress_bar_parameters; /* Parameters for component type 'Progress_bar' */ struct _struct_Progress_bar { char _name[256]; /* e.g. origin */ char _type[256]; /* Progress_bar */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Progress_bar_parameters _parameters; }; typedef struct _struct_Progress_bar _class_Progress_bar; _class_Progress_bar _origin_var; #pragma acc declare create ( _origin_var ) /* component Source=Source_gen() [2] DECLARE */ /* Parameter definition for component type 'Source_gen' */ struct _struct_Source_gen_parameters { /* Component type 'Source_gen' setting parameters */ char flux_file[16384]; char xdiv_file[16384]; char ydiv_file[16384]; MCNUM radius; MCNUM dist; MCNUM focus_xw; MCNUM focus_yh; MCNUM focus_aw; MCNUM focus_ah; MCNUM E0; MCNUM dE; MCNUM lambda0; MCNUM dlambda; MCNUM I1; MCNUM yheight; MCNUM xwidth; MCNUM verbose; MCNUM T1; MCNUM flux_file_perAA; MCNUM flux_file_log; MCNUM Lmin; MCNUM Lmax; MCNUM Emin; MCNUM Emax; MCNUM T2; MCNUM I2; MCNUM T3; MCNUM I3; MCNUM zdepth; int target_index; /* Component type 'Source_gen' private parameters */ double p_in; double lambda1; double lambda2; double lambda3; t_Table pTable; t_Table pTable_x; t_Table pTable_y; double pTable_xmin; double pTable_xmax; double pTable_xsum; double pTable_ymin; double pTable_ymax; double pTable_ysum; double pTable_dxmin; double pTable_dxmax; double pTable_dymin; double pTable_dymax; }; /* _struct_Source_gen_parameters */ typedef struct _struct_Source_gen_parameters _class_Source_gen_parameters; /* Parameters for component type 'Source_gen' */ struct _struct_Source_gen { char _name[256]; /* e.g. Source */ char _type[256]; /* Source_gen */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Source_gen_parameters _parameters; }; typedef struct _struct_Source_gen _class_Source_gen; _class_Source_gen _Source_var; #pragma acc declare create ( _Source_var ) /* component psd_Source=PSD_monitor() [3] DECLARE */ /* Parameter definition for component type 'PSD_monitor' */ struct _struct_PSD_monitor_parameters { /* Component type 'PSD_monitor' setting parameters */ int nx; int ny; char filename[16384]; MCNUM xmin; MCNUM xmax; MCNUM ymin; MCNUM ymax; MCNUM xwidth; MCNUM yheight; int restore_neutron; int nowritefile; /* Component type 'PSD_monitor' private parameters */ DArray2d PSD_N; DArray2d PSD_p; DArray2d PSD_p2; }; /* _struct_PSD_monitor_parameters */ typedef struct _struct_PSD_monitor_parameters _class_PSD_monitor_parameters; /* Parameters for component type 'PSD_monitor' */ struct _struct_PSD_monitor { char _name[256]; /* e.g. psd_Source */ char _type[256]; /* PSD_monitor */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_PSD_monitor_parameters _parameters; }; typedef struct _struct_PSD_monitor _class_PSD_monitor; _class_PSD_monitor _psd_Source_var; #pragma acc declare create ( _psd_Source_var ) /* component l_Source=L_monitor() [4] DECLARE */ /* Parameter definition for component type 'L_monitor' */ struct _struct_L_monitor_parameters { /* Component type 'L_monitor' setting parameters */ int nL; char filename[16384]; int nowritefile; MCNUM xmin; MCNUM xmax; MCNUM ymin; MCNUM ymax; MCNUM xwidth; MCNUM yheight; MCNUM Lmin; MCNUM Lmax; int restore_neutron; /* Component type 'L_monitor' private parameters */ DArray1d L_N; DArray1d L_p; DArray1d L_p2; }; /* _struct_L_monitor_parameters */ typedef struct _struct_L_monitor_parameters _class_L_monitor_parameters; /* Parameters for component type 'L_monitor' */ struct _struct_L_monitor { char _name[256]; /* e.g. l_Source */ char _type[256]; /* L_monitor */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_L_monitor_parameters _parameters; }; typedef struct _struct_L_monitor _class_L_monitor; _class_L_monitor _l_Source_var; #pragma acc declare create ( _l_Source_var ) /* component nD1=Monitor_nD() [5] DECLARE */ /* Parameter definition for component type 'Monitor_nD' */ struct _struct_Monitor_nD_parameters { /* Component type 'Monitor_nD' setting parameters */ char user1[16384]; char user2[16384]; char user3[16384]; MCNUM xwidth; MCNUM yheight; MCNUM zdepth; MCNUM xmin; MCNUM xmax; MCNUM ymin; MCNUM ymax; MCNUM zmin; MCNUM zmax; int bins; MCNUM min; MCNUM max; int restore_neutron; MCNUM radius; char options[16384]; char filename[16384]; char geometry[16384]; int nowritefile; int nexus_bins; char username1[16384]; char username2[16384]; char username3[16384]; /* Component type 'Monitor_nD' private parameters */ MonitornD_Defines_type DEFS; MonitornD_Variables_type Vars; MCDETECTOR detector; off_struct offdata; }; /* _struct_Monitor_nD_parameters */ typedef struct _struct_Monitor_nD_parameters _class_Monitor_nD_parameters; /* Parameters for component type 'Monitor_nD' */ struct _struct_Monitor_nD { char _name[256]; /* e.g. nD1 */ char _type[256]; /* Monitor_nD */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Monitor_nD_parameters _parameters; }; typedef struct _struct_Monitor_nD _class_Monitor_nD; _class_Monitor_nD _nD1_var; #pragma acc declare create ( _nD1_var ) /* component divergence_monitor_Source=Divergence_monitor() [6] DECLARE */ /* Parameter definition for component type 'Divergence_monitor' */ struct _struct_Divergence_monitor_parameters { /* Component type 'Divergence_monitor' setting parameters */ int nh; int nv; char filename[16384]; MCNUM xmin; MCNUM xmax; MCNUM ymin; MCNUM ymax; int nowritefile; MCNUM xwidth; MCNUM yheight; MCNUM maxdiv_h; MCNUM maxdiv_v; int restore_neutron; MCNUM nx; MCNUM ny; MCNUM nz; /* Component type 'Divergence_monitor' private parameters */ DArray2d Div_N; DArray2d Div_p; DArray2d Div_p2; }; /* _struct_Divergence_monitor_parameters */ typedef struct _struct_Divergence_monitor_parameters _class_Divergence_monitor_parameters; /* Parameters for component type 'Divergence_monitor' */ struct _struct_Divergence_monitor { char _name[256]; /* e.g. divergence_monitor_Source */ char _type[256]; /* Divergence_monitor */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Divergence_monitor_parameters _parameters; }; typedef struct _struct_Divergence_monitor _class_Divergence_monitor; _class_Divergence_monitor _divergence_monitor_Source_var; #pragma acc declare create ( _divergence_monitor_Source_var ) /* component h_divlambda_Source=DivLambda_monitor() [7] DECLARE */ /* Parameter definition for component type 'DivLambda_monitor' */ struct _struct_DivLambda_monitor_parameters { /* Component type 'DivLambda_monitor' setting parameters */ int nL; int nh; int nowritefile; char filename[16384]; MCNUM xmin; MCNUM xmax; MCNUM ymin; MCNUM ymax; MCNUM xwidth; MCNUM yheight; MCNUM maxdiv_h; MCNUM Lmin; MCNUM Lmax; int restore_neutron; MCNUM nx; MCNUM ny; MCNUM nz; /* Component type 'DivLambda_monitor' private parameters */ DArray2d Div_N; DArray2d Div_p; DArray2d Div_p2; }; /* _struct_DivLambda_monitor_parameters */ typedef struct _struct_DivLambda_monitor_parameters _class_DivLambda_monitor_parameters; /* Parameters for component type 'DivLambda_monitor' */ struct _struct_DivLambda_monitor { char _name[256]; /* e.g. h_divlambda_Source */ char _type[256]; /* DivLambda_monitor */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_DivLambda_monitor_parameters _parameters; }; typedef struct _struct_DivLambda_monitor _class_DivLambda_monitor; _class_DivLambda_monitor _h_divlambda_Source_var; #pragma acc declare create ( _h_divlambda_Source_var ) _class_DivLambda_monitor _v_divlambda_Source_var; #pragma acc declare create ( _v_divlambda_Source_var ) _class_PSD_monitor _psd_FocusingPosition_var; #pragma acc declare create ( _psd_FocusingPosition_var ) _class_L_monitor _l_FocusingPosition_var; #pragma acc declare create ( _l_FocusingPosition_var ) _class_Monitor_nD _nD2_var; #pragma acc declare create ( _nD2_var ) _class_Divergence_monitor _divergence_monitor_FocusingPosition_var; #pragma acc declare create ( _divergence_monitor_FocusingPosition_var ) _class_DivLambda_monitor _h_divlambda_FocusingPosition_var; #pragma acc declare create ( _h_divlambda_FocusingPosition_var ) _class_DivLambda_monitor _v_divlambda_FocusingPosition_var; #pragma acc declare create ( _v_divlambda_FocusingPosition_var ) /* component BrillmonLD2=Brilliance_monitor() [15] DECLARE */ /* Parameter definition for component type 'Brilliance_monitor' */ struct _struct_Brilliance_monitor_parameters { /* Component type 'Brilliance_monitor' setting parameters */ int nlam; int nt; int nowritefile; MCNUM lambda_0; MCNUM lambda_1; int restore_neutron; MCNUM Freq; int tofcuts; int toflambda; MCNUM xwidth; MCNUM yheight; MCNUM source_dist; char filename[16384]; MCNUM t_0; MCNUM t_1; MCNUM srcarea; /* Component type 'Brilliance_monitor' private parameters */ DArray2d BRIL_N; DArray2d BRIL_p; DArray2d BRIL_p2; DArray1d BRIL_mean; DArray1d BRIL_meanN; DArray1d BRIL_meanE; DArray1d BRIL_peak; DArray1d BRIL_peakN; DArray1d BRIL_peakE; DArray1d BRIL_shape; DArray1d BRIL_shapeN; DArray1d BRIL_shapeE; double tt_0; double tt_1; double xmin; double xmax; double ymin; double ymax; double ster; double prsec; double dlam; double dt; }; /* _struct_Brilliance_monitor_parameters */ typedef struct _struct_Brilliance_monitor_parameters _class_Brilliance_monitor_parameters; /* Parameters for component type 'Brilliance_monitor' */ struct _struct_Brilliance_monitor { char _name[256]; /* e.g. BrillmonLD2 */ char _type[256]; /* Brilliance_monitor */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Brilliance_monitor_parameters _parameters; }; typedef struct _struct_Brilliance_monitor _class_Brilliance_monitor; _class_Brilliance_monitor _BrillmonLD2_var; #pragma acc declare create ( _BrillmonLD2_var ) /* component monolith_slit1=Slit() [16] DECLARE */ /* Parameter definition for component type 'Slit' */ struct _struct_Slit_parameters { /* Component type 'Slit' setting parameters */ MCNUM xmin; MCNUM xmax; MCNUM ymin; MCNUM ymax; MCNUM radius; MCNUM xwidth; MCNUM yheight; /* Component type 'Slit' private parameters */ char isradial; }; /* _struct_Slit_parameters */ typedef struct _struct_Slit_parameters _class_Slit_parameters; /* Parameters for component type 'Slit' */ struct _struct_Slit { char _name[256]; /* e.g. monolith_slit1 */ char _type[256]; /* Slit */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Slit_parameters _parameters; }; typedef struct _struct_Slit _class_Slit; _class_Slit _monolith_slit1_var; #pragma acc declare create ( _monolith_slit1_var ) _class_Slit _monolith_slit2_var; #pragma acc declare create ( _monolith_slit2_var ) _class_PSD_monitor _psd_monolith_var; #pragma acc declare create ( _psd_monolith_var ) _class_L_monitor _l_monolith_var; #pragma acc declare create ( _l_monolith_var ) _class_Monitor_nD _nD3_var; #pragma acc declare create ( _nD3_var ) _class_Divergence_monitor _divergence_monitor_monolith_var; #pragma acc declare create ( _divergence_monitor_monolith_var ) _class_DivLambda_monitor _h_divlambda_monolith_var; #pragma acc declare create ( _h_divlambda_monolith_var ) _class_DivLambda_monitor _v_divlambda_monolith_var; #pragma acc declare create ( _v_divlambda_monolith_var ) _class_PSD_monitor _PSD_before_slit_cPH_var; #pragma acc declare create ( _PSD_before_slit_cPH_var ) _class_Slit _slit_cPH_var; #pragma acc declare create ( _slit_cPH_var ) _class_PSD_monitor _PSD_slit_cPH_var; #pragma acc declare create ( _PSD_slit_cPH_var ) _class_L_monitor _l_slit_cPH_var; #pragma acc declare create ( _l_slit_cPH_var ) _class_Monitor_nD _nD4_var; #pragma acc declare create ( _nD4_var ) _class_Divergence_monitor _divergence_monitor_slit_cPH_var; #pragma acc declare create ( _divergence_monitor_slit_cPH_var ) _class_DivLambda_monitor _h_divlambda_slit_cPH_var; #pragma acc declare create ( _h_divlambda_slit_cPH_var ) _class_DivLambda_monitor _v_divlambda_slit_cPH_var; #pragma acc declare create ( _v_divlambda_slit_cPH_var ) /* component cPH=Conics_PH() [32] DECLARE */ /* Parameter definition for component type 'Conics_PH' */ struct _struct_Conics_PH_parameters { /* Component type 'Conics_PH' setting parameters */ MCNUM rmin; MCNUM rmax; MCNUM focal_length; MCNUM lp; MCNUM lh; int nshells; MCNUM m; MCNUM mirr_thick; int disk; MCNUM* radii; MCNUM R0; MCNUM Qc; MCNUM W; MCNUM alpha; MCNUM transmit; /* Component type 'Conics_PH' private parameters */ Scene s; }; /* _struct_Conics_PH_parameters */ typedef struct _struct_Conics_PH_parameters _class_Conics_PH_parameters; /* Parameters for component type 'Conics_PH' */ struct _struct_Conics_PH { char _name[256]; /* e.g. cPH */ char _type[256]; /* Conics_PH */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Conics_PH_parameters _parameters; }; typedef struct _struct_Conics_PH _class_Conics_PH; _class_Conics_PH _cPH_var; #pragma acc declare create ( _cPH_var ) /* component beamstop_cPH=Beamstop() [33] DECLARE */ /* Parameter definition for component type 'Beamstop' */ struct _struct_Beamstop_parameters { /* Component type 'Beamstop' setting parameters */ MCNUM xmin; MCNUM xmax; MCNUM ymin; MCNUM ymax; MCNUM xwidth; MCNUM yheight; MCNUM radius; }; /* _struct_Beamstop_parameters */ typedef struct _struct_Beamstop_parameters _class_Beamstop_parameters; /* Parameters for component type 'Beamstop' */ struct _struct_Beamstop { char _name[256]; /* e.g. beamstop_cPH */ char _type[256]; /* Beamstop */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Beamstop_parameters _parameters; }; typedef struct _struct_Beamstop _class_Beamstop; _class_Beamstop _beamstop_cPH_var; #pragma acc declare create ( _beamstop_cPH_var ) _class_PSD_monitor _psd_cPH_var; #pragma acc declare create ( _psd_cPH_var ) _class_L_monitor _l_cPH_var; #pragma acc declare create ( _l_cPH_var ) _class_Monitor_nD _nD5_var; #pragma acc declare create ( _nD5_var ) _class_Divergence_monitor _divergence_monitor_cPH_var; #pragma acc declare create ( _divergence_monitor_cPH_var ) _class_DivLambda_monitor _h_divlambda_cPH_var; #pragma acc declare create ( _h_divlambda_cPH_var ) _class_DivLambda_monitor _v_divlambda_cPH_var; #pragma acc declare create ( _v_divlambda_cPH_var ) _class_PSD_monitor _psd_bunker_var; #pragma acc declare create ( _psd_bunker_var ) _class_L_monitor _l_bunker_var; #pragma acc declare create ( _l_bunker_var ) _class_Monitor_nD _nD6_var; #pragma acc declare create ( _nD6_var ) _class_Divergence_monitor _divergence_monitor_bunker_var; #pragma acc declare create ( _divergence_monitor_bunker_var ) _class_DivLambda_monitor _h_divlambda_bunker_var; #pragma acc declare create ( _h_divlambda_bunker_var ) _class_DivLambda_monitor _v_divlambda_bunker_var; #pragma acc declare create ( _v_divlambda_bunker_var ) _class_PSD_monitor _psd_PHfocus1_var; #pragma acc declare create ( _psd_PHfocus1_var ) _class_L_monitor _l_PHfocus1_var; #pragma acc declare create ( _l_PHfocus1_var ) _class_Monitor_nD _nD7_var; #pragma acc declare create ( _nD7_var ) _class_Divergence_monitor _divergence_monitor_PHfocus1_var; #pragma acc declare create ( _divergence_monitor_PHfocus1_var ) _class_DivLambda_monitor _h_divlambda_PHfocus1_var; #pragma acc declare create ( _h_divlambda_PHfocus1_var ) _class_DivLambda_monitor _v_divlambda_PHfocus1_var; #pragma acc declare create ( _v_divlambda_PHfocus1_var ) _class_Slit _slit_focusPH_var; #pragma acc declare create ( _slit_focusPH_var ) _class_PSD_monitor _psd_slit_focusPH_var; #pragma acc declare create ( _psd_slit_focusPH_var ) _class_L_monitor _l_slit_focusPH_var; #pragma acc declare create ( _l_slit_focusPH_var ) _class_Monitor_nD _nD8_var; #pragma acc declare create ( _nD8_var ) _class_Divergence_monitor _divergence_monitor_slit_focusPH_var; #pragma acc declare create ( _divergence_monitor_slit_focusPH_var ) _class_DivLambda_monitor _h_divlambda_slit_focusPH_var; #pragma acc declare create ( _h_divlambda_slit_focusPH_var ) _class_DivLambda_monitor _v_divlambda_slit_focusPH_var; #pragma acc declare create ( _v_divlambda_slit_focusPH_var ) _class_Slit _slit_EH_var; #pragma acc declare create ( _slit_EH_var ) /* component cEH=Conics_EH() [60] DECLARE */ /* Parameter definition for component type 'Conics_EH' */ struct _struct_Conics_EH_parameters { /* Component type 'Conics_EH' setting parameters */ MCNUM rmin; MCNUM rmax; MCNUM focal_length_u; MCNUM focal_length_d; MCNUM le; MCNUM lh; int nshells; MCNUM m; MCNUM mirr_thick; int disk; MCNUM* radii; MCNUM R0; MCNUM Qc; MCNUM W; MCNUM alpha; MCNUM transmit; /* Component type 'Conics_EH' private parameters */ Scene s; }; /* _struct_Conics_EH_parameters */ typedef struct _struct_Conics_EH_parameters _class_Conics_EH_parameters; /* Parameters for component type 'Conics_EH' */ struct _struct_Conics_EH { char _name[256]; /* e.g. cEH */ char _type[256]; /* Conics_EH */ long _index; /* e.g. 2 index in TRACE list */ Coords _position_absolute; Coords _position_relative; /* wrt PREVIOUS */ Rotation _rotation_absolute; Rotation _rotation_relative; /* wrt PREVIOUS */ int _rotation_is_identity; int _position_relative_is_zero; _class_Conics_EH_parameters _parameters; }; typedef struct _struct_Conics_EH _class_Conics_EH; _class_Conics_EH _cEH_var; #pragma acc declare create ( _cEH_var ) _class_Beamstop _beamstop_cEH_var; #pragma acc declare create ( _beamstop_cEH_var ) _class_PSD_monitor _psd_cEH_var; #pragma acc declare create ( _psd_cEH_var ) _class_L_monitor _l_cEH_var; #pragma acc declare create ( _l_cEH_var ) _class_Monitor_nD _nD9_var; #pragma acc declare create ( _nD9_var ) _class_Divergence_monitor _divergence_monitor_cEH_var; #pragma acc declare create ( _divergence_monitor_cEH_var ) _class_DivLambda_monitor _h_divlambda_cEH_var; #pragma acc declare create ( _h_divlambda_cEH_var ) _class_DivLambda_monitor _v_divlambda_cEH_var; #pragma acc declare create ( _v_divlambda_cEH_var ) _class_PSD_monitor _PSD_10_var; #pragma acc declare create ( _PSD_10_var ) _class_PSD_monitor _PSD_11_var; #pragma acc declare create ( _PSD_11_var ) _class_PSD_monitor _PSD_12_var; #pragma acc declare create ( _PSD_12_var ) _class_PSD_monitor _PSD_13_var; #pragma acc declare create ( _PSD_13_var ) _class_L_monitor _l_10_var; #pragma acc declare create ( _l_10_var ) _class_L_monitor _l_11_var; #pragma acc declare create ( _l_11_var ) _class_L_monitor _l_12_var; #pragma acc declare create ( _l_12_var ) _class_L_monitor _l_13_var; #pragma acc declare create ( _l_13_var ) _class_Divergence_monitor _divergence_monitor_10_var; #pragma acc declare create ( _divergence_monitor_10_var ) _class_Divergence_monitor _divergence_monitor_11_var; #pragma acc declare create ( _divergence_monitor_11_var ) _class_Divergence_monitor _divergence_monitor_12_var; #pragma acc declare create ( _divergence_monitor_12_var ) _class_Divergence_monitor _divergence_monitor_13_var; #pragma acc declare create ( _divergence_monitor_13_var ) _class_DivLambda_monitor _divlambda_10_var; #pragma acc declare create ( _divlambda_10_var ) _class_DivLambda_monitor _h_divlambda_11_var; #pragma acc declare create ( _h_divlambda_11_var ) _class_DivLambda_monitor _h_divlambda_12_var; #pragma acc declare create ( _h_divlambda_12_var ) _class_DivLambda_monitor _h_divlambda_13_var; #pragma acc declare create ( _h_divlambda_13_var ) _class_DivLambda_monitor _v_divlambda_10_var; #pragma acc declare create ( _v_divlambda_10_var ) _class_DivLambda_monitor _v_divlambda_11_var; #pragma acc declare create ( _v_divlambda_11_var ) _class_DivLambda_monitor _v_divlambda_12_var; #pragma acc declare create ( _v_divlambda_12_var ) _class_DivLambda_monitor _v_divlambda_13_var; #pragma acc declare create ( _v_divlambda_13_var ) _class_PSD_monitor _psd_monitor_detector_var; #pragma acc declare create ( _psd_monitor_detector_var ) _class_L_monitor _l_detector_var; #pragma acc declare create ( _l_detector_var ) _class_Divergence_monitor _divergence_monitor_detector_var; #pragma acc declare create ( _divergence_monitor_detector_var ) _class_DivLambda_monitor _divlambda_detector_var; #pragma acc declare create ( _divlambda_detector_var ) _class_PSD_monitor _psd_monitor_detector_big_var; #pragma acc declare create ( _psd_monitor_detector_big_var ) int mcNUMCOMP = 92; /* User declarations from instrument definition. Can define functions. */ /* #include "WOFSANS_functions.c" */ /* Actual file embedded here: */ //functions // calculate chopper open time double calcopentime(double pos, double minl, double maxl){ // base calculation on minl from start of pulse, // maxl from end of pulse. // it is assumed that maxl-minl is not greater than frame width double opentime; //printf("pos=%g; minl=%g; maxl=%g;\n",pos,minl,maxl); opentime = ((maxl-minl)*(pos)/3.96)+2.86; return opentime; } double calcOT(double opening, double freq){ //opentime in ms return 1000*opening/(360*freq); } // calculate chopper disk 1 delay double calcdisk1delay(double pos, double opening, double minl, double freq){ // base calculation on leading edge at guide centre // delay is tof for leading edge + rotation of half opening double delay; delay = (minl*(pos)/3.96)+((opening/2)*1000/(freq*360)); delay = delay/1000; return delay; } // calculate chopper disk 2 delay double calcdisk2delay(double pos, double opening, double maxl, double freq){ // base calculation on trailing edge at guide centre // delay is tof for trailing edge - rotation of half opening double delay; delay = (maxl*(pos)/3.96)+2.86-((opening/2)*1000/(freq*360)); delay = delay/1000; return delay; } //calculate lambda double calclambda(double starttime,double tof,double dist){ return (tof-starttime)*3.96/dist; } // calculate angle of arm after vertically curved guide //double calcAlpha(double length, double radius) { // return RAD2DEG * length/radius; //} // calculate position and angle of arm after vertically curved guide/ //double calcY(double length, double radius) { // double alpha = DEG2RAD * calcAlpha(length, radius); // return radius*(1.0-cos(alpha)); //} // calculate position and angle of arm after vertically curved guide //double calcZ(double length, double radius) { // double alpha = DEG2RAD * calcAlpha(length, radius); // return radius*sin(alpha); //} /* end of WOFSANS_functions.c */ double round_par=10.0; double u=0.0001; //gap between components double coeff1, coeff2; #pragma acc declare create(coeff1,coeff2) char BrillianceFile[256]; double bandwidth; double l_max; //Optics Variables double optics_start_pos; double focus_pos; // Variables for time generation double npulses_declare; double t_between_pulses; double pulse_n; double pulse_delay; double Lmin_source; double Lmax_source; #undef compcurname #undef compcurtype #undef compcurindex /* end of instrument 'WOFSANS' and components DECLARE */ /* ***************************************************************************** * instrument 'WOFSANS' and components INITIALISE ***************************************************************************** */ double index_getdistance(int first_index, int second_index) /* Calculate the distance two components from their indexes*/ { return coords_len(coords_sub(POS_A_COMP_INDEX(first_index), POS_A_COMP_INDEX(second_index))); } double getdistance(char* first_component, char* second_component) /* Calculate the distance between two named components */ { int first_index = _getcomp_index(first_component); int second_index = _getcomp_index(second_component); return index_getdistance(first_index, second_index); } double checked_setpos_getdistance(int current_index, char* first_component, char* second_component) /* Calculate the distance between two named components at *_setpos() time, with component index checking */ { int first_index = _getcomp_index(first_component); int second_index = _getcomp_index(second_component); if (first_index >= current_index || second_index >= current_index) { printf("setpos_getdistance can only be used with the names of components before the current one!\n"); return 0; } return index_getdistance(first_index, second_index); } #define setpos_getdistance(first, second) checked_setpos_getdistance(current_setpos_index, first, second) /* component origin=Progress_bar() SETTING, POSITION/ROTATION */ int _origin_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_origin_setpos] component origin=Progress_bar() SETTING [Progress_bar:0]"); stracpy(_origin_var._name, "origin", 16384); stracpy(_origin_var._type, "Progress_bar", 16384); _origin_var._index=1; int current_setpos_index = 1; if("NULL" && strlen("NULL")) stracpy(_origin_var._parameters.profile, "NULL" ? "NULL" : "", 16384); else _origin_var._parameters.profile[0]='\0'; _origin_var._parameters.percent = 10; _origin_var._parameters.flag_save = 0; _origin_var._parameters.minutes = 0; /* component origin=Progress_bar() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(_origin_var._rotation_absolute, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_copy(_origin_var._rotation_relative, _origin_var._rotation_absolute); _origin_var._rotation_is_identity = rot_test_identity(_origin_var._rotation_relative); _origin_var._position_absolute = coords_set( 0, 0, 0); tc1 = coords_neg(_origin_var._position_absolute); _origin_var._position_relative = rot_apply(_origin_var._rotation_absolute, tc1); } /* origin=Progress_bar() AT ROTATED */ DEBUG_COMPONENT("origin", _origin_var._position_absolute, _origin_var._rotation_absolute); instrument->_position_absolute[1] = _origin_var._position_absolute; instrument->_position_relative[1] = _origin_var._position_relative; _origin_var._position_relative_is_zero = coords_test_zero(_origin_var._position_relative); instrument->counter_N[1] = instrument->counter_P[1] = instrument->counter_P2[1] = 0; instrument->counter_AbsorbProp[1]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0000_origin", _origin_var._position_absolute, _origin_var._rotation_absolute, "Progress_bar"); mccomp_param_nexus(nxhandle,"0000_origin", "profile", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0000_origin", "percent", "10", "10","MCNUM"); mccomp_param_nexus(nxhandle,"0000_origin", "flag_save", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0000_origin", "minutes", "0", "0","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _origin_setpos */ /* component Source=Source_gen() SETTING, POSITION/ROTATION */ int _Source_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_Source_setpos] component Source=Source_gen() SETTING [Source_gen:0]"); stracpy(_Source_var._name, "Source", 16384); stracpy(_Source_var._type, "Source_gen", 16384); _Source_var._index=2; int current_setpos_index = 2; if(BrillianceFile && strlen(BrillianceFile)) stracpy(_Source_var._parameters.flux_file, BrillianceFile ? BrillianceFile : "", 16384); else _Source_var._parameters.flux_file[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_Source_var._parameters.xdiv_file, "NULL" ? "NULL" : "", 16384); else _Source_var._parameters.xdiv_file[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_Source_var._parameters.ydiv_file, "NULL" ? "NULL" : "", 16384); else _Source_var._parameters.ydiv_file[0]='\0'; _Source_var._parameters.radius = 0.0; _Source_var._parameters.dist = optics_start_pos; _Source_var._parameters.focus_xw = _instrument_var._parameters.focusing_rectangle; _Source_var._parameters.focus_yh = _instrument_var._parameters.focusing_rectangle; _Source_var._parameters.focus_aw = 0; _Source_var._parameters.focus_ah = 0; _Source_var._parameters.E0 = 0; _Source_var._parameters.dE = 0; _Source_var._parameters.lambda0 = 0; _Source_var._parameters.dlambda = 0; _Source_var._parameters.I1 = 1; _Source_var._parameters.yheight = _instrument_var._parameters.width; _Source_var._parameters.xwidth = _instrument_var._parameters.width; _Source_var._parameters.verbose = 0; _Source_var._parameters.T1 = 0; _Source_var._parameters.flux_file_perAA = 1; _Source_var._parameters.flux_file_log = 0; _Source_var._parameters.Lmin = 0; _Source_var._parameters.Lmax = 0; _Source_var._parameters.Emin = 0; _Source_var._parameters.Emax = 0; _Source_var._parameters.T2 = 0; _Source_var._parameters.I2 = 0; _Source_var._parameters.T3 = 0; _Source_var._parameters.I3 = 0; _Source_var._parameters.zdepth = 0; _Source_var._parameters.target_index = 1; /* component Source=Source_gen() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _origin_var._rotation_absolute, _Source_var._rotation_absolute); rot_transpose(_origin_var._rotation_absolute, tr1); rot_mul(_Source_var._rotation_absolute, tr1, _Source_var._rotation_relative); _Source_var._rotation_is_identity = rot_test_identity(_Source_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_origin_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _Source_var._position_absolute = coords_add(_origin_var._position_absolute, tc2); tc1 = coords_sub(_origin_var._position_absolute, _Source_var._position_absolute); _Source_var._position_relative = rot_apply(_Source_var._rotation_absolute, tc1); } /* Source=Source_gen() AT ROTATED */ DEBUG_COMPONENT("Source", _Source_var._position_absolute, _Source_var._rotation_absolute); instrument->_position_absolute[2] = _Source_var._position_absolute; instrument->_position_relative[2] = _Source_var._position_relative; _Source_var._position_relative_is_zero = coords_test_zero(_Source_var._position_relative); instrument->counter_N[2] = instrument->counter_P[2] = instrument->counter_P2[2] = 0; instrument->counter_AbsorbProp[2]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0001_Source", _Source_var._position_absolute, _Source_var._rotation_absolute, "Source_gen"); mccomp_param_nexus(nxhandle,"0001_Source", "flux_file", "NULL", BrillianceFile, "char*"); mccomp_param_nexus(nxhandle,"0001_Source", "xdiv_file", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0001_Source", "ydiv_file", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0001_Source", "radius", "0.0", "0.0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "dist", "0", "optics_start_pos","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "focus_xw", "0.045", "_instrument_var._parameters.focusing_rectangle","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "focus_yh", "0.12", "_instrument_var._parameters.focusing_rectangle","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "focus_aw", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "focus_ah", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "E0", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "dE", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "lambda0", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "dlambda", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "I1", "1", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "yheight", "0.1", "_instrument_var._parameters.width","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "xwidth", "0.1", "_instrument_var._parameters.width","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "verbose", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "T1", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "flux_file_perAA", "0", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "flux_file_log", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "Lmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "Lmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "Emin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "Emax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "T2", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "I2", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "T3", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "I3", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0001_Source", "target_index", "1", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _Source_setpos */ /* component psd_Source=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_Source_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_Source_setpos] component psd_Source=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_Source_var._name, "psd_Source", 16384); stracpy(_psd_Source_var._type, "PSD_monitor", 16384); _psd_Source_var._index=3; int current_setpos_index = 3; _psd_Source_var._parameters.nx = 100; _psd_Source_var._parameters.ny = 100; if("PSD_0001" && strlen("PSD_0001")) stracpy(_psd_Source_var._parameters.filename, "PSD_0001" ? "PSD_0001" : "", 16384); else _psd_Source_var._parameters.filename[0]='\0'; _psd_Source_var._parameters.xmin = -0.05; _psd_Source_var._parameters.xmax = 0.05; _psd_Source_var._parameters.ymin = -0.05; _psd_Source_var._parameters.ymax = 0.05; _psd_Source_var._parameters.xwidth = 0.2; _psd_Source_var._parameters.yheight = 0.2; _psd_Source_var._parameters.restore_neutron = 1; _psd_Source_var._parameters.nowritefile = 0; /* component psd_Source=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _Source_var._rotation_absolute, _psd_Source_var._rotation_absolute); rot_transpose(_Source_var._rotation_absolute, tr1); rot_mul(_psd_Source_var._rotation_absolute, tr1, _psd_Source_var._rotation_relative); _psd_Source_var._rotation_is_identity = rot_test_identity(_psd_Source_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_Source_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_Source_var._position_absolute = coords_add(_Source_var._position_absolute, tc2); tc1 = coords_sub(_Source_var._position_absolute, _psd_Source_var._position_absolute); _psd_Source_var._position_relative = rot_apply(_psd_Source_var._rotation_absolute, tc1); } /* psd_Source=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_Source", _psd_Source_var._position_absolute, _psd_Source_var._rotation_absolute); instrument->_position_absolute[3] = _psd_Source_var._position_absolute; instrument->_position_relative[3] = _psd_Source_var._position_relative; _psd_Source_var._position_relative_is_zero = coords_test_zero(_psd_Source_var._position_relative); instrument->counter_N[3] = instrument->counter_P[3] = instrument->counter_P2[3] = 0; instrument->counter_AbsorbProp[3]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0002_psd_Source", _psd_Source_var._position_absolute, _psd_Source_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "filename", 0, "PSD_0001", "char*"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0002_psd_Source", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_Source_setpos */ /* component l_Source=L_monitor() SETTING, POSITION/ROTATION */ int _l_Source_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_Source_setpos] component l_Source=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_Source_var._name, "l_Source", 16384); stracpy(_l_Source_var._type, "L_monitor", 16384); _l_Source_var._index=4; int current_setpos_index = 4; _l_Source_var._parameters.nL = 100; if("L_0001" && strlen("L_0001")) stracpy(_l_Source_var._parameters.filename, "L_0001" ? "L_0001" : "", 16384); else _l_Source_var._parameters.filename[0]='\0'; _l_Source_var._parameters.nowritefile = 0; _l_Source_var._parameters.xmin = -0.05; _l_Source_var._parameters.xmax = 0.05; _l_Source_var._parameters.ymin = -0.05; _l_Source_var._parameters.ymax = 0.05; _l_Source_var._parameters.xwidth = 0.2; _l_Source_var._parameters.yheight = 0.2; _l_Source_var._parameters.Lmin = Lmin_source; _l_Source_var._parameters.Lmax = Lmax_source; _l_Source_var._parameters.restore_neutron = 1; /* component l_Source=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_Source_var._rotation_absolute, _l_Source_var._rotation_absolute); rot_transpose(_psd_Source_var._rotation_absolute, tr1); rot_mul(_l_Source_var._rotation_absolute, tr1, _l_Source_var._rotation_relative); _l_Source_var._rotation_is_identity = rot_test_identity(_l_Source_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_Source_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_Source_var._position_absolute = coords_add(_psd_Source_var._position_absolute, tc2); tc1 = coords_sub(_psd_Source_var._position_absolute, _l_Source_var._position_absolute); _l_Source_var._position_relative = rot_apply(_l_Source_var._rotation_absolute, tc1); } /* l_Source=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_Source", _l_Source_var._position_absolute, _l_Source_var._rotation_absolute); instrument->_position_absolute[4] = _l_Source_var._position_absolute; instrument->_position_relative[4] = _l_Source_var._position_relative; _l_Source_var._position_relative_is_zero = coords_test_zero(_l_Source_var._position_relative); instrument->counter_N[4] = instrument->counter_P[4] = instrument->counter_P2[4] = 0; instrument->counter_AbsorbProp[4]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0003_l_Source", _l_Source_var._position_absolute, _l_Source_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0003_l_Source", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0003_l_Source", "filename", 0, "L_0001", "char*"); mccomp_param_nexus(nxhandle,"0003_l_Source", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0003_l_Source", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0003_l_Source", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0003_l_Source", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0003_l_Source", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0003_l_Source", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0003_l_Source", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0003_l_Source", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0003_l_Source", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0003_l_Source", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_Source_setpos */ /* component nD1=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD1_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD1_setpos] component nD1=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD1_var._name, "nD1", 16384); stracpy(_nD1_var._type, "Monitor_nD", 16384); _nD1_var._index=5; int current_setpos_index = 5; if("" && strlen("")) stracpy(_nD1_var._parameters.user1, "" ? "" : "", 16384); else _nD1_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD1_var._parameters.user2, "" ? "" : "", 16384); else _nD1_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD1_var._parameters.user3, "" ? "" : "", 16384); else _nD1_var._parameters.user3[0]='\0'; _nD1_var._parameters.xwidth = _instrument_var._parameters.width; _nD1_var._parameters.yheight = _instrument_var._parameters.width; _nD1_var._parameters.zdepth = 0; _nD1_var._parameters.xmin = 0; _nD1_var._parameters.xmax = 0; _nD1_var._parameters.ymin = 0; _nD1_var._parameters.ymax = 0; _nD1_var._parameters.zmin = 0; _nD1_var._parameters.zmax = 0; _nD1_var._parameters.bins = 0; _nD1_var._parameters.min = -1e40; _nD1_var._parameters.max = 1e40; _nD1_var._parameters.restore_neutron = 1; _nD1_var._parameters.radius = 0; if("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0001.dat" && strlen("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0001.dat")) stracpy(_nD1_var._parameters.options, "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0001.dat" ? "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0001.dat" : "", 16384); else _nD1_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD1_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD1_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD1_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD1_var._parameters.geometry[0]='\0'; _nD1_var._parameters.nowritefile = 0; _nD1_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD1_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD1_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD1_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD1_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD1_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD1_var._parameters.username3[0]='\0'; /* component nD1=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_Source_var._rotation_absolute, _nD1_var._rotation_absolute); rot_transpose(_l_Source_var._rotation_absolute, tr1); rot_mul(_nD1_var._rotation_absolute, tr1, _nD1_var._rotation_relative); _nD1_var._rotation_is_identity = rot_test_identity(_nD1_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_Source_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD1_var._position_absolute = coords_add(_l_Source_var._position_absolute, tc2); tc1 = coords_sub(_l_Source_var._position_absolute, _nD1_var._position_absolute); _nD1_var._position_relative = rot_apply(_nD1_var._rotation_absolute, tc1); } /* nD1=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD1", _nD1_var._position_absolute, _nD1_var._rotation_absolute); instrument->_position_absolute[5] = _nD1_var._position_absolute; instrument->_position_relative[5] = _nD1_var._position_relative; _nD1_var._position_relative_is_zero = coords_test_zero(_nD1_var._position_relative); instrument->counter_N[5] = instrument->counter_P[5] = instrument->counter_P2[5] = 0; instrument->counter_AbsorbProp[5]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0004_nD1", _nD1_var._position_absolute, _nD1_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0004_nD1", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0004_nD1", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0004_nD1", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0004_nD1", "xwidth", "0", "_instrument_var._parameters.width","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "yheight", "0", "_instrument_var._parameters.width","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0004_nD1", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0004_nD1", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0004_nD1", "options", "NULL", "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0001.dat", "char*"); mccomp_param_nexus(nxhandle,"0004_nD1", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0004_nD1", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0004_nD1", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0004_nD1", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0004_nD1", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0004_nD1", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0004_nD1", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD1_setpos */ /* component divergence_monitor_Source=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_Source_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_Source_setpos] component divergence_monitor_Source=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_Source_var._name, "divergence_monitor_Source", 16384); stracpy(_divergence_monitor_Source_var._type, "Divergence_monitor", 16384); _divergence_monitor_Source_var._index=6; int current_setpos_index = 6; _divergence_monitor_Source_var._parameters.nh = 100; _divergence_monitor_Source_var._parameters.nv = 100; if("DivMon_0001" && strlen("DivMon_0001")) stracpy(_divergence_monitor_Source_var._parameters.filename, "DivMon_0001" ? "DivMon_0001" : "", 16384); else _divergence_monitor_Source_var._parameters.filename[0]='\0'; _divergence_monitor_Source_var._parameters.xmin = -0.05; _divergence_monitor_Source_var._parameters.xmax = 0.05; _divergence_monitor_Source_var._parameters.ymin = -0.05; _divergence_monitor_Source_var._parameters.ymax = 0.05; _divergence_monitor_Source_var._parameters.nowritefile = 0; _divergence_monitor_Source_var._parameters.xwidth = 0.2; _divergence_monitor_Source_var._parameters.yheight = 0.2; _divergence_monitor_Source_var._parameters.maxdiv_h = 5; _divergence_monitor_Source_var._parameters.maxdiv_v = 5; _divergence_monitor_Source_var._parameters.restore_neutron = 1; _divergence_monitor_Source_var._parameters.nx = 0; _divergence_monitor_Source_var._parameters.ny = 0; _divergence_monitor_Source_var._parameters.nz = 1; /* component divergence_monitor_Source=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD1_var._rotation_absolute, _divergence_monitor_Source_var._rotation_absolute); rot_transpose(_nD1_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_Source_var._rotation_absolute, tr1, _divergence_monitor_Source_var._rotation_relative); _divergence_monitor_Source_var._rotation_is_identity = rot_test_identity(_divergence_monitor_Source_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD1_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_Source_var._position_absolute = coords_add(_nD1_var._position_absolute, tc2); tc1 = coords_sub(_nD1_var._position_absolute, _divergence_monitor_Source_var._position_absolute); _divergence_monitor_Source_var._position_relative = rot_apply(_divergence_monitor_Source_var._rotation_absolute, tc1); } /* divergence_monitor_Source=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_Source", _divergence_monitor_Source_var._position_absolute, _divergence_monitor_Source_var._rotation_absolute); instrument->_position_absolute[6] = _divergence_monitor_Source_var._position_absolute; instrument->_position_relative[6] = _divergence_monitor_Source_var._position_relative; _divergence_monitor_Source_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_Source_var._position_relative); instrument->counter_N[6] = instrument->counter_P[6] = instrument->counter_P2[6] = 0; instrument->counter_AbsorbProp[6]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0005_divergence_monitor_Source", _divergence_monitor_Source_var._position_absolute, _divergence_monitor_Source_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "filename", 0, "DivMon_0001", "char*"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "maxdiv_v", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0005_divergence_monitor_Source", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_Source_setpos */ /* component h_divlambda_Source=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_Source_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_Source_setpos] component h_divlambda_Source=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_Source_var._name, "h_divlambda_Source", 16384); stracpy(_h_divlambda_Source_var._type, "DivLambda_monitor", 16384); _h_divlambda_Source_var._index=7; int current_setpos_index = 7; _h_divlambda_Source_var._parameters.nL = 100; _h_divlambda_Source_var._parameters.nh = 100; _h_divlambda_Source_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0001" && strlen("DivLambdaMon_h_0001")) stracpy(_h_divlambda_Source_var._parameters.filename, "DivLambdaMon_h_0001" ? "DivLambdaMon_h_0001" : "", 16384); else _h_divlambda_Source_var._parameters.filename[0]='\0'; _h_divlambda_Source_var._parameters.xmin = -0.05; _h_divlambda_Source_var._parameters.xmax = 0.05; _h_divlambda_Source_var._parameters.ymin = -0.05; _h_divlambda_Source_var._parameters.ymax = 0.05; _h_divlambda_Source_var._parameters.xwidth = 0.2; _h_divlambda_Source_var._parameters.yheight = 0.2; _h_divlambda_Source_var._parameters.maxdiv_h = 5; _h_divlambda_Source_var._parameters.Lmin = Lmin_source; _h_divlambda_Source_var._parameters.Lmax = Lmax_source; _h_divlambda_Source_var._parameters.restore_neutron = 1; _h_divlambda_Source_var._parameters.nx = 0; _h_divlambda_Source_var._parameters.ny = 0; _h_divlambda_Source_var._parameters.nz = 1; /* component h_divlambda_Source=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_Source_var._rotation_absolute, _h_divlambda_Source_var._rotation_absolute); rot_transpose(_divergence_monitor_Source_var._rotation_absolute, tr1); rot_mul(_h_divlambda_Source_var._rotation_absolute, tr1, _h_divlambda_Source_var._rotation_relative); _h_divlambda_Source_var._rotation_is_identity = rot_test_identity(_h_divlambda_Source_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_Source_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_Source_var._position_absolute = coords_add(_divergence_monitor_Source_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_Source_var._position_absolute, _h_divlambda_Source_var._position_absolute); _h_divlambda_Source_var._position_relative = rot_apply(_h_divlambda_Source_var._rotation_absolute, tc1); } /* h_divlambda_Source=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_Source", _h_divlambda_Source_var._position_absolute, _h_divlambda_Source_var._rotation_absolute); instrument->_position_absolute[7] = _h_divlambda_Source_var._position_absolute; instrument->_position_relative[7] = _h_divlambda_Source_var._position_relative; _h_divlambda_Source_var._position_relative_is_zero = coords_test_zero(_h_divlambda_Source_var._position_relative); instrument->counter_N[7] = instrument->counter_P[7] = instrument->counter_P2[7] = 0; instrument->counter_AbsorbProp[7]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0006_h_divlambda_Source", _h_divlambda_Source_var._position_absolute, _h_divlambda_Source_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "filename", 0, "DivLambdaMon_h_0001", "char*"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0006_h_divlambda_Source", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_Source_setpos */ /* component v_divlambda_Source=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_Source_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_Source_setpos] component v_divlambda_Source=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_Source_var._name, "v_divlambda_Source", 16384); stracpy(_v_divlambda_Source_var._type, "DivLambda_monitor", 16384); _v_divlambda_Source_var._index=8; int current_setpos_index = 8; _v_divlambda_Source_var._parameters.nL = 100; _v_divlambda_Source_var._parameters.nh = 100; _v_divlambda_Source_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0001" && strlen("DivLambdaMon_v_0001")) stracpy(_v_divlambda_Source_var._parameters.filename, "DivLambdaMon_v_0001" ? "DivLambdaMon_v_0001" : "", 16384); else _v_divlambda_Source_var._parameters.filename[0]='\0'; _v_divlambda_Source_var._parameters.xmin = -0.05; _v_divlambda_Source_var._parameters.xmax = 0.05; _v_divlambda_Source_var._parameters.ymin = -0.05; _v_divlambda_Source_var._parameters.ymax = 0.05; _v_divlambda_Source_var._parameters.xwidth = 0.2; _v_divlambda_Source_var._parameters.yheight = 0.2; _v_divlambda_Source_var._parameters.maxdiv_h = 5; _v_divlambda_Source_var._parameters.Lmin = Lmin_source; _v_divlambda_Source_var._parameters.Lmax = Lmax_source; _v_divlambda_Source_var._parameters.restore_neutron = 1; _v_divlambda_Source_var._parameters.nx = 0; _v_divlambda_Source_var._parameters.ny = 0; _v_divlambda_Source_var._parameters.nz = 1; /* component v_divlambda_Source=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_Source_var._rotation_absolute, _v_divlambda_Source_var._rotation_absolute); rot_transpose(_h_divlambda_Source_var._rotation_absolute, tr1); rot_mul(_v_divlambda_Source_var._rotation_absolute, tr1, _v_divlambda_Source_var._rotation_relative); _v_divlambda_Source_var._rotation_is_identity = rot_test_identity(_v_divlambda_Source_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_Source_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_Source_var._position_absolute = coords_add(_h_divlambda_Source_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_Source_var._position_absolute, _v_divlambda_Source_var._position_absolute); _v_divlambda_Source_var._position_relative = rot_apply(_v_divlambda_Source_var._rotation_absolute, tc1); } /* v_divlambda_Source=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_Source", _v_divlambda_Source_var._position_absolute, _v_divlambda_Source_var._rotation_absolute); instrument->_position_absolute[8] = _v_divlambda_Source_var._position_absolute; instrument->_position_relative[8] = _v_divlambda_Source_var._position_relative; _v_divlambda_Source_var._position_relative_is_zero = coords_test_zero(_v_divlambda_Source_var._position_relative); instrument->counter_N[8] = instrument->counter_P[8] = instrument->counter_P2[8] = 0; instrument->counter_AbsorbProp[8]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0007_v_divlambda_Source", _v_divlambda_Source_var._position_absolute, _v_divlambda_Source_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "filename", 0, "DivLambdaMon_v_0001", "char*"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0007_v_divlambda_Source", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_Source_setpos */ /* component psd_FocusingPosition=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_FocusingPosition_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_FocusingPosition_setpos] component psd_FocusingPosition=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_FocusingPosition_var._name, "psd_FocusingPosition", 16384); stracpy(_psd_FocusingPosition_var._type, "PSD_monitor", 16384); _psd_FocusingPosition_var._index=9; int current_setpos_index = 9; _psd_FocusingPosition_var._parameters.nx = 100; _psd_FocusingPosition_var._parameters.ny = 100; if("PSD_0002" && strlen("PSD_0002")) stracpy(_psd_FocusingPosition_var._parameters.filename, "PSD_0002" ? "PSD_0002" : "", 16384); else _psd_FocusingPosition_var._parameters.filename[0]='\0'; _psd_FocusingPosition_var._parameters.xmin = -0.05; _psd_FocusingPosition_var._parameters.xmax = 0.05; _psd_FocusingPosition_var._parameters.ymin = -0.05; _psd_FocusingPosition_var._parameters.ymax = 0.05; _psd_FocusingPosition_var._parameters.xwidth = 0.2; _psd_FocusingPosition_var._parameters.yheight = 0.2; _psd_FocusingPosition_var._parameters.restore_neutron = 1; _psd_FocusingPosition_var._parameters.nowritefile = 0; /* component psd_FocusingPosition=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _Source_var._rotation_absolute, _psd_FocusingPosition_var._rotation_absolute); rot_transpose(_v_divlambda_Source_var._rotation_absolute, tr1); rot_mul(_psd_FocusingPosition_var._rotation_absolute, tr1, _psd_FocusingPosition_var._rotation_relative); _psd_FocusingPosition_var._rotation_is_identity = rot_test_identity(_psd_FocusingPosition_var._rotation_relative); tc1 = coords_set( 0, 0, optics_start_pos); rot_transpose(_Source_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_FocusingPosition_var._position_absolute = coords_add(_Source_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_Source_var._position_absolute, _psd_FocusingPosition_var._position_absolute); _psd_FocusingPosition_var._position_relative = rot_apply(_psd_FocusingPosition_var._rotation_absolute, tc1); } /* psd_FocusingPosition=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_FocusingPosition", _psd_FocusingPosition_var._position_absolute, _psd_FocusingPosition_var._rotation_absolute); instrument->_position_absolute[9] = _psd_FocusingPosition_var._position_absolute; instrument->_position_relative[9] = _psd_FocusingPosition_var._position_relative; _psd_FocusingPosition_var._position_relative_is_zero = coords_test_zero(_psd_FocusingPosition_var._position_relative); instrument->counter_N[9] = instrument->counter_P[9] = instrument->counter_P2[9] = 0; instrument->counter_AbsorbProp[9]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0008_psd_FocusingPosition", _psd_FocusingPosition_var._position_absolute, _psd_FocusingPosition_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "filename", 0, "PSD_0002", "char*"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0008_psd_FocusingPosition", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_FocusingPosition_setpos */ /* component l_FocusingPosition=L_monitor() SETTING, POSITION/ROTATION */ int _l_FocusingPosition_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_FocusingPosition_setpos] component l_FocusingPosition=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_FocusingPosition_var._name, "l_FocusingPosition", 16384); stracpy(_l_FocusingPosition_var._type, "L_monitor", 16384); _l_FocusingPosition_var._index=10; int current_setpos_index = 10; _l_FocusingPosition_var._parameters.nL = 100; if("L_0002" && strlen("L_0002")) stracpy(_l_FocusingPosition_var._parameters.filename, "L_0002" ? "L_0002" : "", 16384); else _l_FocusingPosition_var._parameters.filename[0]='\0'; _l_FocusingPosition_var._parameters.nowritefile = 0; _l_FocusingPosition_var._parameters.xmin = -0.05; _l_FocusingPosition_var._parameters.xmax = 0.05; _l_FocusingPosition_var._parameters.ymin = -0.05; _l_FocusingPosition_var._parameters.ymax = 0.05; _l_FocusingPosition_var._parameters.xwidth = 0.2; _l_FocusingPosition_var._parameters.yheight = 0.2; _l_FocusingPosition_var._parameters.Lmin = Lmin_source; _l_FocusingPosition_var._parameters.Lmax = Lmax_source; _l_FocusingPosition_var._parameters.restore_neutron = 1; /* component l_FocusingPosition=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_FocusingPosition_var._rotation_absolute, _l_FocusingPosition_var._rotation_absolute); rot_transpose(_psd_FocusingPosition_var._rotation_absolute, tr1); rot_mul(_l_FocusingPosition_var._rotation_absolute, tr1, _l_FocusingPosition_var._rotation_relative); _l_FocusingPosition_var._rotation_is_identity = rot_test_identity(_l_FocusingPosition_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_FocusingPosition_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_FocusingPosition_var._position_absolute = coords_add(_psd_FocusingPosition_var._position_absolute, tc2); tc1 = coords_sub(_psd_FocusingPosition_var._position_absolute, _l_FocusingPosition_var._position_absolute); _l_FocusingPosition_var._position_relative = rot_apply(_l_FocusingPosition_var._rotation_absolute, tc1); } /* l_FocusingPosition=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_FocusingPosition", _l_FocusingPosition_var._position_absolute, _l_FocusingPosition_var._rotation_absolute); instrument->_position_absolute[10] = _l_FocusingPosition_var._position_absolute; instrument->_position_relative[10] = _l_FocusingPosition_var._position_relative; _l_FocusingPosition_var._position_relative_is_zero = coords_test_zero(_l_FocusingPosition_var._position_relative); instrument->counter_N[10] = instrument->counter_P[10] = instrument->counter_P2[10] = 0; instrument->counter_AbsorbProp[10]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0009_l_FocusingPosition", _l_FocusingPosition_var._position_absolute, _l_FocusingPosition_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "filename", 0, "L_0002", "char*"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0009_l_FocusingPosition", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_FocusingPosition_setpos */ /* component nD2=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD2_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD2_setpos] component nD2=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD2_var._name, "nD2", 16384); stracpy(_nD2_var._type, "Monitor_nD", 16384); _nD2_var._index=11; int current_setpos_index = 11; if("" && strlen("")) stracpy(_nD2_var._parameters.user1, "" ? "" : "", 16384); else _nD2_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD2_var._parameters.user2, "" ? "" : "", 16384); else _nD2_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD2_var._parameters.user3, "" ? "" : "", 16384); else _nD2_var._parameters.user3[0]='\0'; _nD2_var._parameters.xwidth = _instrument_var._parameters.focusing_rectangle; _nD2_var._parameters.yheight = _instrument_var._parameters.focusing_rectangle; _nD2_var._parameters.zdepth = 0; _nD2_var._parameters.xmin = 0; _nD2_var._parameters.xmax = 0; _nD2_var._parameters.ymin = 0; _nD2_var._parameters.ymax = 0; _nD2_var._parameters.zmin = 0; _nD2_var._parameters.zmax = 0; _nD2_var._parameters.bins = 0; _nD2_var._parameters.min = -1e40; _nD2_var._parameters.max = 1e40; _nD2_var._parameters.restore_neutron = 1; _nD2_var._parameters.radius = 0; if("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0002.dat" && strlen("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0002.dat")) stracpy(_nD2_var._parameters.options, "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0002.dat" ? "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0002.dat" : "", 16384); else _nD2_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD2_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD2_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD2_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD2_var._parameters.geometry[0]='\0'; _nD2_var._parameters.nowritefile = 0; _nD2_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD2_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD2_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD2_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD2_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD2_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD2_var._parameters.username3[0]='\0'; /* component nD2=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_FocusingPosition_var._rotation_absolute, _nD2_var._rotation_absolute); rot_transpose(_l_FocusingPosition_var._rotation_absolute, tr1); rot_mul(_nD2_var._rotation_absolute, tr1, _nD2_var._rotation_relative); _nD2_var._rotation_is_identity = rot_test_identity(_nD2_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_FocusingPosition_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD2_var._position_absolute = coords_add(_l_FocusingPosition_var._position_absolute, tc2); tc1 = coords_sub(_l_FocusingPosition_var._position_absolute, _nD2_var._position_absolute); _nD2_var._position_relative = rot_apply(_nD2_var._rotation_absolute, tc1); } /* nD2=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD2", _nD2_var._position_absolute, _nD2_var._rotation_absolute); instrument->_position_absolute[11] = _nD2_var._position_absolute; instrument->_position_relative[11] = _nD2_var._position_relative; _nD2_var._position_relative_is_zero = coords_test_zero(_nD2_var._position_relative); instrument->counter_N[11] = instrument->counter_P[11] = instrument->counter_P2[11] = 0; instrument->counter_AbsorbProp[11]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0010_nD2", _nD2_var._position_absolute, _nD2_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0010_nD2", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0010_nD2", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0010_nD2", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0010_nD2", "xwidth", "0", "_instrument_var._parameters.focusing_rectangle","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "yheight", "0", "_instrument_var._parameters.focusing_rectangle","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0010_nD2", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0010_nD2", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0010_nD2", "options", "NULL", "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0002.dat", "char*"); mccomp_param_nexus(nxhandle,"0010_nD2", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0010_nD2", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0010_nD2", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0010_nD2", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0010_nD2", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0010_nD2", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0010_nD2", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD2_setpos */ /* component divergence_monitor_FocusingPosition=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_FocusingPosition_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_FocusingPosition_setpos] component divergence_monitor_FocusingPosition=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_FocusingPosition_var._name, "divergence_monitor_FocusingPosition", 16384); stracpy(_divergence_monitor_FocusingPosition_var._type, "Divergence_monitor", 16384); _divergence_monitor_FocusingPosition_var._index=12; int current_setpos_index = 12; _divergence_monitor_FocusingPosition_var._parameters.nh = 100; _divergence_monitor_FocusingPosition_var._parameters.nv = 100; if("DivMon_0002" && strlen("DivMon_0002")) stracpy(_divergence_monitor_FocusingPosition_var._parameters.filename, "DivMon_0002" ? "DivMon_0002" : "", 16384); else _divergence_monitor_FocusingPosition_var._parameters.filename[0]='\0'; _divergence_monitor_FocusingPosition_var._parameters.xmin = -0.05; _divergence_monitor_FocusingPosition_var._parameters.xmax = 0.05; _divergence_monitor_FocusingPosition_var._parameters.ymin = -0.05; _divergence_monitor_FocusingPosition_var._parameters.ymax = 0.05; _divergence_monitor_FocusingPosition_var._parameters.nowritefile = 0; _divergence_monitor_FocusingPosition_var._parameters.xwidth = 0.2; _divergence_monitor_FocusingPosition_var._parameters.yheight = 0.2; _divergence_monitor_FocusingPosition_var._parameters.maxdiv_h = 5; _divergence_monitor_FocusingPosition_var._parameters.maxdiv_v = 5; _divergence_monitor_FocusingPosition_var._parameters.restore_neutron = 1; _divergence_monitor_FocusingPosition_var._parameters.nx = 0; _divergence_monitor_FocusingPosition_var._parameters.ny = 0; _divergence_monitor_FocusingPosition_var._parameters.nz = 1; /* component divergence_monitor_FocusingPosition=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD2_var._rotation_absolute, _divergence_monitor_FocusingPosition_var._rotation_absolute); rot_transpose(_nD2_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_FocusingPosition_var._rotation_absolute, tr1, _divergence_monitor_FocusingPosition_var._rotation_relative); _divergence_monitor_FocusingPosition_var._rotation_is_identity = rot_test_identity(_divergence_monitor_FocusingPosition_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD2_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_FocusingPosition_var._position_absolute = coords_add(_nD2_var._position_absolute, tc2); tc1 = coords_sub(_nD2_var._position_absolute, _divergence_monitor_FocusingPosition_var._position_absolute); _divergence_monitor_FocusingPosition_var._position_relative = rot_apply(_divergence_monitor_FocusingPosition_var._rotation_absolute, tc1); } /* divergence_monitor_FocusingPosition=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_FocusingPosition", _divergence_monitor_FocusingPosition_var._position_absolute, _divergence_monitor_FocusingPosition_var._rotation_absolute); instrument->_position_absolute[12] = _divergence_monitor_FocusingPosition_var._position_absolute; instrument->_position_relative[12] = _divergence_monitor_FocusingPosition_var._position_relative; _divergence_monitor_FocusingPosition_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_FocusingPosition_var._position_relative); instrument->counter_N[12] = instrument->counter_P[12] = instrument->counter_P2[12] = 0; instrument->counter_AbsorbProp[12]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", _divergence_monitor_FocusingPosition_var._position_absolute, _divergence_monitor_FocusingPosition_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "filename", 0, "DivMon_0002", "char*"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "maxdiv_v", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0011_divergence_monitor_FocusingPosition", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_FocusingPosition_setpos */ /* component h_divlambda_FocusingPosition=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_FocusingPosition_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_FocusingPosition_setpos] component h_divlambda_FocusingPosition=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_FocusingPosition_var._name, "h_divlambda_FocusingPosition", 16384); stracpy(_h_divlambda_FocusingPosition_var._type, "DivLambda_monitor", 16384); _h_divlambda_FocusingPosition_var._index=13; int current_setpos_index = 13; _h_divlambda_FocusingPosition_var._parameters.nL = 100; _h_divlambda_FocusingPosition_var._parameters.nh = 100; _h_divlambda_FocusingPosition_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0002" && strlen("DivLambdaMon_h_0002")) stracpy(_h_divlambda_FocusingPosition_var._parameters.filename, "DivLambdaMon_h_0002" ? "DivLambdaMon_h_0002" : "", 16384); else _h_divlambda_FocusingPosition_var._parameters.filename[0]='\0'; _h_divlambda_FocusingPosition_var._parameters.xmin = -0.05; _h_divlambda_FocusingPosition_var._parameters.xmax = 0.05; _h_divlambda_FocusingPosition_var._parameters.ymin = -0.05; _h_divlambda_FocusingPosition_var._parameters.ymax = 0.05; _h_divlambda_FocusingPosition_var._parameters.xwidth = 0.2; _h_divlambda_FocusingPosition_var._parameters.yheight = 0.2; _h_divlambda_FocusingPosition_var._parameters.maxdiv_h = 5; _h_divlambda_FocusingPosition_var._parameters.Lmin = Lmin_source; _h_divlambda_FocusingPosition_var._parameters.Lmax = Lmax_source; _h_divlambda_FocusingPosition_var._parameters.restore_neutron = 1; _h_divlambda_FocusingPosition_var._parameters.nx = 0; _h_divlambda_FocusingPosition_var._parameters.ny = 0; _h_divlambda_FocusingPosition_var._parameters.nz = 1; /* component h_divlambda_FocusingPosition=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_FocusingPosition_var._rotation_absolute, _h_divlambda_FocusingPosition_var._rotation_absolute); rot_transpose(_divergence_monitor_FocusingPosition_var._rotation_absolute, tr1); rot_mul(_h_divlambda_FocusingPosition_var._rotation_absolute, tr1, _h_divlambda_FocusingPosition_var._rotation_relative); _h_divlambda_FocusingPosition_var._rotation_is_identity = rot_test_identity(_h_divlambda_FocusingPosition_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_FocusingPosition_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_FocusingPosition_var._position_absolute = coords_add(_divergence_monitor_FocusingPosition_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_FocusingPosition_var._position_absolute, _h_divlambda_FocusingPosition_var._position_absolute); _h_divlambda_FocusingPosition_var._position_relative = rot_apply(_h_divlambda_FocusingPosition_var._rotation_absolute, tc1); } /* h_divlambda_FocusingPosition=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_FocusingPosition", _h_divlambda_FocusingPosition_var._position_absolute, _h_divlambda_FocusingPosition_var._rotation_absolute); instrument->_position_absolute[13] = _h_divlambda_FocusingPosition_var._position_absolute; instrument->_position_relative[13] = _h_divlambda_FocusingPosition_var._position_relative; _h_divlambda_FocusingPosition_var._position_relative_is_zero = coords_test_zero(_h_divlambda_FocusingPosition_var._position_relative); instrument->counter_N[13] = instrument->counter_P[13] = instrument->counter_P2[13] = 0; instrument->counter_AbsorbProp[13]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", _h_divlambda_FocusingPosition_var._position_absolute, _h_divlambda_FocusingPosition_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "filename", 0, "DivLambdaMon_h_0002", "char*"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0012_h_divlambda_FocusingPosition", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_FocusingPosition_setpos */ /* component v_divlambda_FocusingPosition=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_FocusingPosition_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_FocusingPosition_setpos] component v_divlambda_FocusingPosition=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_FocusingPosition_var._name, "v_divlambda_FocusingPosition", 16384); stracpy(_v_divlambda_FocusingPosition_var._type, "DivLambda_monitor", 16384); _v_divlambda_FocusingPosition_var._index=14; int current_setpos_index = 14; _v_divlambda_FocusingPosition_var._parameters.nL = 100; _v_divlambda_FocusingPosition_var._parameters.nh = 100; _v_divlambda_FocusingPosition_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0002" && strlen("DivLambdaMon_v_0002")) stracpy(_v_divlambda_FocusingPosition_var._parameters.filename, "DivLambdaMon_v_0002" ? "DivLambdaMon_v_0002" : "", 16384); else _v_divlambda_FocusingPosition_var._parameters.filename[0]='\0'; _v_divlambda_FocusingPosition_var._parameters.xmin = -0.05; _v_divlambda_FocusingPosition_var._parameters.xmax = 0.05; _v_divlambda_FocusingPosition_var._parameters.ymin = -0.05; _v_divlambda_FocusingPosition_var._parameters.ymax = 0.05; _v_divlambda_FocusingPosition_var._parameters.xwidth = 0.2; _v_divlambda_FocusingPosition_var._parameters.yheight = 0.2; _v_divlambda_FocusingPosition_var._parameters.maxdiv_h = 5; _v_divlambda_FocusingPosition_var._parameters.Lmin = Lmin_source; _v_divlambda_FocusingPosition_var._parameters.Lmax = Lmax_source; _v_divlambda_FocusingPosition_var._parameters.restore_neutron = 1; _v_divlambda_FocusingPosition_var._parameters.nx = 0; _v_divlambda_FocusingPosition_var._parameters.ny = 0; _v_divlambda_FocusingPosition_var._parameters.nz = 1; /* component v_divlambda_FocusingPosition=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_FocusingPosition_var._rotation_absolute, _v_divlambda_FocusingPosition_var._rotation_absolute); rot_transpose(_h_divlambda_FocusingPosition_var._rotation_absolute, tr1); rot_mul(_v_divlambda_FocusingPosition_var._rotation_absolute, tr1, _v_divlambda_FocusingPosition_var._rotation_relative); _v_divlambda_FocusingPosition_var._rotation_is_identity = rot_test_identity(_v_divlambda_FocusingPosition_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_FocusingPosition_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_FocusingPosition_var._position_absolute = coords_add(_h_divlambda_FocusingPosition_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_FocusingPosition_var._position_absolute, _v_divlambda_FocusingPosition_var._position_absolute); _v_divlambda_FocusingPosition_var._position_relative = rot_apply(_v_divlambda_FocusingPosition_var._rotation_absolute, tc1); } /* v_divlambda_FocusingPosition=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_FocusingPosition", _v_divlambda_FocusingPosition_var._position_absolute, _v_divlambda_FocusingPosition_var._rotation_absolute); instrument->_position_absolute[14] = _v_divlambda_FocusingPosition_var._position_absolute; instrument->_position_relative[14] = _v_divlambda_FocusingPosition_var._position_relative; _v_divlambda_FocusingPosition_var._position_relative_is_zero = coords_test_zero(_v_divlambda_FocusingPosition_var._position_relative); instrument->counter_N[14] = instrument->counter_P[14] = instrument->counter_P2[14] = 0; instrument->counter_AbsorbProp[14]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", _v_divlambda_FocusingPosition_var._position_absolute, _v_divlambda_FocusingPosition_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "filename", 0, "DivLambdaMon_v_0002", "char*"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0013_v_divlambda_FocusingPosition", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_FocusingPosition_setpos */ /* component BrillmonLD2=Brilliance_monitor() SETTING, POSITION/ROTATION */ int _BrillmonLD2_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_BrillmonLD2_setpos] component BrillmonLD2=Brilliance_monitor() SETTING [Brilliance_monitor:0]"); stracpy(_BrillmonLD2_var._name, "BrillmonLD2", 16384); stracpy(_BrillmonLD2_var._type, "Brilliance_monitor", 16384); _BrillmonLD2_var._index=15; int current_setpos_index = 15; _BrillmonLD2_var._parameters.nlam = 101; _BrillmonLD2_var._parameters.nt = 101; _BrillmonLD2_var._parameters.nowritefile = 0; _BrillmonLD2_var._parameters.lambda_0 = Lmin_source; _BrillmonLD2_var._parameters.lambda_1 = Lmax_source; _BrillmonLD2_var._parameters.restore_neutron = 1; _BrillmonLD2_var._parameters.Freq = 14; _BrillmonLD2_var._parameters.tofcuts = 0; _BrillmonLD2_var._parameters.toflambda = 1; _BrillmonLD2_var._parameters.xwidth = _instrument_var._parameters.focusing_rectangle; _BrillmonLD2_var._parameters.yheight = _instrument_var._parameters.focusing_rectangle; _BrillmonLD2_var._parameters.source_dist = optics_start_pos; if("Bril_0001" && strlen("Bril_0001")) stracpy(_BrillmonLD2_var._parameters.filename, "Bril_0001" ? "Bril_0001" : "", 16384); else _BrillmonLD2_var._parameters.filename[0]='\0'; _BrillmonLD2_var._parameters.t_0 = 0; _BrillmonLD2_var._parameters.t_1 = 1e6; _BrillmonLD2_var._parameters.srcarea = ( _instrument_var._parameters.width * _instrument_var._parameters.width * 100 * 100 ); /* component BrillmonLD2=Brilliance_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _Source_var._rotation_absolute, _BrillmonLD2_var._rotation_absolute); rot_transpose(_v_divlambda_FocusingPosition_var._rotation_absolute, tr1); rot_mul(_BrillmonLD2_var._rotation_absolute, tr1, _BrillmonLD2_var._rotation_relative); _BrillmonLD2_var._rotation_is_identity = rot_test_identity(_BrillmonLD2_var._rotation_relative); tc1 = coords_set( 0, 0, optics_start_pos); rot_transpose(_Source_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _BrillmonLD2_var._position_absolute = coords_add(_Source_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_FocusingPosition_var._position_absolute, _BrillmonLD2_var._position_absolute); _BrillmonLD2_var._position_relative = rot_apply(_BrillmonLD2_var._rotation_absolute, tc1); } /* BrillmonLD2=Brilliance_monitor() AT ROTATED */ DEBUG_COMPONENT("BrillmonLD2", _BrillmonLD2_var._position_absolute, _BrillmonLD2_var._rotation_absolute); instrument->_position_absolute[15] = _BrillmonLD2_var._position_absolute; instrument->_position_relative[15] = _BrillmonLD2_var._position_relative; _BrillmonLD2_var._position_relative_is_zero = coords_test_zero(_BrillmonLD2_var._position_relative); instrument->counter_N[15] = instrument->counter_P[15] = instrument->counter_P2[15] = 0; instrument->counter_AbsorbProp[15]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0014_BrillmonLD2", _BrillmonLD2_var._position_absolute, _BrillmonLD2_var._rotation_absolute, "Brilliance_monitor"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "nlam", "101", "101","int"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "nt", "1001", "101","int"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "lambda_0", "0", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "lambda_1", "20", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "Freq", "NONE", "14","MCNUM"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "tofcuts", "0", "0","int"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "toflambda", "0", "1","int"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "xwidth", "0.01", "_instrument_var._parameters.focusing_rectangle","MCNUM"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "yheight", "0.01", "_instrument_var._parameters.focusing_rectangle","MCNUM"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "source_dist", "1", "optics_start_pos","MCNUM"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "filename", 0, "Bril_0001", "char*"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "t_0", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "t_1", "20000", "1e6","MCNUM"); mccomp_param_nexus(nxhandle,"0014_BrillmonLD2", "srcarea", "1", "( _instrument_var._parameters.width * _instrument_var._parameters.width * 100 * 100 )","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _BrillmonLD2_setpos */ /* component monolith_slit1=Slit() SETTING, POSITION/ROTATION */ int _monolith_slit1_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_monolith_slit1_setpos] component monolith_slit1=Slit() SETTING [Slit:0]"); stracpy(_monolith_slit1_var._name, "monolith_slit1", 16384); stracpy(_monolith_slit1_var._type, "Slit", 16384); _monolith_slit1_var._index=16; int current_setpos_index = 16; _monolith_slit1_var._parameters.xmin = UNSET; _monolith_slit1_var._parameters.xmax = UNSET; _monolith_slit1_var._parameters.ymin = UNSET; _monolith_slit1_var._parameters.ymax = UNSET; _monolith_slit1_var._parameters.radius = UNSET; _monolith_slit1_var._parameters.xwidth = 0.15; _monolith_slit1_var._parameters.yheight = 0.15; /* component monolith_slit1=Slit() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(_monolith_slit1_var._rotation_absolute, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_transpose(_BrillmonLD2_var._rotation_absolute, tr1); rot_mul(_monolith_slit1_var._rotation_absolute, tr1, _monolith_slit1_var._rotation_relative); _monolith_slit1_var._rotation_is_identity = rot_test_identity(_monolith_slit1_var._rotation_relative); _monolith_slit1_var._position_absolute = coords_set( 0, 0, 2); tc1 = coords_sub(_BrillmonLD2_var._position_absolute, _monolith_slit1_var._position_absolute); _monolith_slit1_var._position_relative = rot_apply(_monolith_slit1_var._rotation_absolute, tc1); } /* monolith_slit1=Slit() AT ROTATED */ DEBUG_COMPONENT("monolith_slit1", _monolith_slit1_var._position_absolute, _monolith_slit1_var._rotation_absolute); instrument->_position_absolute[16] = _monolith_slit1_var._position_absolute; instrument->_position_relative[16] = _monolith_slit1_var._position_relative; _monolith_slit1_var._position_relative_is_zero = coords_test_zero(_monolith_slit1_var._position_relative); instrument->counter_N[16] = instrument->counter_P[16] = instrument->counter_P2[16] = 0; instrument->counter_AbsorbProp[16]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0015_monolith_slit1", _monolith_slit1_var._position_absolute, _monolith_slit1_var._rotation_absolute, "Slit"); mccomp_param_nexus(nxhandle,"0015_monolith_slit1", "xmin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0015_monolith_slit1", "xmax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0015_monolith_slit1", "ymin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0015_monolith_slit1", "ymax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0015_monolith_slit1", "radius", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0015_monolith_slit1", "xwidth", "UNSET", "0.15","MCNUM"); mccomp_param_nexus(nxhandle,"0015_monolith_slit1", "yheight", "UNSET", "0.15","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _monolith_slit1_setpos */ /* component monolith_slit2=Slit() SETTING, POSITION/ROTATION */ int _monolith_slit2_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_monolith_slit2_setpos] component monolith_slit2=Slit() SETTING [Slit:0]"); stracpy(_monolith_slit2_var._name, "monolith_slit2", 16384); stracpy(_monolith_slit2_var._type, "Slit", 16384); _monolith_slit2_var._index=17; int current_setpos_index = 17; _monolith_slit2_var._parameters.xmin = UNSET; _monolith_slit2_var._parameters.xmax = UNSET; _monolith_slit2_var._parameters.ymin = UNSET; _monolith_slit2_var._parameters.ymax = UNSET; _monolith_slit2_var._parameters.radius = UNSET; _monolith_slit2_var._parameters.xwidth = 0.15; _monolith_slit2_var._parameters.yheight = 0.15; /* component monolith_slit2=Slit() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _monolith_slit1_var._rotation_absolute, _monolith_slit2_var._rotation_absolute); rot_transpose(_monolith_slit1_var._rotation_absolute, tr1); rot_mul(_monolith_slit2_var._rotation_absolute, tr1, _monolith_slit2_var._rotation_relative); _monolith_slit2_var._rotation_is_identity = rot_test_identity(_monolith_slit2_var._rotation_relative); tc1 = coords_set( 0, 0, 3.5); rot_transpose(_monolith_slit1_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _monolith_slit2_var._position_absolute = coords_add(_monolith_slit1_var._position_absolute, tc2); tc1 = coords_sub(_monolith_slit1_var._position_absolute, _monolith_slit2_var._position_absolute); _monolith_slit2_var._position_relative = rot_apply(_monolith_slit2_var._rotation_absolute, tc1); } /* monolith_slit2=Slit() AT ROTATED */ DEBUG_COMPONENT("monolith_slit2", _monolith_slit2_var._position_absolute, _monolith_slit2_var._rotation_absolute); instrument->_position_absolute[17] = _monolith_slit2_var._position_absolute; instrument->_position_relative[17] = _monolith_slit2_var._position_relative; _monolith_slit2_var._position_relative_is_zero = coords_test_zero(_monolith_slit2_var._position_relative); instrument->counter_N[17] = instrument->counter_P[17] = instrument->counter_P2[17] = 0; instrument->counter_AbsorbProp[17]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0016_monolith_slit2", _monolith_slit2_var._position_absolute, _monolith_slit2_var._rotation_absolute, "Slit"); mccomp_param_nexus(nxhandle,"0016_monolith_slit2", "xmin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0016_monolith_slit2", "xmax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0016_monolith_slit2", "ymin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0016_monolith_slit2", "ymax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0016_monolith_slit2", "radius", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0016_monolith_slit2", "xwidth", "UNSET", "0.15","MCNUM"); mccomp_param_nexus(nxhandle,"0016_monolith_slit2", "yheight", "UNSET", "0.15","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _monolith_slit2_setpos */ /* component psd_monolith=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_monolith_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_monolith_setpos] component psd_monolith=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_monolith_var._name, "psd_monolith", 16384); stracpy(_psd_monolith_var._type, "PSD_monitor", 16384); _psd_monolith_var._index=18; int current_setpos_index = 18; _psd_monolith_var._parameters.nx = 100; _psd_monolith_var._parameters.ny = 100; if("PSD_0003" && strlen("PSD_0003")) stracpy(_psd_monolith_var._parameters.filename, "PSD_0003" ? "PSD_0003" : "", 16384); else _psd_monolith_var._parameters.filename[0]='\0'; _psd_monolith_var._parameters.xmin = -0.05; _psd_monolith_var._parameters.xmax = 0.05; _psd_monolith_var._parameters.ymin = -0.05; _psd_monolith_var._parameters.ymax = 0.05; _psd_monolith_var._parameters.xwidth = 0.2; _psd_monolith_var._parameters.yheight = 0.2; _psd_monolith_var._parameters.restore_neutron = 1; _psd_monolith_var._parameters.nowritefile = 0; /* component psd_monolith=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _monolith_slit2_var._rotation_absolute, _psd_monolith_var._rotation_absolute); rot_transpose(_monolith_slit2_var._rotation_absolute, tr1); rot_mul(_psd_monolith_var._rotation_absolute, tr1, _psd_monolith_var._rotation_relative); _psd_monolith_var._rotation_is_identity = rot_test_identity(_psd_monolith_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_monolith_slit2_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_monolith_var._position_absolute = coords_add(_monolith_slit2_var._position_absolute, tc2); tc1 = coords_sub(_monolith_slit2_var._position_absolute, _psd_monolith_var._position_absolute); _psd_monolith_var._position_relative = rot_apply(_psd_monolith_var._rotation_absolute, tc1); } /* psd_monolith=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_monolith", _psd_monolith_var._position_absolute, _psd_monolith_var._rotation_absolute); instrument->_position_absolute[18] = _psd_monolith_var._position_absolute; instrument->_position_relative[18] = _psd_monolith_var._position_relative; _psd_monolith_var._position_relative_is_zero = coords_test_zero(_psd_monolith_var._position_relative); instrument->counter_N[18] = instrument->counter_P[18] = instrument->counter_P2[18] = 0; instrument->counter_AbsorbProp[18]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0017_psd_monolith", _psd_monolith_var._position_absolute, _psd_monolith_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "filename", 0, "PSD_0003", "char*"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0017_psd_monolith", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_monolith_setpos */ /* component l_monolith=L_monitor() SETTING, POSITION/ROTATION */ int _l_monolith_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_monolith_setpos] component l_monolith=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_monolith_var._name, "l_monolith", 16384); stracpy(_l_monolith_var._type, "L_monitor", 16384); _l_monolith_var._index=19; int current_setpos_index = 19; _l_monolith_var._parameters.nL = 100; if("L_0003" && strlen("L_0003")) stracpy(_l_monolith_var._parameters.filename, "L_0003" ? "L_0003" : "", 16384); else _l_monolith_var._parameters.filename[0]='\0'; _l_monolith_var._parameters.nowritefile = 0; _l_monolith_var._parameters.xmin = -0.05; _l_monolith_var._parameters.xmax = 0.05; _l_monolith_var._parameters.ymin = -0.05; _l_monolith_var._parameters.ymax = 0.05; _l_monolith_var._parameters.xwidth = 0.2; _l_monolith_var._parameters.yheight = 0.2; _l_monolith_var._parameters.Lmin = Lmin_source; _l_monolith_var._parameters.Lmax = Lmax_source; _l_monolith_var._parameters.restore_neutron = 1; /* component l_monolith=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_monolith_var._rotation_absolute, _l_monolith_var._rotation_absolute); rot_transpose(_psd_monolith_var._rotation_absolute, tr1); rot_mul(_l_monolith_var._rotation_absolute, tr1, _l_monolith_var._rotation_relative); _l_monolith_var._rotation_is_identity = rot_test_identity(_l_monolith_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_monolith_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_monolith_var._position_absolute = coords_add(_psd_monolith_var._position_absolute, tc2); tc1 = coords_sub(_psd_monolith_var._position_absolute, _l_monolith_var._position_absolute); _l_monolith_var._position_relative = rot_apply(_l_monolith_var._rotation_absolute, tc1); } /* l_monolith=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_monolith", _l_monolith_var._position_absolute, _l_monolith_var._rotation_absolute); instrument->_position_absolute[19] = _l_monolith_var._position_absolute; instrument->_position_relative[19] = _l_monolith_var._position_relative; _l_monolith_var._position_relative_is_zero = coords_test_zero(_l_monolith_var._position_relative); instrument->counter_N[19] = instrument->counter_P[19] = instrument->counter_P2[19] = 0; instrument->counter_AbsorbProp[19]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0018_l_monolith", _l_monolith_var._position_absolute, _l_monolith_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "filename", 0, "L_0003", "char*"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0018_l_monolith", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_monolith_setpos */ /* component nD3=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD3_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD3_setpos] component nD3=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD3_var._name, "nD3", 16384); stracpy(_nD3_var._type, "Monitor_nD", 16384); _nD3_var._index=20; int current_setpos_index = 20; if("" && strlen("")) stracpy(_nD3_var._parameters.user1, "" ? "" : "", 16384); else _nD3_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD3_var._parameters.user2, "" ? "" : "", 16384); else _nD3_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD3_var._parameters.user3, "" ? "" : "", 16384); else _nD3_var._parameters.user3[0]='\0'; _nD3_var._parameters.xwidth = 0.15; _nD3_var._parameters.yheight = 0.15; _nD3_var._parameters.zdepth = 0; _nD3_var._parameters.xmin = 0; _nD3_var._parameters.xmax = 0; _nD3_var._parameters.ymin = 0; _nD3_var._parameters.ymax = 0; _nD3_var._parameters.zmin = 0; _nD3_var._parameters.zmax = 0; _nD3_var._parameters.bins = 0; _nD3_var._parameters.min = -1e40; _nD3_var._parameters.max = 1e40; _nD3_var._parameters.restore_neutron = 1; _nD3_var._parameters.radius = 0; if("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0003.dat" && strlen("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0003.dat")) stracpy(_nD3_var._parameters.options, "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0003.dat" ? "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0003.dat" : "", 16384); else _nD3_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD3_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD3_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD3_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD3_var._parameters.geometry[0]='\0'; _nD3_var._parameters.nowritefile = 0; _nD3_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD3_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD3_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD3_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD3_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD3_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD3_var._parameters.username3[0]='\0'; /* component nD3=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_monolith_var._rotation_absolute, _nD3_var._rotation_absolute); rot_transpose(_l_monolith_var._rotation_absolute, tr1); rot_mul(_nD3_var._rotation_absolute, tr1, _nD3_var._rotation_relative); _nD3_var._rotation_is_identity = rot_test_identity(_nD3_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_monolith_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD3_var._position_absolute = coords_add(_l_monolith_var._position_absolute, tc2); tc1 = coords_sub(_l_monolith_var._position_absolute, _nD3_var._position_absolute); _nD3_var._position_relative = rot_apply(_nD3_var._rotation_absolute, tc1); } /* nD3=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD3", _nD3_var._position_absolute, _nD3_var._rotation_absolute); instrument->_position_absolute[20] = _nD3_var._position_absolute; instrument->_position_relative[20] = _nD3_var._position_relative; _nD3_var._position_relative_is_zero = coords_test_zero(_nD3_var._position_relative); instrument->counter_N[20] = instrument->counter_P[20] = instrument->counter_P2[20] = 0; instrument->counter_AbsorbProp[20]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0019_nD3", _nD3_var._position_absolute, _nD3_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0019_nD3", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0019_nD3", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0019_nD3", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0019_nD3", "xwidth", "0", "0.15","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "yheight", "0", "0.15","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0019_nD3", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0019_nD3", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0019_nD3", "options", "NULL", "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0003.dat", "char*"); mccomp_param_nexus(nxhandle,"0019_nD3", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0019_nD3", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0019_nD3", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0019_nD3", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0019_nD3", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0019_nD3", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0019_nD3", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD3_setpos */ /* component divergence_monitor_monolith=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_monolith_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_monolith_setpos] component divergence_monitor_monolith=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_monolith_var._name, "divergence_monitor_monolith", 16384); stracpy(_divergence_monitor_monolith_var._type, "Divergence_monitor", 16384); _divergence_monitor_monolith_var._index=21; int current_setpos_index = 21; _divergence_monitor_monolith_var._parameters.nh = 100; _divergence_monitor_monolith_var._parameters.nv = 100; if("DivMon_0003" && strlen("DivMon_0003")) stracpy(_divergence_monitor_monolith_var._parameters.filename, "DivMon_0003" ? "DivMon_0003" : "", 16384); else _divergence_monitor_monolith_var._parameters.filename[0]='\0'; _divergence_monitor_monolith_var._parameters.xmin = -0.05; _divergence_monitor_monolith_var._parameters.xmax = 0.05; _divergence_monitor_monolith_var._parameters.ymin = -0.05; _divergence_monitor_monolith_var._parameters.ymax = 0.05; _divergence_monitor_monolith_var._parameters.nowritefile = 0; _divergence_monitor_monolith_var._parameters.xwidth = 0.2; _divergence_monitor_monolith_var._parameters.yheight = 0.2; _divergence_monitor_monolith_var._parameters.maxdiv_h = 5; _divergence_monitor_monolith_var._parameters.maxdiv_v = 5; _divergence_monitor_monolith_var._parameters.restore_neutron = 1; _divergence_monitor_monolith_var._parameters.nx = 0; _divergence_monitor_monolith_var._parameters.ny = 0; _divergence_monitor_monolith_var._parameters.nz = 1; /* component divergence_monitor_monolith=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD3_var._rotation_absolute, _divergence_monitor_monolith_var._rotation_absolute); rot_transpose(_nD3_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_monolith_var._rotation_absolute, tr1, _divergence_monitor_monolith_var._rotation_relative); _divergence_monitor_monolith_var._rotation_is_identity = rot_test_identity(_divergence_monitor_monolith_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD3_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_monolith_var._position_absolute = coords_add(_nD3_var._position_absolute, tc2); tc1 = coords_sub(_nD3_var._position_absolute, _divergence_monitor_monolith_var._position_absolute); _divergence_monitor_monolith_var._position_relative = rot_apply(_divergence_monitor_monolith_var._rotation_absolute, tc1); } /* divergence_monitor_monolith=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_monolith", _divergence_monitor_monolith_var._position_absolute, _divergence_monitor_monolith_var._rotation_absolute); instrument->_position_absolute[21] = _divergence_monitor_monolith_var._position_absolute; instrument->_position_relative[21] = _divergence_monitor_monolith_var._position_relative; _divergence_monitor_monolith_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_monolith_var._position_relative); instrument->counter_N[21] = instrument->counter_P[21] = instrument->counter_P2[21] = 0; instrument->counter_AbsorbProp[21]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0020_divergence_monitor_monolith", _divergence_monitor_monolith_var._position_absolute, _divergence_monitor_monolith_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "filename", 0, "DivMon_0003", "char*"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "maxdiv_v", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0020_divergence_monitor_monolith", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_monolith_setpos */ /* component h_divlambda_monolith=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_monolith_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_monolith_setpos] component h_divlambda_monolith=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_monolith_var._name, "h_divlambda_monolith", 16384); stracpy(_h_divlambda_monolith_var._type, "DivLambda_monitor", 16384); _h_divlambda_monolith_var._index=22; int current_setpos_index = 22; _h_divlambda_monolith_var._parameters.nL = 100; _h_divlambda_monolith_var._parameters.nh = 100; _h_divlambda_monolith_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0003" && strlen("DivLambdaMon_h_0003")) stracpy(_h_divlambda_monolith_var._parameters.filename, "DivLambdaMon_h_0003" ? "DivLambdaMon_h_0003" : "", 16384); else _h_divlambda_monolith_var._parameters.filename[0]='\0'; _h_divlambda_monolith_var._parameters.xmin = -0.05; _h_divlambda_monolith_var._parameters.xmax = 0.05; _h_divlambda_monolith_var._parameters.ymin = -0.05; _h_divlambda_monolith_var._parameters.ymax = 0.05; _h_divlambda_monolith_var._parameters.xwidth = 0.2; _h_divlambda_monolith_var._parameters.yheight = 0.2; _h_divlambda_monolith_var._parameters.maxdiv_h = 5; _h_divlambda_monolith_var._parameters.Lmin = Lmin_source; _h_divlambda_monolith_var._parameters.Lmax = Lmax_source; _h_divlambda_monolith_var._parameters.restore_neutron = 1; _h_divlambda_monolith_var._parameters.nx = 0; _h_divlambda_monolith_var._parameters.ny = 0; _h_divlambda_monolith_var._parameters.nz = 1; /* component h_divlambda_monolith=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_monolith_var._rotation_absolute, _h_divlambda_monolith_var._rotation_absolute); rot_transpose(_divergence_monitor_monolith_var._rotation_absolute, tr1); rot_mul(_h_divlambda_monolith_var._rotation_absolute, tr1, _h_divlambda_monolith_var._rotation_relative); _h_divlambda_monolith_var._rotation_is_identity = rot_test_identity(_h_divlambda_monolith_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_monolith_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_monolith_var._position_absolute = coords_add(_divergence_monitor_monolith_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_monolith_var._position_absolute, _h_divlambda_monolith_var._position_absolute); _h_divlambda_monolith_var._position_relative = rot_apply(_h_divlambda_monolith_var._rotation_absolute, tc1); } /* h_divlambda_monolith=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_monolith", _h_divlambda_monolith_var._position_absolute, _h_divlambda_monolith_var._rotation_absolute); instrument->_position_absolute[22] = _h_divlambda_monolith_var._position_absolute; instrument->_position_relative[22] = _h_divlambda_monolith_var._position_relative; _h_divlambda_monolith_var._position_relative_is_zero = coords_test_zero(_h_divlambda_monolith_var._position_relative); instrument->counter_N[22] = instrument->counter_P[22] = instrument->counter_P2[22] = 0; instrument->counter_AbsorbProp[22]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0021_h_divlambda_monolith", _h_divlambda_monolith_var._position_absolute, _h_divlambda_monolith_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "filename", 0, "DivLambdaMon_h_0003", "char*"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0021_h_divlambda_monolith", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_monolith_setpos */ /* component v_divlambda_monolith=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_monolith_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_monolith_setpos] component v_divlambda_monolith=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_monolith_var._name, "v_divlambda_monolith", 16384); stracpy(_v_divlambda_monolith_var._type, "DivLambda_monitor", 16384); _v_divlambda_monolith_var._index=23; int current_setpos_index = 23; _v_divlambda_monolith_var._parameters.nL = 100; _v_divlambda_monolith_var._parameters.nh = 100; _v_divlambda_monolith_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0003" && strlen("DivLambdaMon_v_0003")) stracpy(_v_divlambda_monolith_var._parameters.filename, "DivLambdaMon_v_0003" ? "DivLambdaMon_v_0003" : "", 16384); else _v_divlambda_monolith_var._parameters.filename[0]='\0'; _v_divlambda_monolith_var._parameters.xmin = -0.05; _v_divlambda_monolith_var._parameters.xmax = 0.05; _v_divlambda_monolith_var._parameters.ymin = -0.05; _v_divlambda_monolith_var._parameters.ymax = 0.05; _v_divlambda_monolith_var._parameters.xwidth = 0.2; _v_divlambda_monolith_var._parameters.yheight = 0.2; _v_divlambda_monolith_var._parameters.maxdiv_h = 5; _v_divlambda_monolith_var._parameters.Lmin = Lmin_source; _v_divlambda_monolith_var._parameters.Lmax = Lmax_source; _v_divlambda_monolith_var._parameters.restore_neutron = 1; _v_divlambda_monolith_var._parameters.nx = 0; _v_divlambda_monolith_var._parameters.ny = 0; _v_divlambda_monolith_var._parameters.nz = 1; /* component v_divlambda_monolith=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_monolith_var._rotation_absolute, _v_divlambda_monolith_var._rotation_absolute); rot_transpose(_h_divlambda_monolith_var._rotation_absolute, tr1); rot_mul(_v_divlambda_monolith_var._rotation_absolute, tr1, _v_divlambda_monolith_var._rotation_relative); _v_divlambda_monolith_var._rotation_is_identity = rot_test_identity(_v_divlambda_monolith_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_monolith_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_monolith_var._position_absolute = coords_add(_h_divlambda_monolith_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_monolith_var._position_absolute, _v_divlambda_monolith_var._position_absolute); _v_divlambda_monolith_var._position_relative = rot_apply(_v_divlambda_monolith_var._rotation_absolute, tc1); } /* v_divlambda_monolith=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_monolith", _v_divlambda_monolith_var._position_absolute, _v_divlambda_monolith_var._rotation_absolute); instrument->_position_absolute[23] = _v_divlambda_monolith_var._position_absolute; instrument->_position_relative[23] = _v_divlambda_monolith_var._position_relative; _v_divlambda_monolith_var._position_relative_is_zero = coords_test_zero(_v_divlambda_monolith_var._position_relative); instrument->counter_N[23] = instrument->counter_P[23] = instrument->counter_P2[23] = 0; instrument->counter_AbsorbProp[23]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0022_v_divlambda_monolith", _v_divlambda_monolith_var._position_absolute, _v_divlambda_monolith_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "filename", 0, "DivLambdaMon_v_0003", "char*"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0022_v_divlambda_monolith", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_monolith_setpos */ /* component PSD_before_slit_cPH=PSD_monitor() SETTING, POSITION/ROTATION */ int _PSD_before_slit_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_PSD_before_slit_cPH_setpos] component PSD_before_slit_cPH=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_PSD_before_slit_cPH_var._name, "PSD_before_slit_cPH", 16384); stracpy(_PSD_before_slit_cPH_var._type, "PSD_monitor", 16384); _PSD_before_slit_cPH_var._index=24; int current_setpos_index = 24; _PSD_before_slit_cPH_var._parameters.nx = 100; _PSD_before_slit_cPH_var._parameters.ny = 100; if("PSD_before_slit_cPH" && strlen("PSD_before_slit_cPH")) stracpy(_PSD_before_slit_cPH_var._parameters.filename, "PSD_before_slit_cPH" ? "PSD_before_slit_cPH" : "", 16384); else _PSD_before_slit_cPH_var._parameters.filename[0]='\0'; _PSD_before_slit_cPH_var._parameters.xmin = -0.05; _PSD_before_slit_cPH_var._parameters.xmax = 0.05; _PSD_before_slit_cPH_var._parameters.ymin = -0.05; _PSD_before_slit_cPH_var._parameters.ymax = 0.05; _PSD_before_slit_cPH_var._parameters.xwidth = 1.2; _PSD_before_slit_cPH_var._parameters.yheight = 1.2; _PSD_before_slit_cPH_var._parameters.restore_neutron = 1; _PSD_before_slit_cPH_var._parameters.nowritefile = 0; /* component PSD_before_slit_cPH=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(_PSD_before_slit_cPH_var._rotation_absolute, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_transpose(_v_divlambda_monolith_var._rotation_absolute, tr1); rot_mul(_PSD_before_slit_cPH_var._rotation_absolute, tr1, _PSD_before_slit_cPH_var._rotation_relative); _PSD_before_slit_cPH_var._rotation_is_identity = rot_test_identity(_PSD_before_slit_cPH_var._rotation_relative); _PSD_before_slit_cPH_var._position_absolute = coords_set( 0, 0, 10.0 -1.3 - u - u); tc1 = coords_sub(_v_divlambda_monolith_var._position_absolute, _PSD_before_slit_cPH_var._position_absolute); _PSD_before_slit_cPH_var._position_relative = rot_apply(_PSD_before_slit_cPH_var._rotation_absolute, tc1); } /* PSD_before_slit_cPH=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("PSD_before_slit_cPH", _PSD_before_slit_cPH_var._position_absolute, _PSD_before_slit_cPH_var._rotation_absolute); instrument->_position_absolute[24] = _PSD_before_slit_cPH_var._position_absolute; instrument->_position_relative[24] = _PSD_before_slit_cPH_var._position_relative; _PSD_before_slit_cPH_var._position_relative_is_zero = coords_test_zero(_PSD_before_slit_cPH_var._position_relative); instrument->counter_N[24] = instrument->counter_P[24] = instrument->counter_P2[24] = 0; instrument->counter_AbsorbProp[24]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0023_PSD_before_slit_cPH", _PSD_before_slit_cPH_var._position_absolute, _PSD_before_slit_cPH_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "filename", 0, "PSD_before_slit_cPH", "char*"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "xwidth", "0", "1.2","MCNUM"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "yheight", "0", "1.2","MCNUM"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0023_PSD_before_slit_cPH", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _PSD_before_slit_cPH_setpos */ /* component slit_cPH=Slit() SETTING, POSITION/ROTATION */ int _slit_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_slit_cPH_setpos] component slit_cPH=Slit() SETTING [Slit:0]"); stracpy(_slit_cPH_var._name, "slit_cPH", 16384); stracpy(_slit_cPH_var._type, "Slit", 16384); _slit_cPH_var._index=25; int current_setpos_index = 25; _slit_cPH_var._parameters.xmin = UNSET; _slit_cPH_var._parameters.xmax = UNSET; _slit_cPH_var._parameters.ymin = UNSET; _slit_cPH_var._parameters.ymax = UNSET; _slit_cPH_var._parameters.radius = 0.075; _slit_cPH_var._parameters.xwidth = UNSET; _slit_cPH_var._parameters.yheight = UNSET; /* component slit_cPH=Slit() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(_slit_cPH_var._rotation_absolute, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_transpose(_PSD_before_slit_cPH_var._rotation_absolute, tr1); rot_mul(_slit_cPH_var._rotation_absolute, tr1, _slit_cPH_var._rotation_relative); _slit_cPH_var._rotation_is_identity = rot_test_identity(_slit_cPH_var._rotation_relative); _slit_cPH_var._position_absolute = coords_set( 0, 0, 10.0 -1.3 - u); tc1 = coords_sub(_PSD_before_slit_cPH_var._position_absolute, _slit_cPH_var._position_absolute); _slit_cPH_var._position_relative = rot_apply(_slit_cPH_var._rotation_absolute, tc1); } /* slit_cPH=Slit() AT ROTATED */ DEBUG_COMPONENT("slit_cPH", _slit_cPH_var._position_absolute, _slit_cPH_var._rotation_absolute); instrument->_position_absolute[25] = _slit_cPH_var._position_absolute; instrument->_position_relative[25] = _slit_cPH_var._position_relative; _slit_cPH_var._position_relative_is_zero = coords_test_zero(_slit_cPH_var._position_relative); instrument->counter_N[25] = instrument->counter_P[25] = instrument->counter_P2[25] = 0; instrument->counter_AbsorbProp[25]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0024_slit_cPH", _slit_cPH_var._position_absolute, _slit_cPH_var._rotation_absolute, "Slit"); mccomp_param_nexus(nxhandle,"0024_slit_cPH", "xmin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0024_slit_cPH", "xmax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0024_slit_cPH", "ymin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0024_slit_cPH", "ymax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0024_slit_cPH", "radius", "UNSET", "0.075","MCNUM"); mccomp_param_nexus(nxhandle,"0024_slit_cPH", "xwidth", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0024_slit_cPH", "yheight", "UNSET", "UNSET","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _slit_cPH_setpos */ /* component PSD_slit_cPH=PSD_monitor() SETTING, POSITION/ROTATION */ int _PSD_slit_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_PSD_slit_cPH_setpos] component PSD_slit_cPH=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_PSD_slit_cPH_var._name, "PSD_slit_cPH", 16384); stracpy(_PSD_slit_cPH_var._type, "PSD_monitor", 16384); _PSD_slit_cPH_var._index=26; int current_setpos_index = 26; _PSD_slit_cPH_var._parameters.nx = 100; _PSD_slit_cPH_var._parameters.ny = 100; if("PSD_0004" && strlen("PSD_0004")) stracpy(_PSD_slit_cPH_var._parameters.filename, "PSD_0004" ? "PSD_0004" : "", 16384); else _PSD_slit_cPH_var._parameters.filename[0]='\0'; _PSD_slit_cPH_var._parameters.xmin = -0.05; _PSD_slit_cPH_var._parameters.xmax = 0.05; _PSD_slit_cPH_var._parameters.ymin = -0.05; _PSD_slit_cPH_var._parameters.ymax = 0.05; _PSD_slit_cPH_var._parameters.xwidth = 0.2; _PSD_slit_cPH_var._parameters.yheight = 0.2; _PSD_slit_cPH_var._parameters.restore_neutron = 1; _PSD_slit_cPH_var._parameters.nowritefile = 0; /* component PSD_slit_cPH=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _slit_cPH_var._rotation_absolute, _PSD_slit_cPH_var._rotation_absolute); rot_transpose(_slit_cPH_var._rotation_absolute, tr1); rot_mul(_PSD_slit_cPH_var._rotation_absolute, tr1, _PSD_slit_cPH_var._rotation_relative); _PSD_slit_cPH_var._rotation_is_identity = rot_test_identity(_PSD_slit_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_slit_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _PSD_slit_cPH_var._position_absolute = coords_add(_slit_cPH_var._position_absolute, tc2); tc1 = coords_sub(_slit_cPH_var._position_absolute, _PSD_slit_cPH_var._position_absolute); _PSD_slit_cPH_var._position_relative = rot_apply(_PSD_slit_cPH_var._rotation_absolute, tc1); } /* PSD_slit_cPH=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("PSD_slit_cPH", _PSD_slit_cPH_var._position_absolute, _PSD_slit_cPH_var._rotation_absolute); instrument->_position_absolute[26] = _PSD_slit_cPH_var._position_absolute; instrument->_position_relative[26] = _PSD_slit_cPH_var._position_relative; _PSD_slit_cPH_var._position_relative_is_zero = coords_test_zero(_PSD_slit_cPH_var._position_relative); instrument->counter_N[26] = instrument->counter_P[26] = instrument->counter_P2[26] = 0; instrument->counter_AbsorbProp[26]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0025_PSD_slit_cPH", _PSD_slit_cPH_var._position_absolute, _PSD_slit_cPH_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "filename", 0, "PSD_0004", "char*"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0025_PSD_slit_cPH", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _PSD_slit_cPH_setpos */ /* component l_slit_cPH=L_monitor() SETTING, POSITION/ROTATION */ int _l_slit_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_slit_cPH_setpos] component l_slit_cPH=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_slit_cPH_var._name, "l_slit_cPH", 16384); stracpy(_l_slit_cPH_var._type, "L_monitor", 16384); _l_slit_cPH_var._index=27; int current_setpos_index = 27; _l_slit_cPH_var._parameters.nL = 100; if("L_0004" && strlen("L_0004")) stracpy(_l_slit_cPH_var._parameters.filename, "L_0004" ? "L_0004" : "", 16384); else _l_slit_cPH_var._parameters.filename[0]='\0'; _l_slit_cPH_var._parameters.nowritefile = 0; _l_slit_cPH_var._parameters.xmin = -0.05; _l_slit_cPH_var._parameters.xmax = 0.05; _l_slit_cPH_var._parameters.ymin = -0.05; _l_slit_cPH_var._parameters.ymax = 0.05; _l_slit_cPH_var._parameters.xwidth = 0.2; _l_slit_cPH_var._parameters.yheight = 0.2; _l_slit_cPH_var._parameters.Lmin = Lmin_source; _l_slit_cPH_var._parameters.Lmax = Lmax_source; _l_slit_cPH_var._parameters.restore_neutron = 1; /* component l_slit_cPH=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _PSD_slit_cPH_var._rotation_absolute, _l_slit_cPH_var._rotation_absolute); rot_transpose(_PSD_slit_cPH_var._rotation_absolute, tr1); rot_mul(_l_slit_cPH_var._rotation_absolute, tr1, _l_slit_cPH_var._rotation_relative); _l_slit_cPH_var._rotation_is_identity = rot_test_identity(_l_slit_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_PSD_slit_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_slit_cPH_var._position_absolute = coords_add(_PSD_slit_cPH_var._position_absolute, tc2); tc1 = coords_sub(_PSD_slit_cPH_var._position_absolute, _l_slit_cPH_var._position_absolute); _l_slit_cPH_var._position_relative = rot_apply(_l_slit_cPH_var._rotation_absolute, tc1); } /* l_slit_cPH=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_slit_cPH", _l_slit_cPH_var._position_absolute, _l_slit_cPH_var._rotation_absolute); instrument->_position_absolute[27] = _l_slit_cPH_var._position_absolute; instrument->_position_relative[27] = _l_slit_cPH_var._position_relative; _l_slit_cPH_var._position_relative_is_zero = coords_test_zero(_l_slit_cPH_var._position_relative); instrument->counter_N[27] = instrument->counter_P[27] = instrument->counter_P2[27] = 0; instrument->counter_AbsorbProp[27]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0026_l_slit_cPH", _l_slit_cPH_var._position_absolute, _l_slit_cPH_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "filename", 0, "L_0004", "char*"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0026_l_slit_cPH", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_slit_cPH_setpos */ /* component nD4=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD4_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD4_setpos] component nD4=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD4_var._name, "nD4", 16384); stracpy(_nD4_var._type, "Monitor_nD", 16384); _nD4_var._index=28; int current_setpos_index = 28; if("" && strlen("")) stracpy(_nD4_var._parameters.user1, "" ? "" : "", 16384); else _nD4_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD4_var._parameters.user2, "" ? "" : "", 16384); else _nD4_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD4_var._parameters.user3, "" ? "" : "", 16384); else _nD4_var._parameters.user3[0]='\0'; _nD4_var._parameters.xwidth = 0.075 * 2; _nD4_var._parameters.yheight = 0; _nD4_var._parameters.zdepth = 0; _nD4_var._parameters.xmin = 0; _nD4_var._parameters.xmax = 0; _nD4_var._parameters.ymin = 0; _nD4_var._parameters.ymax = 0; _nD4_var._parameters.zmin = 0; _nD4_var._parameters.zmax = 0; _nD4_var._parameters.bins = 0; _nD4_var._parameters.min = -1e40; _nD4_var._parameters.max = 1e40; _nD4_var._parameters.restore_neutron = 1; _nD4_var._parameters.radius = 0; if("disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0004.dat" && strlen("disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0004.dat")) stracpy(_nD4_var._parameters.options, "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0004.dat" ? "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0004.dat" : "", 16384); else _nD4_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD4_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD4_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD4_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD4_var._parameters.geometry[0]='\0'; _nD4_var._parameters.nowritefile = 0; _nD4_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD4_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD4_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD4_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD4_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD4_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD4_var._parameters.username3[0]='\0'; /* component nD4=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_slit_cPH_var._rotation_absolute, _nD4_var._rotation_absolute); rot_transpose(_l_slit_cPH_var._rotation_absolute, tr1); rot_mul(_nD4_var._rotation_absolute, tr1, _nD4_var._rotation_relative); _nD4_var._rotation_is_identity = rot_test_identity(_nD4_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_slit_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD4_var._position_absolute = coords_add(_l_slit_cPH_var._position_absolute, tc2); tc1 = coords_sub(_l_slit_cPH_var._position_absolute, _nD4_var._position_absolute); _nD4_var._position_relative = rot_apply(_nD4_var._rotation_absolute, tc1); } /* nD4=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD4", _nD4_var._position_absolute, _nD4_var._rotation_absolute); instrument->_position_absolute[28] = _nD4_var._position_absolute; instrument->_position_relative[28] = _nD4_var._position_relative; _nD4_var._position_relative_is_zero = coords_test_zero(_nD4_var._position_relative); instrument->counter_N[28] = instrument->counter_P[28] = instrument->counter_P2[28] = 0; instrument->counter_AbsorbProp[28]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0027_nD4", _nD4_var._position_absolute, _nD4_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0027_nD4", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0027_nD4", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0027_nD4", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0027_nD4", "xwidth", "0", "0.075 * 2","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "yheight", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0027_nD4", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0027_nD4", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0027_nD4", "options", "NULL", "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0004.dat", "char*"); mccomp_param_nexus(nxhandle,"0027_nD4", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0027_nD4", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0027_nD4", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0027_nD4", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0027_nD4", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0027_nD4", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0027_nD4", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD4_setpos */ /* component divergence_monitor_slit_cPH=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_slit_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_slit_cPH_setpos] component divergence_monitor_slit_cPH=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_slit_cPH_var._name, "divergence_monitor_slit_cPH", 16384); stracpy(_divergence_monitor_slit_cPH_var._type, "Divergence_monitor", 16384); _divergence_monitor_slit_cPH_var._index=29; int current_setpos_index = 29; _divergence_monitor_slit_cPH_var._parameters.nh = 100; _divergence_monitor_slit_cPH_var._parameters.nv = 100; if("DivMon_0004" && strlen("DivMon_0004")) stracpy(_divergence_monitor_slit_cPH_var._parameters.filename, "DivMon_0004" ? "DivMon_0004" : "", 16384); else _divergence_monitor_slit_cPH_var._parameters.filename[0]='\0'; _divergence_monitor_slit_cPH_var._parameters.xmin = -0.05; _divergence_monitor_slit_cPH_var._parameters.xmax = 0.05; _divergence_monitor_slit_cPH_var._parameters.ymin = -0.05; _divergence_monitor_slit_cPH_var._parameters.ymax = 0.05; _divergence_monitor_slit_cPH_var._parameters.nowritefile = 0; _divergence_monitor_slit_cPH_var._parameters.xwidth = 0.2; _divergence_monitor_slit_cPH_var._parameters.yheight = 0.2; _divergence_monitor_slit_cPH_var._parameters.maxdiv_h = 5; _divergence_monitor_slit_cPH_var._parameters.maxdiv_v = 5; _divergence_monitor_slit_cPH_var._parameters.restore_neutron = 1; _divergence_monitor_slit_cPH_var._parameters.nx = 0; _divergence_monitor_slit_cPH_var._parameters.ny = 0; _divergence_monitor_slit_cPH_var._parameters.nz = 1; /* component divergence_monitor_slit_cPH=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD4_var._rotation_absolute, _divergence_monitor_slit_cPH_var._rotation_absolute); rot_transpose(_nD4_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_slit_cPH_var._rotation_absolute, tr1, _divergence_monitor_slit_cPH_var._rotation_relative); _divergence_monitor_slit_cPH_var._rotation_is_identity = rot_test_identity(_divergence_monitor_slit_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD4_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_slit_cPH_var._position_absolute = coords_add(_nD4_var._position_absolute, tc2); tc1 = coords_sub(_nD4_var._position_absolute, _divergence_monitor_slit_cPH_var._position_absolute); _divergence_monitor_slit_cPH_var._position_relative = rot_apply(_divergence_monitor_slit_cPH_var._rotation_absolute, tc1); } /* divergence_monitor_slit_cPH=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_slit_cPH", _divergence_monitor_slit_cPH_var._position_absolute, _divergence_monitor_slit_cPH_var._rotation_absolute); instrument->_position_absolute[29] = _divergence_monitor_slit_cPH_var._position_absolute; instrument->_position_relative[29] = _divergence_monitor_slit_cPH_var._position_relative; _divergence_monitor_slit_cPH_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_slit_cPH_var._position_relative); instrument->counter_N[29] = instrument->counter_P[29] = instrument->counter_P2[29] = 0; instrument->counter_AbsorbProp[29]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", _divergence_monitor_slit_cPH_var._position_absolute, _divergence_monitor_slit_cPH_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "filename", 0, "DivMon_0004", "char*"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "maxdiv_v", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0028_divergence_monitor_slit_cPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_slit_cPH_setpos */ /* component h_divlambda_slit_cPH=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_slit_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_slit_cPH_setpos] component h_divlambda_slit_cPH=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_slit_cPH_var._name, "h_divlambda_slit_cPH", 16384); stracpy(_h_divlambda_slit_cPH_var._type, "DivLambda_monitor", 16384); _h_divlambda_slit_cPH_var._index=30; int current_setpos_index = 30; _h_divlambda_slit_cPH_var._parameters.nL = 100; _h_divlambda_slit_cPH_var._parameters.nh = 100; _h_divlambda_slit_cPH_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0004" && strlen("DivLambdaMon_h_0004")) stracpy(_h_divlambda_slit_cPH_var._parameters.filename, "DivLambdaMon_h_0004" ? "DivLambdaMon_h_0004" : "", 16384); else _h_divlambda_slit_cPH_var._parameters.filename[0]='\0'; _h_divlambda_slit_cPH_var._parameters.xmin = -0.05; _h_divlambda_slit_cPH_var._parameters.xmax = 0.05; _h_divlambda_slit_cPH_var._parameters.ymin = -0.05; _h_divlambda_slit_cPH_var._parameters.ymax = 0.05; _h_divlambda_slit_cPH_var._parameters.xwidth = 0.2; _h_divlambda_slit_cPH_var._parameters.yheight = 0.2; _h_divlambda_slit_cPH_var._parameters.maxdiv_h = 5; _h_divlambda_slit_cPH_var._parameters.Lmin = Lmin_source; _h_divlambda_slit_cPH_var._parameters.Lmax = Lmax_source; _h_divlambda_slit_cPH_var._parameters.restore_neutron = 1; _h_divlambda_slit_cPH_var._parameters.nx = 0; _h_divlambda_slit_cPH_var._parameters.ny = 0; _h_divlambda_slit_cPH_var._parameters.nz = 1; /* component h_divlambda_slit_cPH=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_slit_cPH_var._rotation_absolute, _h_divlambda_slit_cPH_var._rotation_absolute); rot_transpose(_divergence_monitor_slit_cPH_var._rotation_absolute, tr1); rot_mul(_h_divlambda_slit_cPH_var._rotation_absolute, tr1, _h_divlambda_slit_cPH_var._rotation_relative); _h_divlambda_slit_cPH_var._rotation_is_identity = rot_test_identity(_h_divlambda_slit_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_slit_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_slit_cPH_var._position_absolute = coords_add(_divergence_monitor_slit_cPH_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_slit_cPH_var._position_absolute, _h_divlambda_slit_cPH_var._position_absolute); _h_divlambda_slit_cPH_var._position_relative = rot_apply(_h_divlambda_slit_cPH_var._rotation_absolute, tc1); } /* h_divlambda_slit_cPH=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_slit_cPH", _h_divlambda_slit_cPH_var._position_absolute, _h_divlambda_slit_cPH_var._rotation_absolute); instrument->_position_absolute[30] = _h_divlambda_slit_cPH_var._position_absolute; instrument->_position_relative[30] = _h_divlambda_slit_cPH_var._position_relative; _h_divlambda_slit_cPH_var._position_relative_is_zero = coords_test_zero(_h_divlambda_slit_cPH_var._position_relative); instrument->counter_N[30] = instrument->counter_P[30] = instrument->counter_P2[30] = 0; instrument->counter_AbsorbProp[30]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0029_h_divlambda_slit_cPH", _h_divlambda_slit_cPH_var._position_absolute, _h_divlambda_slit_cPH_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "filename", 0, "DivLambdaMon_h_0004", "char*"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0029_h_divlambda_slit_cPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_slit_cPH_setpos */ /* component v_divlambda_slit_cPH=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_slit_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_slit_cPH_setpos] component v_divlambda_slit_cPH=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_slit_cPH_var._name, "v_divlambda_slit_cPH", 16384); stracpy(_v_divlambda_slit_cPH_var._type, "DivLambda_monitor", 16384); _v_divlambda_slit_cPH_var._index=31; int current_setpos_index = 31; _v_divlambda_slit_cPH_var._parameters.nL = 100; _v_divlambda_slit_cPH_var._parameters.nh = 100; _v_divlambda_slit_cPH_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0004" && strlen("DivLambdaMon_v_0004")) stracpy(_v_divlambda_slit_cPH_var._parameters.filename, "DivLambdaMon_v_0004" ? "DivLambdaMon_v_0004" : "", 16384); else _v_divlambda_slit_cPH_var._parameters.filename[0]='\0'; _v_divlambda_slit_cPH_var._parameters.xmin = -0.05; _v_divlambda_slit_cPH_var._parameters.xmax = 0.05; _v_divlambda_slit_cPH_var._parameters.ymin = -0.05; _v_divlambda_slit_cPH_var._parameters.ymax = 0.05; _v_divlambda_slit_cPH_var._parameters.xwidth = 0.2; _v_divlambda_slit_cPH_var._parameters.yheight = 0.2; _v_divlambda_slit_cPH_var._parameters.maxdiv_h = 5; _v_divlambda_slit_cPH_var._parameters.Lmin = Lmin_source; _v_divlambda_slit_cPH_var._parameters.Lmax = Lmax_source; _v_divlambda_slit_cPH_var._parameters.restore_neutron = 1; _v_divlambda_slit_cPH_var._parameters.nx = 0; _v_divlambda_slit_cPH_var._parameters.ny = 0; _v_divlambda_slit_cPH_var._parameters.nz = 1; /* component v_divlambda_slit_cPH=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_slit_cPH_var._rotation_absolute, _v_divlambda_slit_cPH_var._rotation_absolute); rot_transpose(_h_divlambda_slit_cPH_var._rotation_absolute, tr1); rot_mul(_v_divlambda_slit_cPH_var._rotation_absolute, tr1, _v_divlambda_slit_cPH_var._rotation_relative); _v_divlambda_slit_cPH_var._rotation_is_identity = rot_test_identity(_v_divlambda_slit_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_slit_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_slit_cPH_var._position_absolute = coords_add(_h_divlambda_slit_cPH_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_slit_cPH_var._position_absolute, _v_divlambda_slit_cPH_var._position_absolute); _v_divlambda_slit_cPH_var._position_relative = rot_apply(_v_divlambda_slit_cPH_var._rotation_absolute, tc1); } /* v_divlambda_slit_cPH=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_slit_cPH", _v_divlambda_slit_cPH_var._position_absolute, _v_divlambda_slit_cPH_var._rotation_absolute); instrument->_position_absolute[31] = _v_divlambda_slit_cPH_var._position_absolute; instrument->_position_relative[31] = _v_divlambda_slit_cPH_var._position_relative; _v_divlambda_slit_cPH_var._position_relative_is_zero = coords_test_zero(_v_divlambda_slit_cPH_var._position_relative); instrument->counter_N[31] = instrument->counter_P[31] = instrument->counter_P2[31] = 0; instrument->counter_AbsorbProp[31]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0030_v_divlambda_slit_cPH", _v_divlambda_slit_cPH_var._position_absolute, _v_divlambda_slit_cPH_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "filename", 0, "DivLambdaMon_v_0004", "char*"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0030_v_divlambda_slit_cPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_slit_cPH_setpos */ /* component cPH=Conics_PH() SETTING, POSITION/ROTATION */ int _cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_cPH_setpos] component cPH=Conics_PH() SETTING [Conics_PH:0]"); stracpy(_cPH_var._name, "cPH", 16384); stracpy(_cPH_var._type, "Conics_PH", 16384); _cPH_var._index=32; int current_setpos_index = 32; _cPH_var._parameters.rmin = 0.010; _cPH_var._parameters.rmax = 0.075; _cPH_var._parameters.focal_length = _instrument_var._parameters.fi_ph; _cPH_var._parameters.lp = 1.3; _cPH_var._parameters.lh = 1.0; _cPH_var._parameters.nshells = _instrument_var._parameters.nshells_ph; _cPH_var._parameters.m = _instrument_var._parameters.m; _cPH_var._parameters.mirr_thick = 0; _cPH_var._parameters.disk = 1; _cPH_var._parameters.radii = NULL; // default pointer allocation _cPH_var._parameters.R0 = _instrument_var._parameters.R0; _cPH_var._parameters.Qc = 0.021; _cPH_var._parameters.W = _instrument_var._parameters.W; _cPH_var._parameters.alpha = _instrument_var._parameters.alpha; _cPH_var._parameters.transmit = 0; /* component cPH=Conics_PH() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(_cPH_var._rotation_absolute, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_transpose(_v_divlambda_slit_cPH_var._rotation_absolute, tr1); rot_mul(_cPH_var._rotation_absolute, tr1, _cPH_var._rotation_relative); _cPH_var._rotation_is_identity = rot_test_identity(_cPH_var._rotation_relative); _cPH_var._position_absolute = coords_set( 0, 0, 10.0); tc1 = coords_sub(_v_divlambda_slit_cPH_var._position_absolute, _cPH_var._position_absolute); _cPH_var._position_relative = rot_apply(_cPH_var._rotation_absolute, tc1); } /* cPH=Conics_PH() AT ROTATED */ DEBUG_COMPONENT("cPH", _cPH_var._position_absolute, _cPH_var._rotation_absolute); instrument->_position_absolute[32] = _cPH_var._position_absolute; instrument->_position_relative[32] = _cPH_var._position_relative; _cPH_var._position_relative_is_zero = coords_test_zero(_cPH_var._position_relative); instrument->counter_N[32] = instrument->counter_P[32] = instrument->counter_P2[32] = 0; instrument->counter_AbsorbProp[32]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0031_cPH", _cPH_var._position_absolute, _cPH_var._rotation_absolute, "Conics_PH"); mccomp_param_nexus(nxhandle,"0031_cPH", "rmin", "0.325", "0.010","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "rmax", "0.615", "0.075","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "focal_length", "10.070", "_instrument_var._parameters.fi_ph","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "lp", "0.84", "1.3","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "lh", "0.84", "1.0","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "nshells", "4", "_instrument_var._parameters.nshells_ph","int"); mccomp_param_nexus(nxhandle,"0031_cPH", "m", "1", "_instrument_var._parameters.m","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "mirr_thick", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "disk", "1", "1","int"); mccomp_param_nexus(nxhandle,"0031_cPH", "radii", "NULL", "NULL","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "R0", "0.99", "_instrument_var._parameters.R0","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "Qc", "0.021", "0.021","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "W", "0.003", "_instrument_var._parameters.W","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "alpha", "6.07", "_instrument_var._parameters.alpha","MCNUM"); mccomp_param_nexus(nxhandle,"0031_cPH", "transmit", "0", "0","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _cPH_setpos */ /* component beamstop_cPH=Beamstop() SETTING, POSITION/ROTATION */ int _beamstop_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_beamstop_cPH_setpos] component beamstop_cPH=Beamstop() SETTING [Beamstop:0]"); stracpy(_beamstop_cPH_var._name, "beamstop_cPH", 16384); stracpy(_beamstop_cPH_var._type, "Beamstop", 16384); _beamstop_cPH_var._index=33; int current_setpos_index = 33; _beamstop_cPH_var._parameters.xmin = -0.05; _beamstop_cPH_var._parameters.xmax = 0.05; _beamstop_cPH_var._parameters.ymin = -0.05; _beamstop_cPH_var._parameters.ymax = 0.05; _beamstop_cPH_var._parameters.xwidth = 0; _beamstop_cPH_var._parameters.yheight = 0; _beamstop_cPH_var._parameters.radius = 0.010; /* component beamstop_cPH=Beamstop() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cPH_var._rotation_absolute, _beamstop_cPH_var._rotation_absolute); rot_transpose(_cPH_var._rotation_absolute, tr1); rot_mul(_beamstop_cPH_var._rotation_absolute, tr1, _beamstop_cPH_var._rotation_relative); _beamstop_cPH_var._rotation_is_identity = rot_test_identity(_beamstop_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 1.0 + u); rot_transpose(_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _beamstop_cPH_var._position_absolute = coords_add(_cPH_var._position_absolute, tc2); tc1 = coords_sub(_cPH_var._position_absolute, _beamstop_cPH_var._position_absolute); _beamstop_cPH_var._position_relative = rot_apply(_beamstop_cPH_var._rotation_absolute, tc1); } /* beamstop_cPH=Beamstop() AT ROTATED */ DEBUG_COMPONENT("beamstop_cPH", _beamstop_cPH_var._position_absolute, _beamstop_cPH_var._rotation_absolute); instrument->_position_absolute[33] = _beamstop_cPH_var._position_absolute; instrument->_position_relative[33] = _beamstop_cPH_var._position_relative; _beamstop_cPH_var._position_relative_is_zero = coords_test_zero(_beamstop_cPH_var._position_relative); instrument->counter_N[33] = instrument->counter_P[33] = instrument->counter_P2[33] = 0; instrument->counter_AbsorbProp[33]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0032_beamstop_cPH", _beamstop_cPH_var._position_absolute, _beamstop_cPH_var._rotation_absolute, "Beamstop"); mccomp_param_nexus(nxhandle,"0032_beamstop_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0032_beamstop_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0032_beamstop_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0032_beamstop_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0032_beamstop_cPH", "xwidth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0032_beamstop_cPH", "yheight", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0032_beamstop_cPH", "radius", "0", "0.010","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _beamstop_cPH_setpos */ /* component psd_cPH=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_cPH_setpos] component psd_cPH=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_cPH_var._name, "psd_cPH", 16384); stracpy(_psd_cPH_var._type, "PSD_monitor", 16384); _psd_cPH_var._index=34; int current_setpos_index = 34; _psd_cPH_var._parameters.nx = 1000; _psd_cPH_var._parameters.ny = 1000; if("PSD_0005" && strlen("PSD_0005")) stracpy(_psd_cPH_var._parameters.filename, "PSD_0005" ? "PSD_0005" : "", 16384); else _psd_cPH_var._parameters.filename[0]='\0'; _psd_cPH_var._parameters.xmin = -0.05; _psd_cPH_var._parameters.xmax = 0.05; _psd_cPH_var._parameters.ymin = -0.05; _psd_cPH_var._parameters.ymax = 0.05; _psd_cPH_var._parameters.xwidth = 0.2; _psd_cPH_var._parameters.yheight = 0.2; _psd_cPH_var._parameters.restore_neutron = 1; _psd_cPH_var._parameters.nowritefile = 0; /* component psd_cPH=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cPH_var._rotation_absolute, _psd_cPH_var._rotation_absolute); rot_transpose(_beamstop_cPH_var._rotation_absolute, tr1); rot_mul(_psd_cPH_var._rotation_absolute, tr1, _psd_cPH_var._rotation_relative); _psd_cPH_var._rotation_is_identity = rot_test_identity(_psd_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 1.0 + u + u); rot_transpose(_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_cPH_var._position_absolute = coords_add(_cPH_var._position_absolute, tc2); tc1 = coords_sub(_beamstop_cPH_var._position_absolute, _psd_cPH_var._position_absolute); _psd_cPH_var._position_relative = rot_apply(_psd_cPH_var._rotation_absolute, tc1); } /* psd_cPH=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_cPH", _psd_cPH_var._position_absolute, _psd_cPH_var._rotation_absolute); instrument->_position_absolute[34] = _psd_cPH_var._position_absolute; instrument->_position_relative[34] = _psd_cPH_var._position_relative; _psd_cPH_var._position_relative_is_zero = coords_test_zero(_psd_cPH_var._position_relative); instrument->counter_N[34] = instrument->counter_P[34] = instrument->counter_P2[34] = 0; instrument->counter_AbsorbProp[34]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0033_psd_cPH", _psd_cPH_var._position_absolute, _psd_cPH_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "nx", "90", "1000","int"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "ny", "90", "1000","int"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "filename", 0, "PSD_0005", "char*"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0033_psd_cPH", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_cPH_setpos */ /* component l_cPH=L_monitor() SETTING, POSITION/ROTATION */ int _l_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_cPH_setpos] component l_cPH=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_cPH_var._name, "l_cPH", 16384); stracpy(_l_cPH_var._type, "L_monitor", 16384); _l_cPH_var._index=35; int current_setpos_index = 35; _l_cPH_var._parameters.nL = 100; if("L_0005" && strlen("L_0005")) stracpy(_l_cPH_var._parameters.filename, "L_0005" ? "L_0005" : "", 16384); else _l_cPH_var._parameters.filename[0]='\0'; _l_cPH_var._parameters.nowritefile = 0; _l_cPH_var._parameters.xmin = -0.05; _l_cPH_var._parameters.xmax = 0.05; _l_cPH_var._parameters.ymin = -0.05; _l_cPH_var._parameters.ymax = 0.05; _l_cPH_var._parameters.xwidth = 0.2; _l_cPH_var._parameters.yheight = 0.2; _l_cPH_var._parameters.Lmin = Lmin_source; _l_cPH_var._parameters.Lmax = Lmax_source; _l_cPH_var._parameters.restore_neutron = 1; /* component l_cPH=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_cPH_var._rotation_absolute, _l_cPH_var._rotation_absolute); rot_transpose(_psd_cPH_var._rotation_absolute, tr1); rot_mul(_l_cPH_var._rotation_absolute, tr1, _l_cPH_var._rotation_relative); _l_cPH_var._rotation_is_identity = rot_test_identity(_l_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_cPH_var._position_absolute = coords_add(_psd_cPH_var._position_absolute, tc2); tc1 = coords_sub(_psd_cPH_var._position_absolute, _l_cPH_var._position_absolute); _l_cPH_var._position_relative = rot_apply(_l_cPH_var._rotation_absolute, tc1); } /* l_cPH=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_cPH", _l_cPH_var._position_absolute, _l_cPH_var._rotation_absolute); instrument->_position_absolute[35] = _l_cPH_var._position_absolute; instrument->_position_relative[35] = _l_cPH_var._position_relative; _l_cPH_var._position_relative_is_zero = coords_test_zero(_l_cPH_var._position_relative); instrument->counter_N[35] = instrument->counter_P[35] = instrument->counter_P2[35] = 0; instrument->counter_AbsorbProp[35]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0034_l_cPH", _l_cPH_var._position_absolute, _l_cPH_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "filename", 0, "L_0005", "char*"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0034_l_cPH", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_cPH_setpos */ /* component nD5=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD5_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD5_setpos] component nD5=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD5_var._name, "nD5", 16384); stracpy(_nD5_var._type, "Monitor_nD", 16384); _nD5_var._index=36; int current_setpos_index = 36; if("" && strlen("")) stracpy(_nD5_var._parameters.user1, "" ? "" : "", 16384); else _nD5_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD5_var._parameters.user2, "" ? "" : "", 16384); else _nD5_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD5_var._parameters.user3, "" ? "" : "", 16384); else _nD5_var._parameters.user3[0]='\0'; _nD5_var._parameters.xwidth = 0.075 * 2; _nD5_var._parameters.yheight = 0; _nD5_var._parameters.zdepth = 0; _nD5_var._parameters.xmin = 0; _nD5_var._parameters.xmax = 0; _nD5_var._parameters.ymin = 0; _nD5_var._parameters.ymax = 0; _nD5_var._parameters.zmin = 0; _nD5_var._parameters.zmax = 0; _nD5_var._parameters.bins = 0; _nD5_var._parameters.min = -1e40; _nD5_var._parameters.max = 1e40; _nD5_var._parameters.restore_neutron = 1; _nD5_var._parameters.radius = 0; if("disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0005.dat" && strlen("disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0005.dat")) stracpy(_nD5_var._parameters.options, "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0005.dat" ? "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0005.dat" : "", 16384); else _nD5_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD5_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD5_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD5_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD5_var._parameters.geometry[0]='\0'; _nD5_var._parameters.nowritefile = 0; _nD5_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD5_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD5_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD5_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD5_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD5_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD5_var._parameters.username3[0]='\0'; /* component nD5=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_cPH_var._rotation_absolute, _nD5_var._rotation_absolute); rot_transpose(_l_cPH_var._rotation_absolute, tr1); rot_mul(_nD5_var._rotation_absolute, tr1, _nD5_var._rotation_relative); _nD5_var._rotation_is_identity = rot_test_identity(_nD5_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD5_var._position_absolute = coords_add(_l_cPH_var._position_absolute, tc2); tc1 = coords_sub(_l_cPH_var._position_absolute, _nD5_var._position_absolute); _nD5_var._position_relative = rot_apply(_nD5_var._rotation_absolute, tc1); } /* nD5=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD5", _nD5_var._position_absolute, _nD5_var._rotation_absolute); instrument->_position_absolute[36] = _nD5_var._position_absolute; instrument->_position_relative[36] = _nD5_var._position_relative; _nD5_var._position_relative_is_zero = coords_test_zero(_nD5_var._position_relative); instrument->counter_N[36] = instrument->counter_P[36] = instrument->counter_P2[36] = 0; instrument->counter_AbsorbProp[36]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0035_nD5", _nD5_var._position_absolute, _nD5_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0035_nD5", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0035_nD5", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0035_nD5", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0035_nD5", "xwidth", "0", "0.075 * 2","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "yheight", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0035_nD5", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0035_nD5", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0035_nD5", "options", "NULL", "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0005.dat", "char*"); mccomp_param_nexus(nxhandle,"0035_nD5", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0035_nD5", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0035_nD5", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0035_nD5", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0035_nD5", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0035_nD5", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0035_nD5", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD5_setpos */ /* component divergence_monitor_cPH=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_cPH_setpos] component divergence_monitor_cPH=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_cPH_var._name, "divergence_monitor_cPH", 16384); stracpy(_divergence_monitor_cPH_var._type, "Divergence_monitor", 16384); _divergence_monitor_cPH_var._index=37; int current_setpos_index = 37; _divergence_monitor_cPH_var._parameters.nh = 100; _divergence_monitor_cPH_var._parameters.nv = 100; if("DivMon_0005" && strlen("DivMon_0005")) stracpy(_divergence_monitor_cPH_var._parameters.filename, "DivMon_0005" ? "DivMon_0005" : "", 16384); else _divergence_monitor_cPH_var._parameters.filename[0]='\0'; _divergence_monitor_cPH_var._parameters.xmin = -0.05; _divergence_monitor_cPH_var._parameters.xmax = 0.05; _divergence_monitor_cPH_var._parameters.ymin = -0.05; _divergence_monitor_cPH_var._parameters.ymax = 0.05; _divergence_monitor_cPH_var._parameters.nowritefile = 0; _divergence_monitor_cPH_var._parameters.xwidth = 0.2; _divergence_monitor_cPH_var._parameters.yheight = 0.2; _divergence_monitor_cPH_var._parameters.maxdiv_h = 5; _divergence_monitor_cPH_var._parameters.maxdiv_v = 5; _divergence_monitor_cPH_var._parameters.restore_neutron = 1; _divergence_monitor_cPH_var._parameters.nx = 0; _divergence_monitor_cPH_var._parameters.ny = 0; _divergence_monitor_cPH_var._parameters.nz = 1; /* component divergence_monitor_cPH=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD5_var._rotation_absolute, _divergence_monitor_cPH_var._rotation_absolute); rot_transpose(_nD5_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_cPH_var._rotation_absolute, tr1, _divergence_monitor_cPH_var._rotation_relative); _divergence_monitor_cPH_var._rotation_is_identity = rot_test_identity(_divergence_monitor_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD5_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_cPH_var._position_absolute = coords_add(_nD5_var._position_absolute, tc2); tc1 = coords_sub(_nD5_var._position_absolute, _divergence_monitor_cPH_var._position_absolute); _divergence_monitor_cPH_var._position_relative = rot_apply(_divergence_monitor_cPH_var._rotation_absolute, tc1); } /* divergence_monitor_cPH=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_cPH", _divergence_monitor_cPH_var._position_absolute, _divergence_monitor_cPH_var._rotation_absolute); instrument->_position_absolute[37] = _divergence_monitor_cPH_var._position_absolute; instrument->_position_relative[37] = _divergence_monitor_cPH_var._position_relative; _divergence_monitor_cPH_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_cPH_var._position_relative); instrument->counter_N[37] = instrument->counter_P[37] = instrument->counter_P2[37] = 0; instrument->counter_AbsorbProp[37]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0036_divergence_monitor_cPH", _divergence_monitor_cPH_var._position_absolute, _divergence_monitor_cPH_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "filename", 0, "DivMon_0005", "char*"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "maxdiv_v", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0036_divergence_monitor_cPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_cPH_setpos */ /* component h_divlambda_cPH=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_cPH_setpos] component h_divlambda_cPH=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_cPH_var._name, "h_divlambda_cPH", 16384); stracpy(_h_divlambda_cPH_var._type, "DivLambda_monitor", 16384); _h_divlambda_cPH_var._index=38; int current_setpos_index = 38; _h_divlambda_cPH_var._parameters.nL = 100; _h_divlambda_cPH_var._parameters.nh = 100; _h_divlambda_cPH_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0005" && strlen("DivLambdaMon_h_0005")) stracpy(_h_divlambda_cPH_var._parameters.filename, "DivLambdaMon_h_0005" ? "DivLambdaMon_h_0005" : "", 16384); else _h_divlambda_cPH_var._parameters.filename[0]='\0'; _h_divlambda_cPH_var._parameters.xmin = -0.05; _h_divlambda_cPH_var._parameters.xmax = 0.05; _h_divlambda_cPH_var._parameters.ymin = -0.05; _h_divlambda_cPH_var._parameters.ymax = 0.05; _h_divlambda_cPH_var._parameters.xwidth = 0.2; _h_divlambda_cPH_var._parameters.yheight = 0.2; _h_divlambda_cPH_var._parameters.maxdiv_h = 5; _h_divlambda_cPH_var._parameters.Lmin = Lmin_source; _h_divlambda_cPH_var._parameters.Lmax = Lmax_source; _h_divlambda_cPH_var._parameters.restore_neutron = 1; _h_divlambda_cPH_var._parameters.nx = 0; _h_divlambda_cPH_var._parameters.ny = 0; _h_divlambda_cPH_var._parameters.nz = 1; /* component h_divlambda_cPH=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_cPH_var._rotation_absolute, _h_divlambda_cPH_var._rotation_absolute); rot_transpose(_divergence_monitor_cPH_var._rotation_absolute, tr1); rot_mul(_h_divlambda_cPH_var._rotation_absolute, tr1, _h_divlambda_cPH_var._rotation_relative); _h_divlambda_cPH_var._rotation_is_identity = rot_test_identity(_h_divlambda_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_cPH_var._position_absolute = coords_add(_divergence_monitor_cPH_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_cPH_var._position_absolute, _h_divlambda_cPH_var._position_absolute); _h_divlambda_cPH_var._position_relative = rot_apply(_h_divlambda_cPH_var._rotation_absolute, tc1); } /* h_divlambda_cPH=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_cPH", _h_divlambda_cPH_var._position_absolute, _h_divlambda_cPH_var._rotation_absolute); instrument->_position_absolute[38] = _h_divlambda_cPH_var._position_absolute; instrument->_position_relative[38] = _h_divlambda_cPH_var._position_relative; _h_divlambda_cPH_var._position_relative_is_zero = coords_test_zero(_h_divlambda_cPH_var._position_relative); instrument->counter_N[38] = instrument->counter_P[38] = instrument->counter_P2[38] = 0; instrument->counter_AbsorbProp[38]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0037_h_divlambda_cPH", _h_divlambda_cPH_var._position_absolute, _h_divlambda_cPH_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "filename", 0, "DivLambdaMon_h_0005", "char*"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0037_h_divlambda_cPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_cPH_setpos */ /* component v_divlambda_cPH=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_cPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_cPH_setpos] component v_divlambda_cPH=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_cPH_var._name, "v_divlambda_cPH", 16384); stracpy(_v_divlambda_cPH_var._type, "DivLambda_monitor", 16384); _v_divlambda_cPH_var._index=39; int current_setpos_index = 39; _v_divlambda_cPH_var._parameters.nL = 100; _v_divlambda_cPH_var._parameters.nh = 100; _v_divlambda_cPH_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0005" && strlen("DivLambdaMon_v_0005")) stracpy(_v_divlambda_cPH_var._parameters.filename, "DivLambdaMon_v_0005" ? "DivLambdaMon_v_0005" : "", 16384); else _v_divlambda_cPH_var._parameters.filename[0]='\0'; _v_divlambda_cPH_var._parameters.xmin = -0.05; _v_divlambda_cPH_var._parameters.xmax = 0.05; _v_divlambda_cPH_var._parameters.ymin = -0.05; _v_divlambda_cPH_var._parameters.ymax = 0.05; _v_divlambda_cPH_var._parameters.xwidth = 0.2; _v_divlambda_cPH_var._parameters.yheight = 0.2; _v_divlambda_cPH_var._parameters.maxdiv_h = 5; _v_divlambda_cPH_var._parameters.Lmin = Lmin_source; _v_divlambda_cPH_var._parameters.Lmax = Lmax_source; _v_divlambda_cPH_var._parameters.restore_neutron = 1; _v_divlambda_cPH_var._parameters.nx = 0; _v_divlambda_cPH_var._parameters.ny = 0; _v_divlambda_cPH_var._parameters.nz = 1; /* component v_divlambda_cPH=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_cPH_var._rotation_absolute, _v_divlambda_cPH_var._rotation_absolute); rot_transpose(_h_divlambda_cPH_var._rotation_absolute, tr1); rot_mul(_v_divlambda_cPH_var._rotation_absolute, tr1, _v_divlambda_cPH_var._rotation_relative); _v_divlambda_cPH_var._rotation_is_identity = rot_test_identity(_v_divlambda_cPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_cPH_var._position_absolute = coords_add(_h_divlambda_cPH_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_cPH_var._position_absolute, _v_divlambda_cPH_var._position_absolute); _v_divlambda_cPH_var._position_relative = rot_apply(_v_divlambda_cPH_var._rotation_absolute, tc1); } /* v_divlambda_cPH=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_cPH", _v_divlambda_cPH_var._position_absolute, _v_divlambda_cPH_var._rotation_absolute); instrument->_position_absolute[39] = _v_divlambda_cPH_var._position_absolute; instrument->_position_relative[39] = _v_divlambda_cPH_var._position_relative; _v_divlambda_cPH_var._position_relative_is_zero = coords_test_zero(_v_divlambda_cPH_var._position_relative); instrument->counter_N[39] = instrument->counter_P[39] = instrument->counter_P2[39] = 0; instrument->counter_AbsorbProp[39]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0038_v_divlambda_cPH", _v_divlambda_cPH_var._position_absolute, _v_divlambda_cPH_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "filename", 0, "DivLambdaMon_v_0005", "char*"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "maxdiv_h", "2", "5","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0038_v_divlambda_cPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_cPH_setpos */ /* component psd_bunker=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_bunker_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_bunker_setpos] component psd_bunker=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_bunker_var._name, "psd_bunker", 16384); stracpy(_psd_bunker_var._type, "PSD_monitor", 16384); _psd_bunker_var._index=40; int current_setpos_index = 40; _psd_bunker_var._parameters.nx = 100; _psd_bunker_var._parameters.ny = 100; if("PSD_0006" && strlen("PSD_0006")) stracpy(_psd_bunker_var._parameters.filename, "PSD_0006" ? "PSD_0006" : "", 16384); else _psd_bunker_var._parameters.filename[0]='\0'; _psd_bunker_var._parameters.xmin = -0.05; _psd_bunker_var._parameters.xmax = 0.05; _psd_bunker_var._parameters.ymin = -0.05; _psd_bunker_var._parameters.ymax = 0.05; _psd_bunker_var._parameters.xwidth = 1.2; _psd_bunker_var._parameters.yheight = 1.2; _psd_bunker_var._parameters.restore_neutron = 1; _psd_bunker_var._parameters.nowritefile = 0; /* component psd_bunker=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(_psd_bunker_var._rotation_absolute, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_transpose(_v_divlambda_cPH_var._rotation_absolute, tr1); rot_mul(_psd_bunker_var._rotation_absolute, tr1, _psd_bunker_var._rotation_relative); _psd_bunker_var._rotation_is_identity = rot_test_identity(_psd_bunker_var._rotation_relative); _psd_bunker_var._position_absolute = coords_set( 0, 0, 15); tc1 = coords_sub(_v_divlambda_cPH_var._position_absolute, _psd_bunker_var._position_absolute); _psd_bunker_var._position_relative = rot_apply(_psd_bunker_var._rotation_absolute, tc1); } /* psd_bunker=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_bunker", _psd_bunker_var._position_absolute, _psd_bunker_var._rotation_absolute); instrument->_position_absolute[40] = _psd_bunker_var._position_absolute; instrument->_position_relative[40] = _psd_bunker_var._position_relative; _psd_bunker_var._position_relative_is_zero = coords_test_zero(_psd_bunker_var._position_relative); instrument->counter_N[40] = instrument->counter_P[40] = instrument->counter_P2[40] = 0; instrument->counter_AbsorbProp[40]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0039_psd_bunker", _psd_bunker_var._position_absolute, _psd_bunker_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "filename", 0, "PSD_0006", "char*"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "xwidth", "0", "1.2","MCNUM"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "yheight", "0", "1.2","MCNUM"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0039_psd_bunker", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_bunker_setpos */ /* component l_bunker=L_monitor() SETTING, POSITION/ROTATION */ int _l_bunker_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_bunker_setpos] component l_bunker=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_bunker_var._name, "l_bunker", 16384); stracpy(_l_bunker_var._type, "L_monitor", 16384); _l_bunker_var._index=41; int current_setpos_index = 41; _l_bunker_var._parameters.nL = 100; if("L_0006" && strlen("L_0006")) stracpy(_l_bunker_var._parameters.filename, "L_0006" ? "L_0006" : "", 16384); else _l_bunker_var._parameters.filename[0]='\0'; _l_bunker_var._parameters.nowritefile = 0; _l_bunker_var._parameters.xmin = -0.05; _l_bunker_var._parameters.xmax = 0.05; _l_bunker_var._parameters.ymin = -0.05; _l_bunker_var._parameters.ymax = 0.05; _l_bunker_var._parameters.xwidth = 0.2; _l_bunker_var._parameters.yheight = 0.2; _l_bunker_var._parameters.Lmin = Lmin_source; _l_bunker_var._parameters.Lmax = Lmax_source; _l_bunker_var._parameters.restore_neutron = 1; /* component l_bunker=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_bunker_var._rotation_absolute, _l_bunker_var._rotation_absolute); rot_transpose(_psd_bunker_var._rotation_absolute, tr1); rot_mul(_l_bunker_var._rotation_absolute, tr1, _l_bunker_var._rotation_relative); _l_bunker_var._rotation_is_identity = rot_test_identity(_l_bunker_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_bunker_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_bunker_var._position_absolute = coords_add(_psd_bunker_var._position_absolute, tc2); tc1 = coords_sub(_psd_bunker_var._position_absolute, _l_bunker_var._position_absolute); _l_bunker_var._position_relative = rot_apply(_l_bunker_var._rotation_absolute, tc1); } /* l_bunker=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_bunker", _l_bunker_var._position_absolute, _l_bunker_var._rotation_absolute); instrument->_position_absolute[41] = _l_bunker_var._position_absolute; instrument->_position_relative[41] = _l_bunker_var._position_relative; _l_bunker_var._position_relative_is_zero = coords_test_zero(_l_bunker_var._position_relative); instrument->counter_N[41] = instrument->counter_P[41] = instrument->counter_P2[41] = 0; instrument->counter_AbsorbProp[41]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0040_l_bunker", _l_bunker_var._position_absolute, _l_bunker_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "filename", 0, "L_0006", "char*"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0040_l_bunker", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_bunker_setpos */ /* component nD6=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD6_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD6_setpos] component nD6=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD6_var._name, "nD6", 16384); stracpy(_nD6_var._type, "Monitor_nD", 16384); _nD6_var._index=42; int current_setpos_index = 42; if("" && strlen("")) stracpy(_nD6_var._parameters.user1, "" ? "" : "", 16384); else _nD6_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD6_var._parameters.user2, "" ? "" : "", 16384); else _nD6_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD6_var._parameters.user3, "" ? "" : "", 16384); else _nD6_var._parameters.user3[0]='\0'; _nD6_var._parameters.xwidth = 0.07; _nD6_var._parameters.yheight = 0.07; _nD6_var._parameters.zdepth = 0; _nD6_var._parameters.xmin = 0; _nD6_var._parameters.xmax = 0; _nD6_var._parameters.ymin = 0; _nD6_var._parameters.ymax = 0; _nD6_var._parameters.zmin = 0; _nD6_var._parameters.zmax = 0; _nD6_var._parameters.bins = 0; _nD6_var._parameters.min = -1e40; _nD6_var._parameters.max = 1e40; _nD6_var._parameters.restore_neutron = 1; _nD6_var._parameters.radius = 0; if("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0006.dat" && strlen("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0006.dat")) stracpy(_nD6_var._parameters.options, "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0006.dat" ? "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0006.dat" : "", 16384); else _nD6_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD6_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD6_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD6_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD6_var._parameters.geometry[0]='\0'; _nD6_var._parameters.nowritefile = 0; _nD6_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD6_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD6_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD6_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD6_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD6_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD6_var._parameters.username3[0]='\0'; /* component nD6=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_bunker_var._rotation_absolute, _nD6_var._rotation_absolute); rot_transpose(_l_bunker_var._rotation_absolute, tr1); rot_mul(_nD6_var._rotation_absolute, tr1, _nD6_var._rotation_relative); _nD6_var._rotation_is_identity = rot_test_identity(_nD6_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_bunker_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD6_var._position_absolute = coords_add(_l_bunker_var._position_absolute, tc2); tc1 = coords_sub(_l_bunker_var._position_absolute, _nD6_var._position_absolute); _nD6_var._position_relative = rot_apply(_nD6_var._rotation_absolute, tc1); } /* nD6=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD6", _nD6_var._position_absolute, _nD6_var._rotation_absolute); instrument->_position_absolute[42] = _nD6_var._position_absolute; instrument->_position_relative[42] = _nD6_var._position_relative; _nD6_var._position_relative_is_zero = coords_test_zero(_nD6_var._position_relative); instrument->counter_N[42] = instrument->counter_P[42] = instrument->counter_P2[42] = 0; instrument->counter_AbsorbProp[42]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0041_nD6", _nD6_var._position_absolute, _nD6_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0041_nD6", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0041_nD6", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0041_nD6", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0041_nD6", "xwidth", "0", "0.07","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "yheight", "0", "0.07","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0041_nD6", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0041_nD6", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0041_nD6", "options", "NULL", "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0006.dat", "char*"); mccomp_param_nexus(nxhandle,"0041_nD6", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0041_nD6", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0041_nD6", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0041_nD6", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0041_nD6", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0041_nD6", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0041_nD6", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD6_setpos */ /* component divergence_monitor_bunker=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_bunker_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_bunker_setpos] component divergence_monitor_bunker=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_bunker_var._name, "divergence_monitor_bunker", 16384); stracpy(_divergence_monitor_bunker_var._type, "Divergence_monitor", 16384); _divergence_monitor_bunker_var._index=43; int current_setpos_index = 43; _divergence_monitor_bunker_var._parameters.nh = 100; _divergence_monitor_bunker_var._parameters.nv = 100; if("DivMon_0006" && strlen("DivMon_0006")) stracpy(_divergence_monitor_bunker_var._parameters.filename, "DivMon_0006" ? "DivMon_0006" : "", 16384); else _divergence_monitor_bunker_var._parameters.filename[0]='\0'; _divergence_monitor_bunker_var._parameters.xmin = -0.05; _divergence_monitor_bunker_var._parameters.xmax = 0.05; _divergence_monitor_bunker_var._parameters.ymin = -0.05; _divergence_monitor_bunker_var._parameters.ymax = 0.05; _divergence_monitor_bunker_var._parameters.nowritefile = 0; _divergence_monitor_bunker_var._parameters.xwidth = 0.2; _divergence_monitor_bunker_var._parameters.yheight = 0.2; _divergence_monitor_bunker_var._parameters.maxdiv_h = 1; _divergence_monitor_bunker_var._parameters.maxdiv_v = 1; _divergence_monitor_bunker_var._parameters.restore_neutron = 1; _divergence_monitor_bunker_var._parameters.nx = 0; _divergence_monitor_bunker_var._parameters.ny = 0; _divergence_monitor_bunker_var._parameters.nz = 1; /* component divergence_monitor_bunker=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD6_var._rotation_absolute, _divergence_monitor_bunker_var._rotation_absolute); rot_transpose(_nD6_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_bunker_var._rotation_absolute, tr1, _divergence_monitor_bunker_var._rotation_relative); _divergence_monitor_bunker_var._rotation_is_identity = rot_test_identity(_divergence_monitor_bunker_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD6_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_bunker_var._position_absolute = coords_add(_nD6_var._position_absolute, tc2); tc1 = coords_sub(_nD6_var._position_absolute, _divergence_monitor_bunker_var._position_absolute); _divergence_monitor_bunker_var._position_relative = rot_apply(_divergence_monitor_bunker_var._rotation_absolute, tc1); } /* divergence_monitor_bunker=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_bunker", _divergence_monitor_bunker_var._position_absolute, _divergence_monitor_bunker_var._rotation_absolute); instrument->_position_absolute[43] = _divergence_monitor_bunker_var._position_absolute; instrument->_position_relative[43] = _divergence_monitor_bunker_var._position_relative; _divergence_monitor_bunker_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_bunker_var._position_relative); instrument->counter_N[43] = instrument->counter_P[43] = instrument->counter_P2[43] = 0; instrument->counter_AbsorbProp[43]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0042_divergence_monitor_bunker", _divergence_monitor_bunker_var._position_absolute, _divergence_monitor_bunker_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "filename", 0, "DivMon_0006", "char*"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "maxdiv_v", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0042_divergence_monitor_bunker", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_bunker_setpos */ /* component h_divlambda_bunker=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_bunker_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_bunker_setpos] component h_divlambda_bunker=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_bunker_var._name, "h_divlambda_bunker", 16384); stracpy(_h_divlambda_bunker_var._type, "DivLambda_monitor", 16384); _h_divlambda_bunker_var._index=44; int current_setpos_index = 44; _h_divlambda_bunker_var._parameters.nL = 100; _h_divlambda_bunker_var._parameters.nh = 100; _h_divlambda_bunker_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0006" && strlen("DivLambdaMon_h_0006")) stracpy(_h_divlambda_bunker_var._parameters.filename, "DivLambdaMon_h_0006" ? "DivLambdaMon_h_0006" : "", 16384); else _h_divlambda_bunker_var._parameters.filename[0]='\0'; _h_divlambda_bunker_var._parameters.xmin = -0.05; _h_divlambda_bunker_var._parameters.xmax = 0.05; _h_divlambda_bunker_var._parameters.ymin = -0.05; _h_divlambda_bunker_var._parameters.ymax = 0.05; _h_divlambda_bunker_var._parameters.xwidth = 0.2; _h_divlambda_bunker_var._parameters.yheight = 0.2; _h_divlambda_bunker_var._parameters.maxdiv_h = 1; _h_divlambda_bunker_var._parameters.Lmin = Lmin_source; _h_divlambda_bunker_var._parameters.Lmax = Lmax_source; _h_divlambda_bunker_var._parameters.restore_neutron = 1; _h_divlambda_bunker_var._parameters.nx = 0; _h_divlambda_bunker_var._parameters.ny = 0; _h_divlambda_bunker_var._parameters.nz = 1; /* component h_divlambda_bunker=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_bunker_var._rotation_absolute, _h_divlambda_bunker_var._rotation_absolute); rot_transpose(_divergence_monitor_bunker_var._rotation_absolute, tr1); rot_mul(_h_divlambda_bunker_var._rotation_absolute, tr1, _h_divlambda_bunker_var._rotation_relative); _h_divlambda_bunker_var._rotation_is_identity = rot_test_identity(_h_divlambda_bunker_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_bunker_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_bunker_var._position_absolute = coords_add(_divergence_monitor_bunker_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_bunker_var._position_absolute, _h_divlambda_bunker_var._position_absolute); _h_divlambda_bunker_var._position_relative = rot_apply(_h_divlambda_bunker_var._rotation_absolute, tc1); } /* h_divlambda_bunker=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_bunker", _h_divlambda_bunker_var._position_absolute, _h_divlambda_bunker_var._rotation_absolute); instrument->_position_absolute[44] = _h_divlambda_bunker_var._position_absolute; instrument->_position_relative[44] = _h_divlambda_bunker_var._position_relative; _h_divlambda_bunker_var._position_relative_is_zero = coords_test_zero(_h_divlambda_bunker_var._position_relative); instrument->counter_N[44] = instrument->counter_P[44] = instrument->counter_P2[44] = 0; instrument->counter_AbsorbProp[44]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0043_h_divlambda_bunker", _h_divlambda_bunker_var._position_absolute, _h_divlambda_bunker_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "filename", 0, "DivLambdaMon_h_0006", "char*"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0043_h_divlambda_bunker", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_bunker_setpos */ /* component v_divlambda_bunker=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_bunker_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_bunker_setpos] component v_divlambda_bunker=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_bunker_var._name, "v_divlambda_bunker", 16384); stracpy(_v_divlambda_bunker_var._type, "DivLambda_monitor", 16384); _v_divlambda_bunker_var._index=45; int current_setpos_index = 45; _v_divlambda_bunker_var._parameters.nL = 100; _v_divlambda_bunker_var._parameters.nh = 100; _v_divlambda_bunker_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0006" && strlen("DivLambdaMon_v_0006")) stracpy(_v_divlambda_bunker_var._parameters.filename, "DivLambdaMon_v_0006" ? "DivLambdaMon_v_0006" : "", 16384); else _v_divlambda_bunker_var._parameters.filename[0]='\0'; _v_divlambda_bunker_var._parameters.xmin = -0.05; _v_divlambda_bunker_var._parameters.xmax = 0.05; _v_divlambda_bunker_var._parameters.ymin = -0.05; _v_divlambda_bunker_var._parameters.ymax = 0.05; _v_divlambda_bunker_var._parameters.xwidth = 0.2; _v_divlambda_bunker_var._parameters.yheight = 0.2; _v_divlambda_bunker_var._parameters.maxdiv_h = 1; _v_divlambda_bunker_var._parameters.Lmin = Lmin_source; _v_divlambda_bunker_var._parameters.Lmax = Lmax_source; _v_divlambda_bunker_var._parameters.restore_neutron = 1; _v_divlambda_bunker_var._parameters.nx = 0; _v_divlambda_bunker_var._parameters.ny = 0; _v_divlambda_bunker_var._parameters.nz = 1; /* component v_divlambda_bunker=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_bunker_var._rotation_absolute, _v_divlambda_bunker_var._rotation_absolute); rot_transpose(_h_divlambda_bunker_var._rotation_absolute, tr1); rot_mul(_v_divlambda_bunker_var._rotation_absolute, tr1, _v_divlambda_bunker_var._rotation_relative); _v_divlambda_bunker_var._rotation_is_identity = rot_test_identity(_v_divlambda_bunker_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_bunker_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_bunker_var._position_absolute = coords_add(_h_divlambda_bunker_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_bunker_var._position_absolute, _v_divlambda_bunker_var._position_absolute); _v_divlambda_bunker_var._position_relative = rot_apply(_v_divlambda_bunker_var._rotation_absolute, tc1); } /* v_divlambda_bunker=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_bunker", _v_divlambda_bunker_var._position_absolute, _v_divlambda_bunker_var._rotation_absolute); instrument->_position_absolute[45] = _v_divlambda_bunker_var._position_absolute; instrument->_position_relative[45] = _v_divlambda_bunker_var._position_relative; _v_divlambda_bunker_var._position_relative_is_zero = coords_test_zero(_v_divlambda_bunker_var._position_relative); instrument->counter_N[45] = instrument->counter_P[45] = instrument->counter_P2[45] = 0; instrument->counter_AbsorbProp[45]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0044_v_divlambda_bunker", _v_divlambda_bunker_var._position_absolute, _v_divlambda_bunker_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "filename", 0, "DivLambdaMon_v_0006", "char*"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0044_v_divlambda_bunker", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_bunker_setpos */ /* component psd_PHfocus1=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_PHfocus1_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_PHfocus1_setpos] component psd_PHfocus1=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_PHfocus1_var._name, "psd_PHfocus1", 16384); stracpy(_psd_PHfocus1_var._type, "PSD_monitor", 16384); _psd_PHfocus1_var._index=46; int current_setpos_index = 46; _psd_PHfocus1_var._parameters.nx = 100; _psd_PHfocus1_var._parameters.ny = 100; if("PSD_0007" && strlen("PSD_0007")) stracpy(_psd_PHfocus1_var._parameters.filename, "PSD_0007" ? "PSD_0007" : "", 16384); else _psd_PHfocus1_var._parameters.filename[0]='\0'; _psd_PHfocus1_var._parameters.xmin = -0.05; _psd_PHfocus1_var._parameters.xmax = 0.05; _psd_PHfocus1_var._parameters.ymin = -0.05; _psd_PHfocus1_var._parameters.ymax = 0.05; _psd_PHfocus1_var._parameters.xwidth = 1.5; _psd_PHfocus1_var._parameters.yheight = 1.5; _psd_PHfocus1_var._parameters.restore_neutron = 1; _psd_PHfocus1_var._parameters.nowritefile = 0; /* component psd_PHfocus1=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cPH_var._rotation_absolute, _psd_PHfocus1_var._rotation_absolute); rot_transpose(_v_divlambda_bunker_var._rotation_absolute, tr1); rot_mul(_psd_PHfocus1_var._rotation_absolute, tr1, _psd_PHfocus1_var._rotation_relative); _psd_PHfocus1_var._rotation_is_identity = rot_test_identity(_psd_PHfocus1_var._rotation_relative); tc1 = coords_set( 0, 0, _instrument_var._parameters.fi_ph - u); rot_transpose(_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_PHfocus1_var._position_absolute = coords_add(_cPH_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_bunker_var._position_absolute, _psd_PHfocus1_var._position_absolute); _psd_PHfocus1_var._position_relative = rot_apply(_psd_PHfocus1_var._rotation_absolute, tc1); } /* psd_PHfocus1=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_PHfocus1", _psd_PHfocus1_var._position_absolute, _psd_PHfocus1_var._rotation_absolute); instrument->_position_absolute[46] = _psd_PHfocus1_var._position_absolute; instrument->_position_relative[46] = _psd_PHfocus1_var._position_relative; _psd_PHfocus1_var._position_relative_is_zero = coords_test_zero(_psd_PHfocus1_var._position_relative); instrument->counter_N[46] = instrument->counter_P[46] = instrument->counter_P2[46] = 0; instrument->counter_AbsorbProp[46]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0045_psd_PHfocus1", _psd_PHfocus1_var._position_absolute, _psd_PHfocus1_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "filename", 0, "PSD_0007", "char*"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "xwidth", "0", "1.5","MCNUM"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "yheight", "0", "1.5","MCNUM"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0045_psd_PHfocus1", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_PHfocus1_setpos */ /* component l_PHfocus1=L_monitor() SETTING, POSITION/ROTATION */ int _l_PHfocus1_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_PHfocus1_setpos] component l_PHfocus1=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_PHfocus1_var._name, "l_PHfocus1", 16384); stracpy(_l_PHfocus1_var._type, "L_monitor", 16384); _l_PHfocus1_var._index=47; int current_setpos_index = 47; _l_PHfocus1_var._parameters.nL = 100; if("L_0007" && strlen("L_0007")) stracpy(_l_PHfocus1_var._parameters.filename, "L_0007" ? "L_0007" : "", 16384); else _l_PHfocus1_var._parameters.filename[0]='\0'; _l_PHfocus1_var._parameters.nowritefile = 0; _l_PHfocus1_var._parameters.xmin = -0.05; _l_PHfocus1_var._parameters.xmax = 0.05; _l_PHfocus1_var._parameters.ymin = -0.05; _l_PHfocus1_var._parameters.ymax = 0.05; _l_PHfocus1_var._parameters.xwidth = 0.5; _l_PHfocus1_var._parameters.yheight = 0.5; _l_PHfocus1_var._parameters.Lmin = Lmin_source; _l_PHfocus1_var._parameters.Lmax = Lmax_source; _l_PHfocus1_var._parameters.restore_neutron = 1; /* component l_PHfocus1=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_PHfocus1_var._rotation_absolute, _l_PHfocus1_var._rotation_absolute); rot_transpose(_psd_PHfocus1_var._rotation_absolute, tr1); rot_mul(_l_PHfocus1_var._rotation_absolute, tr1, _l_PHfocus1_var._rotation_relative); _l_PHfocus1_var._rotation_is_identity = rot_test_identity(_l_PHfocus1_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_PHfocus1_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_PHfocus1_var._position_absolute = coords_add(_psd_PHfocus1_var._position_absolute, tc2); tc1 = coords_sub(_psd_PHfocus1_var._position_absolute, _l_PHfocus1_var._position_absolute); _l_PHfocus1_var._position_relative = rot_apply(_l_PHfocus1_var._rotation_absolute, tc1); } /* l_PHfocus1=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_PHfocus1", _l_PHfocus1_var._position_absolute, _l_PHfocus1_var._rotation_absolute); instrument->_position_absolute[47] = _l_PHfocus1_var._position_absolute; instrument->_position_relative[47] = _l_PHfocus1_var._position_relative; _l_PHfocus1_var._position_relative_is_zero = coords_test_zero(_l_PHfocus1_var._position_relative); instrument->counter_N[47] = instrument->counter_P[47] = instrument->counter_P2[47] = 0; instrument->counter_AbsorbProp[47]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0046_l_PHfocus1", _l_PHfocus1_var._position_absolute, _l_PHfocus1_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "filename", 0, "L_0007", "char*"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "xwidth", "0", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "yheight", "0", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0046_l_PHfocus1", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_PHfocus1_setpos */ /* component nD7=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD7_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD7_setpos] component nD7=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD7_var._name, "nD7", 16384); stracpy(_nD7_var._type, "Monitor_nD", 16384); _nD7_var._index=48; int current_setpos_index = 48; if("" && strlen("")) stracpy(_nD7_var._parameters.user1, "" ? "" : "", 16384); else _nD7_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD7_var._parameters.user2, "" ? "" : "", 16384); else _nD7_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD7_var._parameters.user3, "" ? "" : "", 16384); else _nD7_var._parameters.user3[0]='\0'; _nD7_var._parameters.xwidth = 0.07; _nD7_var._parameters.yheight = 0.07; _nD7_var._parameters.zdepth = 0; _nD7_var._parameters.xmin = 0; _nD7_var._parameters.xmax = 0; _nD7_var._parameters.ymin = 0; _nD7_var._parameters.ymax = 0; _nD7_var._parameters.zmin = 0; _nD7_var._parameters.zmax = 0; _nD7_var._parameters.bins = 0; _nD7_var._parameters.min = -1e40; _nD7_var._parameters.max = 1e40; _nD7_var._parameters.restore_neutron = 1; _nD7_var._parameters.radius = 0; if("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0007.dat" && strlen("intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0007.dat")) stracpy(_nD7_var._parameters.options, "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0007.dat" ? "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0007.dat" : "", 16384); else _nD7_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD7_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD7_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD7_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD7_var._parameters.geometry[0]='\0'; _nD7_var._parameters.nowritefile = 0; _nD7_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD7_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD7_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD7_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD7_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD7_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD7_var._parameters.username3[0]='\0'; /* component nD7=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_PHfocus1_var._rotation_absolute, _nD7_var._rotation_absolute); rot_transpose(_l_PHfocus1_var._rotation_absolute, tr1); rot_mul(_nD7_var._rotation_absolute, tr1, _nD7_var._rotation_relative); _nD7_var._rotation_is_identity = rot_test_identity(_nD7_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_PHfocus1_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD7_var._position_absolute = coords_add(_l_PHfocus1_var._position_absolute, tc2); tc1 = coords_sub(_l_PHfocus1_var._position_absolute, _nD7_var._position_absolute); _nD7_var._position_relative = rot_apply(_nD7_var._rotation_absolute, tc1); } /* nD7=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD7", _nD7_var._position_absolute, _nD7_var._rotation_absolute); instrument->_position_absolute[48] = _nD7_var._position_absolute; instrument->_position_relative[48] = _nD7_var._position_relative; _nD7_var._position_relative_is_zero = coords_test_zero(_nD7_var._position_relative); instrument->counter_N[48] = instrument->counter_P[48] = instrument->counter_P2[48] = 0; instrument->counter_AbsorbProp[48]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0047_nD7", _nD7_var._position_absolute, _nD7_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0047_nD7", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0047_nD7", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0047_nD7", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0047_nD7", "xwidth", "0", "0.07","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "yheight", "0", "0.07","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0047_nD7", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0047_nD7", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0047_nD7", "options", "NULL", "intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0007.dat", "char*"); mccomp_param_nexus(nxhandle,"0047_nD7", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0047_nD7", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0047_nD7", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0047_nD7", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0047_nD7", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0047_nD7", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0047_nD7", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD7_setpos */ /* component divergence_monitor_PHfocus1=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_PHfocus1_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_PHfocus1_setpos] component divergence_monitor_PHfocus1=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_PHfocus1_var._name, "divergence_monitor_PHfocus1", 16384); stracpy(_divergence_monitor_PHfocus1_var._type, "Divergence_monitor", 16384); _divergence_monitor_PHfocus1_var._index=49; int current_setpos_index = 49; _divergence_monitor_PHfocus1_var._parameters.nh = 100; _divergence_monitor_PHfocus1_var._parameters.nv = 100; if("DivMon_0007" && strlen("DivMon_0007")) stracpy(_divergence_monitor_PHfocus1_var._parameters.filename, "DivMon_0007" ? "DivMon_0007" : "", 16384); else _divergence_monitor_PHfocus1_var._parameters.filename[0]='\0'; _divergence_monitor_PHfocus1_var._parameters.xmin = -0.05; _divergence_monitor_PHfocus1_var._parameters.xmax = 0.05; _divergence_monitor_PHfocus1_var._parameters.ymin = -0.05; _divergence_monitor_PHfocus1_var._parameters.ymax = 0.05; _divergence_monitor_PHfocus1_var._parameters.nowritefile = 0; _divergence_monitor_PHfocus1_var._parameters.xwidth = 0.5; _divergence_monitor_PHfocus1_var._parameters.yheight = 0.5; _divergence_monitor_PHfocus1_var._parameters.maxdiv_h = 1; _divergence_monitor_PHfocus1_var._parameters.maxdiv_v = 1; _divergence_monitor_PHfocus1_var._parameters.restore_neutron = 1; _divergence_monitor_PHfocus1_var._parameters.nx = 0; _divergence_monitor_PHfocus1_var._parameters.ny = 0; _divergence_monitor_PHfocus1_var._parameters.nz = 1; /* component divergence_monitor_PHfocus1=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD7_var._rotation_absolute, _divergence_monitor_PHfocus1_var._rotation_absolute); rot_transpose(_nD7_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_PHfocus1_var._rotation_absolute, tr1, _divergence_monitor_PHfocus1_var._rotation_relative); _divergence_monitor_PHfocus1_var._rotation_is_identity = rot_test_identity(_divergence_monitor_PHfocus1_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD7_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_PHfocus1_var._position_absolute = coords_add(_nD7_var._position_absolute, tc2); tc1 = coords_sub(_nD7_var._position_absolute, _divergence_monitor_PHfocus1_var._position_absolute); _divergence_monitor_PHfocus1_var._position_relative = rot_apply(_divergence_monitor_PHfocus1_var._rotation_absolute, tc1); } /* divergence_monitor_PHfocus1=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_PHfocus1", _divergence_monitor_PHfocus1_var._position_absolute, _divergence_monitor_PHfocus1_var._rotation_absolute); instrument->_position_absolute[49] = _divergence_monitor_PHfocus1_var._position_absolute; instrument->_position_relative[49] = _divergence_monitor_PHfocus1_var._position_relative; _divergence_monitor_PHfocus1_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_PHfocus1_var._position_relative); instrument->counter_N[49] = instrument->counter_P[49] = instrument->counter_P2[49] = 0; instrument->counter_AbsorbProp[49]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", _divergence_monitor_PHfocus1_var._position_absolute, _divergence_monitor_PHfocus1_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "filename", 0, "DivMon_0007", "char*"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "xwidth", "0", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "yheight", "0", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "maxdiv_v", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0048_divergence_monitor_PHfocus1", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_PHfocus1_setpos */ /* component h_divlambda_PHfocus1=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_PHfocus1_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_PHfocus1_setpos] component h_divlambda_PHfocus1=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_PHfocus1_var._name, "h_divlambda_PHfocus1", 16384); stracpy(_h_divlambda_PHfocus1_var._type, "DivLambda_monitor", 16384); _h_divlambda_PHfocus1_var._index=50; int current_setpos_index = 50; _h_divlambda_PHfocus1_var._parameters.nL = 100; _h_divlambda_PHfocus1_var._parameters.nh = 100; _h_divlambda_PHfocus1_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0007" && strlen("DivLambdaMon_h_0007")) stracpy(_h_divlambda_PHfocus1_var._parameters.filename, "DivLambdaMon_h_0007" ? "DivLambdaMon_h_0007" : "", 16384); else _h_divlambda_PHfocus1_var._parameters.filename[0]='\0'; _h_divlambda_PHfocus1_var._parameters.xmin = -0.05; _h_divlambda_PHfocus1_var._parameters.xmax = 0.05; _h_divlambda_PHfocus1_var._parameters.ymin = -0.05; _h_divlambda_PHfocus1_var._parameters.ymax = 0.05; _h_divlambda_PHfocus1_var._parameters.xwidth = 0.5; _h_divlambda_PHfocus1_var._parameters.yheight = 0.5; _h_divlambda_PHfocus1_var._parameters.maxdiv_h = 1; _h_divlambda_PHfocus1_var._parameters.Lmin = Lmin_source; _h_divlambda_PHfocus1_var._parameters.Lmax = Lmax_source; _h_divlambda_PHfocus1_var._parameters.restore_neutron = 1; _h_divlambda_PHfocus1_var._parameters.nx = 0; _h_divlambda_PHfocus1_var._parameters.ny = 0; _h_divlambda_PHfocus1_var._parameters.nz = 1; /* component h_divlambda_PHfocus1=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_PHfocus1_var._rotation_absolute, _h_divlambda_PHfocus1_var._rotation_absolute); rot_transpose(_divergence_monitor_PHfocus1_var._rotation_absolute, tr1); rot_mul(_h_divlambda_PHfocus1_var._rotation_absolute, tr1, _h_divlambda_PHfocus1_var._rotation_relative); _h_divlambda_PHfocus1_var._rotation_is_identity = rot_test_identity(_h_divlambda_PHfocus1_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_PHfocus1_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_PHfocus1_var._position_absolute = coords_add(_divergence_monitor_PHfocus1_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_PHfocus1_var._position_absolute, _h_divlambda_PHfocus1_var._position_absolute); _h_divlambda_PHfocus1_var._position_relative = rot_apply(_h_divlambda_PHfocus1_var._rotation_absolute, tc1); } /* h_divlambda_PHfocus1=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_PHfocus1", _h_divlambda_PHfocus1_var._position_absolute, _h_divlambda_PHfocus1_var._rotation_absolute); instrument->_position_absolute[50] = _h_divlambda_PHfocus1_var._position_absolute; instrument->_position_relative[50] = _h_divlambda_PHfocus1_var._position_relative; _h_divlambda_PHfocus1_var._position_relative_is_zero = coords_test_zero(_h_divlambda_PHfocus1_var._position_relative); instrument->counter_N[50] = instrument->counter_P[50] = instrument->counter_P2[50] = 0; instrument->counter_AbsorbProp[50]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0049_h_divlambda_PHfocus1", _h_divlambda_PHfocus1_var._position_absolute, _h_divlambda_PHfocus1_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "filename", 0, "DivLambdaMon_h_0007", "char*"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "xwidth", "0", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "yheight", "0", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0049_h_divlambda_PHfocus1", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_PHfocus1_setpos */ /* component v_divlambda_PHfocus1=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_PHfocus1_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_PHfocus1_setpos] component v_divlambda_PHfocus1=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_PHfocus1_var._name, "v_divlambda_PHfocus1", 16384); stracpy(_v_divlambda_PHfocus1_var._type, "DivLambda_monitor", 16384); _v_divlambda_PHfocus1_var._index=51; int current_setpos_index = 51; _v_divlambda_PHfocus1_var._parameters.nL = 100; _v_divlambda_PHfocus1_var._parameters.nh = 100; _v_divlambda_PHfocus1_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0007" && strlen("DivLambdaMon_v_0007")) stracpy(_v_divlambda_PHfocus1_var._parameters.filename, "DivLambdaMon_v_0007" ? "DivLambdaMon_v_0007" : "", 16384); else _v_divlambda_PHfocus1_var._parameters.filename[0]='\0'; _v_divlambda_PHfocus1_var._parameters.xmin = -0.05; _v_divlambda_PHfocus1_var._parameters.xmax = 0.05; _v_divlambda_PHfocus1_var._parameters.ymin = -0.05; _v_divlambda_PHfocus1_var._parameters.ymax = 0.05; _v_divlambda_PHfocus1_var._parameters.xwidth = 0.5; _v_divlambda_PHfocus1_var._parameters.yheight = 0.5; _v_divlambda_PHfocus1_var._parameters.maxdiv_h = 1; _v_divlambda_PHfocus1_var._parameters.Lmin = Lmin_source; _v_divlambda_PHfocus1_var._parameters.Lmax = Lmax_source; _v_divlambda_PHfocus1_var._parameters.restore_neutron = 1; _v_divlambda_PHfocus1_var._parameters.nx = 0; _v_divlambda_PHfocus1_var._parameters.ny = 0; _v_divlambda_PHfocus1_var._parameters.nz = 1; /* component v_divlambda_PHfocus1=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_PHfocus1_var._rotation_absolute, _v_divlambda_PHfocus1_var._rotation_absolute); rot_transpose(_h_divlambda_PHfocus1_var._rotation_absolute, tr1); rot_mul(_v_divlambda_PHfocus1_var._rotation_absolute, tr1, _v_divlambda_PHfocus1_var._rotation_relative); _v_divlambda_PHfocus1_var._rotation_is_identity = rot_test_identity(_v_divlambda_PHfocus1_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_PHfocus1_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_PHfocus1_var._position_absolute = coords_add(_h_divlambda_PHfocus1_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_PHfocus1_var._position_absolute, _v_divlambda_PHfocus1_var._position_absolute); _v_divlambda_PHfocus1_var._position_relative = rot_apply(_v_divlambda_PHfocus1_var._rotation_absolute, tc1); } /* v_divlambda_PHfocus1=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_PHfocus1", _v_divlambda_PHfocus1_var._position_absolute, _v_divlambda_PHfocus1_var._rotation_absolute); instrument->_position_absolute[51] = _v_divlambda_PHfocus1_var._position_absolute; instrument->_position_relative[51] = _v_divlambda_PHfocus1_var._position_relative; _v_divlambda_PHfocus1_var._position_relative_is_zero = coords_test_zero(_v_divlambda_PHfocus1_var._position_relative); instrument->counter_N[51] = instrument->counter_P[51] = instrument->counter_P2[51] = 0; instrument->counter_AbsorbProp[51]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0050_v_divlambda_PHfocus1", _v_divlambda_PHfocus1_var._position_absolute, _v_divlambda_PHfocus1_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "filename", 0, "DivLambdaMon_v_0007", "char*"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "xwidth", "0", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "yheight", "0", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0050_v_divlambda_PHfocus1", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_PHfocus1_setpos */ /* component slit_focusPH=Slit() SETTING, POSITION/ROTATION */ int _slit_focusPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_slit_focusPH_setpos] component slit_focusPH=Slit() SETTING [Slit:0]"); stracpy(_slit_focusPH_var._name, "slit_focusPH", 16384); stracpy(_slit_focusPH_var._type, "Slit", 16384); _slit_focusPH_var._index=52; int current_setpos_index = 52; _slit_focusPH_var._parameters.xmin = UNSET; _slit_focusPH_var._parameters.xmax = UNSET; _slit_focusPH_var._parameters.ymin = UNSET; _slit_focusPH_var._parameters.ymax = UNSET; _slit_focusPH_var._parameters.radius = 0.002 * 2; _slit_focusPH_var._parameters.xwidth = UNSET; _slit_focusPH_var._parameters.yheight = UNSET; /* component slit_focusPH=Slit() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cPH_var._rotation_absolute, _slit_focusPH_var._rotation_absolute); rot_transpose(_v_divlambda_PHfocus1_var._rotation_absolute, tr1); rot_mul(_slit_focusPH_var._rotation_absolute, tr1, _slit_focusPH_var._rotation_relative); _slit_focusPH_var._rotation_is_identity = rot_test_identity(_slit_focusPH_var._rotation_relative); tc1 = coords_set( 0, 0, _instrument_var._parameters.fi_ph); rot_transpose(_cPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _slit_focusPH_var._position_absolute = coords_add(_cPH_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_PHfocus1_var._position_absolute, _slit_focusPH_var._position_absolute); _slit_focusPH_var._position_relative = rot_apply(_slit_focusPH_var._rotation_absolute, tc1); } /* slit_focusPH=Slit() AT ROTATED */ DEBUG_COMPONENT("slit_focusPH", _slit_focusPH_var._position_absolute, _slit_focusPH_var._rotation_absolute); instrument->_position_absolute[52] = _slit_focusPH_var._position_absolute; instrument->_position_relative[52] = _slit_focusPH_var._position_relative; _slit_focusPH_var._position_relative_is_zero = coords_test_zero(_slit_focusPH_var._position_relative); instrument->counter_N[52] = instrument->counter_P[52] = instrument->counter_P2[52] = 0; instrument->counter_AbsorbProp[52]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0051_slit_focusPH", _slit_focusPH_var._position_absolute, _slit_focusPH_var._rotation_absolute, "Slit"); mccomp_param_nexus(nxhandle,"0051_slit_focusPH", "xmin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0051_slit_focusPH", "xmax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0051_slit_focusPH", "ymin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0051_slit_focusPH", "ymax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0051_slit_focusPH", "radius", "UNSET", "0.002 * 2","MCNUM"); mccomp_param_nexus(nxhandle,"0051_slit_focusPH", "xwidth", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0051_slit_focusPH", "yheight", "UNSET", "UNSET","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _slit_focusPH_setpos */ /* component psd_slit_focusPH=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_slit_focusPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_slit_focusPH_setpos] component psd_slit_focusPH=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_slit_focusPH_var._name, "psd_slit_focusPH", 16384); stracpy(_psd_slit_focusPH_var._type, "PSD_monitor", 16384); _psd_slit_focusPH_var._index=53; int current_setpos_index = 53; _psd_slit_focusPH_var._parameters.nx = 100; _psd_slit_focusPH_var._parameters.ny = 100; if("PSD_0008" && strlen("PSD_0008")) stracpy(_psd_slit_focusPH_var._parameters.filename, "PSD_0008" ? "PSD_0008" : "", 16384); else _psd_slit_focusPH_var._parameters.filename[0]='\0'; _psd_slit_focusPH_var._parameters.xmin = -0.05; _psd_slit_focusPH_var._parameters.xmax = 0.05; _psd_slit_focusPH_var._parameters.ymin = -0.05; _psd_slit_focusPH_var._parameters.ymax = 0.05; _psd_slit_focusPH_var._parameters.xwidth = 0.02; _psd_slit_focusPH_var._parameters.yheight = 0.02; _psd_slit_focusPH_var._parameters.restore_neutron = 1; _psd_slit_focusPH_var._parameters.nowritefile = 0; /* component psd_slit_focusPH=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _slit_focusPH_var._rotation_absolute, _psd_slit_focusPH_var._rotation_absolute); rot_transpose(_slit_focusPH_var._rotation_absolute, tr1); rot_mul(_psd_slit_focusPH_var._rotation_absolute, tr1, _psd_slit_focusPH_var._rotation_relative); _psd_slit_focusPH_var._rotation_is_identity = rot_test_identity(_psd_slit_focusPH_var._rotation_relative); tc1 = coords_set( 0, 0, u); rot_transpose(_slit_focusPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_slit_focusPH_var._position_absolute = coords_add(_slit_focusPH_var._position_absolute, tc2); tc1 = coords_sub(_slit_focusPH_var._position_absolute, _psd_slit_focusPH_var._position_absolute); _psd_slit_focusPH_var._position_relative = rot_apply(_psd_slit_focusPH_var._rotation_absolute, tc1); } /* psd_slit_focusPH=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_slit_focusPH", _psd_slit_focusPH_var._position_absolute, _psd_slit_focusPH_var._rotation_absolute); instrument->_position_absolute[53] = _psd_slit_focusPH_var._position_absolute; instrument->_position_relative[53] = _psd_slit_focusPH_var._position_relative; _psd_slit_focusPH_var._position_relative_is_zero = coords_test_zero(_psd_slit_focusPH_var._position_relative); instrument->counter_N[53] = instrument->counter_P[53] = instrument->counter_P2[53] = 0; instrument->counter_AbsorbProp[53]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0052_psd_slit_focusPH", _psd_slit_focusPH_var._position_absolute, _psd_slit_focusPH_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "filename", 0, "PSD_0008", "char*"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0052_psd_slit_focusPH", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_slit_focusPH_setpos */ /* component l_slit_focusPH=L_monitor() SETTING, POSITION/ROTATION */ int _l_slit_focusPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_slit_focusPH_setpos] component l_slit_focusPH=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_slit_focusPH_var._name, "l_slit_focusPH", 16384); stracpy(_l_slit_focusPH_var._type, "L_monitor", 16384); _l_slit_focusPH_var._index=54; int current_setpos_index = 54; _l_slit_focusPH_var._parameters.nL = 100; if("L_0008" && strlen("L_0008")) stracpy(_l_slit_focusPH_var._parameters.filename, "L_0008" ? "L_0008" : "", 16384); else _l_slit_focusPH_var._parameters.filename[0]='\0'; _l_slit_focusPH_var._parameters.nowritefile = 0; _l_slit_focusPH_var._parameters.xmin = -0.05; _l_slit_focusPH_var._parameters.xmax = 0.05; _l_slit_focusPH_var._parameters.ymin = -0.05; _l_slit_focusPH_var._parameters.ymax = 0.05; _l_slit_focusPH_var._parameters.xwidth = 0.02; _l_slit_focusPH_var._parameters.yheight = 0.02; _l_slit_focusPH_var._parameters.Lmin = Lmin_source; _l_slit_focusPH_var._parameters.Lmax = Lmax_source; _l_slit_focusPH_var._parameters.restore_neutron = 1; /* component l_slit_focusPH=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_slit_focusPH_var._rotation_absolute, _l_slit_focusPH_var._rotation_absolute); rot_transpose(_psd_slit_focusPH_var._rotation_absolute, tr1); rot_mul(_l_slit_focusPH_var._rotation_absolute, tr1, _l_slit_focusPH_var._rotation_relative); _l_slit_focusPH_var._rotation_is_identity = rot_test_identity(_l_slit_focusPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_slit_focusPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_slit_focusPH_var._position_absolute = coords_add(_psd_slit_focusPH_var._position_absolute, tc2); tc1 = coords_sub(_psd_slit_focusPH_var._position_absolute, _l_slit_focusPH_var._position_absolute); _l_slit_focusPH_var._position_relative = rot_apply(_l_slit_focusPH_var._rotation_absolute, tc1); } /* l_slit_focusPH=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_slit_focusPH", _l_slit_focusPH_var._position_absolute, _l_slit_focusPH_var._rotation_absolute); instrument->_position_absolute[54] = _l_slit_focusPH_var._position_absolute; instrument->_position_relative[54] = _l_slit_focusPH_var._position_relative; _l_slit_focusPH_var._position_relative_is_zero = coords_test_zero(_l_slit_focusPH_var._position_relative); instrument->counter_N[54] = instrument->counter_P[54] = instrument->counter_P2[54] = 0; instrument->counter_AbsorbProp[54]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0053_l_slit_focusPH", _l_slit_focusPH_var._position_absolute, _l_slit_focusPH_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "filename", 0, "L_0008", "char*"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0053_l_slit_focusPH", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_slit_focusPH_setpos */ /* component nD8=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD8_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD8_setpos] component nD8=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD8_var._name, "nD8", 16384); stracpy(_nD8_var._type, "Monitor_nD", 16384); _nD8_var._index=55; int current_setpos_index = 55; if("" && strlen("")) stracpy(_nD8_var._parameters.user1, "" ? "" : "", 16384); else _nD8_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD8_var._parameters.user2, "" ? "" : "", 16384); else _nD8_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD8_var._parameters.user3, "" ? "" : "", 16384); else _nD8_var._parameters.user3[0]='\0'; _nD8_var._parameters.xwidth = 0.002 * 2; _nD8_var._parameters.yheight = 0; _nD8_var._parameters.zdepth = 0; _nD8_var._parameters.xmin = 0; _nD8_var._parameters.xmax = 0; _nD8_var._parameters.ymin = 0; _nD8_var._parameters.ymax = 0; _nD8_var._parameters.zmin = 0; _nD8_var._parameters.zmax = 0; _nD8_var._parameters.bins = 0; _nD8_var._parameters.min = -1e40; _nD8_var._parameters.max = 1e40; _nD8_var._parameters.restore_neutron = 1; _nD8_var._parameters.radius = 0; if("disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0008.dat" && strlen("disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0008.dat")) stracpy(_nD8_var._parameters.options, "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0008.dat" ? "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0008.dat" : "", 16384); else _nD8_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD8_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD8_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD8_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD8_var._parameters.geometry[0]='\0'; _nD8_var._parameters.nowritefile = 0; _nD8_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD8_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD8_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD8_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD8_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD8_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD8_var._parameters.username3[0]='\0'; /* component nD8=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_slit_focusPH_var._rotation_absolute, _nD8_var._rotation_absolute); rot_transpose(_l_slit_focusPH_var._rotation_absolute, tr1); rot_mul(_nD8_var._rotation_absolute, tr1, _nD8_var._rotation_relative); _nD8_var._rotation_is_identity = rot_test_identity(_nD8_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_slit_focusPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD8_var._position_absolute = coords_add(_l_slit_focusPH_var._position_absolute, tc2); tc1 = coords_sub(_l_slit_focusPH_var._position_absolute, _nD8_var._position_absolute); _nD8_var._position_relative = rot_apply(_nD8_var._rotation_absolute, tc1); } /* nD8=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD8", _nD8_var._position_absolute, _nD8_var._rotation_absolute); instrument->_position_absolute[55] = _nD8_var._position_absolute; instrument->_position_relative[55] = _nD8_var._position_relative; _nD8_var._position_relative_is_zero = coords_test_zero(_nD8_var._position_relative); instrument->counter_N[55] = instrument->counter_P[55] = instrument->counter_P2[55] = 0; instrument->counter_AbsorbProp[55]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0054_nD8", _nD8_var._position_absolute, _nD8_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0054_nD8", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0054_nD8", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0054_nD8", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0054_nD8", "xwidth", "0", "0.002 * 2","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "yheight", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0054_nD8", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0054_nD8", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0054_nD8", "options", "NULL", "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0008.dat", "char*"); mccomp_param_nexus(nxhandle,"0054_nD8", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0054_nD8", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0054_nD8", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0054_nD8", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0054_nD8", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0054_nD8", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0054_nD8", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD8_setpos */ /* component divergence_monitor_slit_focusPH=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_slit_focusPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_slit_focusPH_setpos] component divergence_monitor_slit_focusPH=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_slit_focusPH_var._name, "divergence_monitor_slit_focusPH", 16384); stracpy(_divergence_monitor_slit_focusPH_var._type, "Divergence_monitor", 16384); _divergence_monitor_slit_focusPH_var._index=56; int current_setpos_index = 56; _divergence_monitor_slit_focusPH_var._parameters.nh = 100; _divergence_monitor_slit_focusPH_var._parameters.nv = 100; if("DivMon_0008" && strlen("DivMon_0008")) stracpy(_divergence_monitor_slit_focusPH_var._parameters.filename, "DivMon_0008" ? "DivMon_0008" : "", 16384); else _divergence_monitor_slit_focusPH_var._parameters.filename[0]='\0'; _divergence_monitor_slit_focusPH_var._parameters.xmin = -0.05; _divergence_monitor_slit_focusPH_var._parameters.xmax = 0.05; _divergence_monitor_slit_focusPH_var._parameters.ymin = -0.05; _divergence_monitor_slit_focusPH_var._parameters.ymax = 0.05; _divergence_monitor_slit_focusPH_var._parameters.nowritefile = 0; _divergence_monitor_slit_focusPH_var._parameters.xwidth = 0.02; _divergence_monitor_slit_focusPH_var._parameters.yheight = 0.02; _divergence_monitor_slit_focusPH_var._parameters.maxdiv_h = 0.5; _divergence_monitor_slit_focusPH_var._parameters.maxdiv_v = 0.5; _divergence_monitor_slit_focusPH_var._parameters.restore_neutron = 1; _divergence_monitor_slit_focusPH_var._parameters.nx = 0; _divergence_monitor_slit_focusPH_var._parameters.ny = 0; _divergence_monitor_slit_focusPH_var._parameters.nz = 1; /* component divergence_monitor_slit_focusPH=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD8_var._rotation_absolute, _divergence_monitor_slit_focusPH_var._rotation_absolute); rot_transpose(_nD8_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_slit_focusPH_var._rotation_absolute, tr1, _divergence_monitor_slit_focusPH_var._rotation_relative); _divergence_monitor_slit_focusPH_var._rotation_is_identity = rot_test_identity(_divergence_monitor_slit_focusPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD8_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_slit_focusPH_var._position_absolute = coords_add(_nD8_var._position_absolute, tc2); tc1 = coords_sub(_nD8_var._position_absolute, _divergence_monitor_slit_focusPH_var._position_absolute); _divergence_monitor_slit_focusPH_var._position_relative = rot_apply(_divergence_monitor_slit_focusPH_var._rotation_absolute, tc1); } /* divergence_monitor_slit_focusPH=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_slit_focusPH", _divergence_monitor_slit_focusPH_var._position_absolute, _divergence_monitor_slit_focusPH_var._rotation_absolute); instrument->_position_absolute[56] = _divergence_monitor_slit_focusPH_var._position_absolute; instrument->_position_relative[56] = _divergence_monitor_slit_focusPH_var._position_relative; _divergence_monitor_slit_focusPH_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_slit_focusPH_var._position_relative); instrument->counter_N[56] = instrument->counter_P[56] = instrument->counter_P2[56] = 0; instrument->counter_AbsorbProp[56]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", _divergence_monitor_slit_focusPH_var._position_absolute, _divergence_monitor_slit_focusPH_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "filename", 0, "DivMon_0008", "char*"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "maxdiv_h", "2", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "maxdiv_v", "2", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0055_divergence_monitor_slit_focusPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_slit_focusPH_setpos */ /* component h_divlambda_slit_focusPH=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_slit_focusPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_slit_focusPH_setpos] component h_divlambda_slit_focusPH=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_slit_focusPH_var._name, "h_divlambda_slit_focusPH", 16384); stracpy(_h_divlambda_slit_focusPH_var._type, "DivLambda_monitor", 16384); _h_divlambda_slit_focusPH_var._index=57; int current_setpos_index = 57; _h_divlambda_slit_focusPH_var._parameters.nL = 100; _h_divlambda_slit_focusPH_var._parameters.nh = 100; _h_divlambda_slit_focusPH_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0008" && strlen("DivLambdaMon_h_0008")) stracpy(_h_divlambda_slit_focusPH_var._parameters.filename, "DivLambdaMon_h_0008" ? "DivLambdaMon_h_0008" : "", 16384); else _h_divlambda_slit_focusPH_var._parameters.filename[0]='\0'; _h_divlambda_slit_focusPH_var._parameters.xmin = -0.05; _h_divlambda_slit_focusPH_var._parameters.xmax = 0.05; _h_divlambda_slit_focusPH_var._parameters.ymin = -0.05; _h_divlambda_slit_focusPH_var._parameters.ymax = 0.05; _h_divlambda_slit_focusPH_var._parameters.xwidth = 0.02; _h_divlambda_slit_focusPH_var._parameters.yheight = 0.02; _h_divlambda_slit_focusPH_var._parameters.maxdiv_h = 0.5; _h_divlambda_slit_focusPH_var._parameters.Lmin = Lmin_source; _h_divlambda_slit_focusPH_var._parameters.Lmax = Lmax_source; _h_divlambda_slit_focusPH_var._parameters.restore_neutron = 1; _h_divlambda_slit_focusPH_var._parameters.nx = 0; _h_divlambda_slit_focusPH_var._parameters.ny = 0; _h_divlambda_slit_focusPH_var._parameters.nz = 1; /* component h_divlambda_slit_focusPH=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_slit_focusPH_var._rotation_absolute, _h_divlambda_slit_focusPH_var._rotation_absolute); rot_transpose(_divergence_monitor_slit_focusPH_var._rotation_absolute, tr1); rot_mul(_h_divlambda_slit_focusPH_var._rotation_absolute, tr1, _h_divlambda_slit_focusPH_var._rotation_relative); _h_divlambda_slit_focusPH_var._rotation_is_identity = rot_test_identity(_h_divlambda_slit_focusPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_slit_focusPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_slit_focusPH_var._position_absolute = coords_add(_divergence_monitor_slit_focusPH_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_slit_focusPH_var._position_absolute, _h_divlambda_slit_focusPH_var._position_absolute); _h_divlambda_slit_focusPH_var._position_relative = rot_apply(_h_divlambda_slit_focusPH_var._rotation_absolute, tc1); } /* h_divlambda_slit_focusPH=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_slit_focusPH", _h_divlambda_slit_focusPH_var._position_absolute, _h_divlambda_slit_focusPH_var._rotation_absolute); instrument->_position_absolute[57] = _h_divlambda_slit_focusPH_var._position_absolute; instrument->_position_relative[57] = _h_divlambda_slit_focusPH_var._position_relative; _h_divlambda_slit_focusPH_var._position_relative_is_zero = coords_test_zero(_h_divlambda_slit_focusPH_var._position_relative); instrument->counter_N[57] = instrument->counter_P[57] = instrument->counter_P2[57] = 0; instrument->counter_AbsorbProp[57]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", _h_divlambda_slit_focusPH_var._position_absolute, _h_divlambda_slit_focusPH_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "filename", 0, "DivLambdaMon_h_0008", "char*"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "maxdiv_h", "2", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0056_h_divlambda_slit_focusPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_slit_focusPH_setpos */ /* component v_divlambda_slit_focusPH=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_slit_focusPH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_slit_focusPH_setpos] component v_divlambda_slit_focusPH=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_slit_focusPH_var._name, "v_divlambda_slit_focusPH", 16384); stracpy(_v_divlambda_slit_focusPH_var._type, "DivLambda_monitor", 16384); _v_divlambda_slit_focusPH_var._index=58; int current_setpos_index = 58; _v_divlambda_slit_focusPH_var._parameters.nL = 100; _v_divlambda_slit_focusPH_var._parameters.nh = 100; _v_divlambda_slit_focusPH_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0008" && strlen("DivLambdaMon_v_0008")) stracpy(_v_divlambda_slit_focusPH_var._parameters.filename, "DivLambdaMon_v_0008" ? "DivLambdaMon_v_0008" : "", 16384); else _v_divlambda_slit_focusPH_var._parameters.filename[0]='\0'; _v_divlambda_slit_focusPH_var._parameters.xmin = -0.05; _v_divlambda_slit_focusPH_var._parameters.xmax = 0.05; _v_divlambda_slit_focusPH_var._parameters.ymin = -0.05; _v_divlambda_slit_focusPH_var._parameters.ymax = 0.05; _v_divlambda_slit_focusPH_var._parameters.xwidth = 0.02; _v_divlambda_slit_focusPH_var._parameters.yheight = 0.02; _v_divlambda_slit_focusPH_var._parameters.maxdiv_h = 0.5; _v_divlambda_slit_focusPH_var._parameters.Lmin = Lmin_source; _v_divlambda_slit_focusPH_var._parameters.Lmax = Lmax_source; _v_divlambda_slit_focusPH_var._parameters.restore_neutron = 1; _v_divlambda_slit_focusPH_var._parameters.nx = 0; _v_divlambda_slit_focusPH_var._parameters.ny = 0; _v_divlambda_slit_focusPH_var._parameters.nz = 1; /* component v_divlambda_slit_focusPH=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_slit_focusPH_var._rotation_absolute, _v_divlambda_slit_focusPH_var._rotation_absolute); rot_transpose(_h_divlambda_slit_focusPH_var._rotation_absolute, tr1); rot_mul(_v_divlambda_slit_focusPH_var._rotation_absolute, tr1, _v_divlambda_slit_focusPH_var._rotation_relative); _v_divlambda_slit_focusPH_var._rotation_is_identity = rot_test_identity(_v_divlambda_slit_focusPH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_slit_focusPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_slit_focusPH_var._position_absolute = coords_add(_h_divlambda_slit_focusPH_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_slit_focusPH_var._position_absolute, _v_divlambda_slit_focusPH_var._position_absolute); _v_divlambda_slit_focusPH_var._position_relative = rot_apply(_v_divlambda_slit_focusPH_var._rotation_absolute, tc1); } /* v_divlambda_slit_focusPH=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_slit_focusPH", _v_divlambda_slit_focusPH_var._position_absolute, _v_divlambda_slit_focusPH_var._rotation_absolute); instrument->_position_absolute[58] = _v_divlambda_slit_focusPH_var._position_absolute; instrument->_position_relative[58] = _v_divlambda_slit_focusPH_var._position_relative; _v_divlambda_slit_focusPH_var._position_relative_is_zero = coords_test_zero(_v_divlambda_slit_focusPH_var._position_relative); instrument->counter_N[58] = instrument->counter_P[58] = instrument->counter_P2[58] = 0; instrument->counter_AbsorbProp[58]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", _v_divlambda_slit_focusPH_var._position_absolute, _v_divlambda_slit_focusPH_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "filename", 0, "DivLambdaMon_v_0008", "char*"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "maxdiv_h", "2", "0.5","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0057_v_divlambda_slit_focusPH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_slit_focusPH_setpos */ /* component slit_EH=Slit() SETTING, POSITION/ROTATION */ int _slit_EH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_slit_EH_setpos] component slit_EH=Slit() SETTING [Slit:0]"); stracpy(_slit_EH_var._name, "slit_EH", 16384); stracpy(_slit_EH_var._type, "Slit", 16384); _slit_EH_var._index=59; int current_setpos_index = 59; _slit_EH_var._parameters.xmin = UNSET; _slit_EH_var._parameters.xmax = UNSET; _slit_EH_var._parameters.ymin = UNSET; _slit_EH_var._parameters.ymax = UNSET; _slit_EH_var._parameters.radius = 0.1; _slit_EH_var._parameters.xwidth = UNSET; _slit_EH_var._parameters.yheight = UNSET; /* component slit_EH=Slit() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _slit_focusPH_var._rotation_absolute, _slit_EH_var._rotation_absolute); rot_transpose(_v_divlambda_slit_focusPH_var._rotation_absolute, tr1); rot_mul(_slit_EH_var._rotation_absolute, tr1, _slit_EH_var._rotation_relative); _slit_EH_var._rotation_is_identity = rot_test_identity(_slit_EH_var._rotation_relative); tc1 = coords_set( 0, 0, _instrument_var._parameters.fs_eh -0.9 - u); rot_transpose(_slit_focusPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _slit_EH_var._position_absolute = coords_add(_slit_focusPH_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_slit_focusPH_var._position_absolute, _slit_EH_var._position_absolute); _slit_EH_var._position_relative = rot_apply(_slit_EH_var._rotation_absolute, tc1); } /* slit_EH=Slit() AT ROTATED */ DEBUG_COMPONENT("slit_EH", _slit_EH_var._position_absolute, _slit_EH_var._rotation_absolute); instrument->_position_absolute[59] = _slit_EH_var._position_absolute; instrument->_position_relative[59] = _slit_EH_var._position_relative; _slit_EH_var._position_relative_is_zero = coords_test_zero(_slit_EH_var._position_relative); instrument->counter_N[59] = instrument->counter_P[59] = instrument->counter_P2[59] = 0; instrument->counter_AbsorbProp[59]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0058_slit_EH", _slit_EH_var._position_absolute, _slit_EH_var._rotation_absolute, "Slit"); mccomp_param_nexus(nxhandle,"0058_slit_EH", "xmin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0058_slit_EH", "xmax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0058_slit_EH", "ymin", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0058_slit_EH", "ymax", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0058_slit_EH", "radius", "UNSET", "0.1","MCNUM"); mccomp_param_nexus(nxhandle,"0058_slit_EH", "xwidth", "UNSET", "UNSET","MCNUM"); mccomp_param_nexus(nxhandle,"0058_slit_EH", "yheight", "UNSET", "UNSET","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _slit_EH_setpos */ /* component cEH=Conics_EH() SETTING, POSITION/ROTATION */ int _cEH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_cEH_setpos] component cEH=Conics_EH() SETTING [Conics_EH:0]"); stracpy(_cEH_var._name, "cEH", 16384); stracpy(_cEH_var._type, "Conics_EH", 16384); _cEH_var._index=60; int current_setpos_index = 60; _cEH_var._parameters.rmin = 0.01; _cEH_var._parameters.rmax = 0.1; _cEH_var._parameters.focal_length_u = _instrument_var._parameters.fs_eh; _cEH_var._parameters.focal_length_d = _instrument_var._parameters.fi_eh; _cEH_var._parameters.le = 0.9; _cEH_var._parameters.lh = 0.82; _cEH_var._parameters.nshells = _instrument_var._parameters.nshells_eh; _cEH_var._parameters.m = _instrument_var._parameters.m; _cEH_var._parameters.mirr_thick = 0; _cEH_var._parameters.disk = 1; _cEH_var._parameters.radii = NULL; // default pointer allocation _cEH_var._parameters.R0 = _instrument_var._parameters.R0; _cEH_var._parameters.Qc = 0.021; _cEH_var._parameters.W = _instrument_var._parameters.W; _cEH_var._parameters.alpha = _instrument_var._parameters.alpha; _cEH_var._parameters.transmit = 0; /* component cEH=Conics_EH() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _slit_focusPH_var._rotation_absolute, _cEH_var._rotation_absolute); rot_transpose(_slit_EH_var._rotation_absolute, tr1); rot_mul(_cEH_var._rotation_absolute, tr1, _cEH_var._rotation_relative); _cEH_var._rotation_is_identity = rot_test_identity(_cEH_var._rotation_relative); tc1 = coords_set( 0, 0, _instrument_var._parameters.fs_eh); rot_transpose(_slit_focusPH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _cEH_var._position_absolute = coords_add(_slit_focusPH_var._position_absolute, tc2); tc1 = coords_sub(_slit_EH_var._position_absolute, _cEH_var._position_absolute); _cEH_var._position_relative = rot_apply(_cEH_var._rotation_absolute, tc1); } /* cEH=Conics_EH() AT ROTATED */ DEBUG_COMPONENT("cEH", _cEH_var._position_absolute, _cEH_var._rotation_absolute); instrument->_position_absolute[60] = _cEH_var._position_absolute; instrument->_position_relative[60] = _cEH_var._position_relative; _cEH_var._position_relative_is_zero = coords_test_zero(_cEH_var._position_relative); instrument->counter_N[60] = instrument->counter_P[60] = instrument->counter_P2[60] = 0; instrument->counter_AbsorbProp[60]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0059_cEH", _cEH_var._position_absolute, _cEH_var._rotation_absolute, "Conics_EH"); mccomp_param_nexus(nxhandle,"0059_cEH", "rmin", "0.0031416", "0.01","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "rmax", "0.05236", "0.1","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "focal_length_u", "10", "_instrument_var._parameters.fs_eh","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "focal_length_d", "10", "_instrument_var._parameters.fi_eh","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "le", "0.25", "0.9","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "lh", "0.25", "0.82","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "nshells", "4", "_instrument_var._parameters.nshells_eh","int"); mccomp_param_nexus(nxhandle,"0059_cEH", "m", "1", "_instrument_var._parameters.m","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "mirr_thick", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "disk", "1", "1","int"); mccomp_param_nexus(nxhandle,"0059_cEH", "radii", "NULL", "NULL","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "R0", "0.99", "_instrument_var._parameters.R0","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "Qc", "0.021", "0.021","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "W", "0.003", "_instrument_var._parameters.W","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "alpha", "6.07", "_instrument_var._parameters.alpha","MCNUM"); mccomp_param_nexus(nxhandle,"0059_cEH", "transmit", "0", "0","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _cEH_setpos */ /* component beamstop_cEH=Beamstop() SETTING, POSITION/ROTATION */ int _beamstop_cEH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_beamstop_cEH_setpos] component beamstop_cEH=Beamstop() SETTING [Beamstop:0]"); stracpy(_beamstop_cEH_var._name, "beamstop_cEH", 16384); stracpy(_beamstop_cEH_var._type, "Beamstop", 16384); _beamstop_cEH_var._index=61; int current_setpos_index = 61; _beamstop_cEH_var._parameters.xmin = -0.05; _beamstop_cEH_var._parameters.xmax = 0.05; _beamstop_cEH_var._parameters.ymin = -0.05; _beamstop_cEH_var._parameters.ymax = 0.05; _beamstop_cEH_var._parameters.xwidth = 0; _beamstop_cEH_var._parameters.yheight = 0; _beamstop_cEH_var._parameters.radius = 0.01; /* component beamstop_cEH=Beamstop() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _beamstop_cEH_var._rotation_absolute); rot_transpose(_cEH_var._rotation_absolute, tr1); rot_mul(_beamstop_cEH_var._rotation_absolute, tr1, _beamstop_cEH_var._rotation_relative); _beamstop_cEH_var._rotation_is_identity = rot_test_identity(_beamstop_cEH_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + u); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _beamstop_cEH_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_cEH_var._position_absolute, _beamstop_cEH_var._position_absolute); _beamstop_cEH_var._position_relative = rot_apply(_beamstop_cEH_var._rotation_absolute, tc1); } /* beamstop_cEH=Beamstop() AT ROTATED */ DEBUG_COMPONENT("beamstop_cEH", _beamstop_cEH_var._position_absolute, _beamstop_cEH_var._rotation_absolute); instrument->_position_absolute[61] = _beamstop_cEH_var._position_absolute; instrument->_position_relative[61] = _beamstop_cEH_var._position_relative; _beamstop_cEH_var._position_relative_is_zero = coords_test_zero(_beamstop_cEH_var._position_relative); instrument->counter_N[61] = instrument->counter_P[61] = instrument->counter_P2[61] = 0; instrument->counter_AbsorbProp[61]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0060_beamstop_cEH", _beamstop_cEH_var._position_absolute, _beamstop_cEH_var._rotation_absolute, "Beamstop"); mccomp_param_nexus(nxhandle,"0060_beamstop_cEH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0060_beamstop_cEH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0060_beamstop_cEH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0060_beamstop_cEH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0060_beamstop_cEH", "xwidth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0060_beamstop_cEH", "yheight", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0060_beamstop_cEH", "radius", "0", "0.01","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _beamstop_cEH_setpos */ /* component psd_cEH=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_cEH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_cEH_setpos] component psd_cEH=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_cEH_var._name, "psd_cEH", 16384); stracpy(_psd_cEH_var._type, "PSD_monitor", 16384); _psd_cEH_var._index=62; int current_setpos_index = 62; _psd_cEH_var._parameters.nx = 100; _psd_cEH_var._parameters.ny = 100; if("PSD_0009" && strlen("PSD_0009")) stracpy(_psd_cEH_var._parameters.filename, "PSD_0009" ? "PSD_0009" : "", 16384); else _psd_cEH_var._parameters.filename[0]='\0'; _psd_cEH_var._parameters.xmin = -0.05; _psd_cEH_var._parameters.xmax = 0.05; _psd_cEH_var._parameters.ymin = -0.05; _psd_cEH_var._parameters.ymax = 0.05; _psd_cEH_var._parameters.xwidth = 0.2; _psd_cEH_var._parameters.yheight = 0.2; _psd_cEH_var._parameters.restore_neutron = 1; _psd_cEH_var._parameters.nowritefile = 0; /* component psd_cEH=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _psd_cEH_var._rotation_absolute); rot_transpose(_beamstop_cEH_var._rotation_absolute, tr1); rot_mul(_psd_cEH_var._rotation_absolute, tr1, _psd_cEH_var._rotation_relative); _psd_cEH_var._rotation_is_identity = rot_test_identity(_psd_cEH_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + u); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_cEH_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_beamstop_cEH_var._position_absolute, _psd_cEH_var._position_absolute); _psd_cEH_var._position_relative = rot_apply(_psd_cEH_var._rotation_absolute, tc1); } /* psd_cEH=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_cEH", _psd_cEH_var._position_absolute, _psd_cEH_var._rotation_absolute); instrument->_position_absolute[62] = _psd_cEH_var._position_absolute; instrument->_position_relative[62] = _psd_cEH_var._position_relative; _psd_cEH_var._position_relative_is_zero = coords_test_zero(_psd_cEH_var._position_relative); instrument->counter_N[62] = instrument->counter_P[62] = instrument->counter_P2[62] = 0; instrument->counter_AbsorbProp[62]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0061_psd_cEH", _psd_cEH_var._position_absolute, _psd_cEH_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "filename", 0, "PSD_0009", "char*"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0061_psd_cEH", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_cEH_setpos */ /* component l_cEH=L_monitor() SETTING, POSITION/ROTATION */ int _l_cEH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_cEH_setpos] component l_cEH=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_cEH_var._name, "l_cEH", 16384); stracpy(_l_cEH_var._type, "L_monitor", 16384); _l_cEH_var._index=63; int current_setpos_index = 63; _l_cEH_var._parameters.nL = 100; if("L_0009" && strlen("L_0009")) stracpy(_l_cEH_var._parameters.filename, "L_0009" ? "L_0009" : "", 16384); else _l_cEH_var._parameters.filename[0]='\0'; _l_cEH_var._parameters.nowritefile = 0; _l_cEH_var._parameters.xmin = -0.05; _l_cEH_var._parameters.xmax = 0.05; _l_cEH_var._parameters.ymin = -0.05; _l_cEH_var._parameters.ymax = 0.05; _l_cEH_var._parameters.xwidth = 0.2; _l_cEH_var._parameters.yheight = 0.2; _l_cEH_var._parameters.Lmin = Lmin_source; _l_cEH_var._parameters.Lmax = Lmax_source; _l_cEH_var._parameters.restore_neutron = 1; /* component l_cEH=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_cEH_var._rotation_absolute, _l_cEH_var._rotation_absolute); rot_transpose(_psd_cEH_var._rotation_absolute, tr1); rot_mul(_l_cEH_var._rotation_absolute, tr1, _l_cEH_var._rotation_relative); _l_cEH_var._rotation_is_identity = rot_test_identity(_l_cEH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_cEH_var._position_absolute = coords_add(_psd_cEH_var._position_absolute, tc2); tc1 = coords_sub(_psd_cEH_var._position_absolute, _l_cEH_var._position_absolute); _l_cEH_var._position_relative = rot_apply(_l_cEH_var._rotation_absolute, tc1); } /* l_cEH=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_cEH", _l_cEH_var._position_absolute, _l_cEH_var._rotation_absolute); instrument->_position_absolute[63] = _l_cEH_var._position_absolute; instrument->_position_relative[63] = _l_cEH_var._position_relative; _l_cEH_var._position_relative_is_zero = coords_test_zero(_l_cEH_var._position_relative); instrument->counter_N[63] = instrument->counter_P[63] = instrument->counter_P2[63] = 0; instrument->counter_AbsorbProp[63]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0062_l_cEH", _l_cEH_var._position_absolute, _l_cEH_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "filename", 0, "L_0009", "char*"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0062_l_cEH", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_cEH_setpos */ /* component nD9=Monitor_nD() SETTING, POSITION/ROTATION */ int _nD9_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_nD9_setpos] component nD9=Monitor_nD() SETTING [Monitor_nD:0]"); stracpy(_nD9_var._name, "nD9", 16384); stracpy(_nD9_var._type, "Monitor_nD", 16384); _nD9_var._index=64; int current_setpos_index = 64; if("" && strlen("")) stracpy(_nD9_var._parameters.user1, "" ? "" : "", 16384); else _nD9_var._parameters.user1[0]='\0'; if("" && strlen("")) stracpy(_nD9_var._parameters.user2, "" ? "" : "", 16384); else _nD9_var._parameters.user2[0]='\0'; if("" && strlen("")) stracpy(_nD9_var._parameters.user3, "" ? "" : "", 16384); else _nD9_var._parameters.user3[0]='\0'; _nD9_var._parameters.xwidth = 0.10 * 2; _nD9_var._parameters.yheight = 0; _nD9_var._parameters.zdepth = 0; _nD9_var._parameters.xmin = 0; _nD9_var._parameters.xmax = 0; _nD9_var._parameters.ymin = 0; _nD9_var._parameters.ymax = 0; _nD9_var._parameters.zmin = 0; _nD9_var._parameters.zmax = 0; _nD9_var._parameters.bins = 0; _nD9_var._parameters.min = -1e40; _nD9_var._parameters.max = 1e40; _nD9_var._parameters.restore_neutron = 1; _nD9_var._parameters.radius = 0; if("disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0009.dat" && strlen("disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0009.dat")) stracpy(_nD9_var._parameters.options, "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0009.dat" ? "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0009.dat" : "", 16384); else _nD9_var._parameters.options[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD9_var._parameters.filename, "NULL" ? "NULL" : "", 16384); else _nD9_var._parameters.filename[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD9_var._parameters.geometry, "NULL" ? "NULL" : "", 16384); else _nD9_var._parameters.geometry[0]='\0'; _nD9_var._parameters.nowritefile = 0; _nD9_var._parameters.nexus_bins = 0; if("NULL" && strlen("NULL")) stracpy(_nD9_var._parameters.username1, "NULL" ? "NULL" : "", 16384); else _nD9_var._parameters.username1[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD9_var._parameters.username2, "NULL" ? "NULL" : "", 16384); else _nD9_var._parameters.username2[0]='\0'; if("NULL" && strlen("NULL")) stracpy(_nD9_var._parameters.username3, "NULL" ? "NULL" : "", 16384); else _nD9_var._parameters.username3[0]='\0'; /* component nD9=Monitor_nD() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_cEH_var._rotation_absolute, _nD9_var._rotation_absolute); rot_transpose(_l_cEH_var._rotation_absolute, tr1); rot_mul(_nD9_var._rotation_absolute, tr1, _nD9_var._rotation_relative); _nD9_var._rotation_is_identity = rot_test_identity(_nD9_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _nD9_var._position_absolute = coords_add(_l_cEH_var._position_absolute, tc2); tc1 = coords_sub(_l_cEH_var._position_absolute, _nD9_var._position_absolute); _nD9_var._position_relative = rot_apply(_nD9_var._rotation_absolute, tc1); } /* nD9=Monitor_nD() AT ROTATED */ DEBUG_COMPONENT("nD9", _nD9_var._position_absolute, _nD9_var._rotation_absolute); instrument->_position_absolute[64] = _nD9_var._position_absolute; instrument->_position_relative[64] = _nD9_var._position_relative; _nD9_var._position_relative_is_zero = coords_test_zero(_nD9_var._position_relative); instrument->counter_N[64] = instrument->counter_P[64] = instrument->counter_P2[64] = 0; instrument->counter_AbsorbProp[64]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0063_nD9", _nD9_var._position_absolute, _nD9_var._rotation_absolute, "Monitor_nD"); mccomp_param_nexus(nxhandle,"0063_nD9", "user1", "", "", "char*"); mccomp_param_nexus(nxhandle,"0063_nD9", "user2", "", "", "char*"); mccomp_param_nexus(nxhandle,"0063_nD9", "user3", "", "", "char*"); mccomp_param_nexus(nxhandle,"0063_nD9", "xwidth", "0", "0.10 * 2","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "yheight", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "zdepth", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "xmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "xmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "ymin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "ymax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "zmin", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "zmax", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0063_nD9", "min", "-1e40", "-1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "max", "1e40", "1e40","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0063_nD9", "radius", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0063_nD9", "options", "NULL", "disk, intenisity per cm2, lambda bins=100 limits=[0.0286014 20.2243], file=nD_0009.dat", "char*"); mccomp_param_nexus(nxhandle,"0063_nD9", "filename", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0063_nD9", "geometry", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0063_nD9", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0063_nD9", "nexus_bins", "0", "0","int"); mccomp_param_nexus(nxhandle,"0063_nD9", "username1", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0063_nD9", "username2", "NULL", "NULL", "char*"); mccomp_param_nexus(nxhandle,"0063_nD9", "username3", "NULL", "NULL", "char*"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _nD9_setpos */ /* component divergence_monitor_cEH=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_cEH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_cEH_setpos] component divergence_monitor_cEH=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_cEH_var._name, "divergence_monitor_cEH", 16384); stracpy(_divergence_monitor_cEH_var._type, "Divergence_monitor", 16384); _divergence_monitor_cEH_var._index=65; int current_setpos_index = 65; _divergence_monitor_cEH_var._parameters.nh = 100; _divergence_monitor_cEH_var._parameters.nv = 100; if("DivMon_0009" && strlen("DivMon_0009")) stracpy(_divergence_monitor_cEH_var._parameters.filename, "DivMon_0009" ? "DivMon_0009" : "", 16384); else _divergence_monitor_cEH_var._parameters.filename[0]='\0'; _divergence_monitor_cEH_var._parameters.xmin = -0.05; _divergence_monitor_cEH_var._parameters.xmax = 0.05; _divergence_monitor_cEH_var._parameters.ymin = -0.05; _divergence_monitor_cEH_var._parameters.ymax = 0.05; _divergence_monitor_cEH_var._parameters.nowritefile = 0; _divergence_monitor_cEH_var._parameters.xwidth = 0.2; _divergence_monitor_cEH_var._parameters.yheight = 0.2; _divergence_monitor_cEH_var._parameters.maxdiv_h = 1; _divergence_monitor_cEH_var._parameters.maxdiv_v = 1; _divergence_monitor_cEH_var._parameters.restore_neutron = 1; _divergence_monitor_cEH_var._parameters.nx = 0; _divergence_monitor_cEH_var._parameters.ny = 0; _divergence_monitor_cEH_var._parameters.nz = 1; /* component divergence_monitor_cEH=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _nD9_var._rotation_absolute, _divergence_monitor_cEH_var._rotation_absolute); rot_transpose(_nD9_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_cEH_var._rotation_absolute, tr1, _divergence_monitor_cEH_var._rotation_relative); _divergence_monitor_cEH_var._rotation_is_identity = rot_test_identity(_divergence_monitor_cEH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_nD9_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_cEH_var._position_absolute = coords_add(_nD9_var._position_absolute, tc2); tc1 = coords_sub(_nD9_var._position_absolute, _divergence_monitor_cEH_var._position_absolute); _divergence_monitor_cEH_var._position_relative = rot_apply(_divergence_monitor_cEH_var._rotation_absolute, tc1); } /* divergence_monitor_cEH=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_cEH", _divergence_monitor_cEH_var._position_absolute, _divergence_monitor_cEH_var._rotation_absolute); instrument->_position_absolute[65] = _divergence_monitor_cEH_var._position_absolute; instrument->_position_relative[65] = _divergence_monitor_cEH_var._position_relative; _divergence_monitor_cEH_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_cEH_var._position_relative); instrument->counter_N[65] = instrument->counter_P[65] = instrument->counter_P2[65] = 0; instrument->counter_AbsorbProp[65]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0064_divergence_monitor_cEH", _divergence_monitor_cEH_var._position_absolute, _divergence_monitor_cEH_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "filename", 0, "DivMon_0009", "char*"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "maxdiv_v", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0064_divergence_monitor_cEH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_cEH_setpos */ /* component h_divlambda_cEH=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_cEH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_cEH_setpos] component h_divlambda_cEH=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_cEH_var._name, "h_divlambda_cEH", 16384); stracpy(_h_divlambda_cEH_var._type, "DivLambda_monitor", 16384); _h_divlambda_cEH_var._index=66; int current_setpos_index = 66; _h_divlambda_cEH_var._parameters.nL = 100; _h_divlambda_cEH_var._parameters.nh = 100; _h_divlambda_cEH_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0009" && strlen("DivLambdaMon_h_0009")) stracpy(_h_divlambda_cEH_var._parameters.filename, "DivLambdaMon_h_0009" ? "DivLambdaMon_h_0009" : "", 16384); else _h_divlambda_cEH_var._parameters.filename[0]='\0'; _h_divlambda_cEH_var._parameters.xmin = -0.05; _h_divlambda_cEH_var._parameters.xmax = 0.05; _h_divlambda_cEH_var._parameters.ymin = -0.05; _h_divlambda_cEH_var._parameters.ymax = 0.05; _h_divlambda_cEH_var._parameters.xwidth = 0.2; _h_divlambda_cEH_var._parameters.yheight = 0.2; _h_divlambda_cEH_var._parameters.maxdiv_h = 1; _h_divlambda_cEH_var._parameters.Lmin = Lmin_source; _h_divlambda_cEH_var._parameters.Lmax = Lmax_source; _h_divlambda_cEH_var._parameters.restore_neutron = 1; _h_divlambda_cEH_var._parameters.nx = 0; _h_divlambda_cEH_var._parameters.ny = 0; _h_divlambda_cEH_var._parameters.nz = 1; /* component h_divlambda_cEH=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_cEH_var._rotation_absolute, _h_divlambda_cEH_var._rotation_absolute); rot_transpose(_divergence_monitor_cEH_var._rotation_absolute, tr1); rot_mul(_h_divlambda_cEH_var._rotation_absolute, tr1, _h_divlambda_cEH_var._rotation_relative); _h_divlambda_cEH_var._rotation_is_identity = rot_test_identity(_h_divlambda_cEH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_cEH_var._position_absolute = coords_add(_divergence_monitor_cEH_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_cEH_var._position_absolute, _h_divlambda_cEH_var._position_absolute); _h_divlambda_cEH_var._position_relative = rot_apply(_h_divlambda_cEH_var._rotation_absolute, tc1); } /* h_divlambda_cEH=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_cEH", _h_divlambda_cEH_var._position_absolute, _h_divlambda_cEH_var._rotation_absolute); instrument->_position_absolute[66] = _h_divlambda_cEH_var._position_absolute; instrument->_position_relative[66] = _h_divlambda_cEH_var._position_relative; _h_divlambda_cEH_var._position_relative_is_zero = coords_test_zero(_h_divlambda_cEH_var._position_relative); instrument->counter_N[66] = instrument->counter_P[66] = instrument->counter_P2[66] = 0; instrument->counter_AbsorbProp[66]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0065_h_divlambda_cEH", _h_divlambda_cEH_var._position_absolute, _h_divlambda_cEH_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "filename", 0, "DivLambdaMon_h_0009", "char*"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0065_h_divlambda_cEH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_cEH_setpos */ /* component v_divlambda_cEH=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_cEH_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_cEH_setpos] component v_divlambda_cEH=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_cEH_var._name, "v_divlambda_cEH", 16384); stracpy(_v_divlambda_cEH_var._type, "DivLambda_monitor", 16384); _v_divlambda_cEH_var._index=67; int current_setpos_index = 67; _v_divlambda_cEH_var._parameters.nL = 100; _v_divlambda_cEH_var._parameters.nh = 100; _v_divlambda_cEH_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0009" && strlen("DivLambdaMon_v_0009")) stracpy(_v_divlambda_cEH_var._parameters.filename, "DivLambdaMon_v_0009" ? "DivLambdaMon_v_0009" : "", 16384); else _v_divlambda_cEH_var._parameters.filename[0]='\0'; _v_divlambda_cEH_var._parameters.xmin = -0.05; _v_divlambda_cEH_var._parameters.xmax = 0.05; _v_divlambda_cEH_var._parameters.ymin = -0.05; _v_divlambda_cEH_var._parameters.ymax = 0.05; _v_divlambda_cEH_var._parameters.xwidth = 0.2; _v_divlambda_cEH_var._parameters.yheight = 0.2; _v_divlambda_cEH_var._parameters.maxdiv_h = 1; _v_divlambda_cEH_var._parameters.Lmin = Lmin_source; _v_divlambda_cEH_var._parameters.Lmax = Lmax_source; _v_divlambda_cEH_var._parameters.restore_neutron = 1; _v_divlambda_cEH_var._parameters.nx = 0; _v_divlambda_cEH_var._parameters.ny = 0; _v_divlambda_cEH_var._parameters.nz = 1; /* component v_divlambda_cEH=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0)*DEG2RAD, (0)*DEG2RAD, (90)*DEG2RAD); rot_mul(tr1, _h_divlambda_cEH_var._rotation_absolute, _v_divlambda_cEH_var._rotation_absolute); rot_transpose(_h_divlambda_cEH_var._rotation_absolute, tr1); rot_mul(_v_divlambda_cEH_var._rotation_absolute, tr1, _v_divlambda_cEH_var._rotation_relative); _v_divlambda_cEH_var._rotation_is_identity = rot_test_identity(_v_divlambda_cEH_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_h_divlambda_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_cEH_var._position_absolute = coords_add(_h_divlambda_cEH_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_cEH_var._position_absolute, _v_divlambda_cEH_var._position_absolute); _v_divlambda_cEH_var._position_relative = rot_apply(_v_divlambda_cEH_var._rotation_absolute, tc1); } /* v_divlambda_cEH=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_cEH", _v_divlambda_cEH_var._position_absolute, _v_divlambda_cEH_var._rotation_absolute); instrument->_position_absolute[67] = _v_divlambda_cEH_var._position_absolute; instrument->_position_relative[67] = _v_divlambda_cEH_var._position_relative; _v_divlambda_cEH_var._position_relative_is_zero = coords_test_zero(_v_divlambda_cEH_var._position_relative); instrument->counter_N[67] = instrument->counter_P[67] = instrument->counter_P2[67] = 0; instrument->counter_AbsorbProp[67]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0066_v_divlambda_cEH", _v_divlambda_cEH_var._position_absolute, _v_divlambda_cEH_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "filename", 0, "DivLambdaMon_v_0009", "char*"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0066_v_divlambda_cEH", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_cEH_setpos */ /* component PSD_10=PSD_monitor() SETTING, POSITION/ROTATION */ int _PSD_10_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_PSD_10_setpos] component PSD_10=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_PSD_10_var._name, "PSD_10", 16384); stracpy(_PSD_10_var._type, "PSD_monitor", 16384); _PSD_10_var._index=68; int current_setpos_index = 68; _PSD_10_var._parameters.nx = 100; _PSD_10_var._parameters.ny = 100; if("PSD_0010" && strlen("PSD_0010")) stracpy(_PSD_10_var._parameters.filename, "PSD_0010" ? "PSD_0010" : "", 16384); else _PSD_10_var._parameters.filename[0]='\0'; _PSD_10_var._parameters.xmin = -0.05; _PSD_10_var._parameters.xmax = 0.05; _PSD_10_var._parameters.ymin = -0.05; _PSD_10_var._parameters.ymax = 0.05; _PSD_10_var._parameters.xwidth = 0.2; _PSD_10_var._parameters.yheight = 0.2; _PSD_10_var._parameters.restore_neutron = 1; _PSD_10_var._parameters.nowritefile = 0; /* component PSD_10=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _PSD_10_var._rotation_absolute); rot_transpose(_v_divlambda_cEH_var._rotation_absolute, tr1); rot_mul(_PSD_10_var._rotation_absolute, tr1, _PSD_10_var._rotation_relative); _PSD_10_var._rotation_is_identity = rot_test_identity(_PSD_10_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 2); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _PSD_10_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_cEH_var._position_absolute, _PSD_10_var._position_absolute); _PSD_10_var._position_relative = rot_apply(_PSD_10_var._rotation_absolute, tc1); } /* PSD_10=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("PSD_10", _PSD_10_var._position_absolute, _PSD_10_var._rotation_absolute); instrument->_position_absolute[68] = _PSD_10_var._position_absolute; instrument->_position_relative[68] = _PSD_10_var._position_relative; _PSD_10_var._position_relative_is_zero = coords_test_zero(_PSD_10_var._position_relative); instrument->counter_N[68] = instrument->counter_P[68] = instrument->counter_P2[68] = 0; instrument->counter_AbsorbProp[68]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0067_PSD_10", _PSD_10_var._position_absolute, _PSD_10_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "filename", 0, "PSD_0010", "char*"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0067_PSD_10", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _PSD_10_setpos */ /* component PSD_11=PSD_monitor() SETTING, POSITION/ROTATION */ int _PSD_11_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_PSD_11_setpos] component PSD_11=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_PSD_11_var._name, "PSD_11", 16384); stracpy(_PSD_11_var._type, "PSD_monitor", 16384); _PSD_11_var._index=69; int current_setpos_index = 69; _PSD_11_var._parameters.nx = 100; _PSD_11_var._parameters.ny = 100; if("PSD_0011" && strlen("PSD_0011")) stracpy(_PSD_11_var._parameters.filename, "PSD_0011" ? "PSD_0011" : "", 16384); else _PSD_11_var._parameters.filename[0]='\0'; _PSD_11_var._parameters.xmin = -0.05; _PSD_11_var._parameters.xmax = 0.05; _PSD_11_var._parameters.ymin = -0.05; _PSD_11_var._parameters.ymax = 0.05; _PSD_11_var._parameters.xwidth = 0.2; _PSD_11_var._parameters.yheight = 0.2; _PSD_11_var._parameters.restore_neutron = 1; _PSD_11_var._parameters.nowritefile = 0; /* component PSD_11=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _PSD_11_var._rotation_absolute); rot_transpose(_PSD_10_var._rotation_absolute, tr1); rot_mul(_PSD_11_var._rotation_absolute, tr1, _PSD_11_var._rotation_relative); _PSD_11_var._rotation_is_identity = rot_test_identity(_PSD_11_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 4); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _PSD_11_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_PSD_10_var._position_absolute, _PSD_11_var._position_absolute); _PSD_11_var._position_relative = rot_apply(_PSD_11_var._rotation_absolute, tc1); } /* PSD_11=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("PSD_11", _PSD_11_var._position_absolute, _PSD_11_var._rotation_absolute); instrument->_position_absolute[69] = _PSD_11_var._position_absolute; instrument->_position_relative[69] = _PSD_11_var._position_relative; _PSD_11_var._position_relative_is_zero = coords_test_zero(_PSD_11_var._position_relative); instrument->counter_N[69] = instrument->counter_P[69] = instrument->counter_P2[69] = 0; instrument->counter_AbsorbProp[69]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0068_PSD_11", _PSD_11_var._position_absolute, _PSD_11_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "filename", 0, "PSD_0011", "char*"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0068_PSD_11", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _PSD_11_setpos */ /* component PSD_12=PSD_monitor() SETTING, POSITION/ROTATION */ int _PSD_12_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_PSD_12_setpos] component PSD_12=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_PSD_12_var._name, "PSD_12", 16384); stracpy(_PSD_12_var._type, "PSD_monitor", 16384); _PSD_12_var._index=70; int current_setpos_index = 70; _PSD_12_var._parameters.nx = 100; _PSD_12_var._parameters.ny = 100; if("PSD_0012" && strlen("PSD_0012")) stracpy(_PSD_12_var._parameters.filename, "PSD_0012" ? "PSD_0012" : "", 16384); else _PSD_12_var._parameters.filename[0]='\0'; _PSD_12_var._parameters.xmin = -0.05; _PSD_12_var._parameters.xmax = 0.05; _PSD_12_var._parameters.ymin = -0.05; _PSD_12_var._parameters.ymax = 0.05; _PSD_12_var._parameters.xwidth = 0.2; _PSD_12_var._parameters.yheight = 0.2; _PSD_12_var._parameters.restore_neutron = 1; _PSD_12_var._parameters.nowritefile = 0; /* component PSD_12=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _PSD_12_var._rotation_absolute); rot_transpose(_PSD_11_var._rotation_absolute, tr1); rot_mul(_PSD_12_var._rotation_absolute, tr1, _PSD_12_var._rotation_relative); _PSD_12_var._rotation_is_identity = rot_test_identity(_PSD_12_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 6); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _PSD_12_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_PSD_11_var._position_absolute, _PSD_12_var._position_absolute); _PSD_12_var._position_relative = rot_apply(_PSD_12_var._rotation_absolute, tc1); } /* PSD_12=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("PSD_12", _PSD_12_var._position_absolute, _PSD_12_var._rotation_absolute); instrument->_position_absolute[70] = _PSD_12_var._position_absolute; instrument->_position_relative[70] = _PSD_12_var._position_relative; _PSD_12_var._position_relative_is_zero = coords_test_zero(_PSD_12_var._position_relative); instrument->counter_N[70] = instrument->counter_P[70] = instrument->counter_P2[70] = 0; instrument->counter_AbsorbProp[70]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0069_PSD_12", _PSD_12_var._position_absolute, _PSD_12_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "filename", 0, "PSD_0012", "char*"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0069_PSD_12", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _PSD_12_setpos */ /* component PSD_13=PSD_monitor() SETTING, POSITION/ROTATION */ int _PSD_13_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_PSD_13_setpos] component PSD_13=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_PSD_13_var._name, "PSD_13", 16384); stracpy(_PSD_13_var._type, "PSD_monitor", 16384); _PSD_13_var._index=71; int current_setpos_index = 71; _PSD_13_var._parameters.nx = 100; _PSD_13_var._parameters.ny = 100; if("PSD_0013" && strlen("PSD_0013")) stracpy(_PSD_13_var._parameters.filename, "PSD_0013" ? "PSD_0013" : "", 16384); else _PSD_13_var._parameters.filename[0]='\0'; _PSD_13_var._parameters.xmin = -0.05; _PSD_13_var._parameters.xmax = 0.05; _PSD_13_var._parameters.ymin = -0.05; _PSD_13_var._parameters.ymax = 0.05; _PSD_13_var._parameters.xwidth = 0.2; _PSD_13_var._parameters.yheight = 0.2; _PSD_13_var._parameters.restore_neutron = 1; _PSD_13_var._parameters.nowritefile = 0; /* component PSD_13=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _PSD_13_var._rotation_absolute); rot_transpose(_PSD_12_var._rotation_absolute, tr1); rot_mul(_PSD_13_var._rotation_absolute, tr1, _PSD_13_var._rotation_relative); _PSD_13_var._rotation_is_identity = rot_test_identity(_PSD_13_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 8); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _PSD_13_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_PSD_12_var._position_absolute, _PSD_13_var._position_absolute); _PSD_13_var._position_relative = rot_apply(_PSD_13_var._rotation_absolute, tc1); } /* PSD_13=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("PSD_13", _PSD_13_var._position_absolute, _PSD_13_var._rotation_absolute); instrument->_position_absolute[71] = _PSD_13_var._position_absolute; instrument->_position_relative[71] = _PSD_13_var._position_relative; _PSD_13_var._position_relative_is_zero = coords_test_zero(_PSD_13_var._position_relative); instrument->counter_N[71] = instrument->counter_P[71] = instrument->counter_P2[71] = 0; instrument->counter_AbsorbProp[71]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0070_PSD_13", _PSD_13_var._position_absolute, _PSD_13_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "nx", "90", "100","int"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "ny", "90", "100","int"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "filename", 0, "PSD_0013", "char*"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0070_PSD_13", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _PSD_13_setpos */ /* component l_10=L_monitor() SETTING, POSITION/ROTATION */ int _l_10_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_10_setpos] component l_10=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_10_var._name, "l_10", 16384); stracpy(_l_10_var._type, "L_monitor", 16384); _l_10_var._index=72; int current_setpos_index = 72; _l_10_var._parameters.nL = 100; if("L_0010" && strlen("L_0010")) stracpy(_l_10_var._parameters.filename, "L_0010" ? "L_0010" : "", 16384); else _l_10_var._parameters.filename[0]='\0'; _l_10_var._parameters.nowritefile = 0; _l_10_var._parameters.xmin = -0.05; _l_10_var._parameters.xmax = 0.05; _l_10_var._parameters.ymin = -0.05; _l_10_var._parameters.ymax = 0.05; _l_10_var._parameters.xwidth = 0.2; _l_10_var._parameters.yheight = 0.2; _l_10_var._parameters.Lmin = Lmin_source; _l_10_var._parameters.Lmax = Lmax_source; _l_10_var._parameters.restore_neutron = 1; /* component l_10=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _l_10_var._rotation_absolute); rot_transpose(_PSD_13_var._rotation_absolute, tr1); rot_mul(_l_10_var._rotation_absolute, tr1, _l_10_var._rotation_relative); _l_10_var._rotation_is_identity = rot_test_identity(_l_10_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 2); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_10_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_PSD_13_var._position_absolute, _l_10_var._position_absolute); _l_10_var._position_relative = rot_apply(_l_10_var._rotation_absolute, tc1); } /* l_10=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_10", _l_10_var._position_absolute, _l_10_var._rotation_absolute); instrument->_position_absolute[72] = _l_10_var._position_absolute; instrument->_position_relative[72] = _l_10_var._position_relative; _l_10_var._position_relative_is_zero = coords_test_zero(_l_10_var._position_relative); instrument->counter_N[72] = instrument->counter_P[72] = instrument->counter_P2[72] = 0; instrument->counter_AbsorbProp[72]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0071_l_10", _l_10_var._position_absolute, _l_10_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0071_l_10", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0071_l_10", "filename", 0, "L_0010", "char*"); mccomp_param_nexus(nxhandle,"0071_l_10", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0071_l_10", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0071_l_10", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0071_l_10", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0071_l_10", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0071_l_10", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0071_l_10", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0071_l_10", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0071_l_10", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0071_l_10", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_10_setpos */ /* component l_11=L_monitor() SETTING, POSITION/ROTATION */ int _l_11_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_11_setpos] component l_11=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_11_var._name, "l_11", 16384); stracpy(_l_11_var._type, "L_monitor", 16384); _l_11_var._index=73; int current_setpos_index = 73; _l_11_var._parameters.nL = 100; if("L_0011" && strlen("L_0011")) stracpy(_l_11_var._parameters.filename, "L_0011" ? "L_0011" : "", 16384); else _l_11_var._parameters.filename[0]='\0'; _l_11_var._parameters.nowritefile = 0; _l_11_var._parameters.xmin = -0.05; _l_11_var._parameters.xmax = 0.05; _l_11_var._parameters.ymin = -0.05; _l_11_var._parameters.ymax = 0.05; _l_11_var._parameters.xwidth = 0.2; _l_11_var._parameters.yheight = 0.2; _l_11_var._parameters.Lmin = Lmin_source; _l_11_var._parameters.Lmax = Lmax_source; _l_11_var._parameters.restore_neutron = 1; /* component l_11=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _l_11_var._rotation_absolute); rot_transpose(_l_10_var._rotation_absolute, tr1); rot_mul(_l_11_var._rotation_absolute, tr1, _l_11_var._rotation_relative); _l_11_var._rotation_is_identity = rot_test_identity(_l_11_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 4); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_11_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_l_10_var._position_absolute, _l_11_var._position_absolute); _l_11_var._position_relative = rot_apply(_l_11_var._rotation_absolute, tc1); } /* l_11=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_11", _l_11_var._position_absolute, _l_11_var._rotation_absolute); instrument->_position_absolute[73] = _l_11_var._position_absolute; instrument->_position_relative[73] = _l_11_var._position_relative; _l_11_var._position_relative_is_zero = coords_test_zero(_l_11_var._position_relative); instrument->counter_N[73] = instrument->counter_P[73] = instrument->counter_P2[73] = 0; instrument->counter_AbsorbProp[73]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0072_l_11", _l_11_var._position_absolute, _l_11_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0072_l_11", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0072_l_11", "filename", 0, "L_0011", "char*"); mccomp_param_nexus(nxhandle,"0072_l_11", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0072_l_11", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0072_l_11", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0072_l_11", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0072_l_11", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0072_l_11", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0072_l_11", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0072_l_11", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0072_l_11", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0072_l_11", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_11_setpos */ /* component l_12=L_monitor() SETTING, POSITION/ROTATION */ int _l_12_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_12_setpos] component l_12=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_12_var._name, "l_12", 16384); stracpy(_l_12_var._type, "L_monitor", 16384); _l_12_var._index=74; int current_setpos_index = 74; _l_12_var._parameters.nL = 100; if("L_0012" && strlen("L_0012")) stracpy(_l_12_var._parameters.filename, "L_0012" ? "L_0012" : "", 16384); else _l_12_var._parameters.filename[0]='\0'; _l_12_var._parameters.nowritefile = 0; _l_12_var._parameters.xmin = -0.05; _l_12_var._parameters.xmax = 0.05; _l_12_var._parameters.ymin = -0.05; _l_12_var._parameters.ymax = 0.05; _l_12_var._parameters.xwidth = 0.2; _l_12_var._parameters.yheight = 0.2; _l_12_var._parameters.Lmin = Lmin_source; _l_12_var._parameters.Lmax = Lmax_source; _l_12_var._parameters.restore_neutron = 1; /* component l_12=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _l_12_var._rotation_absolute); rot_transpose(_l_11_var._rotation_absolute, tr1); rot_mul(_l_12_var._rotation_absolute, tr1, _l_12_var._rotation_relative); _l_12_var._rotation_is_identity = rot_test_identity(_l_12_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 6); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_12_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_l_11_var._position_absolute, _l_12_var._position_absolute); _l_12_var._position_relative = rot_apply(_l_12_var._rotation_absolute, tc1); } /* l_12=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_12", _l_12_var._position_absolute, _l_12_var._rotation_absolute); instrument->_position_absolute[74] = _l_12_var._position_absolute; instrument->_position_relative[74] = _l_12_var._position_relative; _l_12_var._position_relative_is_zero = coords_test_zero(_l_12_var._position_relative); instrument->counter_N[74] = instrument->counter_P[74] = instrument->counter_P2[74] = 0; instrument->counter_AbsorbProp[74]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0073_l_12", _l_12_var._position_absolute, _l_12_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0073_l_12", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0073_l_12", "filename", 0, "L_0012", "char*"); mccomp_param_nexus(nxhandle,"0073_l_12", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0073_l_12", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0073_l_12", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0073_l_12", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0073_l_12", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0073_l_12", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0073_l_12", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0073_l_12", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0073_l_12", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0073_l_12", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_12_setpos */ /* component l_13=L_monitor() SETTING, POSITION/ROTATION */ int _l_13_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_13_setpos] component l_13=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_13_var._name, "l_13", 16384); stracpy(_l_13_var._type, "L_monitor", 16384); _l_13_var._index=75; int current_setpos_index = 75; _l_13_var._parameters.nL = 100; if("L_0013" && strlen("L_0013")) stracpy(_l_13_var._parameters.filename, "L_0013" ? "L_0013" : "", 16384); else _l_13_var._parameters.filename[0]='\0'; _l_13_var._parameters.nowritefile = 0; _l_13_var._parameters.xmin = -0.05; _l_13_var._parameters.xmax = 0.05; _l_13_var._parameters.ymin = -0.05; _l_13_var._parameters.ymax = 0.05; _l_13_var._parameters.xwidth = 0.2; _l_13_var._parameters.yheight = 0.2; _l_13_var._parameters.Lmin = Lmin_source; _l_13_var._parameters.Lmax = Lmax_source; _l_13_var._parameters.restore_neutron = 1; /* component l_13=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _l_13_var._rotation_absolute); rot_transpose(_l_12_var._rotation_absolute, tr1); rot_mul(_l_13_var._rotation_absolute, tr1, _l_13_var._rotation_relative); _l_13_var._rotation_is_identity = rot_test_identity(_l_13_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 8); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_13_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_l_12_var._position_absolute, _l_13_var._position_absolute); _l_13_var._position_relative = rot_apply(_l_13_var._rotation_absolute, tc1); } /* l_13=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_13", _l_13_var._position_absolute, _l_13_var._rotation_absolute); instrument->_position_absolute[75] = _l_13_var._position_absolute; instrument->_position_relative[75] = _l_13_var._position_relative; _l_13_var._position_relative_is_zero = coords_test_zero(_l_13_var._position_relative); instrument->counter_N[75] = instrument->counter_P[75] = instrument->counter_P2[75] = 0; instrument->counter_AbsorbProp[75]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0074_l_13", _l_13_var._position_absolute, _l_13_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0074_l_13", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0074_l_13", "filename", 0, "L_0013", "char*"); mccomp_param_nexus(nxhandle,"0074_l_13", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0074_l_13", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0074_l_13", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0074_l_13", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0074_l_13", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0074_l_13", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0074_l_13", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0074_l_13", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0074_l_13", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0074_l_13", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_13_setpos */ /* component divergence_monitor_10=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_10_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_10_setpos] component divergence_monitor_10=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_10_var._name, "divergence_monitor_10", 16384); stracpy(_divergence_monitor_10_var._type, "Divergence_monitor", 16384); _divergence_monitor_10_var._index=76; int current_setpos_index = 76; _divergence_monitor_10_var._parameters.nh = 100; _divergence_monitor_10_var._parameters.nv = 100; if("DivMon_0010" && strlen("DivMon_0010")) stracpy(_divergence_monitor_10_var._parameters.filename, "DivMon_0010" ? "DivMon_0010" : "", 16384); else _divergence_monitor_10_var._parameters.filename[0]='\0'; _divergence_monitor_10_var._parameters.xmin = -0.05; _divergence_monitor_10_var._parameters.xmax = 0.05; _divergence_monitor_10_var._parameters.ymin = -0.05; _divergence_monitor_10_var._parameters.ymax = 0.05; _divergence_monitor_10_var._parameters.nowritefile = 0; _divergence_monitor_10_var._parameters.xwidth = 0.2; _divergence_monitor_10_var._parameters.yheight = 0.2; _divergence_monitor_10_var._parameters.maxdiv_h = 1; _divergence_monitor_10_var._parameters.maxdiv_v = 1; _divergence_monitor_10_var._parameters.restore_neutron = 1; _divergence_monitor_10_var._parameters.nx = 0; _divergence_monitor_10_var._parameters.ny = 0; _divergence_monitor_10_var._parameters.nz = 1; /* component divergence_monitor_10=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _divergence_monitor_10_var._rotation_absolute); rot_transpose(_l_13_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_10_var._rotation_absolute, tr1, _divergence_monitor_10_var._rotation_relative); _divergence_monitor_10_var._rotation_is_identity = rot_test_identity(_divergence_monitor_10_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 2); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_10_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_l_13_var._position_absolute, _divergence_monitor_10_var._position_absolute); _divergence_monitor_10_var._position_relative = rot_apply(_divergence_monitor_10_var._rotation_absolute, tc1); } /* divergence_monitor_10=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_10", _divergence_monitor_10_var._position_absolute, _divergence_monitor_10_var._rotation_absolute); instrument->_position_absolute[76] = _divergence_monitor_10_var._position_absolute; instrument->_position_relative[76] = _divergence_monitor_10_var._position_relative; _divergence_monitor_10_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_10_var._position_relative); instrument->counter_N[76] = instrument->counter_P[76] = instrument->counter_P2[76] = 0; instrument->counter_AbsorbProp[76]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0075_divergence_monitor_10", _divergence_monitor_10_var._position_absolute, _divergence_monitor_10_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "filename", 0, "DivMon_0010", "char*"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "maxdiv_v", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0075_divergence_monitor_10", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_10_setpos */ /* component divergence_monitor_11=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_11_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_11_setpos] component divergence_monitor_11=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_11_var._name, "divergence_monitor_11", 16384); stracpy(_divergence_monitor_11_var._type, "Divergence_monitor", 16384); _divergence_monitor_11_var._index=77; int current_setpos_index = 77; _divergence_monitor_11_var._parameters.nh = 100; _divergence_monitor_11_var._parameters.nv = 100; if("DivMon_0011" && strlen("DivMon_0011")) stracpy(_divergence_monitor_11_var._parameters.filename, "DivMon_0011" ? "DivMon_0011" : "", 16384); else _divergence_monitor_11_var._parameters.filename[0]='\0'; _divergence_monitor_11_var._parameters.xmin = -0.05; _divergence_monitor_11_var._parameters.xmax = 0.05; _divergence_monitor_11_var._parameters.ymin = -0.05; _divergence_monitor_11_var._parameters.ymax = 0.05; _divergence_monitor_11_var._parameters.nowritefile = 0; _divergence_monitor_11_var._parameters.xwidth = 0.2; _divergence_monitor_11_var._parameters.yheight = 0.2; _divergence_monitor_11_var._parameters.maxdiv_h = 1; _divergence_monitor_11_var._parameters.maxdiv_v = 1; _divergence_monitor_11_var._parameters.restore_neutron = 1; _divergence_monitor_11_var._parameters.nx = 0; _divergence_monitor_11_var._parameters.ny = 0; _divergence_monitor_11_var._parameters.nz = 1; /* component divergence_monitor_11=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _divergence_monitor_11_var._rotation_absolute); rot_transpose(_divergence_monitor_10_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_11_var._rotation_absolute, tr1, _divergence_monitor_11_var._rotation_relative); _divergence_monitor_11_var._rotation_is_identity = rot_test_identity(_divergence_monitor_11_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 4); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_11_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_10_var._position_absolute, _divergence_monitor_11_var._position_absolute); _divergence_monitor_11_var._position_relative = rot_apply(_divergence_monitor_11_var._rotation_absolute, tc1); } /* divergence_monitor_11=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_11", _divergence_monitor_11_var._position_absolute, _divergence_monitor_11_var._rotation_absolute); instrument->_position_absolute[77] = _divergence_monitor_11_var._position_absolute; instrument->_position_relative[77] = _divergence_monitor_11_var._position_relative; _divergence_monitor_11_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_11_var._position_relative); instrument->counter_N[77] = instrument->counter_P[77] = instrument->counter_P2[77] = 0; instrument->counter_AbsorbProp[77]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0076_divergence_monitor_11", _divergence_monitor_11_var._position_absolute, _divergence_monitor_11_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "filename", 0, "DivMon_0011", "char*"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "maxdiv_v", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0076_divergence_monitor_11", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_11_setpos */ /* component divergence_monitor_12=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_12_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_12_setpos] component divergence_monitor_12=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_12_var._name, "divergence_monitor_12", 16384); stracpy(_divergence_monitor_12_var._type, "Divergence_monitor", 16384); _divergence_monitor_12_var._index=78; int current_setpos_index = 78; _divergence_monitor_12_var._parameters.nh = 100; _divergence_monitor_12_var._parameters.nv = 100; if("DivMon_0012" && strlen("DivMon_0012")) stracpy(_divergence_monitor_12_var._parameters.filename, "DivMon_0012" ? "DivMon_0012" : "", 16384); else _divergence_monitor_12_var._parameters.filename[0]='\0'; _divergence_monitor_12_var._parameters.xmin = -0.05; _divergence_monitor_12_var._parameters.xmax = 0.05; _divergence_monitor_12_var._parameters.ymin = -0.05; _divergence_monitor_12_var._parameters.ymax = 0.05; _divergence_monitor_12_var._parameters.nowritefile = 0; _divergence_monitor_12_var._parameters.xwidth = 0.2; _divergence_monitor_12_var._parameters.yheight = 0.2; _divergence_monitor_12_var._parameters.maxdiv_h = 1; _divergence_monitor_12_var._parameters.maxdiv_v = 1; _divergence_monitor_12_var._parameters.restore_neutron = 1; _divergence_monitor_12_var._parameters.nx = 0; _divergence_monitor_12_var._parameters.ny = 0; _divergence_monitor_12_var._parameters.nz = 1; /* component divergence_monitor_12=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _divergence_monitor_12_var._rotation_absolute); rot_transpose(_divergence_monitor_11_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_12_var._rotation_absolute, tr1, _divergence_monitor_12_var._rotation_relative); _divergence_monitor_12_var._rotation_is_identity = rot_test_identity(_divergence_monitor_12_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 6); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_12_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_11_var._position_absolute, _divergence_monitor_12_var._position_absolute); _divergence_monitor_12_var._position_relative = rot_apply(_divergence_monitor_12_var._rotation_absolute, tc1); } /* divergence_monitor_12=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_12", _divergence_monitor_12_var._position_absolute, _divergence_monitor_12_var._rotation_absolute); instrument->_position_absolute[78] = _divergence_monitor_12_var._position_absolute; instrument->_position_relative[78] = _divergence_monitor_12_var._position_relative; _divergence_monitor_12_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_12_var._position_relative); instrument->counter_N[78] = instrument->counter_P[78] = instrument->counter_P2[78] = 0; instrument->counter_AbsorbProp[78]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0077_divergence_monitor_12", _divergence_monitor_12_var._position_absolute, _divergence_monitor_12_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "filename", 0, "DivMon_0012", "char*"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "maxdiv_v", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0077_divergence_monitor_12", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_12_setpos */ /* component divergence_monitor_13=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_13_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_13_setpos] component divergence_monitor_13=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_13_var._name, "divergence_monitor_13", 16384); stracpy(_divergence_monitor_13_var._type, "Divergence_monitor", 16384); _divergence_monitor_13_var._index=79; int current_setpos_index = 79; _divergence_monitor_13_var._parameters.nh = 100; _divergence_monitor_13_var._parameters.nv = 100; if("DivMon_0013" && strlen("DivMon_0013")) stracpy(_divergence_monitor_13_var._parameters.filename, "DivMon_0013" ? "DivMon_0013" : "", 16384); else _divergence_monitor_13_var._parameters.filename[0]='\0'; _divergence_monitor_13_var._parameters.xmin = -0.05; _divergence_monitor_13_var._parameters.xmax = 0.05; _divergence_monitor_13_var._parameters.ymin = -0.05; _divergence_monitor_13_var._parameters.ymax = 0.05; _divergence_monitor_13_var._parameters.nowritefile = 0; _divergence_monitor_13_var._parameters.xwidth = 0.2; _divergence_monitor_13_var._parameters.yheight = 0.2; _divergence_monitor_13_var._parameters.maxdiv_h = 1; _divergence_monitor_13_var._parameters.maxdiv_v = 1; _divergence_monitor_13_var._parameters.restore_neutron = 1; _divergence_monitor_13_var._parameters.nx = 0; _divergence_monitor_13_var._parameters.ny = 0; _divergence_monitor_13_var._parameters.nz = 1; /* component divergence_monitor_13=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _divergence_monitor_13_var._rotation_absolute); rot_transpose(_divergence_monitor_12_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_13_var._rotation_absolute, tr1, _divergence_monitor_13_var._rotation_relative); _divergence_monitor_13_var._rotation_is_identity = rot_test_identity(_divergence_monitor_13_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 8); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_13_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_12_var._position_absolute, _divergence_monitor_13_var._position_absolute); _divergence_monitor_13_var._position_relative = rot_apply(_divergence_monitor_13_var._rotation_absolute, tc1); } /* divergence_monitor_13=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_13", _divergence_monitor_13_var._position_absolute, _divergence_monitor_13_var._rotation_absolute); instrument->_position_absolute[79] = _divergence_monitor_13_var._position_absolute; instrument->_position_relative[79] = _divergence_monitor_13_var._position_relative; _divergence_monitor_13_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_13_var._position_relative); instrument->counter_N[79] = instrument->counter_P[79] = instrument->counter_P2[79] = 0; instrument->counter_AbsorbProp[79]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0078_divergence_monitor_13", _divergence_monitor_13_var._position_absolute, _divergence_monitor_13_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "filename", 0, "DivMon_0013", "char*"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "maxdiv_v", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0078_divergence_monitor_13", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_13_setpos */ /* component divlambda_10=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _divlambda_10_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divlambda_10_setpos] component divlambda_10=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_divlambda_10_var._name, "divlambda_10", 16384); stracpy(_divlambda_10_var._type, "DivLambda_monitor", 16384); _divlambda_10_var._index=80; int current_setpos_index = 80; _divlambda_10_var._parameters.nL = 100; _divlambda_10_var._parameters.nh = 100; _divlambda_10_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0010" && strlen("DivLambdaMon_h_0010")) stracpy(_divlambda_10_var._parameters.filename, "DivLambdaMon_h_0010" ? "DivLambdaMon_h_0010" : "", 16384); else _divlambda_10_var._parameters.filename[0]='\0'; _divlambda_10_var._parameters.xmin = -0.05; _divlambda_10_var._parameters.xmax = 0.05; _divlambda_10_var._parameters.ymin = -0.05; _divlambda_10_var._parameters.ymax = 0.05; _divlambda_10_var._parameters.xwidth = 0.2; _divlambda_10_var._parameters.yheight = 0.2; _divlambda_10_var._parameters.maxdiv_h = 1; _divlambda_10_var._parameters.Lmin = Lmin_source; _divlambda_10_var._parameters.Lmax = Lmax_source; _divlambda_10_var._parameters.restore_neutron = 1; _divlambda_10_var._parameters.nx = 0; _divlambda_10_var._parameters.ny = 0; _divlambda_10_var._parameters.nz = 1; /* component divlambda_10=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _divlambda_10_var._rotation_absolute); rot_transpose(_divergence_monitor_13_var._rotation_absolute, tr1); rot_mul(_divlambda_10_var._rotation_absolute, tr1, _divlambda_10_var._rotation_relative); _divlambda_10_var._rotation_is_identity = rot_test_identity(_divlambda_10_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 2); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divlambda_10_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_13_var._position_absolute, _divlambda_10_var._position_absolute); _divlambda_10_var._position_relative = rot_apply(_divlambda_10_var._rotation_absolute, tc1); } /* divlambda_10=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("divlambda_10", _divlambda_10_var._position_absolute, _divlambda_10_var._rotation_absolute); instrument->_position_absolute[80] = _divlambda_10_var._position_absolute; instrument->_position_relative[80] = _divlambda_10_var._position_relative; _divlambda_10_var._position_relative_is_zero = coords_test_zero(_divlambda_10_var._position_relative); instrument->counter_N[80] = instrument->counter_P[80] = instrument->counter_P2[80] = 0; instrument->counter_AbsorbProp[80]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0079_divlambda_10", _divlambda_10_var._position_absolute, _divlambda_10_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "filename", 0, "DivLambdaMon_h_0010", "char*"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0079_divlambda_10", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divlambda_10_setpos */ /* component h_divlambda_11=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_11_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_11_setpos] component h_divlambda_11=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_11_var._name, "h_divlambda_11", 16384); stracpy(_h_divlambda_11_var._type, "DivLambda_monitor", 16384); _h_divlambda_11_var._index=81; int current_setpos_index = 81; _h_divlambda_11_var._parameters.nL = 100; _h_divlambda_11_var._parameters.nh = 100; _h_divlambda_11_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0011" && strlen("DivLambdaMon_h_0011")) stracpy(_h_divlambda_11_var._parameters.filename, "DivLambdaMon_h_0011" ? "DivLambdaMon_h_0011" : "", 16384); else _h_divlambda_11_var._parameters.filename[0]='\0'; _h_divlambda_11_var._parameters.xmin = -0.05; _h_divlambda_11_var._parameters.xmax = 0.05; _h_divlambda_11_var._parameters.ymin = -0.05; _h_divlambda_11_var._parameters.ymax = 0.05; _h_divlambda_11_var._parameters.xwidth = 0.2; _h_divlambda_11_var._parameters.yheight = 0.2; _h_divlambda_11_var._parameters.maxdiv_h = 1; _h_divlambda_11_var._parameters.Lmin = Lmin_source; _h_divlambda_11_var._parameters.Lmax = Lmax_source; _h_divlambda_11_var._parameters.restore_neutron = 1; _h_divlambda_11_var._parameters.nx = 0; _h_divlambda_11_var._parameters.ny = 0; _h_divlambda_11_var._parameters.nz = 1; /* component h_divlambda_11=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _h_divlambda_11_var._rotation_absolute); rot_transpose(_divlambda_10_var._rotation_absolute, tr1); rot_mul(_h_divlambda_11_var._rotation_absolute, tr1, _h_divlambda_11_var._rotation_relative); _h_divlambda_11_var._rotation_is_identity = rot_test_identity(_h_divlambda_11_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 4); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_11_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_divlambda_10_var._position_absolute, _h_divlambda_11_var._position_absolute); _h_divlambda_11_var._position_relative = rot_apply(_h_divlambda_11_var._rotation_absolute, tc1); } /* h_divlambda_11=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_11", _h_divlambda_11_var._position_absolute, _h_divlambda_11_var._rotation_absolute); instrument->_position_absolute[81] = _h_divlambda_11_var._position_absolute; instrument->_position_relative[81] = _h_divlambda_11_var._position_relative; _h_divlambda_11_var._position_relative_is_zero = coords_test_zero(_h_divlambda_11_var._position_relative); instrument->counter_N[81] = instrument->counter_P[81] = instrument->counter_P2[81] = 0; instrument->counter_AbsorbProp[81]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0080_h_divlambda_11", _h_divlambda_11_var._position_absolute, _h_divlambda_11_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "filename", 0, "DivLambdaMon_h_0011", "char*"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0080_h_divlambda_11", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_11_setpos */ /* component h_divlambda_12=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_12_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_12_setpos] component h_divlambda_12=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_12_var._name, "h_divlambda_12", 16384); stracpy(_h_divlambda_12_var._type, "DivLambda_monitor", 16384); _h_divlambda_12_var._index=82; int current_setpos_index = 82; _h_divlambda_12_var._parameters.nL = 100; _h_divlambda_12_var._parameters.nh = 100; _h_divlambda_12_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0012" && strlen("DivLambdaMon_h_0012")) stracpy(_h_divlambda_12_var._parameters.filename, "DivLambdaMon_h_0012" ? "DivLambdaMon_h_0012" : "", 16384); else _h_divlambda_12_var._parameters.filename[0]='\0'; _h_divlambda_12_var._parameters.xmin = -0.05; _h_divlambda_12_var._parameters.xmax = 0.05; _h_divlambda_12_var._parameters.ymin = -0.05; _h_divlambda_12_var._parameters.ymax = 0.05; _h_divlambda_12_var._parameters.xwidth = 0.2; _h_divlambda_12_var._parameters.yheight = 0.2; _h_divlambda_12_var._parameters.maxdiv_h = 1; _h_divlambda_12_var._parameters.Lmin = Lmin_source; _h_divlambda_12_var._parameters.Lmax = Lmax_source; _h_divlambda_12_var._parameters.restore_neutron = 1; _h_divlambda_12_var._parameters.nx = 0; _h_divlambda_12_var._parameters.ny = 0; _h_divlambda_12_var._parameters.nz = 1; /* component h_divlambda_12=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _h_divlambda_12_var._rotation_absolute); rot_transpose(_h_divlambda_11_var._rotation_absolute, tr1); rot_mul(_h_divlambda_12_var._rotation_absolute, tr1, _h_divlambda_12_var._rotation_relative); _h_divlambda_12_var._rotation_is_identity = rot_test_identity(_h_divlambda_12_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 6); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_12_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_11_var._position_absolute, _h_divlambda_12_var._position_absolute); _h_divlambda_12_var._position_relative = rot_apply(_h_divlambda_12_var._rotation_absolute, tc1); } /* h_divlambda_12=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_12", _h_divlambda_12_var._position_absolute, _h_divlambda_12_var._rotation_absolute); instrument->_position_absolute[82] = _h_divlambda_12_var._position_absolute; instrument->_position_relative[82] = _h_divlambda_12_var._position_relative; _h_divlambda_12_var._position_relative_is_zero = coords_test_zero(_h_divlambda_12_var._position_relative); instrument->counter_N[82] = instrument->counter_P[82] = instrument->counter_P2[82] = 0; instrument->counter_AbsorbProp[82]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0081_h_divlambda_12", _h_divlambda_12_var._position_absolute, _h_divlambda_12_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "filename", 0, "DivLambdaMon_h_0012", "char*"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0081_h_divlambda_12", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_12_setpos */ /* component h_divlambda_13=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _h_divlambda_13_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_h_divlambda_13_setpos] component h_divlambda_13=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_h_divlambda_13_var._name, "h_divlambda_13", 16384); stracpy(_h_divlambda_13_var._type, "DivLambda_monitor", 16384); _h_divlambda_13_var._index=83; int current_setpos_index = 83; _h_divlambda_13_var._parameters.nL = 100; _h_divlambda_13_var._parameters.nh = 100; _h_divlambda_13_var._parameters.nowritefile = 0; if("DivLambdaMon_h_0013" && strlen("DivLambdaMon_h_0013")) stracpy(_h_divlambda_13_var._parameters.filename, "DivLambdaMon_h_0013" ? "DivLambdaMon_h_0013" : "", 16384); else _h_divlambda_13_var._parameters.filename[0]='\0'; _h_divlambda_13_var._parameters.xmin = -0.05; _h_divlambda_13_var._parameters.xmax = 0.05; _h_divlambda_13_var._parameters.ymin = -0.05; _h_divlambda_13_var._parameters.ymax = 0.05; _h_divlambda_13_var._parameters.xwidth = 0.2; _h_divlambda_13_var._parameters.yheight = 0.2; _h_divlambda_13_var._parameters.maxdiv_h = 1; _h_divlambda_13_var._parameters.Lmin = Lmin_source; _h_divlambda_13_var._parameters.Lmax = Lmax_source; _h_divlambda_13_var._parameters.restore_neutron = 1; _h_divlambda_13_var._parameters.nx = 0; _h_divlambda_13_var._parameters.ny = 0; _h_divlambda_13_var._parameters.nz = 1; /* component h_divlambda_13=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _h_divlambda_13_var._rotation_absolute); rot_transpose(_h_divlambda_12_var._rotation_absolute, tr1); rot_mul(_h_divlambda_13_var._rotation_absolute, tr1, _h_divlambda_13_var._rotation_relative); _h_divlambda_13_var._rotation_is_identity = rot_test_identity(_h_divlambda_13_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 8); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _h_divlambda_13_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_12_var._position_absolute, _h_divlambda_13_var._position_absolute); _h_divlambda_13_var._position_relative = rot_apply(_h_divlambda_13_var._rotation_absolute, tc1); } /* h_divlambda_13=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("h_divlambda_13", _h_divlambda_13_var._position_absolute, _h_divlambda_13_var._rotation_absolute); instrument->_position_absolute[83] = _h_divlambda_13_var._position_absolute; instrument->_position_relative[83] = _h_divlambda_13_var._position_relative; _h_divlambda_13_var._position_relative_is_zero = coords_test_zero(_h_divlambda_13_var._position_relative); instrument->counter_N[83] = instrument->counter_P[83] = instrument->counter_P2[83] = 0; instrument->counter_AbsorbProp[83]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0082_h_divlambda_13", _h_divlambda_13_var._position_absolute, _h_divlambda_13_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "filename", 0, "DivLambdaMon_h_0013", "char*"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0082_h_divlambda_13", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _h_divlambda_13_setpos */ /* component v_divlambda_10=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_10_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_10_setpos] component v_divlambda_10=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_10_var._name, "v_divlambda_10", 16384); stracpy(_v_divlambda_10_var._type, "DivLambda_monitor", 16384); _v_divlambda_10_var._index=84; int current_setpos_index = 84; _v_divlambda_10_var._parameters.nL = 100; _v_divlambda_10_var._parameters.nh = 100; _v_divlambda_10_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0010" && strlen("DivLambdaMon_v_0010")) stracpy(_v_divlambda_10_var._parameters.filename, "DivLambdaMon_v_0010" ? "DivLambdaMon_v_0010" : "", 16384); else _v_divlambda_10_var._parameters.filename[0]='\0'; _v_divlambda_10_var._parameters.xmin = -0.05; _v_divlambda_10_var._parameters.xmax = 0.05; _v_divlambda_10_var._parameters.ymin = -0.05; _v_divlambda_10_var._parameters.ymax = 0.05; _v_divlambda_10_var._parameters.xwidth = 0.2; _v_divlambda_10_var._parameters.yheight = 0.2; _v_divlambda_10_var._parameters.maxdiv_h = 1; _v_divlambda_10_var._parameters.Lmin = Lmin_source; _v_divlambda_10_var._parameters.Lmax = Lmax_source; _v_divlambda_10_var._parameters.restore_neutron = 1; _v_divlambda_10_var._parameters.nx = 0; _v_divlambda_10_var._parameters.ny = 0; _v_divlambda_10_var._parameters.nz = 1; /* component v_divlambda_10=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _v_divlambda_10_var._rotation_absolute); rot_transpose(_h_divlambda_13_var._rotation_absolute, tr1); rot_mul(_v_divlambda_10_var._rotation_absolute, tr1, _v_divlambda_10_var._rotation_relative); _v_divlambda_10_var._rotation_is_identity = rot_test_identity(_v_divlambda_10_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 2); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_10_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_h_divlambda_13_var._position_absolute, _v_divlambda_10_var._position_absolute); _v_divlambda_10_var._position_relative = rot_apply(_v_divlambda_10_var._rotation_absolute, tc1); } /* v_divlambda_10=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_10", _v_divlambda_10_var._position_absolute, _v_divlambda_10_var._rotation_absolute); instrument->_position_absolute[84] = _v_divlambda_10_var._position_absolute; instrument->_position_relative[84] = _v_divlambda_10_var._position_relative; _v_divlambda_10_var._position_relative_is_zero = coords_test_zero(_v_divlambda_10_var._position_relative); instrument->counter_N[84] = instrument->counter_P[84] = instrument->counter_P2[84] = 0; instrument->counter_AbsorbProp[84]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0083_v_divlambda_10", _v_divlambda_10_var._position_absolute, _v_divlambda_10_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "filename", 0, "DivLambdaMon_v_0010", "char*"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0083_v_divlambda_10", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_10_setpos */ /* component v_divlambda_11=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_11_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_11_setpos] component v_divlambda_11=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_11_var._name, "v_divlambda_11", 16384); stracpy(_v_divlambda_11_var._type, "DivLambda_monitor", 16384); _v_divlambda_11_var._index=85; int current_setpos_index = 85; _v_divlambda_11_var._parameters.nL = 100; _v_divlambda_11_var._parameters.nh = 100; _v_divlambda_11_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0011" && strlen("DivLambdaMon_v_0011")) stracpy(_v_divlambda_11_var._parameters.filename, "DivLambdaMon_v_0011" ? "DivLambdaMon_v_0011" : "", 16384); else _v_divlambda_11_var._parameters.filename[0]='\0'; _v_divlambda_11_var._parameters.xmin = -0.05; _v_divlambda_11_var._parameters.xmax = 0.05; _v_divlambda_11_var._parameters.ymin = -0.05; _v_divlambda_11_var._parameters.ymax = 0.05; _v_divlambda_11_var._parameters.xwidth = 0.2; _v_divlambda_11_var._parameters.yheight = 0.2; _v_divlambda_11_var._parameters.maxdiv_h = 1; _v_divlambda_11_var._parameters.Lmin = Lmin_source; _v_divlambda_11_var._parameters.Lmax = Lmax_source; _v_divlambda_11_var._parameters.restore_neutron = 1; _v_divlambda_11_var._parameters.nx = 0; _v_divlambda_11_var._parameters.ny = 0; _v_divlambda_11_var._parameters.nz = 1; /* component v_divlambda_11=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _v_divlambda_11_var._rotation_absolute); rot_transpose(_v_divlambda_10_var._rotation_absolute, tr1); rot_mul(_v_divlambda_11_var._rotation_absolute, tr1, _v_divlambda_11_var._rotation_relative); _v_divlambda_11_var._rotation_is_identity = rot_test_identity(_v_divlambda_11_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 4); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_11_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_10_var._position_absolute, _v_divlambda_11_var._position_absolute); _v_divlambda_11_var._position_relative = rot_apply(_v_divlambda_11_var._rotation_absolute, tc1); } /* v_divlambda_11=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_11", _v_divlambda_11_var._position_absolute, _v_divlambda_11_var._rotation_absolute); instrument->_position_absolute[85] = _v_divlambda_11_var._position_absolute; instrument->_position_relative[85] = _v_divlambda_11_var._position_relative; _v_divlambda_11_var._position_relative_is_zero = coords_test_zero(_v_divlambda_11_var._position_relative); instrument->counter_N[85] = instrument->counter_P[85] = instrument->counter_P2[85] = 0; instrument->counter_AbsorbProp[85]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0084_v_divlambda_11", _v_divlambda_11_var._position_absolute, _v_divlambda_11_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "filename", 0, "DivLambdaMon_v_0011", "char*"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0084_v_divlambda_11", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_11_setpos */ /* component v_divlambda_12=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_12_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_12_setpos] component v_divlambda_12=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_12_var._name, "v_divlambda_12", 16384); stracpy(_v_divlambda_12_var._type, "DivLambda_monitor", 16384); _v_divlambda_12_var._index=86; int current_setpos_index = 86; _v_divlambda_12_var._parameters.nL = 100; _v_divlambda_12_var._parameters.nh = 100; _v_divlambda_12_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0012" && strlen("DivLambdaMon_v_0012")) stracpy(_v_divlambda_12_var._parameters.filename, "DivLambdaMon_v_0012" ? "DivLambdaMon_v_0012" : "", 16384); else _v_divlambda_12_var._parameters.filename[0]='\0'; _v_divlambda_12_var._parameters.xmin = -0.05; _v_divlambda_12_var._parameters.xmax = 0.05; _v_divlambda_12_var._parameters.ymin = -0.05; _v_divlambda_12_var._parameters.ymax = 0.05; _v_divlambda_12_var._parameters.xwidth = 0.2; _v_divlambda_12_var._parameters.yheight = 0.2; _v_divlambda_12_var._parameters.maxdiv_h = 1; _v_divlambda_12_var._parameters.Lmin = Lmin_source; _v_divlambda_12_var._parameters.Lmax = Lmax_source; _v_divlambda_12_var._parameters.restore_neutron = 1; _v_divlambda_12_var._parameters.nx = 0; _v_divlambda_12_var._parameters.ny = 0; _v_divlambda_12_var._parameters.nz = 1; /* component v_divlambda_12=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _v_divlambda_12_var._rotation_absolute); rot_transpose(_v_divlambda_11_var._rotation_absolute, tr1); rot_mul(_v_divlambda_12_var._rotation_absolute, tr1, _v_divlambda_12_var._rotation_relative); _v_divlambda_12_var._rotation_is_identity = rot_test_identity(_v_divlambda_12_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 6); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_12_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_11_var._position_absolute, _v_divlambda_12_var._position_absolute); _v_divlambda_12_var._position_relative = rot_apply(_v_divlambda_12_var._rotation_absolute, tc1); } /* v_divlambda_12=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_12", _v_divlambda_12_var._position_absolute, _v_divlambda_12_var._rotation_absolute); instrument->_position_absolute[86] = _v_divlambda_12_var._position_absolute; instrument->_position_relative[86] = _v_divlambda_12_var._position_relative; _v_divlambda_12_var._position_relative_is_zero = coords_test_zero(_v_divlambda_12_var._position_relative); instrument->counter_N[86] = instrument->counter_P[86] = instrument->counter_P2[86] = 0; instrument->counter_AbsorbProp[86]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0085_v_divlambda_12", _v_divlambda_12_var._position_absolute, _v_divlambda_12_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "filename", 0, "DivLambdaMon_v_0012", "char*"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0085_v_divlambda_12", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_12_setpos */ /* component v_divlambda_13=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _v_divlambda_13_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_v_divlambda_13_setpos] component v_divlambda_13=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_v_divlambda_13_var._name, "v_divlambda_13", 16384); stracpy(_v_divlambda_13_var._type, "DivLambda_monitor", 16384); _v_divlambda_13_var._index=87; int current_setpos_index = 87; _v_divlambda_13_var._parameters.nL = 100; _v_divlambda_13_var._parameters.nh = 100; _v_divlambda_13_var._parameters.nowritefile = 0; if("DivLambdaMon_v_0013" && strlen("DivLambdaMon_v_0013")) stracpy(_v_divlambda_13_var._parameters.filename, "DivLambdaMon_v_0013" ? "DivLambdaMon_v_0013" : "", 16384); else _v_divlambda_13_var._parameters.filename[0]='\0'; _v_divlambda_13_var._parameters.xmin = -0.05; _v_divlambda_13_var._parameters.xmax = 0.05; _v_divlambda_13_var._parameters.ymin = -0.05; _v_divlambda_13_var._parameters.ymax = 0.05; _v_divlambda_13_var._parameters.xwidth = 0.2; _v_divlambda_13_var._parameters.yheight = 0.2; _v_divlambda_13_var._parameters.maxdiv_h = 1; _v_divlambda_13_var._parameters.Lmin = Lmin_source; _v_divlambda_13_var._parameters.Lmax = Lmax_source; _v_divlambda_13_var._parameters.restore_neutron = 1; _v_divlambda_13_var._parameters.nx = 0; _v_divlambda_13_var._parameters.ny = 0; _v_divlambda_13_var._parameters.nz = 1; /* component v_divlambda_13=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _v_divlambda_13_var._rotation_absolute); rot_transpose(_v_divlambda_12_var._rotation_absolute, tr1); rot_mul(_v_divlambda_13_var._rotation_absolute, tr1, _v_divlambda_13_var._rotation_relative); _v_divlambda_13_var._rotation_is_identity = rot_test_identity(_v_divlambda_13_var._rotation_relative); tc1 = coords_set( 0, 0, 0.82 + 8); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _v_divlambda_13_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_12_var._position_absolute, _v_divlambda_13_var._position_absolute); _v_divlambda_13_var._position_relative = rot_apply(_v_divlambda_13_var._rotation_absolute, tc1); } /* v_divlambda_13=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("v_divlambda_13", _v_divlambda_13_var._position_absolute, _v_divlambda_13_var._rotation_absolute); instrument->_position_absolute[87] = _v_divlambda_13_var._position_absolute; instrument->_position_relative[87] = _v_divlambda_13_var._position_relative; _v_divlambda_13_var._position_relative_is_zero = coords_test_zero(_v_divlambda_13_var._position_relative); instrument->counter_N[87] = instrument->counter_P[87] = instrument->counter_P2[87] = 0; instrument->counter_AbsorbProp[87]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0086_v_divlambda_13", _v_divlambda_13_var._position_absolute, _v_divlambda_13_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "filename", 0, "DivLambdaMon_v_0013", "char*"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "xwidth", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "yheight", "0", "0.2","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0086_v_divlambda_13", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _v_divlambda_13_setpos */ /* component psd_monitor_detector=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_monitor_detector_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_monitor_detector_setpos] component psd_monitor_detector=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_monitor_detector_var._name, "psd_monitor_detector", 16384); stracpy(_psd_monitor_detector_var._type, "PSD_monitor", 16384); _psd_monitor_detector_var._index=88; int current_setpos_index = 88; _psd_monitor_detector_var._parameters.nx = 1000; _psd_monitor_detector_var._parameters.ny = 1000; if("PSD_0014" && strlen("PSD_0014")) stracpy(_psd_monitor_detector_var._parameters.filename, "PSD_0014" ? "PSD_0014" : "", 16384); else _psd_monitor_detector_var._parameters.filename[0]='\0'; _psd_monitor_detector_var._parameters.xmin = -0.05; _psd_monitor_detector_var._parameters.xmax = 0.05; _psd_monitor_detector_var._parameters.ymin = -0.05; _psd_monitor_detector_var._parameters.ymax = 0.05; _psd_monitor_detector_var._parameters.xwidth = 0.02; _psd_monitor_detector_var._parameters.yheight = 0.02; _psd_monitor_detector_var._parameters.restore_neutron = 1; _psd_monitor_detector_var._parameters.nowritefile = 0; /* component psd_monitor_detector=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _cEH_var._rotation_absolute, _psd_monitor_detector_var._rotation_absolute); rot_transpose(_v_divlambda_13_var._rotation_absolute, tr1); rot_mul(_psd_monitor_detector_var._rotation_absolute, tr1, _psd_monitor_detector_var._rotation_relative); _psd_monitor_detector_var._rotation_is_identity = rot_test_identity(_psd_monitor_detector_var._rotation_relative); tc1 = coords_set( 0, 0, _instrument_var._parameters.fi_eh); rot_transpose(_cEH_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_monitor_detector_var._position_absolute = coords_add(_cEH_var._position_absolute, tc2); tc1 = coords_sub(_v_divlambda_13_var._position_absolute, _psd_monitor_detector_var._position_absolute); _psd_monitor_detector_var._position_relative = rot_apply(_psd_monitor_detector_var._rotation_absolute, tc1); } /* psd_monitor_detector=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_monitor_detector", _psd_monitor_detector_var._position_absolute, _psd_monitor_detector_var._rotation_absolute); instrument->_position_absolute[88] = _psd_monitor_detector_var._position_absolute; instrument->_position_relative[88] = _psd_monitor_detector_var._position_relative; _psd_monitor_detector_var._position_relative_is_zero = coords_test_zero(_psd_monitor_detector_var._position_relative); instrument->counter_N[88] = instrument->counter_P[88] = instrument->counter_P2[88] = 0; instrument->counter_AbsorbProp[88]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0087_psd_monitor_detector", _psd_monitor_detector_var._position_absolute, _psd_monitor_detector_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "nx", "90", "1000","int"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "ny", "90", "1000","int"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "filename", 0, "PSD_0014", "char*"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0087_psd_monitor_detector", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_monitor_detector_setpos */ /* component l_detector=L_monitor() SETTING, POSITION/ROTATION */ int _l_detector_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_l_detector_setpos] component l_detector=L_monitor() SETTING [L_monitor:0]"); stracpy(_l_detector_var._name, "l_detector", 16384); stracpy(_l_detector_var._type, "L_monitor", 16384); _l_detector_var._index=89; int current_setpos_index = 89; _l_detector_var._parameters.nL = 100; if("L_0014" && strlen("L_0014")) stracpy(_l_detector_var._parameters.filename, "L_0014" ? "L_0014" : "", 16384); else _l_detector_var._parameters.filename[0]='\0'; _l_detector_var._parameters.nowritefile = 0; _l_detector_var._parameters.xmin = -0.05; _l_detector_var._parameters.xmax = 0.05; _l_detector_var._parameters.ymin = -0.05; _l_detector_var._parameters.ymax = 0.05; _l_detector_var._parameters.xwidth = 0.02; _l_detector_var._parameters.yheight = 0.02; _l_detector_var._parameters.Lmin = Lmin_source; _l_detector_var._parameters.Lmax = Lmax_source; _l_detector_var._parameters.restore_neutron = 1; /* component l_detector=L_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _psd_monitor_detector_var._rotation_absolute, _l_detector_var._rotation_absolute); rot_transpose(_psd_monitor_detector_var._rotation_absolute, tr1); rot_mul(_l_detector_var._rotation_absolute, tr1, _l_detector_var._rotation_relative); _l_detector_var._rotation_is_identity = rot_test_identity(_l_detector_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_psd_monitor_detector_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _l_detector_var._position_absolute = coords_add(_psd_monitor_detector_var._position_absolute, tc2); tc1 = coords_sub(_psd_monitor_detector_var._position_absolute, _l_detector_var._position_absolute); _l_detector_var._position_relative = rot_apply(_l_detector_var._rotation_absolute, tc1); } /* l_detector=L_monitor() AT ROTATED */ DEBUG_COMPONENT("l_detector", _l_detector_var._position_absolute, _l_detector_var._rotation_absolute); instrument->_position_absolute[89] = _l_detector_var._position_absolute; instrument->_position_relative[89] = _l_detector_var._position_relative; _l_detector_var._position_relative_is_zero = coords_test_zero(_l_detector_var._position_relative); instrument->counter_N[89] = instrument->counter_P[89] = instrument->counter_P2[89] = 0; instrument->counter_AbsorbProp[89]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0088_l_detector", _l_detector_var._position_absolute, _l_detector_var._rotation_absolute, "L_monitor"); mccomp_param_nexus(nxhandle,"0088_l_detector", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0088_l_detector", "filename", 0, "L_0014", "char*"); mccomp_param_nexus(nxhandle,"0088_l_detector", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0088_l_detector", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0088_l_detector", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0088_l_detector", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0088_l_detector", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0088_l_detector", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0088_l_detector", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0088_l_detector", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0088_l_detector", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0088_l_detector", "restore_neutron", "0", "1","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _l_detector_setpos */ /* component divergence_monitor_detector=Divergence_monitor() SETTING, POSITION/ROTATION */ int _divergence_monitor_detector_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divergence_monitor_detector_setpos] component divergence_monitor_detector=Divergence_monitor() SETTING [Divergence_monitor:0]"); stracpy(_divergence_monitor_detector_var._name, "divergence_monitor_detector", 16384); stracpy(_divergence_monitor_detector_var._type, "Divergence_monitor", 16384); _divergence_monitor_detector_var._index=90; int current_setpos_index = 90; _divergence_monitor_detector_var._parameters.nh = 100; _divergence_monitor_detector_var._parameters.nv = 100; if("DivMon_0014" && strlen("DivMon_0014")) stracpy(_divergence_monitor_detector_var._parameters.filename, "DivMon_0014" ? "DivMon_0014" : "", 16384); else _divergence_monitor_detector_var._parameters.filename[0]='\0'; _divergence_monitor_detector_var._parameters.xmin = -0.05; _divergence_monitor_detector_var._parameters.xmax = 0.05; _divergence_monitor_detector_var._parameters.ymin = -0.05; _divergence_monitor_detector_var._parameters.ymax = 0.05; _divergence_monitor_detector_var._parameters.nowritefile = 0; _divergence_monitor_detector_var._parameters.xwidth = 0.02; _divergence_monitor_detector_var._parameters.yheight = 0.02; _divergence_monitor_detector_var._parameters.maxdiv_h = 1; _divergence_monitor_detector_var._parameters.maxdiv_v = 1; _divergence_monitor_detector_var._parameters.restore_neutron = 1; _divergence_monitor_detector_var._parameters.nx = 0; _divergence_monitor_detector_var._parameters.ny = 0; _divergence_monitor_detector_var._parameters.nz = 1; /* component divergence_monitor_detector=Divergence_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _l_detector_var._rotation_absolute, _divergence_monitor_detector_var._rotation_absolute); rot_transpose(_l_detector_var._rotation_absolute, tr1); rot_mul(_divergence_monitor_detector_var._rotation_absolute, tr1, _divergence_monitor_detector_var._rotation_relative); _divergence_monitor_detector_var._rotation_is_identity = rot_test_identity(_divergence_monitor_detector_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_l_detector_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divergence_monitor_detector_var._position_absolute = coords_add(_l_detector_var._position_absolute, tc2); tc1 = coords_sub(_l_detector_var._position_absolute, _divergence_monitor_detector_var._position_absolute); _divergence_monitor_detector_var._position_relative = rot_apply(_divergence_monitor_detector_var._rotation_absolute, tc1); } /* divergence_monitor_detector=Divergence_monitor() AT ROTATED */ DEBUG_COMPONENT("divergence_monitor_detector", _divergence_monitor_detector_var._position_absolute, _divergence_monitor_detector_var._rotation_absolute); instrument->_position_absolute[90] = _divergence_monitor_detector_var._position_absolute; instrument->_position_relative[90] = _divergence_monitor_detector_var._position_relative; _divergence_monitor_detector_var._position_relative_is_zero = coords_test_zero(_divergence_monitor_detector_var._position_relative); instrument->counter_N[90] = instrument->counter_P[90] = instrument->counter_P2[90] = 0; instrument->counter_AbsorbProp[90]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0089_divergence_monitor_detector", _divergence_monitor_detector_var._position_absolute, _divergence_monitor_detector_var._rotation_absolute, "Divergence_monitor"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "nv", "20", "100","int"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "filename", 0, "DivMon_0014", "char*"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "maxdiv_v", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0089_divergence_monitor_detector", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divergence_monitor_detector_setpos */ /* component divlambda_detector=DivLambda_monitor() SETTING, POSITION/ROTATION */ int _divlambda_detector_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_divlambda_detector_setpos] component divlambda_detector=DivLambda_monitor() SETTING [DivLambda_monitor:0]"); stracpy(_divlambda_detector_var._name, "divlambda_detector", 16384); stracpy(_divlambda_detector_var._type, "DivLambda_monitor", 16384); _divlambda_detector_var._index=91; int current_setpos_index = 91; _divlambda_detector_var._parameters.nL = 100; _divlambda_detector_var._parameters.nh = 100; _divlambda_detector_var._parameters.nowritefile = 0; if("DivLambdaMon_0014" && strlen("DivLambdaMon_0014")) stracpy(_divlambda_detector_var._parameters.filename, "DivLambdaMon_0014" ? "DivLambdaMon_0014" : "", 16384); else _divlambda_detector_var._parameters.filename[0]='\0'; _divlambda_detector_var._parameters.xmin = -0.05; _divlambda_detector_var._parameters.xmax = 0.05; _divlambda_detector_var._parameters.ymin = -0.05; _divlambda_detector_var._parameters.ymax = 0.05; _divlambda_detector_var._parameters.xwidth = 0.02; _divlambda_detector_var._parameters.yheight = 0.02; _divlambda_detector_var._parameters.maxdiv_h = 1; _divlambda_detector_var._parameters.Lmin = Lmin_source; _divlambda_detector_var._parameters.Lmax = Lmax_source; _divlambda_detector_var._parameters.restore_neutron = 1; _divlambda_detector_var._parameters.nx = 0; _divlambda_detector_var._parameters.ny = 0; _divlambda_detector_var._parameters.nz = 1; /* component divlambda_detector=DivLambda_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divergence_monitor_detector_var._rotation_absolute, _divlambda_detector_var._rotation_absolute); rot_transpose(_divergence_monitor_detector_var._rotation_absolute, tr1); rot_mul(_divlambda_detector_var._rotation_absolute, tr1, _divlambda_detector_var._rotation_relative); _divlambda_detector_var._rotation_is_identity = rot_test_identity(_divlambda_detector_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divergence_monitor_detector_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _divlambda_detector_var._position_absolute = coords_add(_divergence_monitor_detector_var._position_absolute, tc2); tc1 = coords_sub(_divergence_monitor_detector_var._position_absolute, _divlambda_detector_var._position_absolute); _divlambda_detector_var._position_relative = rot_apply(_divlambda_detector_var._rotation_absolute, tc1); } /* divlambda_detector=DivLambda_monitor() AT ROTATED */ DEBUG_COMPONENT("divlambda_detector", _divlambda_detector_var._position_absolute, _divlambda_detector_var._rotation_absolute); instrument->_position_absolute[91] = _divlambda_detector_var._position_absolute; instrument->_position_relative[91] = _divlambda_detector_var._position_relative; _divlambda_detector_var._position_relative_is_zero = coords_test_zero(_divlambda_detector_var._position_relative); instrument->counter_N[91] = instrument->counter_P[91] = instrument->counter_P2[91] = 0; instrument->counter_AbsorbProp[91]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0090_divlambda_detector", _divlambda_detector_var._position_absolute, _divlambda_detector_var._rotation_absolute, "DivLambda_monitor"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "nL", "20", "100","int"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "nh", "20", "100","int"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "nowritefile", "0", "0","int"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "filename", 0, "DivLambdaMon_0014", "char*"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "xwidth", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "yheight", "0", "0.02","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "maxdiv_h", "2", "1","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "Lmin", "NONE", "Lmin_source","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "Lmax", "NONE", "Lmax_source","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "nx", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "ny", "0", "0","MCNUM"); mccomp_param_nexus(nxhandle,"0090_divlambda_detector", "nz", "1", "1","MCNUM"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _divlambda_detector_setpos */ /* component psd_monitor_detector_big=PSD_monitor() SETTING, POSITION/ROTATION */ int _psd_monitor_detector_big_setpos(void) { /* sets initial component parameters, position and rotation */ SIG_MESSAGE("[_psd_monitor_detector_big_setpos] component psd_monitor_detector_big=PSD_monitor() SETTING [PSD_monitor:0]"); stracpy(_psd_monitor_detector_big_var._name, "psd_monitor_detector_big", 16384); stracpy(_psd_monitor_detector_big_var._type, "PSD_monitor", 16384); _psd_monitor_detector_big_var._index=92; int current_setpos_index = 92; _psd_monitor_detector_big_var._parameters.nx = 750; _psd_monitor_detector_big_var._parameters.ny = 750; if("PSD_0015" && strlen("PSD_0015")) stracpy(_psd_monitor_detector_big_var._parameters.filename, "PSD_0015" ? "PSD_0015" : "", 16384); else _psd_monitor_detector_big_var._parameters.filename[0]='\0'; _psd_monitor_detector_big_var._parameters.xmin = -0.05; _psd_monitor_detector_big_var._parameters.xmax = 0.05; _psd_monitor_detector_big_var._parameters.ymin = -0.05; _psd_monitor_detector_big_var._parameters.ymax = 0.05; _psd_monitor_detector_big_var._parameters.xwidth = 3; _psd_monitor_detector_big_var._parameters.yheight = 3; _psd_monitor_detector_big_var._parameters.restore_neutron = 1; _psd_monitor_detector_big_var._parameters.nowritefile = 0; /* component psd_monitor_detector_big=PSD_monitor() AT ROTATED */ { Coords tc1, tc2; tc1 = coords_set(0,0,0); tc2 = coords_set(0,0,0); Rotation tr1; rot_set_rotation(tr1,0,0,0); rot_set_rotation(tr1, (0.0)*DEG2RAD, (0.0)*DEG2RAD, (0.0)*DEG2RAD); rot_mul(tr1, _divlambda_detector_var._rotation_absolute, _psd_monitor_detector_big_var._rotation_absolute); rot_transpose(_divlambda_detector_var._rotation_absolute, tr1); rot_mul(_psd_monitor_detector_big_var._rotation_absolute, tr1, _psd_monitor_detector_big_var._rotation_relative); _psd_monitor_detector_big_var._rotation_is_identity = rot_test_identity(_psd_monitor_detector_big_var._rotation_relative); tc1 = coords_set( 0, 0, 0); rot_transpose(_divlambda_detector_var._rotation_absolute, tr1); tc2 = rot_apply(tr1, tc1); _psd_monitor_detector_big_var._position_absolute = coords_add(_divlambda_detector_var._position_absolute, tc2); tc1 = coords_sub(_divlambda_detector_var._position_absolute, _psd_monitor_detector_big_var._position_absolute); _psd_monitor_detector_big_var._position_relative = rot_apply(_psd_monitor_detector_big_var._rotation_absolute, tc1); } /* psd_monitor_detector_big=PSD_monitor() AT ROTATED */ DEBUG_COMPONENT("psd_monitor_detector_big", _psd_monitor_detector_big_var._position_absolute, _psd_monitor_detector_big_var._rotation_absolute); instrument->_position_absolute[92] = _psd_monitor_detector_big_var._position_absolute; instrument->_position_relative[92] = _psd_monitor_detector_big_var._position_relative; _psd_monitor_detector_big_var._position_relative_is_zero = coords_test_zero(_psd_monitor_detector_big_var._position_relative); instrument->counter_N[92] = instrument->counter_P[92] = instrument->counter_P2[92] = 0; instrument->counter_AbsorbProp[92]= 0; #ifdef USE_NEXUS if(nxhandle) { if ((!mcdotrace) && mcformat && strcasestr(mcformat, "NeXus")) { MPI_MASTER( mccomp_placement_type_nexus(nxhandle,"0091_psd_monitor_detector_big", _psd_monitor_detector_big_var._position_absolute, _psd_monitor_detector_big_var._rotation_absolute, "PSD_monitor"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "nx", "90", "750","int"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "ny", "90", "750","int"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "filename", 0, "PSD_0015", "char*"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "xmin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "xmax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "ymin", "-0.05", "-0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "ymax", "0.05", "0.05","MCNUM"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "xwidth", "0", "3","MCNUM"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "yheight", "0", "3","MCNUM"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "restore_neutron", "0", "1","int"); mccomp_param_nexus(nxhandle,"0091_psd_monitor_detector_big", "nowritefile", "0", "0","int"); ); } } else { // fprintf(stderr,"NO NEXUS FILE"); } #endif return(0); } /* _psd_monitor_detector_big_setpos */ _class_Progress_bar *class_Progress_bar_init(_class_Progress_bar *_comp ) { #define profile (_comp->_parameters.profile) #define percent (_comp->_parameters.percent) #define flag_save (_comp->_parameters.flag_save) #define minutes (_comp->_parameters.minutes) #define IntermediateCnts (_comp->_parameters.IntermediateCnts) #define StartTime (_comp->_parameters.StartTime) #define EndTime (_comp->_parameters.EndTime) #define CurrentTime (_comp->_parameters.CurrentTime) #define infostring (_comp->_parameters.infostring) SIG_MESSAGE("[_origin_init] component origin=Progress_bar() INITIALISE [Progress_bar:0]"); IntermediateCnts = 0; StartTime = 0; EndTime = 0; CurrentTime = 0; fprintf (stdout, "[%s] Initialize\n", instrument_name); if (percent * mcget_ncount () / 100 < 1e5) { percent = 1e5 * 100.0 / mcget_ncount (); } #ifdef OPENACC time (&StartTime); #endif #ifdef USE_MPI sprintf (infostring, "(%i MPI processes) ", mpi_node_count); #else sprintf (infostring, "(single process) "); #endif #undef profile #undef percent #undef flag_save #undef minutes #undef IntermediateCnts #undef StartTime #undef EndTime #undef CurrentTime #undef infostring return(_comp); } /* class_Progress_bar_init */ _class_Source_gen *class_Source_gen_init(_class_Source_gen *_comp ) { #define flux_file (_comp->_parameters.flux_file) #define xdiv_file (_comp->_parameters.xdiv_file) #define ydiv_file (_comp->_parameters.ydiv_file) #define radius (_comp->_parameters.radius) #define dist (_comp->_parameters.dist) #define focus_xw (_comp->_parameters.focus_xw) #define focus_yh (_comp->_parameters.focus_yh) #define focus_aw (_comp->_parameters.focus_aw) #define focus_ah (_comp->_parameters.focus_ah) #define E0 (_comp->_parameters.E0) #define dE (_comp->_parameters.dE) #define lambda0 (_comp->_parameters.lambda0) #define dlambda (_comp->_parameters.dlambda) #define I1 (_comp->_parameters.I1) #define yheight (_comp->_parameters.yheight) #define xwidth (_comp->_parameters.xwidth) #define verbose (_comp->_parameters.verbose) #define T1 (_comp->_parameters.T1) #define flux_file_perAA (_comp->_parameters.flux_file_perAA) #define flux_file_log (_comp->_parameters.flux_file_log) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define Emin (_comp->_parameters.Emin) #define Emax (_comp->_parameters.Emax) #define T2 (_comp->_parameters.T2) #define I2 (_comp->_parameters.I2) #define T3 (_comp->_parameters.T3) #define I3 (_comp->_parameters.I3) #define zdepth (_comp->_parameters.zdepth) #define target_index (_comp->_parameters.target_index) #define p_in (_comp->_parameters.p_in) #define lambda1 (_comp->_parameters.lambda1) #define lambda2 (_comp->_parameters.lambda2) #define lambda3 (_comp->_parameters.lambda3) #define pTable (_comp->_parameters.pTable) #define pTable_x (_comp->_parameters.pTable_x) #define pTable_y (_comp->_parameters.pTable_y) #define pTable_xmin (_comp->_parameters.pTable_xmin) #define pTable_xmax (_comp->_parameters.pTable_xmax) #define pTable_xsum (_comp->_parameters.pTable_xsum) #define pTable_ymin (_comp->_parameters.pTable_ymin) #define pTable_ymax (_comp->_parameters.pTable_ymax) #define pTable_ysum (_comp->_parameters.pTable_ysum) #define pTable_dxmin (_comp->_parameters.pTable_dxmin) #define pTable_dxmax (_comp->_parameters.pTable_dxmax) #define pTable_dymin (_comp->_parameters.pTable_dymin) #define pTable_dymax (_comp->_parameters.pTable_dymax) SIG_MESSAGE("[_Source_init] component Source=Source_gen() INITIALISE [Source_gen:0]"); pTable_xsum=0; pTable_ysum=0; double source_area, k; if (target_index && !dist) { Coords ToTarget; double tx,ty,tz; ToTarget = coords_sub(POS_A_COMP_INDEX(INDEX_CURRENT_COMP+target_index),POS_A_CURRENT_COMP); ToTarget = rot_apply(ROT_A_CURRENT_COMP, ToTarget); coords_get(ToTarget, &tx, &ty, &tz); dist=sqrt(tx*tx+ty*ty+tz*tz); } /* spectrum characteristics */ if (flux_file && strlen(flux_file) && strcmp(flux_file,"NULL") && strcmp(flux_file,"0")) { if (Table_Read(&pTable, flux_file, 1) <= 0) /* read 1st block data from file into pTable */ exit(fprintf(stderr, "Source_gen: %s: can not read flux file %s\n", NAME_CURRENT_COMP, flux_file)); /* put table in Log scale */ int i; if (pTable.columns < 2) exit(fprintf(stderr, "Source_gen: %s: Flux file %s should contain at least 2 columns [wavelength in Angs,flux].\n", NAME_CURRENT_COMP, flux_file)); double table_lmin=FLT_MAX, table_lmax=-FLT_MAX; double tmin=FLT_MAX, tmax=-FLT_MAX; for (i=0; i tmax) tmax=val; if (val < tmin) tmin=val; } for (i=0; i 0 ? val : tmin/10); Table_SetElement(&pTable, i, 1, val); val = Table_Index(pTable, i,0); /* lambda */ if (val > table_lmax) table_lmax=val; if (val < table_lmin) table_lmin=val; } if (!Lmin && !Lmax && !lambda0 && !dlambda && !E0 && !dE && !Emin && !Emax) { Lmin = table_lmin; Lmax = table_lmax; } if (Lmax > table_lmax) { if (verbose) fprintf(stderr, "Source_gen: %s: Maximum wavelength %g is beyond table range upper limit %g. Constraining.\n", NAME_CURRENT_COMP, Lmax, table_lmax); Lmax = table_lmax; } if (Lmin < table_lmin) { if (verbose) fprintf(stderr, "Source_gen: %s: Minimum wavelength %g is below table range lower limit %g. Constraining.\n", NAME_CURRENT_COMP, Lmin, table_lmin); Lmin = table_lmin; } } /* end flux file */ else { k = 1.38066e-23; /* k_B */ if (T1 > 0) { lambda1 = 1.0e10*sqrt(HBAR*HBAR*4.0*PI*PI/2.0/MNEUTRON/k/T1); } else { lambda1 = lambda0; } if (T2 > 0) { lambda2 = 1.0e10*sqrt(HBAR*HBAR*4.0*PI*PI/2.0/MNEUTRON/k/T2); } else { lambda2 = lambda0; } if (T3 > 0) { lambda3 = 1.0e10*sqrt(HBAR*HBAR*4.0*PI*PI/2.0/MNEUTRON/k/T3); } else { lambda3 = lambda0; } } /* now read position-divergence files, if any */ if (xdiv_file && strlen(xdiv_file) && strcmp(xdiv_file,"NULL") && strcmp(xdiv_file,"0")) { int i,j; if (Table_Read(&pTable_x, xdiv_file, 1) <= 0) /* read 1st block data from file into pTable */ exit(fprintf(stderr, "Source_gen: %s: can not read XDiv file %s\n", NAME_CURRENT_COMP, xdiv_file)); pTable_xsum = 0; for (i=0; i 0) || (dE > 0 && dE >= E0)) { fprintf(stderr,"Source_gen: %s: Error: minimal energy cannot be less or equal zero\n", NAME_CURRENT_COMP); exit(-1); } if ((Emax >= Emin) && (Emin > 0)) { E0 = (Emax+Emin)/2; dE = (Emax-Emin)/2; } if ((E0 > dE) && (dE >= 0)) { Lmin = sqrt(81.81/(E0+dE)); /* Angstroem */ Lmax = sqrt(81.81/(E0-dE)); } if (Lmax > 0) { lambda0 = (Lmax+Lmin)/2; dlambda = (Lmax-Lmin)/2; } if (lambda0 <= 0 || (lambda0 < dlambda) || (dlambda < 0)) { fprintf(stderr,"Source_gen: %s: Error: Wavelength range %.3f +/- %.3f AA calculated \n", NAME_CURRENT_COMP, lambda0, dlambda); fprintf(stderr,"- whole wavelength range must be >= 0 \n"); fprintf(stderr,"- range must be > 0; otherwise intensity gets zero, use other sources in this case \n\n"); exit(-1); } radius = fabs(radius); xwidth=fabs(xwidth); yheight=fabs(yheight); I1=fabs(I1); lambda0=fabs(lambda0); dlambda=fabs(dlambda); focus_xw = fabs(focus_xw); focus_yh=fabs(focus_yh); dist=fabs(dist); if ((!focus_ah && !focus_aw) && (!focus_xw && !focus_yh)) { fprintf(stderr,"Source_gen: %s: Error: No focusing information.\n" " Specify focus_xw, focus_yh or focus_aw, focus_ah\n", NAME_CURRENT_COMP); exit(-1); } Lmin = lambda0 - dlambda; /* Angstroem */ Lmax = lambda0 + dlambda; /* compute initial weight factor p_in to get [n/s] */ if ((I1 > 0 && T1 >= 0) || (flux_file && strlen(flux_file) && strcmp(flux_file,"NULL") && strcmp(flux_file,"0"))) { /* the I1,2,3 are usually in [n/s/cm2/st/AA] */ if (radius) source_area = radius*radius*PI*1e4; /* circular cm^2 */ else source_area = yheight*xwidth*1e4; /* square cm^2 */ p_in = source_area; /* cm2 */ p_in *= (Lmax-Lmin); /* AA. 1 bin=AA/n */ if (flux_file && strlen(flux_file) && strcmp(flux_file,"NULL") && strcmp(flux_file,"0") && !flux_file_perAA) p_in *= pTable.rows/(Lmax-Lmin); } else p_in = 1.0/4/PI; /* Small angle approx. */ p_in /= mcget_ncount(); if (!T1 && I1) p_in *= I1; if (radius == 0 && yheight == 0 && xwidth == 0) { fprintf(stderr,"Source_gen: %s: Error: Please specify source geometry (radius, yheight, xwidth)\n", NAME_CURRENT_COMP); exit(-1); } if (focus_xw*focus_yh == 0) { fprintf(stderr,"Source_gen: %s: Error: Please specify source target (focus_xw, focus_yh)\n", NAME_CURRENT_COMP); exit(-1); } MPI_MASTER( if (verbose) { printf("Source_gen: component %s ", NAME_CURRENT_COMP); if ((yheight == 0) || (xwidth == 0)) printf("(disk, radius=%g)", radius); else printf("(square %g x %g)",xwidth,yheight); if (dist) printf("\n focusing distance dist=%g area=%g x %g\n", dist, focus_xw, focus_yh); printf(" spectra "); printf("%.3f to %.3f AA (%.3f to %.3f meV)", Lmin, Lmax, 81.81/Lmax/Lmax, 81.81/Lmin/Lmin); printf("\n"); if (flux_file && strlen(flux_file) && strcmp(flux_file,"NULL") && strcmp(flux_file,"0")) { printf(" File %s for flux distribution used. Flux is dPhi/dlambda in [n/s/AA]. \n", flux_file); Table_Info(pTable); } else if (T1>=0 && I1) { if (T1 != 0) printf(" T1=%.1f K (%.3f AA)", T1, lambda1); if (T2*I2 != 0) printf(", T2=%.1f K (%.3f AA)", T2, lambda2); if (T3*I3 != 0) printf(", T3=%.1f K (%.3f AA)", T3, lambda3); if (T1) printf("\n"); printf(" Flux is dPhi/dlambda in [n/s/cm2].\n"); } else { printf(" Flux is Phi in [n/s].\n"); } if (xdiv_file && strlen(xdiv_file) && strcmp(xdiv_file,"NULL") && strcmp(xdiv_file,"0")) printf(" File %s x=[%g:%g] [m] xdiv=[%g:%g] [deg] used as horizontal phase space distribution.\n", xdiv_file, pTable_xmin, pTable_xmax, pTable_dxmin, pTable_dxmax); if (ydiv_file && strlen(ydiv_file) && strcmp(ydiv_file,"NULL") && strcmp(ydiv_file,"0")) printf(" File %s y=[%g:%g] [m] ydiv=[%g:%g] [deg] used as vertical phase space distribution.\n", ydiv_file, pTable_ymin, pTable_ymax, pTable_dymin, pTable_dymax); } else if (verbose == -1) printf("Source_gen: component %s inactivated", NAME_CURRENT_COMP); ); #undef flux_file #undef xdiv_file #undef ydiv_file #undef radius #undef dist #undef focus_xw #undef focus_yh #undef focus_aw #undef focus_ah #undef E0 #undef dE #undef lambda0 #undef dlambda #undef I1 #undef yheight #undef xwidth #undef verbose #undef T1 #undef flux_file_perAA #undef flux_file_log #undef Lmin #undef Lmax #undef Emin #undef Emax #undef T2 #undef I2 #undef T3 #undef I3 #undef zdepth #undef target_index #undef p_in #undef lambda1 #undef lambda2 #undef lambda3 #undef pTable #undef pTable_x #undef pTable_y #undef pTable_xmin #undef pTable_xmax #undef pTable_xsum #undef pTable_ymin #undef pTable_ymax #undef pTable_ysum #undef pTable_dxmin #undef pTable_dxmax #undef pTable_dymin #undef pTable_dymax return(_comp); } /* class_Source_gen_init */ _class_PSD_monitor *class_PSD_monitor_init(_class_PSD_monitor *_comp ) { #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define restore_neutron (_comp->_parameters.restore_neutron) #define nowritefile (_comp->_parameters.nowritefile) #define PSD_N (_comp->_parameters.PSD_N) #define PSD_p (_comp->_parameters.PSD_p) #define PSD_p2 (_comp->_parameters.PSD_p2) SIG_MESSAGE("[_psd_Source_init] component psd_Source=PSD_monitor() INITIALISE [PSD_monitor:0]"); if (xwidth > 0) { xmax = xwidth / 2; xmin = -xmax; } if (yheight > 0) { ymax = yheight / 2; ymin = -ymax; } if ((xmin >= xmax) || (ymin >= ymax)) { printf ("PSD_monitor: %s: Null detection area !\n" "ERROR (xwidth,yheight,xmin,xmax,ymin,ymax). Exiting", NAME_CURRENT_COMP); exit (0); } PSD_N = create_darr2d (nx, ny); PSD_p = create_darr2d (nx, ny); PSD_p2 = create_darr2d (nx, ny); // Use instance name for monitor output if no input was given if (!strcmp (filename, "\0")) sprintf (filename, "%s", NAME_CURRENT_COMP); #undef nx #undef ny #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef restore_neutron #undef nowritefile #undef PSD_N #undef PSD_p #undef PSD_p2 return(_comp); } /* class_PSD_monitor_init */ _class_L_monitor *class_L_monitor_init(_class_L_monitor *_comp ) { #define nL (_comp->_parameters.nL) #define filename (_comp->_parameters.filename) #define nowritefile (_comp->_parameters.nowritefile) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define L_N (_comp->_parameters.L_N) #define L_p (_comp->_parameters.L_p) #define L_p2 (_comp->_parameters.L_p2) SIG_MESSAGE("[_l_Source_init] component l_Source=L_monitor() INITIALISE [L_monitor:0]"); if (xwidth > 0) { xmax = xwidth / 2; xmin = -xmax; } if (yheight > 0) { ymax = yheight / 2; ymin = -ymax; } if ((xmin >= xmax) || (ymin >= ymax)) { printf ("L_monitor: %s: Null detection area !\n" "ERROR (xwidth,yheight,xmin,xmax,ymin,ymax). Exiting", NAME_CURRENT_COMP); exit (0); } L_N = create_darr1d (nL); L_p = create_darr1d (nL); L_p2 = create_darr1d (nL); // Use instance name for monitor output if no input was given if (!strcmp (filename, "\0")) sprintf (filename, "%s", NAME_CURRENT_COMP); #undef nL #undef filename #undef nowritefile #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef Lmin #undef Lmax #undef restore_neutron #undef L_N #undef L_p #undef L_p2 return(_comp); } /* class_L_monitor_init */ _class_Monitor_nD *class_Monitor_nD_init(_class_Monitor_nD *_comp ) { #define user1 (_comp->_parameters.user1) #define user2 (_comp->_parameters.user2) #define user3 (_comp->_parameters.user3) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define zdepth (_comp->_parameters.zdepth) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define zmin (_comp->_parameters.zmin) #define zmax (_comp->_parameters.zmax) #define bins (_comp->_parameters.bins) #define min (_comp->_parameters.min) #define max (_comp->_parameters.max) #define restore_neutron (_comp->_parameters.restore_neutron) #define radius (_comp->_parameters.radius) #define options (_comp->_parameters.options) #define filename (_comp->_parameters.filename) #define geometry (_comp->_parameters.geometry) #define nowritefile (_comp->_parameters.nowritefile) #define nexus_bins (_comp->_parameters.nexus_bins) #define username1 (_comp->_parameters.username1) #define username2 (_comp->_parameters.username2) #define username3 (_comp->_parameters.username3) #define DEFS (_comp->_parameters.DEFS) #define Vars (_comp->_parameters.Vars) #define detector (_comp->_parameters.detector) #define offdata (_comp->_parameters.offdata) SIG_MESSAGE("[_nD1_init] component nD1=Monitor_nD() INITIALISE [Monitor_nD:0]"); char tmp[CHAR_BUF_LENGTH]; strcpy (Vars.compcurname, NAME_CURRENT_COMP); Vars.compcurindex = INDEX_CURRENT_COMP; if (options != NULL) strncpy (Vars.option, options, CHAR_BUF_LENGTH); else { strcpy (Vars.option, "x y"); printf ("Monitor_nD: %s has no option specified. Setting to PSD ('x y') monitor.\n", NAME_CURRENT_COMP); } Vars.compcurpos = POS_A_CURRENT_COMP; if (strstr (Vars.option, "source")) strcat (Vars.option, " list, x y z vx vy vz t sx sy sz "); if (bins) { sprintf (tmp, " all bins=%ld ", (long)bins); strcat (Vars.option, tmp); } if (min > -FLT_MAX && max < FLT_MAX) { sprintf (tmp, " all limits=[%g %g]", min, max); strcat (Vars.option, tmp); } else if (min > -FLT_MAX) { sprintf (tmp, " all min=%g", min); strcat (Vars.option, tmp); } else if (max < FLT_MAX) { sprintf (tmp, " all max=%g", max); strcat (Vars.option, tmp); } /* transfer, "zero", and check username- and user variable strings to Vars struct*/ strncpy (Vars.UserName1, username1&& strlen (username1) && strcmp (username1, "0") && strcmp (username1, "NULL") ? username1 : "", 128); strncpy (Vars.UserName2, username2&& strlen (username2) && strcmp (username2, "0") && strcmp (username2, "NULL") ? username2 : "", 128); strncpy (Vars.UserName3, username3&& strlen (username3) && strcmp (username3, "0") && strcmp (username3, "NULL") ? username3 : "", 128); if (user1 && strlen (user1) && strcmp (user1, "0") && strcmp (user1, "NULL")) { strncpy (Vars.UserVariable1, user1, 128); int fail; _class_particle testparticle; particle_getvar (&testparticle, Vars.UserVariable1, &fail); if (fail) { fprintf (stderr, "Warning (%s): user1=%s is unknown. The signal will not be resolved - this is likely not what you intended.\n", NAME_CURRENT_COMP, user1); } } if (user2 && strlen (user2) && strcmp (user2, "0") && strcmp (user2, "NULL")) { strncpy (Vars.UserVariable2, user2, 128); int fail; _class_particle testparticle; particle_getvar (&testparticle, Vars.UserVariable2, &fail); if (fail) { fprintf (stderr, "Warning (%s): user2=%s is unknown. The signal will not be resolved - this is likely not what you intended.\n", NAME_CURRENT_COMP, user2); } } if (user3 && strlen (user3) && strcmp (user3, "0") && strcmp (user3, "NULL")) { strncpy (Vars.UserVariable3, user3, 128); int fail; _class_particle testparticle; particle_getvar (&testparticle, Vars.UserVariable3, &fail); if (fail) { fprintf (stderr, "Warning (%s): user3=%s is unknown. The signal will not be resolved - this is likely not what you intended.\n", NAME_CURRENT_COMP, user3); } } /*sanitize parameters set for curved shapes*/ if (strstr (Vars.option, "cylinder") || strstr (Vars.option, "banana") || strstr (Vars.option, "sphere")) { /*this _is_ an explicit curved shape. Should have a radius. Inherit from xwidth or zdepth (diameters), x has precedence.*/ if (!radius) { if (xwidth) { radius = xwidth / 2.0; } else { radius = zdepth / 2.0; } } else { xwidth = 2 * radius; } if (!yheight) { /*if not set - use the diameter as height for the curved object. This will likely only happen for spheres*/ yheight = 2 * radius; } } else if (radius) { /*radius is set - this must be a curved shape. Infer shape from yheight, and set remaining values (xwidth etc. They are used inside monitor_nd-lib.*/ xwidth = zdepth = 2 * radius; if (yheight) { /*a height is given (and no shape explitly set - assume cylinder*/ strcat (Vars.option, " banana"); } else { strcat (Vars.option, " sphere"); yheight = 2 * radius; } } int offflag = 0; if (geometry && strlen (geometry) && strcmp (geometry, "0") && strcmp (geometry, "NULL")) { #ifndef USE_OFF fprintf (stderr, "Error: You are attempting to use an OFF geometry without -DUSE_OFF. You will need to recompile with that define set!\n"); exit (-1); #else if (!off_init (geometry, xwidth, yheight, zdepth, 1, &offdata)) { printf ("Monitor_nD: %s could not initiate the OFF geometry %s. \n" " Defaulting to normal Monitor dimensions.\n", NAME_CURRENT_COMP, geometry); strcpy (geometry, ""); } else { offflag = 1; } #endif } if (!radius && !xwidth && !yheight && !zdepth && !xmin && !xmax && !ymin && !ymax && !strstr (Vars.option, "previous") && (!geometry || !strlen (geometry))) exit (printf ("Monitor_nD: %s has no dimension specified. Aborting (radius, xwidth, yheight, zdepth, previous, geometry).\n", NAME_CURRENT_COMP)); Monitor_nD_Init (&DEFS, &Vars, xwidth, yheight, zdepth, xmin, xmax, ymin, ymax, zmin, zmax, offflag, nexus_bins); if (Vars.Flag_OFF) { offdata.mantidflag = Vars.Flag_mantid; offdata.mantidoffset = Vars.Coord_Min[Vars.Coord_Number - 1]; } if (filename && strlen (filename) && strcmp (filename, "NULL") && strcmp (filename, "0")) strncpy (Vars.Mon_File, filename, 128); /* check if user given filename with ext will be used more than once */ if (((Vars.Flag_Multiple && Vars.Coord_Number > 1) || Vars.Flag_List) && strchr (Vars.Mon_File, '.')) { char* XY; XY = strrchr (Vars.Mon_File, '.'); *XY = '_'; } if (restore_neutron) Vars.Flag_parallel = 1; detector.m = 0; #ifdef USE_MPI MPI_MASTER (if (strstr (Vars.option, "auto") && mpi_node_count > 1) printf ("Monitor_nD: %s is using automatic limits option 'auto' together with MPI.\n" "WARNING this may create incorrect distributions (but integrated flux will be right).\n", NAME_CURRENT_COMP);); #else #ifdef OPENACC if (strstr (Vars.option, "auto")) printf ("Monitor_nD: %s is requesting automatic limits option 'auto' together with OpenACC.\n" "WARNING this feature is NOT supported using OpenACC and has been disabled!\n", NAME_CURRENT_COMP); #endif #endif #undef user1 #undef user2 #undef user3 #undef xwidth #undef yheight #undef zdepth #undef xmin #undef xmax #undef ymin #undef ymax #undef zmin #undef zmax #undef bins #undef min #undef max #undef restore_neutron #undef radius #undef options #undef filename #undef geometry #undef nowritefile #undef nexus_bins #undef username1 #undef username2 #undef username3 #undef DEFS #undef Vars #undef detector #undef offdata return(_comp); } /* class_Monitor_nD_init */ _class_Divergence_monitor *class_Divergence_monitor_init(_class_Divergence_monitor *_comp ) { #define nh (_comp->_parameters.nh) #define nv (_comp->_parameters.nv) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define nowritefile (_comp->_parameters.nowritefile) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define maxdiv_v (_comp->_parameters.maxdiv_v) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_divergence_monitor_Source_init] component divergence_monitor_Source=Divergence_monitor() INITIALISE [Divergence_monitor:0]"); if (xwidth > 0) { xmax = xwidth / 2; xmin = -xmax; } if (yheight > 0) { ymax = yheight / 2; ymin = -ymax; } if ((xmin >= xmax) || (ymin >= ymax)) { printf ("Divergence_monitor: %s: Null detection area !\n" "ERROR (xwidth,yheight,xmin,xmax,ymin,ymax). Exiting", NAME_CURRENT_COMP); exit (0); } Div_N = create_darr2d (nh, nv); Div_p = create_darr2d (nh, nv); Div_p2 = create_darr2d (nh, nv); NORM (nx, ny, nz); // Use instance name for monitor output if no input was given if (!strcmp (filename, "\0")) sprintf (filename, "%s", NAME_CURRENT_COMP); #undef nh #undef nv #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef nowritefile #undef xwidth #undef yheight #undef maxdiv_h #undef maxdiv_v #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return(_comp); } /* class_Divergence_monitor_init */ _class_DivLambda_monitor *class_DivLambda_monitor_init(_class_DivLambda_monitor *_comp ) { #define nL (_comp->_parameters.nL) #define nh (_comp->_parameters.nh) #define nowritefile (_comp->_parameters.nowritefile) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_h_divlambda_Source_init] component h_divlambda_Source=DivLambda_monitor() INITIALISE [DivLambda_monitor:0]"); if (xwidth > 0) { xmax = xwidth / 2; xmin = -xmax; } if (yheight > 0) { ymax = yheight / 2; ymin = -ymax; } if ((xmin >= xmax) || (ymin >= ymax)) { printf ("Divlambda_monitor: %s: Null detection area !\n" "ERROR (xwidth,yheight,xmin,xmax,ymin,ymax). Exiting", NAME_CURRENT_COMP); exit (0); } Div_N = create_darr2d (nL, nh); Div_p = create_darr2d (nL, nh); Div_p2 = create_darr2d (nL, nh); NORM (nx, ny, nz); // Use instance name for monitor output if no input was given if (!strcmp (filename, "\0")) sprintf (filename, "%s", NAME_CURRENT_COMP); #undef nL #undef nh #undef nowritefile #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef maxdiv_h #undef Lmin #undef Lmax #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return(_comp); } /* class_DivLambda_monitor_init */ _class_Brilliance_monitor *class_Brilliance_monitor_init(_class_Brilliance_monitor *_comp ) { #define nlam (_comp->_parameters.nlam) #define nt (_comp->_parameters.nt) #define nowritefile (_comp->_parameters.nowritefile) #define lambda_0 (_comp->_parameters.lambda_0) #define lambda_1 (_comp->_parameters.lambda_1) #define restore_neutron (_comp->_parameters.restore_neutron) #define Freq (_comp->_parameters.Freq) #define tofcuts (_comp->_parameters.tofcuts) #define toflambda (_comp->_parameters.toflambda) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define source_dist (_comp->_parameters.source_dist) #define filename (_comp->_parameters.filename) #define t_0 (_comp->_parameters.t_0) #define t_1 (_comp->_parameters.t_1) #define srcarea (_comp->_parameters.srcarea) #define BRIL_N (_comp->_parameters.BRIL_N) #define BRIL_p (_comp->_parameters.BRIL_p) #define BRIL_p2 (_comp->_parameters.BRIL_p2) #define BRIL_mean (_comp->_parameters.BRIL_mean) #define BRIL_meanN (_comp->_parameters.BRIL_meanN) #define BRIL_meanE (_comp->_parameters.BRIL_meanE) #define BRIL_peak (_comp->_parameters.BRIL_peak) #define BRIL_peakN (_comp->_parameters.BRIL_peakN) #define BRIL_peakE (_comp->_parameters.BRIL_peakE) #define BRIL_shape (_comp->_parameters.BRIL_shape) #define BRIL_shapeN (_comp->_parameters.BRIL_shapeN) #define BRIL_shapeE (_comp->_parameters.BRIL_shapeE) #define tt_0 (_comp->_parameters.tt_0) #define tt_1 (_comp->_parameters.tt_1) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define ster (_comp->_parameters.ster) #define prsec (_comp->_parameters.prsec) #define dlam (_comp->_parameters.dlam) #define dt (_comp->_parameters.dt) SIG_MESSAGE("[_BrillmonLD2_init] component BrillmonLD2=Brilliance_monitor() INITIALISE [Brilliance_monitor:0]"); prsec = 1e-6; BRIL_N = create_darr2d (nt, nlam); BRIL_p = create_darr2d (nt, nlam); BRIL_p2 = create_darr2d (nt, nlam); BRIL_mean = create_darr1d (nlam); BRIL_meanN = create_darr1d (nlam); BRIL_meanE = create_darr1d (nlam); BRIL_peak = create_darr1d (nlam); BRIL_peakN = create_darr1d (nlam); BRIL_peakE = create_darr1d (nlam); BRIL_shape = create_darr1d (nt); BRIL_shapeN = create_darr1d (nt); BRIL_shapeE = create_darr1d (nt); tt_0 = t_0 * prsec; tt_1 = t_1 * prsec; dt = (t_1 - t_0) * prsec / nt; dlam = (lambda_1 - lambda_0) / (nlam - 1); xmax = xwidth / 2.0; ymax = yheight / 2.0; xmin = -xmax; ymin = -ymax; ster = xwidth * yheight / (source_dist * source_dist); // Use instance name for monitor output if no input was given if (!strcmp (filename, "\0")) sprintf (filename, "%s", NAME_CURRENT_COMP); #undef nlam #undef nt #undef nowritefile #undef lambda_0 #undef lambda_1 #undef restore_neutron #undef Freq #undef tofcuts #undef toflambda #undef xwidth #undef yheight #undef source_dist #undef filename #undef t_0 #undef t_1 #undef srcarea #undef BRIL_N #undef BRIL_p #undef BRIL_p2 #undef BRIL_mean #undef BRIL_meanN #undef BRIL_meanE #undef BRIL_peak #undef BRIL_peakN #undef BRIL_peakE #undef BRIL_shape #undef BRIL_shapeN #undef BRIL_shapeE #undef tt_0 #undef tt_1 #undef xmin #undef xmax #undef ymin #undef ymax #undef ster #undef prsec #undef dlam #undef dt return(_comp); } /* class_Brilliance_monitor_init */ _class_Slit *class_Slit_init(_class_Slit *_comp ) { #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define radius (_comp->_parameters.radius) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define isradial (_comp->_parameters.isradial) SIG_MESSAGE("[_monolith_slit1_init] component monolith_slit1=Slit() INITIALISE [Slit:0]"); if (is_unset (radius)) { isradial = 0; if (all_set (3, xwidth, xmin, xmax)) { slit_error_if (xwidth != xmax - xmin, "specifying xwidth, xmin and xmax requires consistent parameters", NAME_CURRENT_COMP); } else { slit_error_if (is_unset (xwidth) && any_unset (2, xmin, xmax), "specify either xwidth or xmin & xmax", NAME_CURRENT_COMP); } if (all_set (3, yheight, ymin, ymax)) { slit_error_if (yheight != ymax - ymin, "specifying yheight, ymin and ymax requires consistent parameters", NAME_CURRENT_COMP); } else { slit_error_if (is_unset (yheight) && any_unset (2, ymin, ymax), "specify either yheight or ymin & ymax", NAME_CURRENT_COMP); } if (is_unset (xmin)) { // xmax also unset but xwidth *is* set xmax = xwidth / 2; xmin = -xmax; } if (is_unset (ymin)) { // ymax also unset but yheight *is* set ymax = yheight / 2; ymin = -ymax; } slit_warning_if (xmin == xmax || ymin == ymax, "Running with CLOSED rectangular slit - is this intentional?", NAME_CURRENT_COMP); } else { isradial = 1; slit_error_if (any_set (6, xwidth, xmin, xmax, yheight, ymin, ymax), "specify radius OR width and height parameters", NAME_CURRENT_COMP); slit_warning_if (radius == 0., "Running with CLOSED radial slit - is this intentional?", NAME_CURRENT_COMP); } #undef xmin #undef xmax #undef ymin #undef ymax #undef radius #undef xwidth #undef yheight #undef isradial return(_comp); } /* class_Slit_init */ _class_Conics_PH *class_Conics_PH_init(_class_Conics_PH *_comp ) { #define rmin (_comp->_parameters.rmin) #define rmax (_comp->_parameters.rmax) #define focal_length (_comp->_parameters.focal_length) #define lp (_comp->_parameters.lp) #define lh (_comp->_parameters.lh) #define nshells (_comp->_parameters.nshells) #define m (_comp->_parameters.m) #define mirr_thick (_comp->_parameters.mirr_thick) #define disk (_comp->_parameters.disk) #define radii (_comp->_parameters.radii) #define R0 (_comp->_parameters.R0) #define Qc (_comp->_parameters.Qc) #define W (_comp->_parameters.W) #define alpha (_comp->_parameters.alpha) #define transmit (_comp->_parameters.transmit) #define s (_comp->_parameters.s) SIG_MESSAGE("[_cPH_init] component cPH=Conics_PH() INITIALISE [Conics_PH:0]"); ConicSurf* pm; double th_c, alpha_p, alpha_h, fp2, dr, rr, cH, theta_1, theta_2, theta_i; int i; s = makeScene (); /* Mode a, vector of radii */ if (radii) { for (i = 0; i < nshells; i++) { rr = radii[i]; th_c = tan (rr / focal_length); alpha_p = th_c / 4.0; alpha_h = 3 * alpha_p; Point pi = makePoint (0, rr, 0); // f-1); pm = addParaboloid (focal_length, pi, -lp, 0, m, R0, Qc, W, alpha, &s); addHyperboloid (focal_length, focal_length, pi, 0, lh, m, R0, Qc, W, alpha, &s); } } else { /* Mode b, use quadratic law to distribute the shells */ double constant, quadratic; quadratic = (rmax - rmin) / (rmax * rmax - rmin * rmin); constant = rmax - quadratic * rmax * rmax; dr = nshells > 1 ? (rmax - rmin) / (nshells - 1) : 0; for (i = 0; i < nshells; i++) { rr = rmax - dr * i; rr = constant + quadratic * rr * rr; // Quadratic distribution of radius covers angular space better th_c = tan (rr / focal_length); alpha_p = th_c / 4.0; alpha_h = 3 * alpha_p; Point pi = makePoint (0, rr, 0); // f-1); theta_1 = 0.0; theta_2 = atan (rr / focal_length); theta_i = 0.25 * (theta_1 + theta_2); cH = fabs (0.5 * (rr / tan (theta_2 - 2.0 * theta_i) - focal_length)); pm = addParaboloid (focal_length + 2.0 * cH, pi, -lp, 0, m, R0, Qc, W, alpha, &s); addHyperboloid (focal_length, focal_length + 2.0 * cH, pi, 0, lh, m, R0, Qc, W, alpha, &s); } } if (disk) { addDisk (pm->zs, 0.0, rConic (pm->ze, *pm), &s); } #undef rmin #undef rmax #undef focal_length #undef lp #undef lh #undef nshells #undef m #undef mirr_thick #undef disk #undef radii #undef R0 #undef Qc #undef W #undef alpha #undef transmit #undef s return(_comp); } /* class_Conics_PH_init */ _class_Beamstop *class_Beamstop_init(_class_Beamstop *_comp ) { #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define radius (_comp->_parameters.radius) SIG_MESSAGE("[_beamstop_cPH_init] component beamstop_cPH=Beamstop() INITIALISE [Beamstop:0]"); if (xwidth > 0) { xmax = xwidth / 2; xmin = -xmax; } if (yheight > 0) { ymax = yheight / 2; ymin = -ymax; } if (xmin == 0 && xmax == 0 && ymin == 0 & ymax == 0 && radius == 0) { fprintf (stderr, "Beamstop: %s: Error: give geometry\n", NAME_CURRENT_COMP); exit (-1); } #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef radius return(_comp); } /* class_Beamstop_init */ _class_Conics_EH *class_Conics_EH_init(_class_Conics_EH *_comp ) { #define rmin (_comp->_parameters.rmin) #define rmax (_comp->_parameters.rmax) #define focal_length_u (_comp->_parameters.focal_length_u) #define focal_length_d (_comp->_parameters.focal_length_d) #define le (_comp->_parameters.le) #define lh (_comp->_parameters.lh) #define nshells (_comp->_parameters.nshells) #define m (_comp->_parameters.m) #define mirr_thick (_comp->_parameters.mirr_thick) #define disk (_comp->_parameters.disk) #define radii (_comp->_parameters.radii) #define R0 (_comp->_parameters.R0) #define Qc (_comp->_parameters.Qc) #define W (_comp->_parameters.W) #define alpha (_comp->_parameters.alpha) #define transmit (_comp->_parameters.transmit) #define s (_comp->_parameters.s) SIG_MESSAGE("[_cEH_init] component cEH=Conics_EH() INITIALISE [Conics_EH:0]"); ConicSurf* pm; double th_c, alpha_p, alpha_h, fp2, dr, rr, cH, theta_1, theta_2, theta_i; int i; s = makeScene (); /* Mode a, vector of radii */ if (radii) { for (i = 0; i < nshells; i++) { rr = radii[i]; Point pi = makePoint (0, rr, 0); pm = addEllipsoid (focal_length_d, -focal_length_u, pi, -le, 0, m, R0, Qc, W, alpha, &s); addHyperboloid (focal_length_d, focal_length_d, pi, 0, lh, m, R0, Qc, W, alpha, &s); } } else { /* Mode b, use quadratic law to distribute the shells */ dr = nshells > 1 ? (rmax - rmin) / (nshells - 1) : 0; double constant, quadratic; quadratic = (rmax - rmin) / (rmax * rmax - rmin * rmin); constant = rmax - quadratic * rmax * rmax; for (i = 0; i < nshells; i++) { rr = rmax - dr * i; rr = constant + quadratic * rr * rr; // Quadratic distribution of radius covers angular space better // printf("--------------------------------------------------------------------"); printf ("rr = %lf\n", rr); // printf("--------------------------------------------------------------------"); Point pi = makePoint (0, rr, 0); // pm=addEllipsoid(-focal_length_u, focal_length_d , pi, -le, 0, m,R0,Qc,W,alpha,&s); // addHyperboloid( focal_length_d, focal_length_d*2, pi, 0, lh, m,R0,Qc,W,alpha,&s); theta_1 = atan (rr / focal_length_u); theta_2 = atan (rr / focal_length_d); theta_i = 0.25 * (theta_1 + theta_2); cH = fabs (0.5 * (rr / tan (theta_2 - 2.0 * theta_i) - focal_length_d)); pm = addEllipsoid (focal_length_d + 2.0 * cH, -focal_length_u, pi, -le, 0, m, R0, Qc, W, alpha, &s); addHyperboloid (focal_length_d, focal_length_d + 2.0 * cH, pi, 0, lh, m, R0, Qc, W, alpha, &s); } } if (disk) { addDisk (pm->zs, 0.0, rConic (pm->ze, *pm), &s); } #undef rmin #undef rmax #undef focal_length_u #undef focal_length_d #undef le #undef lh #undef nshells #undef m #undef mirr_thick #undef disk #undef radii #undef R0 #undef Qc #undef W #undef alpha #undef transmit #undef s return(_comp); } /* class_Conics_EH_init */ int init(void) { /* called by mccode_main for WOFSANS:INITIALISE */ DEBUG_INSTR(); // Initialise rng srandom(_hash(mcseed-1)); /* code_main/parseoptions/readparams sets instrument parameters value */ stracpy(instrument->_name, "WOFSANS", 256); /* Instrument 'WOFSANS' INITIALISE */ SIG_MESSAGE("[WOFSANS] INITIALISE [(null):-1]"); #define focusing_rectangle (instrument->_parameters.focusing_rectangle) #define width (instrument->_parameters.width) #define Emin (instrument->_parameters.Emin) #define Emax (instrument->_parameters.Emax) #define l_min (instrument->_parameters.l_min) #define pulseskip (instrument->_parameters.pulseskip) #define npulses (instrument->_parameters.npulses) #define chopper1_flag (instrument->_parameters.chopper1_flag) #define det (instrument->_parameters.det) #define R0 (instrument->_parameters.R0) #define m (instrument->_parameters.m) #define W (instrument->_parameters.W) #define alpha (instrument->_parameters.alpha) #define nshells_ph (instrument->_parameters.nshells_ph) #define fi_ph (instrument->_parameters.fi_ph) #define PH_beamstop (instrument->_parameters.PH_beamstop) #define nshells_eh (instrument->_parameters.nshells_eh) #define fs_eh (instrument->_parameters.fs_eh) #define fi_eh (instrument->_parameters.fi_eh) #define EH_beamstop (instrument->_parameters.EH_beamstop) { bandwidth = (71.4*(1.0+(double)pulseskip)*3.96/det); printf("bandwidth = %g\n",bandwidth); l_max=l_min+round(bandwidth*round_par)/round_par; printf("l_min = %g\n",l_min); printf("l_max = %g\n",l_max); optics_start_pos =2.0; npulses_declare = npulses; if (width==0.15) { sprintf(BrillianceFile,"HighNESS_Mean_Brilliance_15x15.dat"); } else if (width==0.10) { sprintf(BrillianceFile,"HighNESS_Mean_Brilliance_10x10.dat"); } else if (width==0.05) { sprintf(BrillianceFile,"HighNESS_Mean_Brilliance_5x5.dat"); } else if (width==0.03) { sprintf(BrillianceFile,"HighNESS_Mean_Brilliance_3x3.dat"); } if (width==0.15) { coeff1 = 1.0824, coeff2 = 1.8; } else if (width==0.10) { coeff1 = 1.0716, coeff2 = 1.8; } else if (width==0.05) { coeff1 = 1.0575, coeff2 = 1.8; } else if (width==0.03) { coeff1 = 1.0494, coeff2 = 1.9; } #pragma acc update device(coeff1,coeff2) /* Calculate wavelengths via sqrt(E) -> v and v->k */ Lmin_source = 2*PI/(V2K*(SE2V*sqrt(Emax))); Lmax_source = 2*PI/(V2K*(SE2V*sqrt(Emin))); printf("Source Wavelength band: %g %g\n",Lmin_source,Lmax_source); } #undef focusing_rectangle #undef width #undef Emin #undef Emax #undef l_min #undef pulseskip #undef npulses #undef chopper1_flag #undef det #undef R0 #undef m #undef W #undef alpha #undef nshells_ph #undef fi_ph #undef PH_beamstop #undef nshells_eh #undef fs_eh #undef fi_eh #undef EH_beamstop _origin_setpos(); /* type Progress_bar */ _Source_setpos(); /* type Source_gen */ _psd_Source_setpos(); /* type PSD_monitor */ _l_Source_setpos(); /* type L_monitor */ _nD1_setpos(); /* type Monitor_nD */ _divergence_monitor_Source_setpos(); /* type Divergence_monitor */ _h_divlambda_Source_setpos(); /* type DivLambda_monitor */ _v_divlambda_Source_setpos(); /* type DivLambda_monitor */ _psd_FocusingPosition_setpos(); /* type PSD_monitor */ _l_FocusingPosition_setpos(); /* type L_monitor */ _nD2_setpos(); /* type Monitor_nD */ _divergence_monitor_FocusingPosition_setpos(); /* type Divergence_monitor */ _h_divlambda_FocusingPosition_setpos(); /* type DivLambda_monitor */ _v_divlambda_FocusingPosition_setpos(); /* type DivLambda_monitor */ _BrillmonLD2_setpos(); /* type Brilliance_monitor */ _monolith_slit1_setpos(); /* type Slit */ _monolith_slit2_setpos(); /* type Slit */ _psd_monolith_setpos(); /* type PSD_monitor */ _l_monolith_setpos(); /* type L_monitor */ _nD3_setpos(); /* type Monitor_nD */ _divergence_monitor_monolith_setpos(); /* type Divergence_monitor */ _h_divlambda_monolith_setpos(); /* type DivLambda_monitor */ _v_divlambda_monolith_setpos(); /* type DivLambda_monitor */ _PSD_before_slit_cPH_setpos(); /* type PSD_monitor */ _slit_cPH_setpos(); /* type Slit */ _PSD_slit_cPH_setpos(); /* type PSD_monitor */ _l_slit_cPH_setpos(); /* type L_monitor */ _nD4_setpos(); /* type Monitor_nD */ _divergence_monitor_slit_cPH_setpos(); /* type Divergence_monitor */ _h_divlambda_slit_cPH_setpos(); /* type DivLambda_monitor */ _v_divlambda_slit_cPH_setpos(); /* type DivLambda_monitor */ _cPH_setpos(); /* type Conics_PH */ _beamstop_cPH_setpos(); /* type Beamstop */ _psd_cPH_setpos(); /* type PSD_monitor */ _l_cPH_setpos(); /* type L_monitor */ _nD5_setpos(); /* type Monitor_nD */ _divergence_monitor_cPH_setpos(); /* type Divergence_monitor */ _h_divlambda_cPH_setpos(); /* type DivLambda_monitor */ _v_divlambda_cPH_setpos(); /* type DivLambda_monitor */ _psd_bunker_setpos(); /* type PSD_monitor */ _l_bunker_setpos(); /* type L_monitor */ _nD6_setpos(); /* type Monitor_nD */ _divergence_monitor_bunker_setpos(); /* type Divergence_monitor */ _h_divlambda_bunker_setpos(); /* type DivLambda_monitor */ _v_divlambda_bunker_setpos(); /* type DivLambda_monitor */ _psd_PHfocus1_setpos(); /* type PSD_monitor */ _l_PHfocus1_setpos(); /* type L_monitor */ _nD7_setpos(); /* type Monitor_nD */ _divergence_monitor_PHfocus1_setpos(); /* type Divergence_monitor */ _h_divlambda_PHfocus1_setpos(); /* type DivLambda_monitor */ _v_divlambda_PHfocus1_setpos(); /* type DivLambda_monitor */ _slit_focusPH_setpos(); /* type Slit */ _psd_slit_focusPH_setpos(); /* type PSD_monitor */ _l_slit_focusPH_setpos(); /* type L_monitor */ _nD8_setpos(); /* type Monitor_nD */ _divergence_monitor_slit_focusPH_setpos(); /* type Divergence_monitor */ _h_divlambda_slit_focusPH_setpos(); /* type DivLambda_monitor */ _v_divlambda_slit_focusPH_setpos(); /* type DivLambda_monitor */ _slit_EH_setpos(); /* type Slit */ _cEH_setpos(); /* type Conics_EH */ _beamstop_cEH_setpos(); /* type Beamstop */ _psd_cEH_setpos(); /* type PSD_monitor */ _l_cEH_setpos(); /* type L_monitor */ _nD9_setpos(); /* type Monitor_nD */ _divergence_monitor_cEH_setpos(); /* type Divergence_monitor */ _h_divlambda_cEH_setpos(); /* type DivLambda_monitor */ _v_divlambda_cEH_setpos(); /* type DivLambda_monitor */ _PSD_10_setpos(); /* type PSD_monitor */ _PSD_11_setpos(); /* type PSD_monitor */ _PSD_12_setpos(); /* type PSD_monitor */ _PSD_13_setpos(); /* type PSD_monitor */ _l_10_setpos(); /* type L_monitor */ _l_11_setpos(); /* type L_monitor */ _l_12_setpos(); /* type L_monitor */ _l_13_setpos(); /* type L_monitor */ _divergence_monitor_10_setpos(); /* type Divergence_monitor */ _divergence_monitor_11_setpos(); /* type Divergence_monitor */ _divergence_monitor_12_setpos(); /* type Divergence_monitor */ _divergence_monitor_13_setpos(); /* type Divergence_monitor */ _divlambda_10_setpos(); /* type DivLambda_monitor */ _h_divlambda_11_setpos(); /* type DivLambda_monitor */ _h_divlambda_12_setpos(); /* type DivLambda_monitor */ _h_divlambda_13_setpos(); /* type DivLambda_monitor */ _v_divlambda_10_setpos(); /* type DivLambda_monitor */ _v_divlambda_11_setpos(); /* type DivLambda_monitor */ _v_divlambda_12_setpos(); /* type DivLambda_monitor */ _v_divlambda_13_setpos(); /* type DivLambda_monitor */ _psd_monitor_detector_setpos(); /* type PSD_monitor */ _l_detector_setpos(); /* type L_monitor */ _divergence_monitor_detector_setpos(); /* type Divergence_monitor */ _divlambda_detector_setpos(); /* type DivLambda_monitor */ _psd_monitor_detector_big_setpos(); /* type PSD_monitor */ /* call iteratively all components INITIALISE */ class_Progress_bar_init(&_origin_var); class_Source_gen_init(&_Source_var); class_PSD_monitor_init(&_psd_Source_var); class_L_monitor_init(&_l_Source_var); class_Monitor_nD_init(&_nD1_var); class_Divergence_monitor_init(&_divergence_monitor_Source_var); class_DivLambda_monitor_init(&_h_divlambda_Source_var); class_DivLambda_monitor_init(&_v_divlambda_Source_var); class_PSD_monitor_init(&_psd_FocusingPosition_var); class_L_monitor_init(&_l_FocusingPosition_var); class_Monitor_nD_init(&_nD2_var); class_Divergence_monitor_init(&_divergence_monitor_FocusingPosition_var); class_DivLambda_monitor_init(&_h_divlambda_FocusingPosition_var); class_DivLambda_monitor_init(&_v_divlambda_FocusingPosition_var); class_Brilliance_monitor_init(&_BrillmonLD2_var); class_Slit_init(&_monolith_slit1_var); class_Slit_init(&_monolith_slit2_var); class_PSD_monitor_init(&_psd_monolith_var); class_L_monitor_init(&_l_monolith_var); class_Monitor_nD_init(&_nD3_var); class_Divergence_monitor_init(&_divergence_monitor_monolith_var); class_DivLambda_monitor_init(&_h_divlambda_monolith_var); class_DivLambda_monitor_init(&_v_divlambda_monolith_var); class_PSD_monitor_init(&_PSD_before_slit_cPH_var); class_Slit_init(&_slit_cPH_var); class_PSD_monitor_init(&_PSD_slit_cPH_var); class_L_monitor_init(&_l_slit_cPH_var); class_Monitor_nD_init(&_nD4_var); class_Divergence_monitor_init(&_divergence_monitor_slit_cPH_var); class_DivLambda_monitor_init(&_h_divlambda_slit_cPH_var); class_DivLambda_monitor_init(&_v_divlambda_slit_cPH_var); class_Conics_PH_init(&_cPH_var); class_Beamstop_init(&_beamstop_cPH_var); class_PSD_monitor_init(&_psd_cPH_var); class_L_monitor_init(&_l_cPH_var); class_Monitor_nD_init(&_nD5_var); class_Divergence_monitor_init(&_divergence_monitor_cPH_var); class_DivLambda_monitor_init(&_h_divlambda_cPH_var); class_DivLambda_monitor_init(&_v_divlambda_cPH_var); class_PSD_monitor_init(&_psd_bunker_var); class_L_monitor_init(&_l_bunker_var); class_Monitor_nD_init(&_nD6_var); class_Divergence_monitor_init(&_divergence_monitor_bunker_var); class_DivLambda_monitor_init(&_h_divlambda_bunker_var); class_DivLambda_monitor_init(&_v_divlambda_bunker_var); class_PSD_monitor_init(&_psd_PHfocus1_var); class_L_monitor_init(&_l_PHfocus1_var); class_Monitor_nD_init(&_nD7_var); class_Divergence_monitor_init(&_divergence_monitor_PHfocus1_var); class_DivLambda_monitor_init(&_h_divlambda_PHfocus1_var); class_DivLambda_monitor_init(&_v_divlambda_PHfocus1_var); class_Slit_init(&_slit_focusPH_var); class_PSD_monitor_init(&_psd_slit_focusPH_var); class_L_monitor_init(&_l_slit_focusPH_var); class_Monitor_nD_init(&_nD8_var); class_Divergence_monitor_init(&_divergence_monitor_slit_focusPH_var); class_DivLambda_monitor_init(&_h_divlambda_slit_focusPH_var); class_DivLambda_monitor_init(&_v_divlambda_slit_focusPH_var); class_Slit_init(&_slit_EH_var); class_Conics_EH_init(&_cEH_var); class_Beamstop_init(&_beamstop_cEH_var); class_PSD_monitor_init(&_psd_cEH_var); class_L_monitor_init(&_l_cEH_var); class_Monitor_nD_init(&_nD9_var); class_Divergence_monitor_init(&_divergence_monitor_cEH_var); class_DivLambda_monitor_init(&_h_divlambda_cEH_var); class_DivLambda_monitor_init(&_v_divlambda_cEH_var); class_PSD_monitor_init(&_PSD_10_var); class_PSD_monitor_init(&_PSD_11_var); class_PSD_monitor_init(&_PSD_12_var); class_PSD_monitor_init(&_PSD_13_var); class_L_monitor_init(&_l_10_var); class_L_monitor_init(&_l_11_var); class_L_monitor_init(&_l_12_var); class_L_monitor_init(&_l_13_var); class_Divergence_monitor_init(&_divergence_monitor_10_var); class_Divergence_monitor_init(&_divergence_monitor_11_var); class_Divergence_monitor_init(&_divergence_monitor_12_var); class_Divergence_monitor_init(&_divergence_monitor_13_var); class_DivLambda_monitor_init(&_divlambda_10_var); class_DivLambda_monitor_init(&_h_divlambda_11_var); class_DivLambda_monitor_init(&_h_divlambda_12_var); class_DivLambda_monitor_init(&_h_divlambda_13_var); class_DivLambda_monitor_init(&_v_divlambda_10_var); class_DivLambda_monitor_init(&_v_divlambda_11_var); class_DivLambda_monitor_init(&_v_divlambda_12_var); class_DivLambda_monitor_init(&_v_divlambda_13_var); class_PSD_monitor_init(&_psd_monitor_detector_var); class_L_monitor_init(&_l_detector_var); class_Divergence_monitor_init(&_divergence_monitor_detector_var); class_DivLambda_monitor_init(&_divlambda_detector_var); class_PSD_monitor_init(&_psd_monitor_detector_big_var); if (mcdotrace) display(); DEBUG_INSTR_END(); #ifdef OPENACC #include #pragma acc update device(_origin_var) #pragma acc update device(_Source_var) #pragma acc update device(_psd_Source_var) #pragma acc update device(_l_Source_var) #pragma acc update device(_nD1_var) #pragma acc update device(_divergence_monitor_Source_var) #pragma acc update device(_h_divlambda_Source_var) #pragma acc update device(_v_divlambda_Source_var) #pragma acc update device(_psd_FocusingPosition_var) #pragma acc update device(_l_FocusingPosition_var) #pragma acc update device(_nD2_var) #pragma acc update device(_divergence_monitor_FocusingPosition_var) #pragma acc update device(_h_divlambda_FocusingPosition_var) #pragma acc update device(_v_divlambda_FocusingPosition_var) #pragma acc update device(_BrillmonLD2_var) #pragma acc update device(_monolith_slit1_var) #pragma acc update device(_monolith_slit2_var) #pragma acc update device(_psd_monolith_var) #pragma acc update device(_l_monolith_var) #pragma acc update device(_nD3_var) #pragma acc update device(_divergence_monitor_monolith_var) #pragma acc update device(_h_divlambda_monolith_var) #pragma acc update device(_v_divlambda_monolith_var) #pragma acc update device(_PSD_before_slit_cPH_var) #pragma acc update device(_slit_cPH_var) #pragma acc update device(_PSD_slit_cPH_var) #pragma acc update device(_l_slit_cPH_var) #pragma acc update device(_nD4_var) #pragma acc update device(_divergence_monitor_slit_cPH_var) #pragma acc update device(_h_divlambda_slit_cPH_var) #pragma acc update device(_v_divlambda_slit_cPH_var) #pragma acc update device(_cPH_var) #pragma acc update device(_beamstop_cPH_var) #pragma acc update device(_psd_cPH_var) #pragma acc update device(_l_cPH_var) #pragma acc update device(_nD5_var) #pragma acc update device(_divergence_monitor_cPH_var) #pragma acc update device(_h_divlambda_cPH_var) #pragma acc update device(_v_divlambda_cPH_var) #pragma acc update device(_psd_bunker_var) #pragma acc update device(_l_bunker_var) #pragma acc update device(_nD6_var) #pragma acc update device(_divergence_monitor_bunker_var) #pragma acc update device(_h_divlambda_bunker_var) #pragma acc update device(_v_divlambda_bunker_var) #pragma acc update device(_psd_PHfocus1_var) #pragma acc update device(_l_PHfocus1_var) #pragma acc update device(_nD7_var) #pragma acc update device(_divergence_monitor_PHfocus1_var) #pragma acc update device(_h_divlambda_PHfocus1_var) #pragma acc update device(_v_divlambda_PHfocus1_var) #pragma acc update device(_slit_focusPH_var) #pragma acc update device(_psd_slit_focusPH_var) #pragma acc update device(_l_slit_focusPH_var) #pragma acc update device(_nD8_var) #pragma acc update device(_divergence_monitor_slit_focusPH_var) #pragma acc update device(_h_divlambda_slit_focusPH_var) #pragma acc update device(_v_divlambda_slit_focusPH_var) #pragma acc update device(_slit_EH_var) #pragma acc update device(_cEH_var) #pragma acc update device(_beamstop_cEH_var) #pragma acc update device(_psd_cEH_var) #pragma acc update device(_l_cEH_var) #pragma acc update device(_nD9_var) #pragma acc update device(_divergence_monitor_cEH_var) #pragma acc update device(_h_divlambda_cEH_var) #pragma acc update device(_v_divlambda_cEH_var) #pragma acc update device(_PSD_10_var) #pragma acc update device(_PSD_11_var) #pragma acc update device(_PSD_12_var) #pragma acc update device(_PSD_13_var) #pragma acc update device(_l_10_var) #pragma acc update device(_l_11_var) #pragma acc update device(_l_12_var) #pragma acc update device(_l_13_var) #pragma acc update device(_divergence_monitor_10_var) #pragma acc update device(_divergence_monitor_11_var) #pragma acc update device(_divergence_monitor_12_var) #pragma acc update device(_divergence_monitor_13_var) #pragma acc update device(_divlambda_10_var) #pragma acc update device(_h_divlambda_11_var) #pragma acc update device(_h_divlambda_12_var) #pragma acc update device(_h_divlambda_13_var) #pragma acc update device(_v_divlambda_10_var) #pragma acc update device(_v_divlambda_11_var) #pragma acc update device(_v_divlambda_12_var) #pragma acc update device(_v_divlambda_13_var) #pragma acc update device(_psd_monitor_detector_var) #pragma acc update device(_l_detector_var) #pragma acc update device(_divergence_monitor_detector_var) #pragma acc update device(_divlambda_detector_var) #pragma acc update device(_psd_monitor_detector_big_var) #pragma acc update device(_instrument_var) #endif return(0); } /* init */ /******************************************************************************* * components TRACE *******************************************************************************/ #define x (_particle->x) #define y (_particle->y) #define z (_particle->z) #define vx (_particle->vx) #define vy (_particle->vy) #define vz (_particle->vz) #define t (_particle->t) #define sx (_particle->sx) #define sy (_particle->sy) #define sz (_particle->sz) #define p (_particle->p) #define mcgravitation (_particle->mcgravitation) #define mcMagnet (_particle->mcMagnet) #define allow_backprop (_particle->allow_backprop) #define _mctmp_a (_particle->_mctmp_a) #define _mctmp_b (_particle->_mctmp_b) #define _mctmp_c (_particle->_mctmp_c) /* if on GPU, globally nullify sprintf,fprintf,printfs */ /* (Similar defines are available in each comp trace but */ /* those are not enough to handle external libs etc. ) */ #ifdef OPENACC #define fprintf(stderr,...) printf(__VA_ARGS__) #define sprintf(string,...) printf(__VA_ARGS__) #define exit(...) noprintf() #define strcmp(a,b) str_comp(a,b) #define strlen(a) str_len(a) #endif #define SCATTERED (_particle->_scattered) #define RESTORE (_particle->_restore) #define RESTORE_NEUTRON(_index, ...) _particle->_restore = _index; #define ABSORB0 do { DEBUG_STATE(); DEBUG_ABSORB(); MAGNET_OFF; ABSORBED++; return; } while(0) #define ABSORBED (_particle->_absorbed) #define mcget_run_num() _particle->_uid #define ABSORB ABSORB0 #pragma acc routine void class_Progress_bar_trace(_class_Progress_bar *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define profile (_comp->_parameters.profile) #define percent (_comp->_parameters.percent) #define flag_save (_comp->_parameters.flag_save) #define minutes (_comp->_parameters.minutes) #define IntermediateCnts (_comp->_parameters.IntermediateCnts) #define StartTime (_comp->_parameters.StartTime) #define EndTime (_comp->_parameters.EndTime) #define CurrentTime (_comp->_parameters.CurrentTime) #define infostring (_comp->_parameters.infostring) SIG_MESSAGE("[_origin_trace] component origin=Progress_bar() TRACE [Progress_bar:0]"); #ifndef OPENACC double ncount; ncount = mcget_run_num (); if (!StartTime) { time (&StartTime); /* compute starting time */ IntermediateCnts = 1e3; } time_t NowTime; time (&NowTime); /* compute initial estimate of computation duration */ if (!EndTime && ncount >= IntermediateCnts) { CurrentTime = NowTime; if (difftime (NowTime, StartTime) > 10 && ncount) { /* wait 10 sec before writing ETA */ EndTime = StartTime + (time_t)(difftime (NowTime, StartTime) * (double)mcget_ncount () / ncount); IntermediateCnts = 0; MPI_MASTER (fprintf (stdout, "\nTrace ETA "); fprintf (stdout, "%s", infostring); if (difftime (EndTime, StartTime) < 60.0) fprintf (stdout, "%g [s] ", difftime (EndTime, StartTime)); else if (difftime (EndTime, StartTime) > 3600.0) fprintf (stdout, "%g [h] ", difftime (EndTime, StartTime) / 3600.0); else fprintf (stdout, "%g [min] ", difftime (EndTime, StartTime) / 60.0); fprintf (stdout, "\n");); } else IntermediateCnts += 1e3; fflush (stdout); } /* display percentage when percent or minutes have reached step */ if (EndTime && mcget_ncount () && ((minutes && difftime (NowTime, CurrentTime) > minutes * 60) || (percent && !minutes && ncount >= IntermediateCnts))) { MPI_MASTER (fprintf (stdout, "%llu %%\n", (unsigned long long)(ncount * 100.0 / mcget_ncount ())); fflush (stdout);); CurrentTime = NowTime; IntermediateCnts = ncount + percent * mcget_ncount () / 100; /* check that next intermediate ncount check is a multiple of the desired percentage */ IntermediateCnts = floor (IntermediateCnts * 100 / percent / mcget_ncount ()) * percent * mcget_ncount () / 100; /* raise flag to indicate that we did something */ SCATTER; if (flag_save) save (NULL); } #endif #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef profile #undef percent #undef flag_save #undef minutes #undef IntermediateCnts #undef StartTime #undef EndTime #undef CurrentTime #undef infostring return; } /* class_Progress_bar_trace */ #pragma acc routine void class_Source_gen_trace(_class_Source_gen *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define flux_file (_comp->_parameters.flux_file) #define xdiv_file (_comp->_parameters.xdiv_file) #define ydiv_file (_comp->_parameters.ydiv_file) #define radius (_comp->_parameters.radius) #define dist (_comp->_parameters.dist) #define focus_xw (_comp->_parameters.focus_xw) #define focus_yh (_comp->_parameters.focus_yh) #define focus_aw (_comp->_parameters.focus_aw) #define focus_ah (_comp->_parameters.focus_ah) #define E0 (_comp->_parameters.E0) #define dE (_comp->_parameters.dE) #define lambda0 (_comp->_parameters.lambda0) #define dlambda (_comp->_parameters.dlambda) #define I1 (_comp->_parameters.I1) #define yheight (_comp->_parameters.yheight) #define xwidth (_comp->_parameters.xwidth) #define verbose (_comp->_parameters.verbose) #define T1 (_comp->_parameters.T1) #define flux_file_perAA (_comp->_parameters.flux_file_perAA) #define flux_file_log (_comp->_parameters.flux_file_log) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define Emin (_comp->_parameters.Emin) #define Emax (_comp->_parameters.Emax) #define T2 (_comp->_parameters.T2) #define I2 (_comp->_parameters.I2) #define T3 (_comp->_parameters.T3) #define I3 (_comp->_parameters.I3) #define zdepth (_comp->_parameters.zdepth) #define target_index (_comp->_parameters.target_index) #define p_in (_comp->_parameters.p_in) #define lambda1 (_comp->_parameters.lambda1) #define lambda2 (_comp->_parameters.lambda2) #define lambda3 (_comp->_parameters.lambda3) #define pTable (_comp->_parameters.pTable) #define pTable_x (_comp->_parameters.pTable_x) #define pTable_y (_comp->_parameters.pTable_y) #define pTable_xmin (_comp->_parameters.pTable_xmin) #define pTable_xmax (_comp->_parameters.pTable_xmax) #define pTable_xsum (_comp->_parameters.pTable_xsum) #define pTable_ymin (_comp->_parameters.pTable_ymin) #define pTable_ymax (_comp->_parameters.pTable_ymax) #define pTable_ysum (_comp->_parameters.pTable_ysum) #define pTable_dxmin (_comp->_parameters.pTable_dxmin) #define pTable_dxmax (_comp->_parameters.pTable_dxmax) #define pTable_dymin (_comp->_parameters.pTable_dymin) #define pTable_dymax (_comp->_parameters.pTable_dymax) SIG_MESSAGE("[_Source_trace] component Source=Source_gen() TRACE [Source_gen:0]"); double dx=0,dy=0,xf,yf,rf,pdir,chi,v,r, lambda; double Maxwell; if (verbose >= 0) { z=0; if (radius) { chi=2*PI*rand01(); /* Choose point on source */ r=sqrt(rand01())*radius; /* with uniform distribution. */ x=r*cos(chi); y=r*sin(chi); } else { x = xwidth*randpm1()/2; /* select point on source (uniform) */ y = yheight*randpm1()/2; } if (zdepth != 0) z = zdepth*randpm1()/2; /* Assume linear wavelength distribution */ lambda = lambda0+dlambda*randpm1(); if (lambda <= 0) ABSORB; v = K2V*(2*PI/lambda); if (!focus_ah && !focus_aw) { randvec_target_rect_real(&xf, &yf, &rf, &pdir, 0, 0, dist, focus_xw, focus_yh, ROT_A_CURRENT_COMP, x, y, z, 2); dx = xf-x; dy = yf-y; rf = sqrt(dx*dx+dy*dy+dist*dist); vz=v*dist/rf; vy=v*dy/rf; vx=v*dx/rf; } else { randvec_target_rect_angular(&vx, &vy, &vz, &pdir, 0, 0, 1, focus_aw*DEG2RAD, focus_ah*DEG2RAD, ROT_A_CURRENT_COMP); dx = vx; dy = vy; /* from unit vector */ vx *= v; vy *= v; vz *= v; } p = p_in*pdir; /* spectral dependency from files or Maxwellians */ if (flux_file && strlen(flux_file) && strcmp(flux_file,"NULL") && strcmp(flux_file,"0")) { double binwidth=Table_Value(pTable, lambda, 1); if (flux_file_log) binwidth=exp(binwidth); p *= binwidth; } else if (T1 > 0 && I1 > 0) { Maxwell = I1 * SG_Maxwell(lambda, T1);; /* 1/AA */ if ((T2 > 0) && (I2 > 0)) { Maxwell += I2 * SG_Maxwell(lambda, T2); } if ((T3 > 0) && (I3 > 0)) { Maxwell += I3 * SG_Maxwell(lambda, T3);; } p *= Maxwell; } /* optional x-xdiv and y-ydiv weightening: position=along columns, div=along rows */ if (xdiv_file && strlen(xdiv_file) && strcmp(xdiv_file,"NULL") && strcmp(xdiv_file,"0") && pTable_xsum > 0) { double i,j; j = (x- pTable_xmin) /(pTable_xmax -pTable_xmin) *pTable_x.columns; i = (atan2(dx,rf)*RAD2DEG-pTable_dxmin)/(pTable_dxmax-pTable_dxmin)*pTable_x.rows; r = Table_Value2d(pTable_x, i,j); /* row, column */ p *= r/pTable_xsum; } if (ydiv_file && strlen(ydiv_file) && strcmp(ydiv_file,"NULL") && strcmp(ydiv_file,"0") && pTable_ysum > 0) { double i,j; j = (y- pTable_ymin) /(pTable_ymax -pTable_ymin) *pTable_y.columns; i = (atan2(dy,rf)*RAD2DEG- pTable_dymin)/(pTable_dymax-pTable_dymin)*pTable_y.rows; r = Table_Value2d(pTable_y, i,j); p *= r/pTable_ysum; } SCATTER; } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #define was_scattered (_particle->was_scattered) #define was_scattered2 (_particle->was_scattered2) if (_comp->_index == 2) { // EXTEND 'Source' p *= coeff1 + coeff2*y; } #undef was_scattered #undef was_scattered2 #undef flux_file #undef xdiv_file #undef ydiv_file #undef radius #undef dist #undef focus_xw #undef focus_yh #undef focus_aw #undef focus_ah #undef E0 #undef dE #undef lambda0 #undef dlambda #undef I1 #undef yheight #undef xwidth #undef verbose #undef T1 #undef flux_file_perAA #undef flux_file_log #undef Lmin #undef Lmax #undef Emin #undef Emax #undef T2 #undef I2 #undef T3 #undef I3 #undef zdepth #undef target_index #undef p_in #undef lambda1 #undef lambda2 #undef lambda3 #undef pTable #undef pTable_x #undef pTable_y #undef pTable_xmin #undef pTable_xmax #undef pTable_xsum #undef pTable_ymin #undef pTable_ymax #undef pTable_ysum #undef pTable_dxmin #undef pTable_dxmax #undef pTable_dymin #undef pTable_dymax return; } /* class_Source_gen_trace */ #pragma acc routine void class_PSD_monitor_trace(_class_PSD_monitor *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define restore_neutron (_comp->_parameters.restore_neutron) #define nowritefile (_comp->_parameters.nowritefile) #define PSD_N (_comp->_parameters.PSD_N) #define PSD_p (_comp->_parameters.PSD_p) #define PSD_p2 (_comp->_parameters.PSD_p2) SIG_MESSAGE("[_psd_Source_trace] component psd_Source=PSD_monitor() TRACE [PSD_monitor:0]"); PROP_Z0; if (x > xmin && x < xmax && y > ymin && y < ymax) { int i = floor ((x - xmin) * nx / (xmax - xmin)); int j = floor ((y - ymin) * ny / (ymax - ymin)); double p2 = p * p; #pragma acc atomic PSD_N[i][j] = PSD_N[i][j] + 1; #pragma acc atomic PSD_p[i][j] = PSD_p[i][j] + p; #pragma acc atomic PSD_p2[i][j] = PSD_p2[i][j] + p2; SCATTER; } if (restore_neutron) { RESTORE_NEUTRON (INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef nx #undef ny #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef restore_neutron #undef nowritefile #undef PSD_N #undef PSD_p #undef PSD_p2 return; } /* class_PSD_monitor_trace */ #pragma acc routine void class_L_monitor_trace(_class_L_monitor *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define nL (_comp->_parameters.nL) #define filename (_comp->_parameters.filename) #define nowritefile (_comp->_parameters.nowritefile) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define L_N (_comp->_parameters.L_N) #define L_p (_comp->_parameters.L_p) #define L_p2 (_comp->_parameters.L_p2) SIG_MESSAGE("[_l_Source_trace] component l_Source=L_monitor() TRACE [L_monitor:0]"); PROP_Z0; if (x > xmin && x < xmax && y > ymin && y < ymax) { double L = (2 * PI / V2K) / sqrt (vx * vx + vy * vy + vz * vz); int i = floor ((L - Lmin) * nL / (Lmax - Lmin)); if (i >= 0 && i < nL) { double p2 = p * p; #pragma acc atomic L_N[i] = L_N[i] + 1; #pragma acc atomic L_p[i] = L_p[i] + p; #pragma acc atomic L_p2[i] = L_p2[i] + p2; SCATTER; } } if (restore_neutron) { RESTORE_NEUTRON (INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef nL #undef filename #undef nowritefile #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef Lmin #undef Lmax #undef restore_neutron #undef L_N #undef L_p #undef L_p2 return; } /* class_L_monitor_trace */ #pragma acc routine void class_Monitor_nD_trace(_class_Monitor_nD *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define user1 (_comp->_parameters.user1) #define user2 (_comp->_parameters.user2) #define user3 (_comp->_parameters.user3) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define zdepth (_comp->_parameters.zdepth) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define zmin (_comp->_parameters.zmin) #define zmax (_comp->_parameters.zmax) #define bins (_comp->_parameters.bins) #define min (_comp->_parameters.min) #define max (_comp->_parameters.max) #define restore_neutron (_comp->_parameters.restore_neutron) #define radius (_comp->_parameters.radius) #define options (_comp->_parameters.options) #define filename (_comp->_parameters.filename) #define geometry (_comp->_parameters.geometry) #define nowritefile (_comp->_parameters.nowritefile) #define nexus_bins (_comp->_parameters.nexus_bins) #define username1 (_comp->_parameters.username1) #define username2 (_comp->_parameters.username2) #define username3 (_comp->_parameters.username3) #define DEFS (_comp->_parameters.DEFS) #define Vars (_comp->_parameters.Vars) #define detector (_comp->_parameters.detector) #define offdata (_comp->_parameters.offdata) SIG_MESSAGE("[_nD1_trace] component nD1=Monitor_nD() TRACE [Monitor_nD:0]"); double transmit_he3 = 1.0; double multiplier_capture = 1.0; double t0 = 0; double t1 = 0; int pp; int intersect = 0; char Flag_Restore = 0; #ifdef OPENACC #ifdef USE_OFF off_struct thread_offdata = offdata; #endif #else #define thread_offdata offdata #endif /* this is done automatically STORE_NEUTRON(INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); */ #ifdef USE_OFF if (geometry && strlen (geometry) && strcmp (geometry, "0") && strcmp (geometry, "NULL")) { /* determine intersections with object */ intersect = off_intersect_all (&t0, &t1, NULL, NULL, x, y, z, vx, vy, vz, 0, 0, 0, &thread_offdata); if (Vars.Flag_mantid) { if (intersect) { Vars.OFF_polyidx = thread_offdata.nextintersect; } else { Vars.OFF_polyidx = -1; } } } else #endif if ((abs (Vars.Flag_Shape) == DEFS.SHAPE_SQUARE) || (abs (Vars.Flag_Shape) == DEFS.SHAPE_DISK)) /* square xy or disk xy */ { // propagate to xy plane and find intersection // make sure the event is recoverable afterwards t0 = t; ALLOW_BACKPROP; PROP_Z0; if ((t >= t0) && (z == 0.0)) // forward propagation to xy plane was successful { if (abs (Vars.Flag_Shape) == DEFS.SHAPE_SQUARE) { // square xy intersect = (x >= Vars.mxmin && x <= Vars.mxmax && y >= Vars.mymin && y <= Vars.mymax); } else { // disk xy intersect = (SQR (x) + SQR (y)) <= SQR (Vars.Sphere_Radius); } } else { intersect = 0; } } else if (abs (Vars.Flag_Shape) == DEFS.SHAPE_SPHERE) /* sphere */ { intersect = sphere_intersect (&t0, &t1, x, y, z, vx, vy, vz, Vars.Sphere_Radius); /* intersect = (intersect && t0 > 0); */ } else if ((abs (Vars.Flag_Shape) == DEFS.SHAPE_CYLIND) || (abs (Vars.Flag_Shape) == DEFS.SHAPE_BANANA)) /* cylinder */ { intersect = cylinder_intersect (&t0, &t1, x, y, z, vx, vy, vz, Vars.Sphere_Radius, Vars.Cylinder_Height); } else if (abs (Vars.Flag_Shape) == DEFS.SHAPE_BOX) /* box */ { intersect = box_intersect (&t0, &t1, x, y, z, vx, vy, vz, fabs (Vars.mxmax - Vars.mxmin), fabs (Vars.mymax - Vars.mymin), fabs (Vars.mzmax - Vars.mzmin)); } else if (abs (Vars.Flag_Shape) == DEFS.SHAPE_PREVIOUS) /* previous comp */ { intersect = 1; } if (intersect) { if ((abs (Vars.Flag_Shape) == DEFS.SHAPE_SPHERE) || (abs (Vars.Flag_Shape) == DEFS.SHAPE_CYLIND) || (abs (Vars.Flag_Shape) == DEFS.SHAPE_BOX) || (abs (Vars.Flag_Shape) == DEFS.SHAPE_BANANA) || (geometry && strlen (geometry) && strcmp (geometry, "0") && strcmp (geometry, "NULL"))) { /* check if we have to remove the top/bottom with BANANA shape */ if (abs (Vars.Flag_Shape) == DEFS.SHAPE_BANANA) { if (intersect == 1) { // Entered and left through sides if (t0 < 0 && t1 > 0) { t0 = t; /* neutron was already inside ! */ } if (t1 < 0 && t0 > 0) { /* neutron exit before entering !! */ t1 = t; } /* t0 is now time of incoming intersection with the detection area */ if ((Vars.Flag_Shape < 0) && (t1 > 0)) { PROP_DT (t1); /* t1 outgoing beam */ } else { PROP_DT (t0); /* t0 incoming beam */ } } else if (intersect == 3 || intersect == 5) { // Entered from top or bottom, left through side if ((Vars.Flag_Shape < 0) && (t1 > 0)) { PROP_DT (t1); /* t1 outgoing beam */ } else { intersect = 0; Flag_Restore = 1; } } else if (intersect == 9 || intersect == 17) { // Entered through side, left from top or bottom if ((Vars.Flag_Shape < 0) && (t1 > 0)) { intersect = 0; Flag_Restore = 1; } else { PROP_DT (t0); /* t0 incoming beam */ } } else if (intersect == 13 || intersect == 19) { // Went through top/bottom on entry and exit intersect = 0; Flag_Restore = 1; } else { printf ("Cylinder_intersect returned unexpected value %i\n", intersect); } } else { // All other shapes than the BANANA if (t0 < 0 && t1 > 0) t0 = t; /* neutron was already inside ! */ if (t1 < 0 && t0 > 0) /* neutron exit before entering !! */ t1 = t; /* t0 is now time of incoming intersection with the detection area */ if ((Vars.Flag_Shape < 0) && (t1 > 0)) PROP_DT (t1); /* t1 outgoing beam */ else PROP_DT (t0); /* t0 incoming beam */ } /* Final test if we are on lid / bottom of banana/sphere */ if (abs (Vars.Flag_Shape) == DEFS.SHAPE_BANANA || abs (Vars.Flag_Shape) == DEFS.SHAPE_SPHERE) { if (Vars.Cylinder_Height && fabs (y) >= Vars.Cylinder_Height / 2 - FLT_EPSILON) { intersect = 0; Flag_Restore = 1; } } } } if (intersect) { /* Now get the data to monitor: current or keep from PreMonitor */ /* if (Vars.Flag_UsePreMonitor != 1)*/ /* {*/ /* Vars.cp = p;*/ /* Vars.cx = x;*/ /* Vars.cvx = vx;*/ /* Vars.csx = sx;*/ /* Vars.cy = y;*/ /* Vars.cvy = vy;*/ /* Vars.csy = sy;*/ /* Vars.cz = z;*/ /* Vars.cvz = vz;*/ /* Vars.csz = sz;*/ /* Vars.ct = t;*/ /* }*/ if ((Vars.He3_pressure > 0) && (t1 != t0) && ((abs (Vars.Flag_Shape) == DEFS.SHAPE_SPHERE) || (abs (Vars.Flag_Shape) == DEFS.SHAPE_CYLIND) || (abs (Vars.Flag_Shape) == DEFS.SHAPE_BOX))) { transmit_he3 = exp (-7.417 * Vars.He3_pressure * fabs (t1 - t0) * 2 * PI * K2V); /* will monitor the absorbed part */ p = p * (1 - transmit_he3); } if (Vars.Flag_capture) { multiplier_capture = V2K * sqrt (vx * vx + vy * vy + vz * vz); if (multiplier_capture != 0) multiplier_capture = 2 * PI / multiplier_capture; /* lambda. lambda(2200 m/2) = 1.7985 Angs */ p = p * multiplier_capture / 1.7985; } pp = Monitor_nD_Trace (&DEFS, &Vars, _particle); if (pp == 0.0) { ABSORB; } else if (pp == 1) { SCATTER; } /*set weight to undetected part if capture and/or he3_pressure*/ if (Vars.He3_pressure > 0) { /* after monitor, only remains 1-p_detect */ p = p * transmit_he3 / (1.0 - transmit_he3); } if (Vars.Flag_capture) { p = p / multiplier_capture * 1.7985; } if (Vars.Flag_parallel) /* back to neutron state before detection */ Flag_Restore = 1; } /* end if intersection */ else { if (Vars.Flag_Absorb && !Vars.Flag_parallel) { // restore neutron ray before absorbing for correct mcdisplay RESTORE_NEUTRON (INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); ABSORB; } else Flag_Restore = 1; /* no intersection, back to previous state */ } if (Flag_Restore) { RESTORE_NEUTRON (INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef user1 #undef user2 #undef user3 #undef xwidth #undef yheight #undef zdepth #undef xmin #undef xmax #undef ymin #undef ymax #undef zmin #undef zmax #undef bins #undef min #undef max #undef restore_neutron #undef radius #undef options #undef filename #undef geometry #undef nowritefile #undef nexus_bins #undef username1 #undef username2 #undef username3 #undef DEFS #undef Vars #undef detector #undef offdata return; } /* class_Monitor_nD_trace */ #pragma acc routine void class_Divergence_monitor_trace(_class_Divergence_monitor *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define nh (_comp->_parameters.nh) #define nv (_comp->_parameters.nv) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define nowritefile (_comp->_parameters.nowritefile) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define maxdiv_v (_comp->_parameters.maxdiv_v) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_divergence_monitor_Source_trace] component divergence_monitor_Source=Divergence_monitor() TRACE [Divergence_monitor:0]"); int i, j; double h_div, v_div; double v, vn; PROP_Z0; if (x > xmin && x < xmax && y > ymin && y < ymax) { /* Find length of projection onto the [nx ny nz] axis */ vn = scalar_prod (vx, vy, vz, nx, ny, nz); h_div = RAD2DEG * atan2 (vx, vn); v_div = RAD2DEG * atan2 (vy, vn); if (h_div < maxdiv_h && h_div > -maxdiv_h && v_div < maxdiv_v && v_div > -maxdiv_v) { i = floor ((h_div + maxdiv_h) * nh / (2.0 * maxdiv_h)); j = floor ((v_div + maxdiv_v) * nv / (2.0 * maxdiv_v)); double p2 = p * p; #pragma acc atomic Div_N[i][j] = Div_N[i][j] + 1; #pragma acc atomic Div_p[i][j] = Div_p[i][j] + p; #pragma acc atomic Div_p2[i][j] = Div_p2[i][j] + p2; SCATTER; } } if (restore_neutron) { RESTORE_NEUTRON (INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef nh #undef nv #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef nowritefile #undef xwidth #undef yheight #undef maxdiv_h #undef maxdiv_v #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return; } /* class_Divergence_monitor_trace */ #pragma acc routine void class_DivLambda_monitor_trace(_class_DivLambda_monitor *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define nL (_comp->_parameters.nL) #define nh (_comp->_parameters.nh) #define nowritefile (_comp->_parameters.nowritefile) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_h_divlambda_Source_trace] component h_divlambda_Source=DivLambda_monitor() TRACE [DivLambda_monitor:0]"); int i, j; double div; double lambda; double v, vn; PROP_Z0; lambda = (2 * PI / V2K) / sqrt (vx * vx + vy * vy + vz * vz); if (x > xmin && x < xmax && y > ymin && y < ymax && lambda > Lmin && lambda < Lmax) { /* Find length of projection onto the [nx ny nz] axis */ vn = scalar_prod (vx, vy, vz, nx, ny, nz); div = RAD2DEG * atan2 (vx, vn); if (div < maxdiv_h && div > -maxdiv_h) { i = floor ((lambda - Lmin) * nL / (Lmax - Lmin)); j = floor ((div + maxdiv_h) * nh / (2.0 * maxdiv_h)); double p2 = p * p; #pragma acc atomic Div_N[i][j] = Div_N[i][j] + 1; #pragma acc atomic Div_p[i][j] = Div_p[i][j] + p; #pragma acc atomic Div_p2[i][j] = Div_p2[i][j] + p2; SCATTER; } } if (restore_neutron) { RESTORE_NEUTRON (INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef nL #undef nh #undef nowritefile #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef maxdiv_h #undef Lmin #undef Lmax #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return; } /* class_DivLambda_monitor_trace */ #pragma acc routine void class_Brilliance_monitor_trace(_class_Brilliance_monitor *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define nlam (_comp->_parameters.nlam) #define nt (_comp->_parameters.nt) #define nowritefile (_comp->_parameters.nowritefile) #define lambda_0 (_comp->_parameters.lambda_0) #define lambda_1 (_comp->_parameters.lambda_1) #define restore_neutron (_comp->_parameters.restore_neutron) #define Freq (_comp->_parameters.Freq) #define tofcuts (_comp->_parameters.tofcuts) #define toflambda (_comp->_parameters.toflambda) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define source_dist (_comp->_parameters.source_dist) #define filename (_comp->_parameters.filename) #define t_0 (_comp->_parameters.t_0) #define t_1 (_comp->_parameters.t_1) #define srcarea (_comp->_parameters.srcarea) #define BRIL_N (_comp->_parameters.BRIL_N) #define BRIL_p (_comp->_parameters.BRIL_p) #define BRIL_p2 (_comp->_parameters.BRIL_p2) #define BRIL_mean (_comp->_parameters.BRIL_mean) #define BRIL_meanN (_comp->_parameters.BRIL_meanN) #define BRIL_meanE (_comp->_parameters.BRIL_meanE) #define BRIL_peak (_comp->_parameters.BRIL_peak) #define BRIL_peakN (_comp->_parameters.BRIL_peakN) #define BRIL_peakE (_comp->_parameters.BRIL_peakE) #define BRIL_shape (_comp->_parameters.BRIL_shape) #define BRIL_shapeN (_comp->_parameters.BRIL_shapeN) #define BRIL_shapeE (_comp->_parameters.BRIL_shapeE) #define tt_0 (_comp->_parameters.tt_0) #define tt_1 (_comp->_parameters.tt_1) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define ster (_comp->_parameters.ster) #define prsec (_comp->_parameters.prsec) #define dlam (_comp->_parameters.dlam) #define dt (_comp->_parameters.dt) SIG_MESSAGE("[_BrillmonLD2_trace] component BrillmonLD2=Brilliance_monitor() TRACE [Brilliance_monitor:0]"); int i, j; double div; double lambda; double Pnorm; PROP_Z0; lambda = (2 * PI / V2K) / sqrt (vx * vx + vy * vy + vz * vz); if (x > xmin && x < xmax && y > ymin && y < ymax && lambda > lambda_0 && lambda < lambda_1) { if (t < tt_1 && t > tt_0) { i = floor ((lambda - lambda_0) * nlam / (lambda_1 - lambda_0)); j = floor ((t - tt_0) * nt / (tt_1 - tt_0)); Pnorm = p / dlam / ster / srcarea; double Pnorm2 = Pnorm * Pnorm; #pragma acc atomic BRIL_meanN[i] = BRIL_meanN[i] + 1; #pragma acc atomic BRIL_mean[i] = BRIL_mean[i] + Pnorm; #pragma acc atomic BRIL_meanE[i] = BRIL_meanE[i] + Pnorm2; Pnorm = Pnorm / Freq / dt; Pnorm2 = Pnorm + Pnorm; #pragma acc atomic BRIL_N[j][i] = BRIL_N[j][i] + 1; #pragma acc atomic BRIL_p[j][i] = BRIL_p[j][i] + Pnorm; #pragma acc atomic BRIL_p2[j][i] = BRIL_p2[j][i] + Pnorm2; } } if (restore_neutron) { RESTORE_NEUTRON (INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef nlam #undef nt #undef nowritefile #undef lambda_0 #undef lambda_1 #undef restore_neutron #undef Freq #undef tofcuts #undef toflambda #undef xwidth #undef yheight #undef source_dist #undef filename #undef t_0 #undef t_1 #undef srcarea #undef BRIL_N #undef BRIL_p #undef BRIL_p2 #undef BRIL_mean #undef BRIL_meanN #undef BRIL_meanE #undef BRIL_peak #undef BRIL_peakN #undef BRIL_peakE #undef BRIL_shape #undef BRIL_shapeN #undef BRIL_shapeE #undef tt_0 #undef tt_1 #undef xmin #undef xmax #undef ymin #undef ymax #undef ster #undef prsec #undef dlam #undef dt return; } /* class_Brilliance_monitor_trace */ #pragma acc routine void class_Slit_trace(_class_Slit *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define radius (_comp->_parameters.radius) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define isradial (_comp->_parameters.isradial) SIG_MESSAGE("[_monolith_slit1_trace] component monolith_slit1=Slit() TRACE [Slit:0]"); PROP_Z0; if (!isradial ? (x < xmin || x > xmax || y < ymin || y > ymax) : (x * x + y * y > radius * radius)) ABSORB; else SCATTER; #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef xmin #undef xmax #undef ymin #undef ymax #undef radius #undef xwidth #undef yheight #undef isradial return; } /* class_Slit_trace */ #pragma acc routine void class_Conics_PH_trace(_class_Conics_PH *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define rmin (_comp->_parameters.rmin) #define rmax (_comp->_parameters.rmax) #define focal_length (_comp->_parameters.focal_length) #define lp (_comp->_parameters.lp) #define lh (_comp->_parameters.lh) #define nshells (_comp->_parameters.nshells) #define m (_comp->_parameters.m) #define mirr_thick (_comp->_parameters.mirr_thick) #define disk (_comp->_parameters.disk) #define radii (_comp->_parameters.radii) #define R0 (_comp->_parameters.R0) #define Qc (_comp->_parameters.Qc) #define W (_comp->_parameters.W) #define alpha (_comp->_parameters.alpha) #define transmit (_comp->_parameters.transmit) #define s (_comp->_parameters.s) SIG_MESSAGE("[_cPH_trace] component cPH=Conics_PH() TRACE [Conics_PH:0]"); /* "_mctmp_a" defines a "silicon" state variable in underlying conic.h functions */ _mctmp_a = 0; traceSingleNeutron (_particle, s); if (!_particle->_absorbed) { SCATTER; } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef rmin #undef rmax #undef focal_length #undef lp #undef lh #undef nshells #undef m #undef mirr_thick #undef disk #undef radii #undef R0 #undef Qc #undef W #undef alpha #undef transmit #undef s return; } /* class_Conics_PH_trace */ #pragma acc routine void class_Beamstop_trace(_class_Beamstop *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define radius (_comp->_parameters.radius) SIG_MESSAGE("[_beamstop_cPH_trace] component beamstop_cPH=Beamstop() TRACE [Beamstop:0]"); double Time = t; ALLOW_BACKPROP; PROP_Z0; Time = t - Time; if ((Time >= 0) && ((radius != 0) && (x * x + y * y <= radius * radius)) || ((Time >= 0) && (radius == 0) && (x > xmin && x < xmax && y > ymin && y < ymax))) { SCATTER; ABSORB; } else { RESTORE_NEUTRON (INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p); } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef radius return; } /* class_Beamstop_trace */ #pragma acc routine void class_Conics_EH_trace(_class_Conics_EH *_comp , _class_particle *_particle) { ABSORBED=SCATTERED=RESTORE=0; #define rmin (_comp->_parameters.rmin) #define rmax (_comp->_parameters.rmax) #define focal_length_u (_comp->_parameters.focal_length_u) #define focal_length_d (_comp->_parameters.focal_length_d) #define le (_comp->_parameters.le) #define lh (_comp->_parameters.lh) #define nshells (_comp->_parameters.nshells) #define m (_comp->_parameters.m) #define mirr_thick (_comp->_parameters.mirr_thick) #define disk (_comp->_parameters.disk) #define radii (_comp->_parameters.radii) #define R0 (_comp->_parameters.R0) #define Qc (_comp->_parameters.Qc) #define W (_comp->_parameters.W) #define alpha (_comp->_parameters.alpha) #define transmit (_comp->_parameters.transmit) #define s (_comp->_parameters.s) SIG_MESSAGE("[_cEH_trace] component cEH=Conics_EH() TRACE [Conics_EH:0]"); /* "_mctmp_a" defines a "silicon" state variable in underlying conic.h functions */ _mctmp_a = 0; traceSingleNeutron (_particle, s); if (!_particle->_absorbed) { SCATTER; } #ifndef NOABSORB_INF_NAN /* Check for nan or inf particle parms */ if(isnan(p + t + vx + vy + vz + x + y + z)) ABSORB; if(isinf(fabs(p) + fabs(t) + fabs(vx) + fabs(vy) + fabs(vz) + fabs(x) + fabs(y) + fabs(z))) ABSORB; #else if(isnan(p) || isinf(p)) printf("NAN or INF found in p, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(t) || isinf(t)) printf("NAN or INF found in t, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vx) || isinf(vx)) printf("NAN or INF found in vx, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vy) || isinf(vy)) printf("NAN or INF found in vy, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(vz) || isinf(vz)) printf("NAN or INF found in vz, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(x) || isinf(x)) printf("NAN or INF found in x, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(y) || isinf(y)) printf("NAN or INF found in y, %s (particle %lld)\n",_comp->_name,_particle->_uid); if(isnan(z) || isinf(z)) printf("NAN or INF found in z, %s (particle %lld)\n",_comp->_name,_particle->_uid); #endif #define was_scattered (_particle->was_scattered) #define was_scattered2 (_particle->was_scattered2) if (_comp->_index == 60) { // EXTEND 'cEH' was_scattered2=SCATTERED; } #undef was_scattered #undef was_scattered2 #undef rmin #undef rmax #undef focal_length_u #undef focal_length_d #undef le #undef lh #undef nshells #undef m #undef mirr_thick #undef disk #undef radii #undef R0 #undef Qc #undef W #undef alpha #undef transmit #undef s return; } /* class_Conics_EH_trace */ #define was_scattered (_particle->was_scattered) #define was_scattered2 (_particle->was_scattered2) /* ***************************************************************************** * instrument 'WOFSANS' TRACE ***************************************************************************** */ #ifndef FUNNEL #pragma acc routine int raytrace(_class_particle* _particle) { /* single event propagation, called by mccode_main for WOFSANS:TRACE */ /* init variables and counters for TRACE */ #undef ABSORB0 #undef ABSORB #define ABSORB0 do { DEBUG_ABSORB(); MAGNET_OFF; ABSORBED++;} while(0) #define ABSORB ABSORB0 DEBUG_ENTER(); DEBUG_STATE(); _particle->flag_nocoordschange=0; /* Init */ _class_particle _particle_save=*_particle; /* the main iteration loop for one incoming event */ while (!ABSORBED) { /* iterate event until absorbed */ /* send particle event to component instance, one after the other */ /* begin component origin=Progress_bar() [1] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_origin_var._rotation_is_identity) { if(!_origin_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _origin_var._position_relative),&x, &y, &z); } } else { mccoordschange(_origin_var._position_relative, _origin_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 1) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_origin_var._name); DEBUG_STATE(); class_Progress_bar_trace(&_origin_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component origin [1] */ /* begin component Source=Source_gen() [2] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_Source_var._rotation_is_identity) { if(!_Source_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _Source_var._position_relative),&x, &y, &z); } } else { mccoordschange(_Source_var._position_relative, _Source_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 2) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_Source_var._name); DEBUG_STATE(); class_Source_gen_trace(&_Source_var, _particle); /* contains EXTEND code */ if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component Source [2] */ /* begin component psd_Source=PSD_monitor() [3] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_Source_var._rotation_is_identity) { if(!_psd_Source_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_Source_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_Source_var._position_relative, _psd_Source_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 3) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_Source_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_Source [3] */ /* begin component l_Source=L_monitor() [4] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_Source_var._rotation_is_identity) { if(!_l_Source_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_Source_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_Source_var._position_relative, _l_Source_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 4) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_Source_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_Source [4] */ /* begin component nD1=Monitor_nD() [5] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD1_var._rotation_is_identity) { if(!_nD1_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD1_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD1_var._position_relative, _nD1_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 5) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD1_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD1 [5] */ /* begin component divergence_monitor_Source=Divergence_monitor() [6] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_Source_var._rotation_is_identity) { if(!_divergence_monitor_Source_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_Source_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_Source_var._position_relative, _divergence_monitor_Source_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 6) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_Source_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_Source [6] */ /* begin component h_divlambda_Source=DivLambda_monitor() [7] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_Source_var._rotation_is_identity) { if(!_h_divlambda_Source_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_Source_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_Source_var._position_relative, _h_divlambda_Source_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 7) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_Source_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_Source [7] */ /* begin component v_divlambda_Source=DivLambda_monitor() [8] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_Source_var._rotation_is_identity) { if(!_v_divlambda_Source_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_Source_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_Source_var._position_relative, _v_divlambda_Source_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 8) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_Source_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_Source [8] */ /* begin component psd_FocusingPosition=PSD_monitor() [9] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_FocusingPosition_var._rotation_is_identity) { if(!_psd_FocusingPosition_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_FocusingPosition_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_FocusingPosition_var._position_relative, _psd_FocusingPosition_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 9) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_FocusingPosition_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_FocusingPosition [9] */ /* begin component l_FocusingPosition=L_monitor() [10] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_FocusingPosition_var._rotation_is_identity) { if(!_l_FocusingPosition_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_FocusingPosition_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_FocusingPosition_var._position_relative, _l_FocusingPosition_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 10) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_FocusingPosition_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_FocusingPosition [10] */ /* begin component nD2=Monitor_nD() [11] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD2_var._rotation_is_identity) { if(!_nD2_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD2_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD2_var._position_relative, _nD2_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 11) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD2_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD2_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD2 [11] */ /* begin component divergence_monitor_FocusingPosition=Divergence_monitor() [12] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_FocusingPosition_var._rotation_is_identity) { if(!_divergence_monitor_FocusingPosition_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_FocusingPosition_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_FocusingPosition_var._position_relative, _divergence_monitor_FocusingPosition_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 12) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_FocusingPosition_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_FocusingPosition [12] */ /* begin component h_divlambda_FocusingPosition=DivLambda_monitor() [13] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_FocusingPosition_var._rotation_is_identity) { if(!_h_divlambda_FocusingPosition_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_FocusingPosition_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_FocusingPosition_var._position_relative, _h_divlambda_FocusingPosition_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 13) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_FocusingPosition_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_FocusingPosition [13] */ /* begin component v_divlambda_FocusingPosition=DivLambda_monitor() [14] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_FocusingPosition_var._rotation_is_identity) { if(!_v_divlambda_FocusingPosition_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_FocusingPosition_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_FocusingPosition_var._position_relative, _v_divlambda_FocusingPosition_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 14) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_FocusingPosition_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_FocusingPosition [14] */ /* begin component BrillmonLD2=Brilliance_monitor() [15] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_BrillmonLD2_var._rotation_is_identity) { if(!_BrillmonLD2_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _BrillmonLD2_var._position_relative),&x, &y, &z); } } else { mccoordschange(_BrillmonLD2_var._position_relative, _BrillmonLD2_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 15) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_BrillmonLD2_var._name); DEBUG_STATE(); class_Brilliance_monitor_trace(&_BrillmonLD2_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component BrillmonLD2 [15] */ /* begin component monolith_slit1=Slit() [16] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_monolith_slit1_var._rotation_is_identity) { if(!_monolith_slit1_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _monolith_slit1_var._position_relative),&x, &y, &z); } } else { mccoordschange(_monolith_slit1_var._position_relative, _monolith_slit1_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 16) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_monolith_slit1_var._name); DEBUG_STATE(); class_Slit_trace(&_monolith_slit1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component monolith_slit1 [16] */ /* begin component monolith_slit2=Slit() [17] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_monolith_slit2_var._rotation_is_identity) { if(!_monolith_slit2_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _monolith_slit2_var._position_relative),&x, &y, &z); } } else { mccoordschange(_monolith_slit2_var._position_relative, _monolith_slit2_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 17) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_monolith_slit2_var._name); DEBUG_STATE(); class_Slit_trace(&_monolith_slit2_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component monolith_slit2 [17] */ /* begin component psd_monolith=PSD_monitor() [18] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_monolith_var._rotation_is_identity) { if(!_psd_monolith_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_monolith_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_monolith_var._position_relative, _psd_monolith_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 18) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_monolith_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_monolith [18] */ /* begin component l_monolith=L_monitor() [19] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_monolith_var._rotation_is_identity) { if(!_l_monolith_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_monolith_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_monolith_var._position_relative, _l_monolith_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 19) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_monolith_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_monolith [19] */ /* begin component nD3=Monitor_nD() [20] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD3_var._rotation_is_identity) { if(!_nD3_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD3_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD3_var._position_relative, _nD3_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 20) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD3_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD3_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD3 [20] */ /* begin component divergence_monitor_monolith=Divergence_monitor() [21] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_monolith_var._rotation_is_identity) { if(!_divergence_monitor_monolith_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_monolith_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_monolith_var._position_relative, _divergence_monitor_monolith_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 21) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_monolith_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_monolith [21] */ /* begin component h_divlambda_monolith=DivLambda_monitor() [22] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_monolith_var._rotation_is_identity) { if(!_h_divlambda_monolith_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_monolith_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_monolith_var._position_relative, _h_divlambda_monolith_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 22) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_monolith_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_monolith [22] */ /* begin component v_divlambda_monolith=DivLambda_monitor() [23] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_monolith_var._rotation_is_identity) { if(!_v_divlambda_monolith_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_monolith_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_monolith_var._position_relative, _v_divlambda_monolith_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 23) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_monolith_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_monolith [23] */ /* begin component PSD_before_slit_cPH=PSD_monitor() [24] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_PSD_before_slit_cPH_var._rotation_is_identity) { if(!_PSD_before_slit_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _PSD_before_slit_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_PSD_before_slit_cPH_var._position_relative, _PSD_before_slit_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 24) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_PSD_before_slit_cPH_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_PSD_before_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component PSD_before_slit_cPH [24] */ /* begin component slit_cPH=Slit() [25] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_slit_cPH_var._rotation_is_identity) { if(!_slit_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _slit_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_slit_cPH_var._position_relative, _slit_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 25) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_slit_cPH_var._name); DEBUG_STATE(); class_Slit_trace(&_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component slit_cPH [25] */ /* begin component PSD_slit_cPH=PSD_monitor() [26] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_PSD_slit_cPH_var._rotation_is_identity) { if(!_PSD_slit_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _PSD_slit_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_PSD_slit_cPH_var._position_relative, _PSD_slit_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 26) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_PSD_slit_cPH_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_PSD_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component PSD_slit_cPH [26] */ /* begin component l_slit_cPH=L_monitor() [27] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_slit_cPH_var._rotation_is_identity) { if(!_l_slit_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_slit_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_slit_cPH_var._position_relative, _l_slit_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 27) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_slit_cPH_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_slit_cPH [27] */ /* begin component nD4=Monitor_nD() [28] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD4_var._rotation_is_identity) { if(!_nD4_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD4_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD4_var._position_relative, _nD4_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 28) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD4_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD4_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD4 [28] */ /* begin component divergence_monitor_slit_cPH=Divergence_monitor() [29] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_slit_cPH_var._rotation_is_identity) { if(!_divergence_monitor_slit_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_slit_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_slit_cPH_var._position_relative, _divergence_monitor_slit_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 29) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_slit_cPH_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_slit_cPH [29] */ /* begin component h_divlambda_slit_cPH=DivLambda_monitor() [30] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_slit_cPH_var._rotation_is_identity) { if(!_h_divlambda_slit_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_slit_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_slit_cPH_var._position_relative, _h_divlambda_slit_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 30) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_slit_cPH_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_slit_cPH [30] */ /* begin component v_divlambda_slit_cPH=DivLambda_monitor() [31] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_slit_cPH_var._rotation_is_identity) { if(!_v_divlambda_slit_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_slit_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_slit_cPH_var._position_relative, _v_divlambda_slit_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 31) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_slit_cPH_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_slit_cPH [31] */ /* begin component cPH=Conics_PH() [32] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_cPH_var._rotation_is_identity) { if(!_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_cPH_var._position_relative, _cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 32) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_cPH_var._name); DEBUG_STATE(); class_Conics_PH_trace(&_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component cPH [32] */ /* begin component beamstop_cPH=Beamstop() [33] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_beamstop_cPH_var._rotation_is_identity) { if(!_beamstop_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _beamstop_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_beamstop_cPH_var._position_relative, _beamstop_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 33) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_beamstop_cPH_var._name); DEBUG_STATE(); if ((( _instrument_var._parameters.PH_beamstop == 1 ))) // conditional WHEN execution class_Beamstop_trace(&_beamstop_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component beamstop_cPH [33] */ /* begin component psd_cPH=PSD_monitor() [34] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_cPH_var._rotation_is_identity) { if(!_psd_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_cPH_var._position_relative, _psd_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 34) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_cPH_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_cPH [34] */ /* begin component l_cPH=L_monitor() [35] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_cPH_var._rotation_is_identity) { if(!_l_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_cPH_var._position_relative, _l_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 35) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_cPH_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_cPH [35] */ /* begin component nD5=Monitor_nD() [36] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD5_var._rotation_is_identity) { if(!_nD5_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD5_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD5_var._position_relative, _nD5_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 36) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD5_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD5_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD5 [36] */ /* begin component divergence_monitor_cPH=Divergence_monitor() [37] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_cPH_var._rotation_is_identity) { if(!_divergence_monitor_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_cPH_var._position_relative, _divergence_monitor_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 37) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_cPH_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_cPH [37] */ /* begin component h_divlambda_cPH=DivLambda_monitor() [38] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_cPH_var._rotation_is_identity) { if(!_h_divlambda_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_cPH_var._position_relative, _h_divlambda_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 38) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_cPH_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_cPH [38] */ /* begin component v_divlambda_cPH=DivLambda_monitor() [39] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_cPH_var._rotation_is_identity) { if(!_v_divlambda_cPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_cPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_cPH_var._position_relative, _v_divlambda_cPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 39) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_cPH_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_cPH [39] */ /* begin component psd_bunker=PSD_monitor() [40] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_bunker_var._rotation_is_identity) { if(!_psd_bunker_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_bunker_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_bunker_var._position_relative, _psd_bunker_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 40) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_bunker_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_bunker [40] */ /* begin component l_bunker=L_monitor() [41] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_bunker_var._rotation_is_identity) { if(!_l_bunker_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_bunker_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_bunker_var._position_relative, _l_bunker_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 41) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_bunker_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_bunker [41] */ /* begin component nD6=Monitor_nD() [42] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD6_var._rotation_is_identity) { if(!_nD6_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD6_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD6_var._position_relative, _nD6_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 42) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD6_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD6_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD6 [42] */ /* begin component divergence_monitor_bunker=Divergence_monitor() [43] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_bunker_var._rotation_is_identity) { if(!_divergence_monitor_bunker_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_bunker_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_bunker_var._position_relative, _divergence_monitor_bunker_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 43) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_bunker_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_bunker [43] */ /* begin component h_divlambda_bunker=DivLambda_monitor() [44] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_bunker_var._rotation_is_identity) { if(!_h_divlambda_bunker_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_bunker_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_bunker_var._position_relative, _h_divlambda_bunker_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 44) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_bunker_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_bunker [44] */ /* begin component v_divlambda_bunker=DivLambda_monitor() [45] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_bunker_var._rotation_is_identity) { if(!_v_divlambda_bunker_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_bunker_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_bunker_var._position_relative, _v_divlambda_bunker_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 45) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_bunker_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_bunker [45] */ /* begin component psd_PHfocus1=PSD_monitor() [46] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_PHfocus1_var._rotation_is_identity) { if(!_psd_PHfocus1_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_PHfocus1_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_PHfocus1_var._position_relative, _psd_PHfocus1_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 46) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_PHfocus1_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_PHfocus1 [46] */ /* begin component l_PHfocus1=L_monitor() [47] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_PHfocus1_var._rotation_is_identity) { if(!_l_PHfocus1_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_PHfocus1_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_PHfocus1_var._position_relative, _l_PHfocus1_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 47) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_PHfocus1_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_PHfocus1 [47] */ /* begin component nD7=Monitor_nD() [48] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD7_var._rotation_is_identity) { if(!_nD7_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD7_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD7_var._position_relative, _nD7_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 48) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD7_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD7_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD7 [48] */ /* begin component divergence_monitor_PHfocus1=Divergence_monitor() [49] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_PHfocus1_var._rotation_is_identity) { if(!_divergence_monitor_PHfocus1_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_PHfocus1_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_PHfocus1_var._position_relative, _divergence_monitor_PHfocus1_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 49) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_PHfocus1_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_PHfocus1 [49] */ /* begin component h_divlambda_PHfocus1=DivLambda_monitor() [50] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_PHfocus1_var._rotation_is_identity) { if(!_h_divlambda_PHfocus1_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_PHfocus1_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_PHfocus1_var._position_relative, _h_divlambda_PHfocus1_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 50) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_PHfocus1_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_PHfocus1 [50] */ /* begin component v_divlambda_PHfocus1=DivLambda_monitor() [51] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_PHfocus1_var._rotation_is_identity) { if(!_v_divlambda_PHfocus1_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_PHfocus1_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_PHfocus1_var._position_relative, _v_divlambda_PHfocus1_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 51) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_PHfocus1_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_PHfocus1 [51] */ /* begin component slit_focusPH=Slit() [52] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_slit_focusPH_var._rotation_is_identity) { if(!_slit_focusPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _slit_focusPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_slit_focusPH_var._position_relative, _slit_focusPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 52) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_slit_focusPH_var._name); DEBUG_STATE(); class_Slit_trace(&_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component slit_focusPH [52] */ /* begin component psd_slit_focusPH=PSD_monitor() [53] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_slit_focusPH_var._rotation_is_identity) { if(!_psd_slit_focusPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_slit_focusPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_slit_focusPH_var._position_relative, _psd_slit_focusPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 53) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_slit_focusPH_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_slit_focusPH [53] */ /* begin component l_slit_focusPH=L_monitor() [54] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_slit_focusPH_var._rotation_is_identity) { if(!_l_slit_focusPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_slit_focusPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_slit_focusPH_var._position_relative, _l_slit_focusPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 54) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_slit_focusPH_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_slit_focusPH [54] */ /* begin component nD8=Monitor_nD() [55] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD8_var._rotation_is_identity) { if(!_nD8_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD8_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD8_var._position_relative, _nD8_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 55) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD8_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD8_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD8 [55] */ /* begin component divergence_monitor_slit_focusPH=Divergence_monitor() [56] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_slit_focusPH_var._rotation_is_identity) { if(!_divergence_monitor_slit_focusPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_slit_focusPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_slit_focusPH_var._position_relative, _divergence_monitor_slit_focusPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 56) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_slit_focusPH_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_slit_focusPH [56] */ /* begin component h_divlambda_slit_focusPH=DivLambda_monitor() [57] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_slit_focusPH_var._rotation_is_identity) { if(!_h_divlambda_slit_focusPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_slit_focusPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_slit_focusPH_var._position_relative, _h_divlambda_slit_focusPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 57) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_slit_focusPH_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_slit_focusPH [57] */ /* begin component v_divlambda_slit_focusPH=DivLambda_monitor() [58] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_slit_focusPH_var._rotation_is_identity) { if(!_v_divlambda_slit_focusPH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_slit_focusPH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_slit_focusPH_var._position_relative, _v_divlambda_slit_focusPH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 58) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_slit_focusPH_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_slit_focusPH [58] */ /* begin component slit_EH=Slit() [59] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_slit_EH_var._rotation_is_identity) { if(!_slit_EH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _slit_EH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_slit_EH_var._position_relative, _slit_EH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 59) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_slit_EH_var._name); DEBUG_STATE(); class_Slit_trace(&_slit_EH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component slit_EH [59] */ /* begin component cEH=Conics_EH() [60] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_cEH_var._rotation_is_identity) { if(!_cEH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _cEH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_cEH_var._position_relative, _cEH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 60) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_cEH_var._name); DEBUG_STATE(); class_Conics_EH_trace(&_cEH_var, _particle); /* contains EXTEND code */ if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component cEH [60] */ /* begin component beamstop_cEH=Beamstop() [61] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_beamstop_cEH_var._rotation_is_identity) { if(!_beamstop_cEH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _beamstop_cEH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_beamstop_cEH_var._position_relative, _beamstop_cEH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 61) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_beamstop_cEH_var._name); DEBUG_STATE(); if ((( _instrument_var._parameters.EH_beamstop == 1 ))) // conditional WHEN execution class_Beamstop_trace(&_beamstop_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component beamstop_cEH [61] */ /* begin component psd_cEH=PSD_monitor() [62] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_cEH_var._rotation_is_identity) { if(!_psd_cEH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_cEH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_cEH_var._position_relative, _psd_cEH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 62) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_cEH_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_cEH [62] */ /* begin component l_cEH=L_monitor() [63] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_cEH_var._rotation_is_identity) { if(!_l_cEH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_cEH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_cEH_var._position_relative, _l_cEH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 63) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_cEH_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_cEH [63] */ /* begin component nD9=Monitor_nD() [64] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_nD9_var._rotation_is_identity) { if(!_nD9_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _nD9_var._position_relative),&x, &y, &z); } } else { mccoordschange(_nD9_var._position_relative, _nD9_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 64) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_nD9_var._name); DEBUG_STATE(); class_Monitor_nD_trace(&_nD9_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component nD9 [64] */ /* begin component divergence_monitor_cEH=Divergence_monitor() [65] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_cEH_var._rotation_is_identity) { if(!_divergence_monitor_cEH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_cEH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_cEH_var._position_relative, _divergence_monitor_cEH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 65) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_cEH_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_cEH [65] */ /* begin component h_divlambda_cEH=DivLambda_monitor() [66] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_cEH_var._rotation_is_identity) { if(!_h_divlambda_cEH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_cEH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_cEH_var._position_relative, _h_divlambda_cEH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 66) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_cEH_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_cEH [66] */ /* begin component v_divlambda_cEH=DivLambda_monitor() [67] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_cEH_var._rotation_is_identity) { if(!_v_divlambda_cEH_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_cEH_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_cEH_var._position_relative, _v_divlambda_cEH_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 67) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_cEH_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_cEH [67] */ /* begin component PSD_10=PSD_monitor() [68] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_PSD_10_var._rotation_is_identity) { if(!_PSD_10_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _PSD_10_var._position_relative),&x, &y, &z); } } else { mccoordschange(_PSD_10_var._position_relative, _PSD_10_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 68) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_PSD_10_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_PSD_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component PSD_10 [68] */ /* begin component PSD_11=PSD_monitor() [69] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_PSD_11_var._rotation_is_identity) { if(!_PSD_11_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _PSD_11_var._position_relative),&x, &y, &z); } } else { mccoordschange(_PSD_11_var._position_relative, _PSD_11_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 69) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_PSD_11_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_PSD_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component PSD_11 [69] */ /* begin component PSD_12=PSD_monitor() [70] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_PSD_12_var._rotation_is_identity) { if(!_PSD_12_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _PSD_12_var._position_relative),&x, &y, &z); } } else { mccoordschange(_PSD_12_var._position_relative, _PSD_12_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 70) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_PSD_12_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_PSD_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component PSD_12 [70] */ /* begin component PSD_13=PSD_monitor() [71] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_PSD_13_var._rotation_is_identity) { if(!_PSD_13_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _PSD_13_var._position_relative),&x, &y, &z); } } else { mccoordschange(_PSD_13_var._position_relative, _PSD_13_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 71) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_PSD_13_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_PSD_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component PSD_13 [71] */ /* begin component l_10=L_monitor() [72] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_10_var._rotation_is_identity) { if(!_l_10_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_10_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_10_var._position_relative, _l_10_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 72) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_10_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_10 [72] */ /* begin component l_11=L_monitor() [73] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_11_var._rotation_is_identity) { if(!_l_11_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_11_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_11_var._position_relative, _l_11_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 73) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_11_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_11 [73] */ /* begin component l_12=L_monitor() [74] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_12_var._rotation_is_identity) { if(!_l_12_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_12_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_12_var._position_relative, _l_12_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 74) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_12_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_12 [74] */ /* begin component l_13=L_monitor() [75] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_13_var._rotation_is_identity) { if(!_l_13_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_13_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_13_var._position_relative, _l_13_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 75) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_13_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_13 [75] */ /* begin component divergence_monitor_10=Divergence_monitor() [76] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_10_var._rotation_is_identity) { if(!_divergence_monitor_10_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_10_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_10_var._position_relative, _divergence_monitor_10_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 76) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_10_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_10 [76] */ /* begin component divergence_monitor_11=Divergence_monitor() [77] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_11_var._rotation_is_identity) { if(!_divergence_monitor_11_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_11_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_11_var._position_relative, _divergence_monitor_11_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 77) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_11_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_11 [77] */ /* begin component divergence_monitor_12=Divergence_monitor() [78] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_12_var._rotation_is_identity) { if(!_divergence_monitor_12_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_12_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_12_var._position_relative, _divergence_monitor_12_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 78) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_12_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_12 [78] */ /* begin component divergence_monitor_13=Divergence_monitor() [79] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_13_var._rotation_is_identity) { if(!_divergence_monitor_13_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_13_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_13_var._position_relative, _divergence_monitor_13_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 79) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_13_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_13 [79] */ /* begin component divlambda_10=DivLambda_monitor() [80] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divlambda_10_var._rotation_is_identity) { if(!_divlambda_10_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divlambda_10_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divlambda_10_var._position_relative, _divlambda_10_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 80) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divlambda_10_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_divlambda_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divlambda_10 [80] */ /* begin component h_divlambda_11=DivLambda_monitor() [81] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_11_var._rotation_is_identity) { if(!_h_divlambda_11_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_11_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_11_var._position_relative, _h_divlambda_11_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 81) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_11_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_11 [81] */ /* begin component h_divlambda_12=DivLambda_monitor() [82] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_12_var._rotation_is_identity) { if(!_h_divlambda_12_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_12_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_12_var._position_relative, _h_divlambda_12_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 82) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_12_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_12 [82] */ /* begin component h_divlambda_13=DivLambda_monitor() [83] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_h_divlambda_13_var._rotation_is_identity) { if(!_h_divlambda_13_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _h_divlambda_13_var._position_relative),&x, &y, &z); } } else { mccoordschange(_h_divlambda_13_var._position_relative, _h_divlambda_13_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 83) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_h_divlambda_13_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_h_divlambda_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component h_divlambda_13 [83] */ /* begin component v_divlambda_10=DivLambda_monitor() [84] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_10_var._rotation_is_identity) { if(!_v_divlambda_10_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_10_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_10_var._position_relative, _v_divlambda_10_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 84) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_10_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_10 [84] */ /* begin component v_divlambda_11=DivLambda_monitor() [85] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_11_var._rotation_is_identity) { if(!_v_divlambda_11_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_11_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_11_var._position_relative, _v_divlambda_11_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 85) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_11_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_11 [85] */ /* begin component v_divlambda_12=DivLambda_monitor() [86] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_12_var._rotation_is_identity) { if(!_v_divlambda_12_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_12_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_12_var._position_relative, _v_divlambda_12_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 86) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_12_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_12 [86] */ /* begin component v_divlambda_13=DivLambda_monitor() [87] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_v_divlambda_13_var._rotation_is_identity) { if(!_v_divlambda_13_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _v_divlambda_13_var._position_relative),&x, &y, &z); } } else { mccoordschange(_v_divlambda_13_var._position_relative, _v_divlambda_13_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 87) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_v_divlambda_13_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_v_divlambda_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component v_divlambda_13 [87] */ /* begin component psd_monitor_detector=PSD_monitor() [88] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_monitor_detector_var._rotation_is_identity) { if(!_psd_monitor_detector_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_monitor_detector_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_monitor_detector_var._position_relative, _psd_monitor_detector_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 88) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_monitor_detector_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_monitor_detector_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_monitor_detector [88] */ /* begin component l_detector=L_monitor() [89] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_l_detector_var._rotation_is_identity) { if(!_l_detector_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _l_detector_var._position_relative),&x, &y, &z); } } else { mccoordschange(_l_detector_var._position_relative, _l_detector_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 89) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_l_detector_var._name); DEBUG_STATE(); class_L_monitor_trace(&_l_detector_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component l_detector [89] */ /* begin component divergence_monitor_detector=Divergence_monitor() [90] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divergence_monitor_detector_var._rotation_is_identity) { if(!_divergence_monitor_detector_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_detector_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divergence_monitor_detector_var._position_relative, _divergence_monitor_detector_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 90) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divergence_monitor_detector_var._name); DEBUG_STATE(); class_Divergence_monitor_trace(&_divergence_monitor_detector_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divergence_monitor_detector [90] */ /* begin component divlambda_detector=DivLambda_monitor() [91] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_divlambda_detector_var._rotation_is_identity) { if(!_divlambda_detector_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _divlambda_detector_var._position_relative),&x, &y, &z); } } else { mccoordschange(_divlambda_detector_var._position_relative, _divlambda_detector_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 91) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_divlambda_detector_var._name); DEBUG_STATE(); class_DivLambda_monitor_trace(&_divlambda_detector_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component divlambda_detector [91] */ /* begin component psd_monitor_detector_big=PSD_monitor() [92] */ if (!_particle->flag_nocoordschange) { // flag activated by JUMP to pass coords change if (_psd_monitor_detector_big_var._rotation_is_identity) { if(!_psd_monitor_detector_big_var._position_relative_is_zero) { coords_get(coords_add(coords_set(x,y,z), _psd_monitor_detector_big_var._position_relative),&x, &y, &z); } } else { mccoordschange(_psd_monitor_detector_big_var._position_relative, _psd_monitor_detector_big_var._rotation_relative, _particle); } } if (!ABSORBED && _particle->_index == 92) { _particle->flag_nocoordschange=0; /* Reset if we came here from a JUMP */ _particle_save = *_particle; DEBUG_COMP(_psd_monitor_detector_big_var._name); DEBUG_STATE(); class_PSD_monitor_trace(&_psd_monitor_detector_big_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; if (!ABSORBED) { DEBUG_STATE(); } } /* end component psd_monitor_detector_big [92] */ if (_particle->_index > 92) ABSORBED++; /* absorbed when passed all components */ } /* while !ABSORBED */ DEBUG_LEAVE() particle_restore(_particle, &_particle_save); DEBUG_STATE() return(_particle->_index); } /* raytrace */ /* loop to generate events and call raytrace() propagate them */ void raytrace_all(unsigned long long ncount, unsigned long seed) { /* CPU-loop */ unsigned long long loops; loops = ceil((double)ncount/gpu_innerloop); /* if on GPU, printf has been globally nullified, re-enable here */ #ifdef OPENACC #undef strlen #undef strcmp #undef exit #undef printf #undef sprintf #undef fprintf #endif #ifdef OPENACC if (ncount>gpu_innerloop) { printf("Defining %llu CPU loops around GPU kernel and adjusting ncount\n",loops); mcset_ncount(loops*gpu_innerloop); } else { #endif loops=1; gpu_innerloop = ncount; #ifdef OPENACC } #endif for (unsigned long long cloop=0; cloop1) fprintf(stdout, "%d..", (int)cloop); fflush(stdout); #endif /* if on GPU, re-nullify printf */ #ifdef OPENACC #undef strlen #undef strcmp #undef exit #undef printf #undef sprintf #undef fprintf #endif #pragma acc parallel loop num_gangs(numgangs) vector_length(vecsize) for (unsigned long pidx=0 ; pidx < gpu_innerloop ; pidx++) { _class_particle particleN = mcgenstate(); // initial particle _class_particle* _particle = &particleN; particleN._uid = pidx; #ifdef USE_MPI particleN._uid += mpi_node_rank * ncount; #endif srandom(_hash((pidx+1)*(seed+1))); raytrace(_particle); } /* inner for */ seed = seed+gpu_innerloop; } /* CPU for */ /* if on GPU, printf has been globally nullified, re-enable here */ #ifdef OPENACC #undef strlen #undef strcmp #undef exit #undef printf #undef sprintf #undef fprintf #endif MPI_MASTER( printf("*** TRACE end *** \n"); ); } /* raytrace_all */ #endif //no-FUNNEL #ifdef FUNNEL // Alternative raytrace algorithm which iterates all particles through // one component at the time, can remove absorbs from the next loop and // switch between cpu/gpu. void raytrace_all_funnel(unsigned long long ncount, unsigned long seed) { // set up outer (CPU) loop / particle batches unsigned long long loops; /* if on GPU, printf has been globally nullified, re-enable here */ #ifdef OPENACC #undef strlen #undef strcmp #undef exit #undef printf #undef sprintf #undef fprintf #endif #ifdef OPENACC loops = ceil((double)ncount/gpu_innerloop); if (ncount>gpu_innerloop) { printf("Defining %llu CPU loops around kernel and adjusting ncount\n",loops); mcset_ncount(loops*gpu_innerloop); } else { #endif loops=1; gpu_innerloop = ncount; #ifdef OPENACC } #endif // create particles struct and pointer arrays (same memory used by all batches) _class_particle* particles = malloc(gpu_innerloop*sizeof(_class_particle)); _class_particle* pbuffer = malloc(gpu_innerloop*sizeof(_class_particle)); long livebatchsize = gpu_innerloop; #undef ABSORB0 #undef ABSORB #define ABSORB0 do { DEBUG_ABSORB(); MAGNET_OFF; ABSORBED++; } while(0) #define ABSORB ABSORB0 // outer loop / particle batches for (unsigned long long cloop=0; cloop1) fprintf(stdout, "%d..", (int)cloop); fflush(stdout); // init particles #pragma acc parallel loop present(particles[0:livebatchsize]) for (unsigned long pidx=0 ; pidx < livebatchsize ; pidx++) { // generate particle state, set loop index and seed particles[pidx] = mcgenstate(); _class_particle* _particle = particles + pidx; _particle->_uid = pidx; #ifdef USE_MPI _particle->_uid += mpi_node_rank * ncount; #endif srandom(_hash((pidx+1)*(seed+1))); // _particle->state usage built into srandom macro } // iterate components #pragma acc parallel loop present(particles[0:livebatchsize]) for (unsigned long pidx=0 ; pidx < livebatchsize ; pidx++) { _class_particle* _particle = &particles[pidx]; _class_particle _particle_save; // origin if (!ABSORBED && _particle->_index == 1) { #ifndef MULTICORE if (_origin_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _origin_var._position_relative),&x, &y, &z); else #endif mccoordschange(_origin_var._position_relative, _origin_var._rotation_relative, _particle); _particle_save = *_particle; class_Progress_bar_trace(&_origin_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // Source if (!ABSORBED && _particle->_index == 2) { #ifndef MULTICORE if (_Source_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _Source_var._position_relative),&x, &y, &z); else #endif mccoordschange(_Source_var._position_relative, _Source_var._rotation_relative, _particle); _particle_save = *_particle; class_Source_gen_trace(&_Source_var, _particle); /* contains EXTEND code */ if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_Source if (!ABSORBED && _particle->_index == 3) { #ifndef MULTICORE if (_psd_Source_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_Source_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_Source_var._position_relative, _psd_Source_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_Source if (!ABSORBED && _particle->_index == 4) { #ifndef MULTICORE if (_l_Source_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_Source_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_Source_var._position_relative, _l_Source_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD1 if (!ABSORBED && _particle->_index == 5) { #ifndef MULTICORE if (_nD1_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD1_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD1_var._position_relative, _nD1_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_Source if (!ABSORBED && _particle->_index == 6) { #ifndef MULTICORE if (_divergence_monitor_Source_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_Source_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_Source_var._position_relative, _divergence_monitor_Source_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_Source if (!ABSORBED && _particle->_index == 7) { #ifndef MULTICORE if (_h_divlambda_Source_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_Source_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_Source_var._position_relative, _h_divlambda_Source_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_Source if (!ABSORBED && _particle->_index == 8) { #ifndef MULTICORE if (_v_divlambda_Source_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_Source_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_Source_var._position_relative, _v_divlambda_Source_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_Source_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_FocusingPosition if (!ABSORBED && _particle->_index == 9) { #ifndef MULTICORE if (_psd_FocusingPosition_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_FocusingPosition_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_FocusingPosition_var._position_relative, _psd_FocusingPosition_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_FocusingPosition if (!ABSORBED && _particle->_index == 10) { #ifndef MULTICORE if (_l_FocusingPosition_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_FocusingPosition_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_FocusingPosition_var._position_relative, _l_FocusingPosition_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD2 if (!ABSORBED && _particle->_index == 11) { #ifndef MULTICORE if (_nD2_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD2_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD2_var._position_relative, _nD2_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD2_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_FocusingPosition if (!ABSORBED && _particle->_index == 12) { #ifndef MULTICORE if (_divergence_monitor_FocusingPosition_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_FocusingPosition_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_FocusingPosition_var._position_relative, _divergence_monitor_FocusingPosition_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_FocusingPosition if (!ABSORBED && _particle->_index == 13) { #ifndef MULTICORE if (_h_divlambda_FocusingPosition_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_FocusingPosition_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_FocusingPosition_var._position_relative, _h_divlambda_FocusingPosition_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_FocusingPosition if (!ABSORBED && _particle->_index == 14) { #ifndef MULTICORE if (_v_divlambda_FocusingPosition_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_FocusingPosition_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_FocusingPosition_var._position_relative, _v_divlambda_FocusingPosition_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_FocusingPosition_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // BrillmonLD2 if (!ABSORBED && _particle->_index == 15) { #ifndef MULTICORE if (_BrillmonLD2_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _BrillmonLD2_var._position_relative),&x, &y, &z); else #endif mccoordschange(_BrillmonLD2_var._position_relative, _BrillmonLD2_var._rotation_relative, _particle); _particle_save = *_particle; class_Brilliance_monitor_trace(&_BrillmonLD2_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // monolith_slit1 if (!ABSORBED && _particle->_index == 16) { #ifndef MULTICORE if (_monolith_slit1_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _monolith_slit1_var._position_relative),&x, &y, &z); else #endif mccoordschange(_monolith_slit1_var._position_relative, _monolith_slit1_var._rotation_relative, _particle); _particle_save = *_particle; class_Slit_trace(&_monolith_slit1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // monolith_slit2 if (!ABSORBED && _particle->_index == 17) { #ifndef MULTICORE if (_monolith_slit2_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _monolith_slit2_var._position_relative),&x, &y, &z); else #endif mccoordschange(_monolith_slit2_var._position_relative, _monolith_slit2_var._rotation_relative, _particle); _particle_save = *_particle; class_Slit_trace(&_monolith_slit2_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_monolith if (!ABSORBED && _particle->_index == 18) { #ifndef MULTICORE if (_psd_monolith_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_monolith_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_monolith_var._position_relative, _psd_monolith_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_monolith if (!ABSORBED && _particle->_index == 19) { #ifndef MULTICORE if (_l_monolith_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_monolith_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_monolith_var._position_relative, _l_monolith_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD3 if (!ABSORBED && _particle->_index == 20) { #ifndef MULTICORE if (_nD3_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD3_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD3_var._position_relative, _nD3_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD3_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_monolith if (!ABSORBED && _particle->_index == 21) { #ifndef MULTICORE if (_divergence_monitor_monolith_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_monolith_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_monolith_var._position_relative, _divergence_monitor_monolith_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_monolith if (!ABSORBED && _particle->_index == 22) { #ifndef MULTICORE if (_h_divlambda_monolith_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_monolith_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_monolith_var._position_relative, _h_divlambda_monolith_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_monolith if (!ABSORBED && _particle->_index == 23) { #ifndef MULTICORE if (_v_divlambda_monolith_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_monolith_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_monolith_var._position_relative, _v_divlambda_monolith_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_monolith_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // PSD_before_slit_cPH if (!ABSORBED && _particle->_index == 24) { #ifndef MULTICORE if (_PSD_before_slit_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _PSD_before_slit_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_PSD_before_slit_cPH_var._position_relative, _PSD_before_slit_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_PSD_before_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // slit_cPH if (!ABSORBED && _particle->_index == 25) { #ifndef MULTICORE if (_slit_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _slit_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_slit_cPH_var._position_relative, _slit_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_Slit_trace(&_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // PSD_slit_cPH if (!ABSORBED && _particle->_index == 26) { #ifndef MULTICORE if (_PSD_slit_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _PSD_slit_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_PSD_slit_cPH_var._position_relative, _PSD_slit_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_PSD_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_slit_cPH if (!ABSORBED && _particle->_index == 27) { #ifndef MULTICORE if (_l_slit_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_slit_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_slit_cPH_var._position_relative, _l_slit_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD4 if (!ABSORBED && _particle->_index == 28) { #ifndef MULTICORE if (_nD4_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD4_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD4_var._position_relative, _nD4_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD4_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_slit_cPH if (!ABSORBED && _particle->_index == 29) { #ifndef MULTICORE if (_divergence_monitor_slit_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_slit_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_slit_cPH_var._position_relative, _divergence_monitor_slit_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_slit_cPH if (!ABSORBED && _particle->_index == 30) { #ifndef MULTICORE if (_h_divlambda_slit_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_slit_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_slit_cPH_var._position_relative, _h_divlambda_slit_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_slit_cPH if (!ABSORBED && _particle->_index == 31) { #ifndef MULTICORE if (_v_divlambda_slit_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_slit_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_slit_cPH_var._position_relative, _v_divlambda_slit_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_slit_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // cPH if (!ABSORBED && _particle->_index == 32) { #ifndef MULTICORE if (_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_cPH_var._position_relative, _cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_Conics_PH_trace(&_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // beamstop_cPH if (!ABSORBED && _particle->_index == 33) { #ifndef MULTICORE if (_beamstop_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _beamstop_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_beamstop_cPH_var._position_relative, _beamstop_cPH_var._rotation_relative, _particle); _particle_save = *_particle; if ((( _instrument_var._parameters.PH_beamstop == 1 ))) // conditional WHEN class_Beamstop_trace(&_beamstop_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_cPH if (!ABSORBED && _particle->_index == 34) { #ifndef MULTICORE if (_psd_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_cPH_var._position_relative, _psd_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_cPH if (!ABSORBED && _particle->_index == 35) { #ifndef MULTICORE if (_l_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_cPH_var._position_relative, _l_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD5 if (!ABSORBED && _particle->_index == 36) { #ifndef MULTICORE if (_nD5_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD5_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD5_var._position_relative, _nD5_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD5_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_cPH if (!ABSORBED && _particle->_index == 37) { #ifndef MULTICORE if (_divergence_monitor_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_cPH_var._position_relative, _divergence_monitor_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_cPH if (!ABSORBED && _particle->_index == 38) { #ifndef MULTICORE if (_h_divlambda_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_cPH_var._position_relative, _h_divlambda_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_cPH if (!ABSORBED && _particle->_index == 39) { #ifndef MULTICORE if (_v_divlambda_cPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_cPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_cPH_var._position_relative, _v_divlambda_cPH_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_cPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_bunker if (!ABSORBED && _particle->_index == 40) { #ifndef MULTICORE if (_psd_bunker_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_bunker_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_bunker_var._position_relative, _psd_bunker_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_bunker if (!ABSORBED && _particle->_index == 41) { #ifndef MULTICORE if (_l_bunker_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_bunker_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_bunker_var._position_relative, _l_bunker_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD6 if (!ABSORBED && _particle->_index == 42) { #ifndef MULTICORE if (_nD6_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD6_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD6_var._position_relative, _nD6_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD6_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_bunker if (!ABSORBED && _particle->_index == 43) { #ifndef MULTICORE if (_divergence_monitor_bunker_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_bunker_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_bunker_var._position_relative, _divergence_monitor_bunker_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_bunker if (!ABSORBED && _particle->_index == 44) { #ifndef MULTICORE if (_h_divlambda_bunker_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_bunker_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_bunker_var._position_relative, _h_divlambda_bunker_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_bunker if (!ABSORBED && _particle->_index == 45) { #ifndef MULTICORE if (_v_divlambda_bunker_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_bunker_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_bunker_var._position_relative, _v_divlambda_bunker_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_bunker_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_PHfocus1 if (!ABSORBED && _particle->_index == 46) { #ifndef MULTICORE if (_psd_PHfocus1_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_PHfocus1_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_PHfocus1_var._position_relative, _psd_PHfocus1_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_PHfocus1 if (!ABSORBED && _particle->_index == 47) { #ifndef MULTICORE if (_l_PHfocus1_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_PHfocus1_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_PHfocus1_var._position_relative, _l_PHfocus1_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD7 if (!ABSORBED && _particle->_index == 48) { #ifndef MULTICORE if (_nD7_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD7_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD7_var._position_relative, _nD7_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD7_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_PHfocus1 if (!ABSORBED && _particle->_index == 49) { #ifndef MULTICORE if (_divergence_monitor_PHfocus1_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_PHfocus1_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_PHfocus1_var._position_relative, _divergence_monitor_PHfocus1_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_PHfocus1 if (!ABSORBED && _particle->_index == 50) { #ifndef MULTICORE if (_h_divlambda_PHfocus1_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_PHfocus1_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_PHfocus1_var._position_relative, _h_divlambda_PHfocus1_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_PHfocus1 if (!ABSORBED && _particle->_index == 51) { #ifndef MULTICORE if (_v_divlambda_PHfocus1_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_PHfocus1_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_PHfocus1_var._position_relative, _v_divlambda_PHfocus1_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_PHfocus1_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // slit_focusPH if (!ABSORBED && _particle->_index == 52) { #ifndef MULTICORE if (_slit_focusPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _slit_focusPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_slit_focusPH_var._position_relative, _slit_focusPH_var._rotation_relative, _particle); _particle_save = *_particle; class_Slit_trace(&_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_slit_focusPH if (!ABSORBED && _particle->_index == 53) { #ifndef MULTICORE if (_psd_slit_focusPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_slit_focusPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_slit_focusPH_var._position_relative, _psd_slit_focusPH_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_slit_focusPH if (!ABSORBED && _particle->_index == 54) { #ifndef MULTICORE if (_l_slit_focusPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_slit_focusPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_slit_focusPH_var._position_relative, _l_slit_focusPH_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD8 if (!ABSORBED && _particle->_index == 55) { #ifndef MULTICORE if (_nD8_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD8_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD8_var._position_relative, _nD8_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD8_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_slit_focusPH if (!ABSORBED && _particle->_index == 56) { #ifndef MULTICORE if (_divergence_monitor_slit_focusPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_slit_focusPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_slit_focusPH_var._position_relative, _divergence_monitor_slit_focusPH_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_slit_focusPH if (!ABSORBED && _particle->_index == 57) { #ifndef MULTICORE if (_h_divlambda_slit_focusPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_slit_focusPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_slit_focusPH_var._position_relative, _h_divlambda_slit_focusPH_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_slit_focusPH if (!ABSORBED && _particle->_index == 58) { #ifndef MULTICORE if (_v_divlambda_slit_focusPH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_slit_focusPH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_slit_focusPH_var._position_relative, _v_divlambda_slit_focusPH_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_slit_focusPH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // slit_EH if (!ABSORBED && _particle->_index == 59) { #ifndef MULTICORE if (_slit_EH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _slit_EH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_slit_EH_var._position_relative, _slit_EH_var._rotation_relative, _particle); _particle_save = *_particle; class_Slit_trace(&_slit_EH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // cEH if (!ABSORBED && _particle->_index == 60) { #ifndef MULTICORE if (_cEH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _cEH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_cEH_var._position_relative, _cEH_var._rotation_relative, _particle); _particle_save = *_particle; class_Conics_EH_trace(&_cEH_var, _particle); /* contains EXTEND code */ if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // beamstop_cEH if (!ABSORBED && _particle->_index == 61) { #ifndef MULTICORE if (_beamstop_cEH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _beamstop_cEH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_beamstop_cEH_var._position_relative, _beamstop_cEH_var._rotation_relative, _particle); _particle_save = *_particle; if ((( _instrument_var._parameters.EH_beamstop == 1 ))) // conditional WHEN class_Beamstop_trace(&_beamstop_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_cEH if (!ABSORBED && _particle->_index == 62) { #ifndef MULTICORE if (_psd_cEH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_cEH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_cEH_var._position_relative, _psd_cEH_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_cEH if (!ABSORBED && _particle->_index == 63) { #ifndef MULTICORE if (_l_cEH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_cEH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_cEH_var._position_relative, _l_cEH_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // nD9 if (!ABSORBED && _particle->_index == 64) { #ifndef MULTICORE if (_nD9_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _nD9_var._position_relative),&x, &y, &z); else #endif mccoordschange(_nD9_var._position_relative, _nD9_var._rotation_relative, _particle); _particle_save = *_particle; class_Monitor_nD_trace(&_nD9_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_cEH if (!ABSORBED && _particle->_index == 65) { #ifndef MULTICORE if (_divergence_monitor_cEH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_cEH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_cEH_var._position_relative, _divergence_monitor_cEH_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_cEH if (!ABSORBED && _particle->_index == 66) { #ifndef MULTICORE if (_h_divlambda_cEH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_cEH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_cEH_var._position_relative, _h_divlambda_cEH_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_cEH if (!ABSORBED && _particle->_index == 67) { #ifndef MULTICORE if (_v_divlambda_cEH_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_cEH_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_cEH_var._position_relative, _v_divlambda_cEH_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_cEH_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // PSD_10 if (!ABSORBED && _particle->_index == 68) { #ifndef MULTICORE if (_PSD_10_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _PSD_10_var._position_relative),&x, &y, &z); else #endif mccoordschange(_PSD_10_var._position_relative, _PSD_10_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_PSD_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // PSD_11 if (!ABSORBED && _particle->_index == 69) { #ifndef MULTICORE if (_PSD_11_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _PSD_11_var._position_relative),&x, &y, &z); else #endif mccoordschange(_PSD_11_var._position_relative, _PSD_11_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_PSD_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // PSD_12 if (!ABSORBED && _particle->_index == 70) { #ifndef MULTICORE if (_PSD_12_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _PSD_12_var._position_relative),&x, &y, &z); else #endif mccoordschange(_PSD_12_var._position_relative, _PSD_12_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_PSD_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // PSD_13 if (!ABSORBED && _particle->_index == 71) { #ifndef MULTICORE if (_PSD_13_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _PSD_13_var._position_relative),&x, &y, &z); else #endif mccoordschange(_PSD_13_var._position_relative, _PSD_13_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_PSD_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_10 if (!ABSORBED && _particle->_index == 72) { #ifndef MULTICORE if (_l_10_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_10_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_10_var._position_relative, _l_10_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_11 if (!ABSORBED && _particle->_index == 73) { #ifndef MULTICORE if (_l_11_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_11_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_11_var._position_relative, _l_11_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_12 if (!ABSORBED && _particle->_index == 74) { #ifndef MULTICORE if (_l_12_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_12_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_12_var._position_relative, _l_12_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_13 if (!ABSORBED && _particle->_index == 75) { #ifndef MULTICORE if (_l_13_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_13_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_13_var._position_relative, _l_13_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_10 if (!ABSORBED && _particle->_index == 76) { #ifndef MULTICORE if (_divergence_monitor_10_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_10_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_10_var._position_relative, _divergence_monitor_10_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_11 if (!ABSORBED && _particle->_index == 77) { #ifndef MULTICORE if (_divergence_monitor_11_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_11_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_11_var._position_relative, _divergence_monitor_11_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_12 if (!ABSORBED && _particle->_index == 78) { #ifndef MULTICORE if (_divergence_monitor_12_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_12_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_12_var._position_relative, _divergence_monitor_12_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_13 if (!ABSORBED && _particle->_index == 79) { #ifndef MULTICORE if (_divergence_monitor_13_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_13_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_13_var._position_relative, _divergence_monitor_13_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divlambda_10 if (!ABSORBED && _particle->_index == 80) { #ifndef MULTICORE if (_divlambda_10_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divlambda_10_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divlambda_10_var._position_relative, _divlambda_10_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_divlambda_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_11 if (!ABSORBED && _particle->_index == 81) { #ifndef MULTICORE if (_h_divlambda_11_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_11_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_11_var._position_relative, _h_divlambda_11_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_12 if (!ABSORBED && _particle->_index == 82) { #ifndef MULTICORE if (_h_divlambda_12_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_12_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_12_var._position_relative, _h_divlambda_12_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // h_divlambda_13 if (!ABSORBED && _particle->_index == 83) { #ifndef MULTICORE if (_h_divlambda_13_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _h_divlambda_13_var._position_relative),&x, &y, &z); else #endif mccoordschange(_h_divlambda_13_var._position_relative, _h_divlambda_13_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_h_divlambda_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_10 if (!ABSORBED && _particle->_index == 84) { #ifndef MULTICORE if (_v_divlambda_10_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_10_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_10_var._position_relative, _v_divlambda_10_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_10_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_11 if (!ABSORBED && _particle->_index == 85) { #ifndef MULTICORE if (_v_divlambda_11_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_11_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_11_var._position_relative, _v_divlambda_11_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_11_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_12 if (!ABSORBED && _particle->_index == 86) { #ifndef MULTICORE if (_v_divlambda_12_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_12_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_12_var._position_relative, _v_divlambda_12_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_12_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // v_divlambda_13 if (!ABSORBED && _particle->_index == 87) { #ifndef MULTICORE if (_v_divlambda_13_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _v_divlambda_13_var._position_relative),&x, &y, &z); else #endif mccoordschange(_v_divlambda_13_var._position_relative, _v_divlambda_13_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_v_divlambda_13_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_monitor_detector if (!ABSORBED && _particle->_index == 88) { #ifndef MULTICORE if (_psd_monitor_detector_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_monitor_detector_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_monitor_detector_var._position_relative, _psd_monitor_detector_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_monitor_detector_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // l_detector if (!ABSORBED && _particle->_index == 89) { #ifndef MULTICORE if (_l_detector_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _l_detector_var._position_relative),&x, &y, &z); else #endif mccoordschange(_l_detector_var._position_relative, _l_detector_var._rotation_relative, _particle); _particle_save = *_particle; class_L_monitor_trace(&_l_detector_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divergence_monitor_detector if (!ABSORBED && _particle->_index == 90) { #ifndef MULTICORE if (_divergence_monitor_detector_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divergence_monitor_detector_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divergence_monitor_detector_var._position_relative, _divergence_monitor_detector_var._rotation_relative, _particle); _particle_save = *_particle; class_Divergence_monitor_trace(&_divergence_monitor_detector_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // divlambda_detector if (!ABSORBED && _particle->_index == 91) { #ifndef MULTICORE if (_divlambda_detector_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _divlambda_detector_var._position_relative),&x, &y, &z); else #endif mccoordschange(_divlambda_detector_var._position_relative, _divlambda_detector_var._rotation_relative, _particle); _particle_save = *_particle; class_DivLambda_monitor_trace(&_divlambda_detector_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } // psd_monitor_detector_big if (!ABSORBED && _particle->_index == 92) { #ifndef MULTICORE if (_psd_monitor_detector_big_var._rotation_is_identity) coords_get(coords_add(coords_set(x,y,z), _psd_monitor_detector_big_var._position_relative),&x, &y, &z); else #endif mccoordschange(_psd_monitor_detector_big_var._position_relative, _psd_monitor_detector_big_var._rotation_relative, _particle); _particle_save = *_particle; class_PSD_monitor_trace(&_psd_monitor_detector_big_var, _particle); if (_particle->_restore) particle_restore(_particle, &_particle_save); _particle->_index++; } } // jump to next viable seed seed = seed + gpu_innerloop; } // outer loop / particle batches free(particles); free(pbuffer); printf("\n"); } /* raytrace_all_funnel */ #endif // FUNNEL #undef was_scattered #undef was_scattered2 #undef x #undef y #undef z #undef vx #undef vy #undef vz #undef t #undef sx #undef sy #undef sz #undef p #undef mcgravitation #undef mcMagnet #undef allow_backprop #undef _mctmp_a #undef _mctmp_b #undef _mctmp_c #ifdef OPENACC #undef strlen #undef strcmp #undef exit #undef printf #undef sprintf #undef fprintf #endif #undef SCATTERED #undef RESTORE #undef RESTORE_NEUTRON #undef STORE_NEUTRON #undef ABSORBED #undef ABSORB #undef ABSORB0 /* ***************************************************************************** * instrument 'WOFSANS' and components SAVE ***************************************************************************** */ _class_Progress_bar *class_Progress_bar_save(_class_Progress_bar *_comp ) { #define profile (_comp->_parameters.profile) #define percent (_comp->_parameters.percent) #define flag_save (_comp->_parameters.flag_save) #define minutes (_comp->_parameters.minutes) #define IntermediateCnts (_comp->_parameters.IntermediateCnts) #define StartTime (_comp->_parameters.StartTime) #define EndTime (_comp->_parameters.EndTime) #define CurrentTime (_comp->_parameters.CurrentTime) #define infostring (_comp->_parameters.infostring) SIG_MESSAGE("[_origin_save] component origin=Progress_bar() SAVE [Progress_bar:0]"); MPI_MASTER (fprintf (stdout, "\nSave [%s]\n", instrument_name);); if (profile && strlen (profile) && strcmp (profile, "NULL") && strcmp (profile, "0")) { char filename[256]; if (!strlen (profile) || !strcmp (profile, "NULL") || !strcmp (profile, "0")) strcpy (filename, instrument_name); else strcpy (filename, profile); DETECTOR_OUT_1D ("Intensity profiler", "Component index [1]", "Intensity", "prof", 1, mcNUMCOMP, mcNUMCOMP - 1, &(instrument->counter_N[1]), &(instrument->counter_P[1]), &(instrument->counter_P2[1]), filename); } #undef profile #undef percent #undef flag_save #undef minutes #undef IntermediateCnts #undef StartTime #undef EndTime #undef CurrentTime #undef infostring return(_comp); } /* class_Progress_bar_save */ _class_PSD_monitor *class_PSD_monitor_save(_class_PSD_monitor *_comp ) { #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define restore_neutron (_comp->_parameters.restore_neutron) #define nowritefile (_comp->_parameters.nowritefile) #define PSD_N (_comp->_parameters.PSD_N) #define PSD_p (_comp->_parameters.PSD_p) #define PSD_p2 (_comp->_parameters.PSD_p2) SIG_MESSAGE("[_psd_Source_save] component psd_Source=PSD_monitor() SAVE [PSD_monitor:0]"); if (!nowritefile) { DETECTOR_OUT_2D ("PSD monitor", "X position [cm]", "Y position [cm]", xmin * 100.0, xmax * 100.0, ymin * 100.0, ymax * 100.0, nx, ny, &PSD_N[0][0], &PSD_p[0][0], &PSD_p2[0][0], filename); } #undef nx #undef ny #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef restore_neutron #undef nowritefile #undef PSD_N #undef PSD_p #undef PSD_p2 return(_comp); } /* class_PSD_monitor_save */ _class_L_monitor *class_L_monitor_save(_class_L_monitor *_comp ) { #define nL (_comp->_parameters.nL) #define filename (_comp->_parameters.filename) #define nowritefile (_comp->_parameters.nowritefile) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define L_N (_comp->_parameters.L_N) #define L_p (_comp->_parameters.L_p) #define L_p2 (_comp->_parameters.L_p2) SIG_MESSAGE("[_l_Source_save] component l_Source=L_monitor() SAVE [L_monitor:0]"); if (!nowritefile) { DETECTOR_OUT_1D ("Wavelength monitor", "Wavelength [AA]", "Intensity", "L", Lmin, Lmax, nL, &L_N[0], &L_p[0], &L_p2[0], filename); } #undef nL #undef filename #undef nowritefile #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef Lmin #undef Lmax #undef restore_neutron #undef L_N #undef L_p #undef L_p2 return(_comp); } /* class_L_monitor_save */ _class_Monitor_nD *class_Monitor_nD_save(_class_Monitor_nD *_comp ) { #define user1 (_comp->_parameters.user1) #define user2 (_comp->_parameters.user2) #define user3 (_comp->_parameters.user3) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define zdepth (_comp->_parameters.zdepth) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define zmin (_comp->_parameters.zmin) #define zmax (_comp->_parameters.zmax) #define bins (_comp->_parameters.bins) #define min (_comp->_parameters.min) #define max (_comp->_parameters.max) #define restore_neutron (_comp->_parameters.restore_neutron) #define radius (_comp->_parameters.radius) #define options (_comp->_parameters.options) #define filename (_comp->_parameters.filename) #define geometry (_comp->_parameters.geometry) #define nowritefile (_comp->_parameters.nowritefile) #define nexus_bins (_comp->_parameters.nexus_bins) #define username1 (_comp->_parameters.username1) #define username2 (_comp->_parameters.username2) #define username3 (_comp->_parameters.username3) #define DEFS (_comp->_parameters.DEFS) #define Vars (_comp->_parameters.Vars) #define detector (_comp->_parameters.detector) #define offdata (_comp->_parameters.offdata) SIG_MESSAGE("[_nD1_save] component nD1=Monitor_nD() SAVE [Monitor_nD:0]"); if (!nowritefile) { /* save results, but do not free pointers */ detector = Monitor_nD_Save (&DEFS, &Vars); } #undef user1 #undef user2 #undef user3 #undef xwidth #undef yheight #undef zdepth #undef xmin #undef xmax #undef ymin #undef ymax #undef zmin #undef zmax #undef bins #undef min #undef max #undef restore_neutron #undef radius #undef options #undef filename #undef geometry #undef nowritefile #undef nexus_bins #undef username1 #undef username2 #undef username3 #undef DEFS #undef Vars #undef detector #undef offdata return(_comp); } /* class_Monitor_nD_save */ _class_Divergence_monitor *class_Divergence_monitor_save(_class_Divergence_monitor *_comp ) { #define nh (_comp->_parameters.nh) #define nv (_comp->_parameters.nv) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define nowritefile (_comp->_parameters.nowritefile) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define maxdiv_v (_comp->_parameters.maxdiv_v) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_divergence_monitor_Source_save] component divergence_monitor_Source=Divergence_monitor() SAVE [Divergence_monitor:0]"); if (!nowritefile) { DETECTOR_OUT_2D ("Divergence monitor", "X divergence [deg]", "Y divergence [deg]", -maxdiv_h, maxdiv_h, -maxdiv_v, maxdiv_v, nh, nv, &Div_N[0][0], &Div_p[0][0], &Div_p2[0][0], filename); } #undef nh #undef nv #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef nowritefile #undef xwidth #undef yheight #undef maxdiv_h #undef maxdiv_v #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return(_comp); } /* class_Divergence_monitor_save */ _class_DivLambda_monitor *class_DivLambda_monitor_save(_class_DivLambda_monitor *_comp ) { #define nL (_comp->_parameters.nL) #define nh (_comp->_parameters.nh) #define nowritefile (_comp->_parameters.nowritefile) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_h_divlambda_Source_save] component h_divlambda_Source=DivLambda_monitor() SAVE [DivLambda_monitor:0]"); if (!nowritefile) { DETECTOR_OUT_2D ("Wavelength-divergence monitor", "Wavelength [AA]", "divergence [deg]", Lmin, Lmax, -maxdiv_h, maxdiv_h, nL, nh, &Div_N[0][0], &Div_p[0][0], &Div_p2[0][0], filename); } #undef nL #undef nh #undef nowritefile #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef maxdiv_h #undef Lmin #undef Lmax #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return(_comp); } /* class_DivLambda_monitor_save */ _class_Brilliance_monitor *class_Brilliance_monitor_save(_class_Brilliance_monitor *_comp ) { #define nlam (_comp->_parameters.nlam) #define nt (_comp->_parameters.nt) #define nowritefile (_comp->_parameters.nowritefile) #define lambda_0 (_comp->_parameters.lambda_0) #define lambda_1 (_comp->_parameters.lambda_1) #define restore_neutron (_comp->_parameters.restore_neutron) #define Freq (_comp->_parameters.Freq) #define tofcuts (_comp->_parameters.tofcuts) #define toflambda (_comp->_parameters.toflambda) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define source_dist (_comp->_parameters.source_dist) #define filename (_comp->_parameters.filename) #define t_0 (_comp->_parameters.t_0) #define t_1 (_comp->_parameters.t_1) #define srcarea (_comp->_parameters.srcarea) #define BRIL_N (_comp->_parameters.BRIL_N) #define BRIL_p (_comp->_parameters.BRIL_p) #define BRIL_p2 (_comp->_parameters.BRIL_p2) #define BRIL_mean (_comp->_parameters.BRIL_mean) #define BRIL_meanN (_comp->_parameters.BRIL_meanN) #define BRIL_meanE (_comp->_parameters.BRIL_meanE) #define BRIL_peak (_comp->_parameters.BRIL_peak) #define BRIL_peakN (_comp->_parameters.BRIL_peakN) #define BRIL_peakE (_comp->_parameters.BRIL_peakE) #define BRIL_shape (_comp->_parameters.BRIL_shape) #define BRIL_shapeN (_comp->_parameters.BRIL_shapeN) #define BRIL_shapeE (_comp->_parameters.BRIL_shapeE) #define tt_0 (_comp->_parameters.tt_0) #define tt_1 (_comp->_parameters.tt_1) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define ster (_comp->_parameters.ster) #define prsec (_comp->_parameters.prsec) #define dlam (_comp->_parameters.dlam) #define dt (_comp->_parameters.dt) SIG_MESSAGE("[_BrillmonLD2_save] component BrillmonLD2=Brilliance_monitor() SAVE [Brilliance_monitor:0]"); if (!nowritefile) { /* First, dump the 2D monitor */ /* For each Wavelength channel, find peak brilliance */ int i, j, jmax; double Pnorm; char ff[256]; char tt[256]; for (i = 0; i < nlam; i++) { Pnorm = -1; jmax = -1; for (j = 0; j < nt; j++) { if (BRIL_p[j][i] >= Pnorm) { Pnorm = BRIL_p[j][i]; jmax = j; } BRIL_shape[j] = BRIL_p[j][i]; BRIL_shapeN[j] = BRIL_N[j][i]; BRIL_shapeE[j] = BRIL_p2[j][i]; } if (tofcuts == 1) { sprintf (ff, "Shape_%s_%g", filename, lambda_0 + i * dlam); sprintf (tt, "Peak shape at %g AA", lambda_0 + i * dlam); DETECTOR_OUT_1D (tt, "TOF [us]", "Peak Brilliance", "Shape", t_0, t_1, nt, &BRIL_shapeN[0], &BRIL_shape[0], &BRIL_shapeE[0], ff); } BRIL_peakN[i] = BRIL_N[jmax][i]; BRIL_peak[i] = BRIL_p[jmax][i]; BRIL_peakE[i] = BRIL_p2[jmax][i]; } sprintf (ff, "Mean_%s", filename); DETECTOR_OUT_1D ("Mean brilliance", "Wavelength [AA]", "Mean Brilliance", "Mean", lambda_0, lambda_1, nlam, &BRIL_meanN[0], &BRIL_mean[0], &BRIL_meanE[0], ff); sprintf (ff, "Peak_%s", filename); DETECTOR_OUT_1D ("Peak brilliance", "Wavelength [AA]", "Peak Brilliance", "Peak", lambda_0, lambda_1, nlam, &BRIL_peakN[0], &BRIL_peak[0], &BRIL_peakE[0], ff); /* MPI related NOTE: Order is important here! The 2D-data used to generate wavelength-slices and calculate the peak brilliance should be done LAST, otherwise we will get a factor of MPI_node_count too much as scatter/gather has been performed on the arrays... */ if (toflambda == 1) { sprintf (ff, "TOFL_%s", filename); DETECTOR_OUT_2D ("TOF-wavelength brilliance", "Time-of-flight [\\gms]", "Wavelength [AA]", t_0, t_1, lambda_0, lambda_1, nt, nlam, &BRIL_N[0][0], &BRIL_p[0][0], &BRIL_p2[0][0], filename); } } #undef nlam #undef nt #undef nowritefile #undef lambda_0 #undef lambda_1 #undef restore_neutron #undef Freq #undef tofcuts #undef toflambda #undef xwidth #undef yheight #undef source_dist #undef filename #undef t_0 #undef t_1 #undef srcarea #undef BRIL_N #undef BRIL_p #undef BRIL_p2 #undef BRIL_mean #undef BRIL_meanN #undef BRIL_meanE #undef BRIL_peak #undef BRIL_peakN #undef BRIL_peakE #undef BRIL_shape #undef BRIL_shapeN #undef BRIL_shapeE #undef tt_0 #undef tt_1 #undef xmin #undef xmax #undef ymin #undef ymax #undef ster #undef prsec #undef dlam #undef dt return(_comp); } /* class_Brilliance_monitor_save */ int save(FILE *handle) { /* called by mccode_main for WOFSANS:SAVE */ if (!handle) siminfo_init(NULL); /* call iteratively all components SAVE */ class_Progress_bar_save(&_origin_var); class_PSD_monitor_save(&_psd_Source_var); class_L_monitor_save(&_l_Source_var); class_Monitor_nD_save(&_nD1_var); class_Divergence_monitor_save(&_divergence_monitor_Source_var); class_DivLambda_monitor_save(&_h_divlambda_Source_var); class_DivLambda_monitor_save(&_v_divlambda_Source_var); class_PSD_monitor_save(&_psd_FocusingPosition_var); class_L_monitor_save(&_l_FocusingPosition_var); class_Monitor_nD_save(&_nD2_var); class_Divergence_monitor_save(&_divergence_monitor_FocusingPosition_var); class_DivLambda_monitor_save(&_h_divlambda_FocusingPosition_var); class_DivLambda_monitor_save(&_v_divlambda_FocusingPosition_var); class_Brilliance_monitor_save(&_BrillmonLD2_var); class_PSD_monitor_save(&_psd_monolith_var); class_L_monitor_save(&_l_monolith_var); class_Monitor_nD_save(&_nD3_var); class_Divergence_monitor_save(&_divergence_monitor_monolith_var); class_DivLambda_monitor_save(&_h_divlambda_monolith_var); class_DivLambda_monitor_save(&_v_divlambda_monolith_var); class_PSD_monitor_save(&_PSD_before_slit_cPH_var); class_PSD_monitor_save(&_PSD_slit_cPH_var); class_L_monitor_save(&_l_slit_cPH_var); class_Monitor_nD_save(&_nD4_var); class_Divergence_monitor_save(&_divergence_monitor_slit_cPH_var); class_DivLambda_monitor_save(&_h_divlambda_slit_cPH_var); class_DivLambda_monitor_save(&_v_divlambda_slit_cPH_var); class_PSD_monitor_save(&_psd_cPH_var); class_L_monitor_save(&_l_cPH_var); class_Monitor_nD_save(&_nD5_var); class_Divergence_monitor_save(&_divergence_monitor_cPH_var); class_DivLambda_monitor_save(&_h_divlambda_cPH_var); class_DivLambda_monitor_save(&_v_divlambda_cPH_var); class_PSD_monitor_save(&_psd_bunker_var); class_L_monitor_save(&_l_bunker_var); class_Monitor_nD_save(&_nD6_var); class_Divergence_monitor_save(&_divergence_monitor_bunker_var); class_DivLambda_monitor_save(&_h_divlambda_bunker_var); class_DivLambda_monitor_save(&_v_divlambda_bunker_var); class_PSD_monitor_save(&_psd_PHfocus1_var); class_L_monitor_save(&_l_PHfocus1_var); class_Monitor_nD_save(&_nD7_var); class_Divergence_monitor_save(&_divergence_monitor_PHfocus1_var); class_DivLambda_monitor_save(&_h_divlambda_PHfocus1_var); class_DivLambda_monitor_save(&_v_divlambda_PHfocus1_var); class_PSD_monitor_save(&_psd_slit_focusPH_var); class_L_monitor_save(&_l_slit_focusPH_var); class_Monitor_nD_save(&_nD8_var); class_Divergence_monitor_save(&_divergence_monitor_slit_focusPH_var); class_DivLambda_monitor_save(&_h_divlambda_slit_focusPH_var); class_DivLambda_monitor_save(&_v_divlambda_slit_focusPH_var); class_PSD_monitor_save(&_psd_cEH_var); class_L_monitor_save(&_l_cEH_var); class_Monitor_nD_save(&_nD9_var); class_Divergence_monitor_save(&_divergence_monitor_cEH_var); class_DivLambda_monitor_save(&_h_divlambda_cEH_var); class_DivLambda_monitor_save(&_v_divlambda_cEH_var); class_PSD_monitor_save(&_PSD_10_var); class_PSD_monitor_save(&_PSD_11_var); class_PSD_monitor_save(&_PSD_12_var); class_PSD_monitor_save(&_PSD_13_var); class_L_monitor_save(&_l_10_var); class_L_monitor_save(&_l_11_var); class_L_monitor_save(&_l_12_var); class_L_monitor_save(&_l_13_var); class_Divergence_monitor_save(&_divergence_monitor_10_var); class_Divergence_monitor_save(&_divergence_monitor_11_var); class_Divergence_monitor_save(&_divergence_monitor_12_var); class_Divergence_monitor_save(&_divergence_monitor_13_var); class_DivLambda_monitor_save(&_divlambda_10_var); class_DivLambda_monitor_save(&_h_divlambda_11_var); class_DivLambda_monitor_save(&_h_divlambda_12_var); class_DivLambda_monitor_save(&_h_divlambda_13_var); class_DivLambda_monitor_save(&_v_divlambda_10_var); class_DivLambda_monitor_save(&_v_divlambda_11_var); class_DivLambda_monitor_save(&_v_divlambda_12_var); class_DivLambda_monitor_save(&_v_divlambda_13_var); class_PSD_monitor_save(&_psd_monitor_detector_var); class_L_monitor_save(&_l_detector_var); class_Divergence_monitor_save(&_divergence_monitor_detector_var); class_DivLambda_monitor_save(&_divlambda_detector_var); class_PSD_monitor_save(&_psd_monitor_detector_big_var); if (!handle) siminfo_close(); return(0); } /* save */ /* ***************************************************************************** * instrument 'WOFSANS' and components FINALLY ***************************************************************************** */ _class_Progress_bar *class_Progress_bar_finally(_class_Progress_bar *_comp ) { #define profile (_comp->_parameters.profile) #define percent (_comp->_parameters.percent) #define flag_save (_comp->_parameters.flag_save) #define minutes (_comp->_parameters.minutes) #define IntermediateCnts (_comp->_parameters.IntermediateCnts) #define StartTime (_comp->_parameters.StartTime) #define EndTime (_comp->_parameters.EndTime) #define CurrentTime (_comp->_parameters.CurrentTime) #define infostring (_comp->_parameters.infostring) SIG_MESSAGE("[_origin_finally] component origin=Progress_bar() FINALLY [Progress_bar:0]"); time_t NowTime; time (&NowTime); fprintf (stdout, "\nFinally [%s: %s]. Time: ", instrument_name, dirname ? dirname : "."); if (difftime (NowTime, StartTime) < 60.0) fprintf (stdout, "%g [s] ", difftime (NowTime, StartTime)); else if (difftime (NowTime, StartTime) > 3600.0) fprintf (stdout, "%g [h] ", difftime (NowTime, StartTime) / 3600.0); else fprintf (stdout, "%g [min] ", difftime (NowTime, StartTime) / 60.0); fprintf (stdout, "\n"); #undef profile #undef percent #undef flag_save #undef minutes #undef IntermediateCnts #undef StartTime #undef EndTime #undef CurrentTime #undef infostring return(_comp); } /* class_Progress_bar_finally */ _class_Source_gen *class_Source_gen_finally(_class_Source_gen *_comp ) { #define flux_file (_comp->_parameters.flux_file) #define xdiv_file (_comp->_parameters.xdiv_file) #define ydiv_file (_comp->_parameters.ydiv_file) #define radius (_comp->_parameters.radius) #define dist (_comp->_parameters.dist) #define focus_xw (_comp->_parameters.focus_xw) #define focus_yh (_comp->_parameters.focus_yh) #define focus_aw (_comp->_parameters.focus_aw) #define focus_ah (_comp->_parameters.focus_ah) #define E0 (_comp->_parameters.E0) #define dE (_comp->_parameters.dE) #define lambda0 (_comp->_parameters.lambda0) #define dlambda (_comp->_parameters.dlambda) #define I1 (_comp->_parameters.I1) #define yheight (_comp->_parameters.yheight) #define xwidth (_comp->_parameters.xwidth) #define verbose (_comp->_parameters.verbose) #define T1 (_comp->_parameters.T1) #define flux_file_perAA (_comp->_parameters.flux_file_perAA) #define flux_file_log (_comp->_parameters.flux_file_log) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define Emin (_comp->_parameters.Emin) #define Emax (_comp->_parameters.Emax) #define T2 (_comp->_parameters.T2) #define I2 (_comp->_parameters.I2) #define T3 (_comp->_parameters.T3) #define I3 (_comp->_parameters.I3) #define zdepth (_comp->_parameters.zdepth) #define target_index (_comp->_parameters.target_index) #define p_in (_comp->_parameters.p_in) #define lambda1 (_comp->_parameters.lambda1) #define lambda2 (_comp->_parameters.lambda2) #define lambda3 (_comp->_parameters.lambda3) #define pTable (_comp->_parameters.pTable) #define pTable_x (_comp->_parameters.pTable_x) #define pTable_y (_comp->_parameters.pTable_y) #define pTable_xmin (_comp->_parameters.pTable_xmin) #define pTable_xmax (_comp->_parameters.pTable_xmax) #define pTable_xsum (_comp->_parameters.pTable_xsum) #define pTable_ymin (_comp->_parameters.pTable_ymin) #define pTable_ymax (_comp->_parameters.pTable_ymax) #define pTable_ysum (_comp->_parameters.pTable_ysum) #define pTable_dxmin (_comp->_parameters.pTable_dxmin) #define pTable_dxmax (_comp->_parameters.pTable_dxmax) #define pTable_dymin (_comp->_parameters.pTable_dymin) #define pTable_dymax (_comp->_parameters.pTable_dymax) SIG_MESSAGE("[_Source_finally] component Source=Source_gen() FINALLY [Source_gen:0]"); Table_Free(&pTable); Table_Free(&pTable_x); Table_Free(&pTable_y); #undef flux_file #undef xdiv_file #undef ydiv_file #undef radius #undef dist #undef focus_xw #undef focus_yh #undef focus_aw #undef focus_ah #undef E0 #undef dE #undef lambda0 #undef dlambda #undef I1 #undef yheight #undef xwidth #undef verbose #undef T1 #undef flux_file_perAA #undef flux_file_log #undef Lmin #undef Lmax #undef Emin #undef Emax #undef T2 #undef I2 #undef T3 #undef I3 #undef zdepth #undef target_index #undef p_in #undef lambda1 #undef lambda2 #undef lambda3 #undef pTable #undef pTable_x #undef pTable_y #undef pTable_xmin #undef pTable_xmax #undef pTable_xsum #undef pTable_ymin #undef pTable_ymax #undef pTable_ysum #undef pTable_dxmin #undef pTable_dxmax #undef pTable_dymin #undef pTable_dymax return(_comp); } /* class_Source_gen_finally */ _class_PSD_monitor *class_PSD_monitor_finally(_class_PSD_monitor *_comp ) { #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define restore_neutron (_comp->_parameters.restore_neutron) #define nowritefile (_comp->_parameters.nowritefile) #define PSD_N (_comp->_parameters.PSD_N) #define PSD_p (_comp->_parameters.PSD_p) #define PSD_p2 (_comp->_parameters.PSD_p2) SIG_MESSAGE("[_psd_Source_finally] component psd_Source=PSD_monitor() FINALLY [PSD_monitor:0]"); destroy_darr2d(PSD_N); destroy_darr2d(PSD_p); destroy_darr2d(PSD_p2); #undef nx #undef ny #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef restore_neutron #undef nowritefile #undef PSD_N #undef PSD_p #undef PSD_p2 return(_comp); } /* class_PSD_monitor_finally */ _class_L_monitor *class_L_monitor_finally(_class_L_monitor *_comp ) { #define nL (_comp->_parameters.nL) #define filename (_comp->_parameters.filename) #define nowritefile (_comp->_parameters.nowritefile) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define L_N (_comp->_parameters.L_N) #define L_p (_comp->_parameters.L_p) #define L_p2 (_comp->_parameters.L_p2) SIG_MESSAGE("[_l_Source_finally] component l_Source=L_monitor() FINALLY [L_monitor:0]"); destroy_darr1d (L_N); destroy_darr1d (L_p); destroy_darr1d (L_p2); #undef nL #undef filename #undef nowritefile #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef Lmin #undef Lmax #undef restore_neutron #undef L_N #undef L_p #undef L_p2 return(_comp); } /* class_L_monitor_finally */ _class_Monitor_nD *class_Monitor_nD_finally(_class_Monitor_nD *_comp ) { #define user1 (_comp->_parameters.user1) #define user2 (_comp->_parameters.user2) #define user3 (_comp->_parameters.user3) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define zdepth (_comp->_parameters.zdepth) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define zmin (_comp->_parameters.zmin) #define zmax (_comp->_parameters.zmax) #define bins (_comp->_parameters.bins) #define min (_comp->_parameters.min) #define max (_comp->_parameters.max) #define restore_neutron (_comp->_parameters.restore_neutron) #define radius (_comp->_parameters.radius) #define options (_comp->_parameters.options) #define filename (_comp->_parameters.filename) #define geometry (_comp->_parameters.geometry) #define nowritefile (_comp->_parameters.nowritefile) #define nexus_bins (_comp->_parameters.nexus_bins) #define username1 (_comp->_parameters.username1) #define username2 (_comp->_parameters.username2) #define username3 (_comp->_parameters.username3) #define DEFS (_comp->_parameters.DEFS) #define Vars (_comp->_parameters.Vars) #define detector (_comp->_parameters.detector) #define offdata (_comp->_parameters.offdata) SIG_MESSAGE("[_nD1_finally] component nD1=Monitor_nD() FINALLY [Monitor_nD:0]"); /* free pointers */ Monitor_nD_Finally (&DEFS, &Vars); #undef user1 #undef user2 #undef user3 #undef xwidth #undef yheight #undef zdepth #undef xmin #undef xmax #undef ymin #undef ymax #undef zmin #undef zmax #undef bins #undef min #undef max #undef restore_neutron #undef radius #undef options #undef filename #undef geometry #undef nowritefile #undef nexus_bins #undef username1 #undef username2 #undef username3 #undef DEFS #undef Vars #undef detector #undef offdata return(_comp); } /* class_Monitor_nD_finally */ _class_Divergence_monitor *class_Divergence_monitor_finally(_class_Divergence_monitor *_comp ) { #define nh (_comp->_parameters.nh) #define nv (_comp->_parameters.nv) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define nowritefile (_comp->_parameters.nowritefile) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define maxdiv_v (_comp->_parameters.maxdiv_v) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_divergence_monitor_Source_finally] component divergence_monitor_Source=Divergence_monitor() FINALLY [Divergence_monitor:0]"); destroy_darr2d (Div_N); destroy_darr2d (Div_p); destroy_darr2d (Div_p2); #undef nh #undef nv #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef nowritefile #undef xwidth #undef yheight #undef maxdiv_h #undef maxdiv_v #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return(_comp); } /* class_Divergence_monitor_finally */ _class_DivLambda_monitor *class_DivLambda_monitor_finally(_class_DivLambda_monitor *_comp ) { #define nL (_comp->_parameters.nL) #define nh (_comp->_parameters.nh) #define nowritefile (_comp->_parameters.nowritefile) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_h_divlambda_Source_finally] component h_divlambda_Source=DivLambda_monitor() FINALLY [DivLambda_monitor:0]"); destroy_darr2d (Div_N); destroy_darr2d (Div_p); destroy_darr2d (Div_p2); #undef nL #undef nh #undef nowritefile #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef maxdiv_h #undef Lmin #undef Lmax #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return(_comp); } /* class_DivLambda_monitor_finally */ _class_Brilliance_monitor *class_Brilliance_monitor_finally(_class_Brilliance_monitor *_comp ) { #define nlam (_comp->_parameters.nlam) #define nt (_comp->_parameters.nt) #define nowritefile (_comp->_parameters.nowritefile) #define lambda_0 (_comp->_parameters.lambda_0) #define lambda_1 (_comp->_parameters.lambda_1) #define restore_neutron (_comp->_parameters.restore_neutron) #define Freq (_comp->_parameters.Freq) #define tofcuts (_comp->_parameters.tofcuts) #define toflambda (_comp->_parameters.toflambda) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define source_dist (_comp->_parameters.source_dist) #define filename (_comp->_parameters.filename) #define t_0 (_comp->_parameters.t_0) #define t_1 (_comp->_parameters.t_1) #define srcarea (_comp->_parameters.srcarea) #define BRIL_N (_comp->_parameters.BRIL_N) #define BRIL_p (_comp->_parameters.BRIL_p) #define BRIL_p2 (_comp->_parameters.BRIL_p2) #define BRIL_mean (_comp->_parameters.BRIL_mean) #define BRIL_meanN (_comp->_parameters.BRIL_meanN) #define BRIL_meanE (_comp->_parameters.BRIL_meanE) #define BRIL_peak (_comp->_parameters.BRIL_peak) #define BRIL_peakN (_comp->_parameters.BRIL_peakN) #define BRIL_peakE (_comp->_parameters.BRIL_peakE) #define BRIL_shape (_comp->_parameters.BRIL_shape) #define BRIL_shapeN (_comp->_parameters.BRIL_shapeN) #define BRIL_shapeE (_comp->_parameters.BRIL_shapeE) #define tt_0 (_comp->_parameters.tt_0) #define tt_1 (_comp->_parameters.tt_1) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define ster (_comp->_parameters.ster) #define prsec (_comp->_parameters.prsec) #define dlam (_comp->_parameters.dlam) #define dt (_comp->_parameters.dt) SIG_MESSAGE("[_BrillmonLD2_finally] component BrillmonLD2=Brilliance_monitor() FINALLY [Brilliance_monitor:0]"); destroy_darr2d (BRIL_N); destroy_darr2d (BRIL_p); destroy_darr2d (BRIL_p2); destroy_darr1d (BRIL_mean); destroy_darr1d (BRIL_meanN); destroy_darr1d (BRIL_meanE); destroy_darr1d (BRIL_peak); destroy_darr1d (BRIL_peakN); destroy_darr1d (BRIL_peakE); destroy_darr1d (BRIL_shape); destroy_darr1d (BRIL_shapeN); destroy_darr1d (BRIL_shapeE); #undef nlam #undef nt #undef nowritefile #undef lambda_0 #undef lambda_1 #undef restore_neutron #undef Freq #undef tofcuts #undef toflambda #undef xwidth #undef yheight #undef source_dist #undef filename #undef t_0 #undef t_1 #undef srcarea #undef BRIL_N #undef BRIL_p #undef BRIL_p2 #undef BRIL_mean #undef BRIL_meanN #undef BRIL_meanE #undef BRIL_peak #undef BRIL_peakN #undef BRIL_peakE #undef BRIL_shape #undef BRIL_shapeN #undef BRIL_shapeE #undef tt_0 #undef tt_1 #undef xmin #undef xmax #undef ymin #undef ymax #undef ster #undef prsec #undef dlam #undef dt return(_comp); } /* class_Brilliance_monitor_finally */ _class_Conics_PH *class_Conics_PH_finally(_class_Conics_PH *_comp ) { #define rmin (_comp->_parameters.rmin) #define rmax (_comp->_parameters.rmax) #define focal_length (_comp->_parameters.focal_length) #define lp (_comp->_parameters.lp) #define lh (_comp->_parameters.lh) #define nshells (_comp->_parameters.nshells) #define m (_comp->_parameters.m) #define mirr_thick (_comp->_parameters.mirr_thick) #define disk (_comp->_parameters.disk) #define radii (_comp->_parameters.radii) #define R0 (_comp->_parameters.R0) #define Qc (_comp->_parameters.Qc) #define W (_comp->_parameters.W) #define alpha (_comp->_parameters.alpha) #define transmit (_comp->_parameters.transmit) #define s (_comp->_parameters.s) SIG_MESSAGE("[_cPH_finally] component cPH=Conics_PH() FINALLY [Conics_PH:0]"); //Mainly Writes Inline Detector Data finishSimulation(&s); #undef rmin #undef rmax #undef focal_length #undef lp #undef lh #undef nshells #undef m #undef mirr_thick #undef disk #undef radii #undef R0 #undef Qc #undef W #undef alpha #undef transmit #undef s return(_comp); } /* class_Conics_PH_finally */ _class_Conics_EH *class_Conics_EH_finally(_class_Conics_EH *_comp ) { #define rmin (_comp->_parameters.rmin) #define rmax (_comp->_parameters.rmax) #define focal_length_u (_comp->_parameters.focal_length_u) #define focal_length_d (_comp->_parameters.focal_length_d) #define le (_comp->_parameters.le) #define lh (_comp->_parameters.lh) #define nshells (_comp->_parameters.nshells) #define m (_comp->_parameters.m) #define mirr_thick (_comp->_parameters.mirr_thick) #define disk (_comp->_parameters.disk) #define radii (_comp->_parameters.radii) #define R0 (_comp->_parameters.R0) #define Qc (_comp->_parameters.Qc) #define W (_comp->_parameters.W) #define alpha (_comp->_parameters.alpha) #define transmit (_comp->_parameters.transmit) #define s (_comp->_parameters.s) SIG_MESSAGE("[_cEH_finally] component cEH=Conics_EH() FINALLY [Conics_EH:0]"); //Mainly Writes Inline Detector Data finishSimulation(&s); #undef rmin #undef rmax #undef focal_length_u #undef focal_length_d #undef le #undef lh #undef nshells #undef m #undef mirr_thick #undef disk #undef radii #undef R0 #undef Qc #undef W #undef alpha #undef transmit #undef s return(_comp); } /* class_Conics_EH_finally */ int finally(void) { /* called by mccode_main for WOFSANS:FINALLY */ #pragma acc update host(_origin_var) #pragma acc update host(_Source_var) #pragma acc update host(_psd_Source_var) #pragma acc update host(_l_Source_var) #pragma acc update host(_nD1_var) #pragma acc update host(_divergence_monitor_Source_var) #pragma acc update host(_h_divlambda_Source_var) #pragma acc update host(_v_divlambda_Source_var) #pragma acc update host(_psd_FocusingPosition_var) #pragma acc update host(_l_FocusingPosition_var) #pragma acc update host(_nD2_var) #pragma acc update host(_divergence_monitor_FocusingPosition_var) #pragma acc update host(_h_divlambda_FocusingPosition_var) #pragma acc update host(_v_divlambda_FocusingPosition_var) #pragma acc update host(_BrillmonLD2_var) #pragma acc update host(_monolith_slit1_var) #pragma acc update host(_monolith_slit2_var) #pragma acc update host(_psd_monolith_var) #pragma acc update host(_l_monolith_var) #pragma acc update host(_nD3_var) #pragma acc update host(_divergence_monitor_monolith_var) #pragma acc update host(_h_divlambda_monolith_var) #pragma acc update host(_v_divlambda_monolith_var) #pragma acc update host(_PSD_before_slit_cPH_var) #pragma acc update host(_slit_cPH_var) #pragma acc update host(_PSD_slit_cPH_var) #pragma acc update host(_l_slit_cPH_var) #pragma acc update host(_nD4_var) #pragma acc update host(_divergence_monitor_slit_cPH_var) #pragma acc update host(_h_divlambda_slit_cPH_var) #pragma acc update host(_v_divlambda_slit_cPH_var) #pragma acc update host(_cPH_var) #pragma acc update host(_beamstop_cPH_var) #pragma acc update host(_psd_cPH_var) #pragma acc update host(_l_cPH_var) #pragma acc update host(_nD5_var) #pragma acc update host(_divergence_monitor_cPH_var) #pragma acc update host(_h_divlambda_cPH_var) #pragma acc update host(_v_divlambda_cPH_var) #pragma acc update host(_psd_bunker_var) #pragma acc update host(_l_bunker_var) #pragma acc update host(_nD6_var) #pragma acc update host(_divergence_monitor_bunker_var) #pragma acc update host(_h_divlambda_bunker_var) #pragma acc update host(_v_divlambda_bunker_var) #pragma acc update host(_psd_PHfocus1_var) #pragma acc update host(_l_PHfocus1_var) #pragma acc update host(_nD7_var) #pragma acc update host(_divergence_monitor_PHfocus1_var) #pragma acc update host(_h_divlambda_PHfocus1_var) #pragma acc update host(_v_divlambda_PHfocus1_var) #pragma acc update host(_slit_focusPH_var) #pragma acc update host(_psd_slit_focusPH_var) #pragma acc update host(_l_slit_focusPH_var) #pragma acc update host(_nD8_var) #pragma acc update host(_divergence_monitor_slit_focusPH_var) #pragma acc update host(_h_divlambda_slit_focusPH_var) #pragma acc update host(_v_divlambda_slit_focusPH_var) #pragma acc update host(_slit_EH_var) #pragma acc update host(_cEH_var) #pragma acc update host(_beamstop_cEH_var) #pragma acc update host(_psd_cEH_var) #pragma acc update host(_l_cEH_var) #pragma acc update host(_nD9_var) #pragma acc update host(_divergence_monitor_cEH_var) #pragma acc update host(_h_divlambda_cEH_var) #pragma acc update host(_v_divlambda_cEH_var) #pragma acc update host(_PSD_10_var) #pragma acc update host(_PSD_11_var) #pragma acc update host(_PSD_12_var) #pragma acc update host(_PSD_13_var) #pragma acc update host(_l_10_var) #pragma acc update host(_l_11_var) #pragma acc update host(_l_12_var) #pragma acc update host(_l_13_var) #pragma acc update host(_divergence_monitor_10_var) #pragma acc update host(_divergence_monitor_11_var) #pragma acc update host(_divergence_monitor_12_var) #pragma acc update host(_divergence_monitor_13_var) #pragma acc update host(_divlambda_10_var) #pragma acc update host(_h_divlambda_11_var) #pragma acc update host(_h_divlambda_12_var) #pragma acc update host(_h_divlambda_13_var) #pragma acc update host(_v_divlambda_10_var) #pragma acc update host(_v_divlambda_11_var) #pragma acc update host(_v_divlambda_12_var) #pragma acc update host(_v_divlambda_13_var) #pragma acc update host(_psd_monitor_detector_var) #pragma acc update host(_l_detector_var) #pragma acc update host(_divergence_monitor_detector_var) #pragma acc update host(_divlambda_detector_var) #pragma acc update host(_psd_monitor_detector_big_var) #pragma acc update host(_instrument_var) siminfo_init(NULL); save(siminfo_file); /* save data when simulation ends */ /* call iteratively all components FINALLY */ class_Progress_bar_finally(&_origin_var); class_Source_gen_finally(&_Source_var); class_PSD_monitor_finally(&_psd_Source_var); class_L_monitor_finally(&_l_Source_var); class_Monitor_nD_finally(&_nD1_var); class_Divergence_monitor_finally(&_divergence_monitor_Source_var); class_DivLambda_monitor_finally(&_h_divlambda_Source_var); class_DivLambda_monitor_finally(&_v_divlambda_Source_var); class_PSD_monitor_finally(&_psd_FocusingPosition_var); class_L_monitor_finally(&_l_FocusingPosition_var); class_Monitor_nD_finally(&_nD2_var); class_Divergence_monitor_finally(&_divergence_monitor_FocusingPosition_var); class_DivLambda_monitor_finally(&_h_divlambda_FocusingPosition_var); class_DivLambda_monitor_finally(&_v_divlambda_FocusingPosition_var); class_Brilliance_monitor_finally(&_BrillmonLD2_var); class_PSD_monitor_finally(&_psd_monolith_var); class_L_monitor_finally(&_l_monolith_var); class_Monitor_nD_finally(&_nD3_var); class_Divergence_monitor_finally(&_divergence_monitor_monolith_var); class_DivLambda_monitor_finally(&_h_divlambda_monolith_var); class_DivLambda_monitor_finally(&_v_divlambda_monolith_var); class_PSD_monitor_finally(&_PSD_before_slit_cPH_var); class_PSD_monitor_finally(&_PSD_slit_cPH_var); class_L_monitor_finally(&_l_slit_cPH_var); class_Monitor_nD_finally(&_nD4_var); class_Divergence_monitor_finally(&_divergence_monitor_slit_cPH_var); class_DivLambda_monitor_finally(&_h_divlambda_slit_cPH_var); class_DivLambda_monitor_finally(&_v_divlambda_slit_cPH_var); class_Conics_PH_finally(&_cPH_var); class_PSD_monitor_finally(&_psd_cPH_var); class_L_monitor_finally(&_l_cPH_var); class_Monitor_nD_finally(&_nD5_var); class_Divergence_monitor_finally(&_divergence_monitor_cPH_var); class_DivLambda_monitor_finally(&_h_divlambda_cPH_var); class_DivLambda_monitor_finally(&_v_divlambda_cPH_var); class_PSD_monitor_finally(&_psd_bunker_var); class_L_monitor_finally(&_l_bunker_var); class_Monitor_nD_finally(&_nD6_var); class_Divergence_monitor_finally(&_divergence_monitor_bunker_var); class_DivLambda_monitor_finally(&_h_divlambda_bunker_var); class_DivLambda_monitor_finally(&_v_divlambda_bunker_var); class_PSD_monitor_finally(&_psd_PHfocus1_var); class_L_monitor_finally(&_l_PHfocus1_var); class_Monitor_nD_finally(&_nD7_var); class_Divergence_monitor_finally(&_divergence_monitor_PHfocus1_var); class_DivLambda_monitor_finally(&_h_divlambda_PHfocus1_var); class_DivLambda_monitor_finally(&_v_divlambda_PHfocus1_var); class_PSD_monitor_finally(&_psd_slit_focusPH_var); class_L_monitor_finally(&_l_slit_focusPH_var); class_Monitor_nD_finally(&_nD8_var); class_Divergence_monitor_finally(&_divergence_monitor_slit_focusPH_var); class_DivLambda_monitor_finally(&_h_divlambda_slit_focusPH_var); class_DivLambda_monitor_finally(&_v_divlambda_slit_focusPH_var); class_Conics_EH_finally(&_cEH_var); class_PSD_monitor_finally(&_psd_cEH_var); class_L_monitor_finally(&_l_cEH_var); class_Monitor_nD_finally(&_nD9_var); class_Divergence_monitor_finally(&_divergence_monitor_cEH_var); class_DivLambda_monitor_finally(&_h_divlambda_cEH_var); class_DivLambda_monitor_finally(&_v_divlambda_cEH_var); class_PSD_monitor_finally(&_PSD_10_var); class_PSD_monitor_finally(&_PSD_11_var); class_PSD_monitor_finally(&_PSD_12_var); class_PSD_monitor_finally(&_PSD_13_var); class_L_monitor_finally(&_l_10_var); class_L_monitor_finally(&_l_11_var); class_L_monitor_finally(&_l_12_var); class_L_monitor_finally(&_l_13_var); class_Divergence_monitor_finally(&_divergence_monitor_10_var); class_Divergence_monitor_finally(&_divergence_monitor_11_var); class_Divergence_monitor_finally(&_divergence_monitor_12_var); class_Divergence_monitor_finally(&_divergence_monitor_13_var); class_DivLambda_monitor_finally(&_divlambda_10_var); class_DivLambda_monitor_finally(&_h_divlambda_11_var); class_DivLambda_monitor_finally(&_h_divlambda_12_var); class_DivLambda_monitor_finally(&_h_divlambda_13_var); class_DivLambda_monitor_finally(&_v_divlambda_10_var); class_DivLambda_monitor_finally(&_v_divlambda_11_var); class_DivLambda_monitor_finally(&_v_divlambda_12_var); class_DivLambda_monitor_finally(&_v_divlambda_13_var); class_PSD_monitor_finally(&_psd_monitor_detector_var); class_L_monitor_finally(&_l_detector_var); class_Divergence_monitor_finally(&_divergence_monitor_detector_var); class_DivLambda_monitor_finally(&_divlambda_detector_var); class_PSD_monitor_finally(&_psd_monitor_detector_big_var); siminfo_close(); return(0); } /* finally */ /* ***************************************************************************** * instrument 'WOFSANS' and components DISPLAY ***************************************************************************** */ #define magnify mcdis_magnify #define line mcdis_line #define dashed_line mcdis_dashed_line #define multiline mcdis_multiline #define rectangle mcdis_rectangle #define box mcdis_box #define circle mcdis_circle #define cylinder mcdis_cylinder #define sphere mcdis_sphere #define cone mcdis_cone #define polygon mcdis_polygon #define polyhedron mcdis_polyhedron _class_Progress_bar *class_Progress_bar_display(_class_Progress_bar *_comp ) { #define profile (_comp->_parameters.profile) #define percent (_comp->_parameters.percent) #define flag_save (_comp->_parameters.flag_save) #define minutes (_comp->_parameters.minutes) #define IntermediateCnts (_comp->_parameters.IntermediateCnts) #define StartTime (_comp->_parameters.StartTime) #define EndTime (_comp->_parameters.EndTime) #define CurrentTime (_comp->_parameters.CurrentTime) #define infostring (_comp->_parameters.infostring) SIG_MESSAGE("[_origin_display] component origin=Progress_bar() DISPLAY [Progress_bar:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); #undef profile #undef percent #undef flag_save #undef minutes #undef IntermediateCnts #undef StartTime #undef EndTime #undef CurrentTime #undef infostring return(_comp); } /* class_Progress_bar_display */ _class_Source_gen *class_Source_gen_display(_class_Source_gen *_comp ) { #define flux_file (_comp->_parameters.flux_file) #define xdiv_file (_comp->_parameters.xdiv_file) #define ydiv_file (_comp->_parameters.ydiv_file) #define radius (_comp->_parameters.radius) #define dist (_comp->_parameters.dist) #define focus_xw (_comp->_parameters.focus_xw) #define focus_yh (_comp->_parameters.focus_yh) #define focus_aw (_comp->_parameters.focus_aw) #define focus_ah (_comp->_parameters.focus_ah) #define E0 (_comp->_parameters.E0) #define dE (_comp->_parameters.dE) #define lambda0 (_comp->_parameters.lambda0) #define dlambda (_comp->_parameters.dlambda) #define I1 (_comp->_parameters.I1) #define yheight (_comp->_parameters.yheight) #define xwidth (_comp->_parameters.xwidth) #define verbose (_comp->_parameters.verbose) #define T1 (_comp->_parameters.T1) #define flux_file_perAA (_comp->_parameters.flux_file_perAA) #define flux_file_log (_comp->_parameters.flux_file_log) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define Emin (_comp->_parameters.Emin) #define Emax (_comp->_parameters.Emax) #define T2 (_comp->_parameters.T2) #define I2 (_comp->_parameters.I2) #define T3 (_comp->_parameters.T3) #define I3 (_comp->_parameters.I3) #define zdepth (_comp->_parameters.zdepth) #define target_index (_comp->_parameters.target_index) #define p_in (_comp->_parameters.p_in) #define lambda1 (_comp->_parameters.lambda1) #define lambda2 (_comp->_parameters.lambda2) #define lambda3 (_comp->_parameters.lambda3) #define pTable (_comp->_parameters.pTable) #define pTable_x (_comp->_parameters.pTable_x) #define pTable_y (_comp->_parameters.pTable_y) #define pTable_xmin (_comp->_parameters.pTable_xmin) #define pTable_xmax (_comp->_parameters.pTable_xmax) #define pTable_xsum (_comp->_parameters.pTable_xsum) #define pTable_ymin (_comp->_parameters.pTable_ymin) #define pTable_ymax (_comp->_parameters.pTable_ymax) #define pTable_ysum (_comp->_parameters.pTable_ysum) #define pTable_dxmin (_comp->_parameters.pTable_dxmin) #define pTable_dxmax (_comp->_parameters.pTable_dxmax) #define pTable_dymin (_comp->_parameters.pTable_dymin) #define pTable_dymax (_comp->_parameters.pTable_dymax) SIG_MESSAGE("[_Source_display] component Source=Source_gen() DISPLAY [Source_gen:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); double xmin; double xmax; double ymin; double ymax; if (radius) { circle("xy",0,0,0,radius); if (zdepth) { circle("xy",0,0,-zdepth/2,radius); circle("xy",0,0, zdepth/2,radius); } } else { xmin = -xwidth/2; xmax = xwidth/2; ymin = -yheight/2; ymax = yheight/2; multiline(5, (double)xmin, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, (double)ymin, 0.0); if (zdepth) { multiline(5, (double)xmin, (double)ymin, -zdepth/2, (double)xmax, (double)ymin, -zdepth/2, (double)xmax, (double)ymax, -zdepth/2, (double)xmin, (double)ymax, -zdepth/2, (double)xmin, (double)ymin, -zdepth/2); multiline(5, (double)xmin, (double)ymin, zdepth/2, (double)xmax, (double)ymin, zdepth/2, (double)xmax, (double)ymax, zdepth/2, (double)xmin, (double)ymax, zdepth/2, (double)xmin, (double)ymin, zdepth/2); } } if (dist) { if (focus_aw) focus_xw=dist*tan(focus_aw*DEG2RAD); if (focus_ah) focus_yh=dist*tan(focus_ah*DEG2RAD); dashed_line(0,0,0, -focus_xw/2,-focus_yh/2,dist, 4); dashed_line(0,0,0, focus_xw/2,-focus_yh/2,dist, 4); dashed_line(0,0,0, focus_xw/2, focus_yh/2,dist, 4); dashed_line(0,0,0, -focus_xw/2, focus_yh/2,dist, 4); } #undef flux_file #undef xdiv_file #undef ydiv_file #undef radius #undef dist #undef focus_xw #undef focus_yh #undef focus_aw #undef focus_ah #undef E0 #undef dE #undef lambda0 #undef dlambda #undef I1 #undef yheight #undef xwidth #undef verbose #undef T1 #undef flux_file_perAA #undef flux_file_log #undef Lmin #undef Lmax #undef Emin #undef Emax #undef T2 #undef I2 #undef T3 #undef I3 #undef zdepth #undef target_index #undef p_in #undef lambda1 #undef lambda2 #undef lambda3 #undef pTable #undef pTable_x #undef pTable_y #undef pTable_xmin #undef pTable_xmax #undef pTable_xsum #undef pTable_ymin #undef pTable_ymax #undef pTable_ysum #undef pTable_dxmin #undef pTable_dxmax #undef pTable_dymin #undef pTable_dymax return(_comp); } /* class_Source_gen_display */ _class_PSD_monitor *class_PSD_monitor_display(_class_PSD_monitor *_comp ) { #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define restore_neutron (_comp->_parameters.restore_neutron) #define nowritefile (_comp->_parameters.nowritefile) #define PSD_N (_comp->_parameters.PSD_N) #define PSD_p (_comp->_parameters.PSD_p) #define PSD_p2 (_comp->_parameters.PSD_p2) SIG_MESSAGE("[_psd_Source_display] component psd_Source=PSD_monitor() DISPLAY [PSD_monitor:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); multiline (5, (double)xmin, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, (double)ymin, 0.0); #undef nx #undef ny #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef restore_neutron #undef nowritefile #undef PSD_N #undef PSD_p #undef PSD_p2 return(_comp); } /* class_PSD_monitor_display */ _class_L_monitor *class_L_monitor_display(_class_L_monitor *_comp ) { #define nL (_comp->_parameters.nL) #define filename (_comp->_parameters.filename) #define nowritefile (_comp->_parameters.nowritefile) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define L_N (_comp->_parameters.L_N) #define L_p (_comp->_parameters.L_p) #define L_p2 (_comp->_parameters.L_p2) SIG_MESSAGE("[_l_Source_display] component l_Source=L_monitor() DISPLAY [L_monitor:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); multiline (5, (double)xmin, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, (double)ymin, 0.0); #undef nL #undef filename #undef nowritefile #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef Lmin #undef Lmax #undef restore_neutron #undef L_N #undef L_p #undef L_p2 return(_comp); } /* class_L_monitor_display */ _class_Monitor_nD *class_Monitor_nD_display(_class_Monitor_nD *_comp ) { #define user1 (_comp->_parameters.user1) #define user2 (_comp->_parameters.user2) #define user3 (_comp->_parameters.user3) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define zdepth (_comp->_parameters.zdepth) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define zmin (_comp->_parameters.zmin) #define zmax (_comp->_parameters.zmax) #define bins (_comp->_parameters.bins) #define min (_comp->_parameters.min) #define max (_comp->_parameters.max) #define restore_neutron (_comp->_parameters.restore_neutron) #define radius (_comp->_parameters.radius) #define options (_comp->_parameters.options) #define filename (_comp->_parameters.filename) #define geometry (_comp->_parameters.geometry) #define nowritefile (_comp->_parameters.nowritefile) #define nexus_bins (_comp->_parameters.nexus_bins) #define username1 (_comp->_parameters.username1) #define username2 (_comp->_parameters.username2) #define username3 (_comp->_parameters.username3) #define DEFS (_comp->_parameters.DEFS) #define Vars (_comp->_parameters.Vars) #define detector (_comp->_parameters.detector) #define offdata (_comp->_parameters.offdata) SIG_MESSAGE("[_nD1_display] component nD1=Monitor_nD() DISPLAY [Monitor_nD:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); if (geometry && strlen (geometry) && strcmp (geometry, "0") && strcmp (geometry, "NULL")) { off_display (offdata); } else { Monitor_nD_McDisplay (&DEFS, &Vars); } #undef user1 #undef user2 #undef user3 #undef xwidth #undef yheight #undef zdepth #undef xmin #undef xmax #undef ymin #undef ymax #undef zmin #undef zmax #undef bins #undef min #undef max #undef restore_neutron #undef radius #undef options #undef filename #undef geometry #undef nowritefile #undef nexus_bins #undef username1 #undef username2 #undef username3 #undef DEFS #undef Vars #undef detector #undef offdata return(_comp); } /* class_Monitor_nD_display */ _class_Divergence_monitor *class_Divergence_monitor_display(_class_Divergence_monitor *_comp ) { #define nh (_comp->_parameters.nh) #define nv (_comp->_parameters.nv) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define nowritefile (_comp->_parameters.nowritefile) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define maxdiv_v (_comp->_parameters.maxdiv_v) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_divergence_monitor_Source_display] component divergence_monitor_Source=Divergence_monitor() DISPLAY [Divergence_monitor:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); multiline (5, (double)xmin, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, (double)ymin, 0.0); #undef nh #undef nv #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef nowritefile #undef xwidth #undef yheight #undef maxdiv_h #undef maxdiv_v #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return(_comp); } /* class_Divergence_monitor_display */ _class_DivLambda_monitor *class_DivLambda_monitor_display(_class_DivLambda_monitor *_comp ) { #define nL (_comp->_parameters.nL) #define nh (_comp->_parameters.nh) #define nowritefile (_comp->_parameters.nowritefile) #define filename (_comp->_parameters.filename) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define maxdiv_h (_comp->_parameters.maxdiv_h) #define Lmin (_comp->_parameters.Lmin) #define Lmax (_comp->_parameters.Lmax) #define restore_neutron (_comp->_parameters.restore_neutron) #define nx (_comp->_parameters.nx) #define ny (_comp->_parameters.ny) #define nz (_comp->_parameters.nz) #define Div_N (_comp->_parameters.Div_N) #define Div_p (_comp->_parameters.Div_p) #define Div_p2 (_comp->_parameters.Div_p2) SIG_MESSAGE("[_h_divlambda_Source_display] component h_divlambda_Source=DivLambda_monitor() DISPLAY [DivLambda_monitor:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); multiline (5, (double)xmin, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, (double)ymin, 0.0); #undef nL #undef nh #undef nowritefile #undef filename #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef maxdiv_h #undef Lmin #undef Lmax #undef restore_neutron #undef nx #undef ny #undef nz #undef Div_N #undef Div_p #undef Div_p2 return(_comp); } /* class_DivLambda_monitor_display */ _class_Brilliance_monitor *class_Brilliance_monitor_display(_class_Brilliance_monitor *_comp ) { #define nlam (_comp->_parameters.nlam) #define nt (_comp->_parameters.nt) #define nowritefile (_comp->_parameters.nowritefile) #define lambda_0 (_comp->_parameters.lambda_0) #define lambda_1 (_comp->_parameters.lambda_1) #define restore_neutron (_comp->_parameters.restore_neutron) #define Freq (_comp->_parameters.Freq) #define tofcuts (_comp->_parameters.tofcuts) #define toflambda (_comp->_parameters.toflambda) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define source_dist (_comp->_parameters.source_dist) #define filename (_comp->_parameters.filename) #define t_0 (_comp->_parameters.t_0) #define t_1 (_comp->_parameters.t_1) #define srcarea (_comp->_parameters.srcarea) #define BRIL_N (_comp->_parameters.BRIL_N) #define BRIL_p (_comp->_parameters.BRIL_p) #define BRIL_p2 (_comp->_parameters.BRIL_p2) #define BRIL_mean (_comp->_parameters.BRIL_mean) #define BRIL_meanN (_comp->_parameters.BRIL_meanN) #define BRIL_meanE (_comp->_parameters.BRIL_meanE) #define BRIL_peak (_comp->_parameters.BRIL_peak) #define BRIL_peakN (_comp->_parameters.BRIL_peakN) #define BRIL_peakE (_comp->_parameters.BRIL_peakE) #define BRIL_shape (_comp->_parameters.BRIL_shape) #define BRIL_shapeN (_comp->_parameters.BRIL_shapeN) #define BRIL_shapeE (_comp->_parameters.BRIL_shapeE) #define tt_0 (_comp->_parameters.tt_0) #define tt_1 (_comp->_parameters.tt_1) #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define ster (_comp->_parameters.ster) #define prsec (_comp->_parameters.prsec) #define dlam (_comp->_parameters.dlam) #define dt (_comp->_parameters.dt) SIG_MESSAGE("[_BrillmonLD2_display] component BrillmonLD2=Brilliance_monitor() DISPLAY [Brilliance_monitor:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); multiline (5, (double)xmin, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, (double)ymin, 0.0); #undef nlam #undef nt #undef nowritefile #undef lambda_0 #undef lambda_1 #undef restore_neutron #undef Freq #undef tofcuts #undef toflambda #undef xwidth #undef yheight #undef source_dist #undef filename #undef t_0 #undef t_1 #undef srcarea #undef BRIL_N #undef BRIL_p #undef BRIL_p2 #undef BRIL_mean #undef BRIL_meanN #undef BRIL_meanE #undef BRIL_peak #undef BRIL_peakN #undef BRIL_peakE #undef BRIL_shape #undef BRIL_shapeN #undef BRIL_shapeE #undef tt_0 #undef tt_1 #undef xmin #undef xmax #undef ymin #undef ymax #undef ster #undef prsec #undef dlam #undef dt return(_comp); } /* class_Brilliance_monitor_display */ _class_Slit *class_Slit_display(_class_Slit *_comp ) { #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define radius (_comp->_parameters.radius) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define isradial (_comp->_parameters.isradial) SIG_MESSAGE("[_monolith_slit1_display] component monolith_slit1=Slit() DISPLAY [Slit:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); if (is_unset (radius)) { double xw, yh; xw = (xmax - xmin) / 2.0; yh = (ymax - ymin) / 2.0; multiline (3, xmin - xw, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, ymax + yh, 0.0); multiline (3, xmax + xw, (double)ymax, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmax, ymax + yh, 0.0); multiline (3, xmin - xw, (double)ymin, 0.0, (double)xmin, (double)ymin, 0.0, (double)xmin, ymin - yh, 0.0); multiline (3, xmax + xw, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, ymin - yh, 0.0); } else { circle ("xy", 0, 0, 0, radius); } #undef xmin #undef xmax #undef ymin #undef ymax #undef radius #undef xwidth #undef yheight #undef isradial return(_comp); } /* class_Slit_display */ _class_Conics_PH *class_Conics_PH_display(_class_Conics_PH *_comp ) { #define rmin (_comp->_parameters.rmin) #define rmax (_comp->_parameters.rmax) #define focal_length (_comp->_parameters.focal_length) #define lp (_comp->_parameters.lp) #define lh (_comp->_parameters.lh) #define nshells (_comp->_parameters.nshells) #define m (_comp->_parameters.m) #define mirr_thick (_comp->_parameters.mirr_thick) #define disk (_comp->_parameters.disk) #define radii (_comp->_parameters.radii) #define R0 (_comp->_parameters.R0) #define Qc (_comp->_parameters.Qc) #define W (_comp->_parameters.W) #define alpha (_comp->_parameters.alpha) #define transmit (_comp->_parameters.transmit) #define s (_comp->_parameters.s) SIG_MESSAGE("[_cPH_display] component cPH=Conics_PH() DISPLAY [Conics_PH:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); double zz = 0; // Enlarge xy-plane when mcdisplay is ran with --zoom magnify ("xy"); // Draw xy-axis contour for Conic Surfaces int i; for (i = 0; i < s.num_c; i++) { double step = (s.c[i].ze - s.c[i].zs) / 100; double cz; int draw = -1; for (cz = s.c[i].zs + step; cz <= s.c[i].ze; cz += step) { draw++; double rp = rConic (cz - step, s.c[i]); double rc = rConic (cz, s.c[i]); double rx, ry; int j; double theta; for (j = 0; j < 12; j++) { theta = 2.0 * PI * j / 12.0; rx = rp * cos (theta); ry = rp * sin (theta); line (rx, ry, cz - step - zz, rx, ry, cz - zz); } if (draw == 0) { circle ("xy", 0, 0, cz - step - zz, rp); } if (draw == 19) draw = -1; } } // Draw xy-axis cross hairs for Disks // Local variables to control maximal display-size of cross-hairs for (i = 0; i < s.num_di; i++) { double r0 = s.di[i].r0; double r1 = s.di[i].r1; double z0 = s.di[i].z0; if (r0 > 1.0) r0 = 1.0; if (r1 > 1.0) r1 = 1.0; line (r0, 0, z0 - zz, r1, 0, z0 - zz); line (-r0, 0, z0 - zz, -r1, 0, z0 - zz); line (0, r0, z0 - zz, 0, r1, z0 - zz); line (0, -r0, z0 - zz, 0, -r1, z0 - zz); } #undef rmin #undef rmax #undef focal_length #undef lp #undef lh #undef nshells #undef m #undef mirr_thick #undef disk #undef radii #undef R0 #undef Qc #undef W #undef alpha #undef transmit #undef s return(_comp); } /* class_Conics_PH_display */ _class_Beamstop *class_Beamstop_display(_class_Beamstop *_comp ) { #define xmin (_comp->_parameters.xmin) #define xmax (_comp->_parameters.xmax) #define ymin (_comp->_parameters.ymin) #define ymax (_comp->_parameters.ymax) #define xwidth (_comp->_parameters.xwidth) #define yheight (_comp->_parameters.yheight) #define radius (_comp->_parameters.radius) SIG_MESSAGE("[_beamstop_cPH_display] component beamstop_cPH=Beamstop() DISPLAY [Beamstop:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); if (radius != 0) circle ("xy", 0, 0, 0, radius); else multiline (5, (double)xmin, (double)ymin, 0.0, (double)xmax, (double)ymin, 0.0, (double)xmax, (double)ymax, 0.0, (double)xmin, (double)ymax, 0.0, (double)xmin, (double)ymin, 0.0); #undef xmin #undef xmax #undef ymin #undef ymax #undef xwidth #undef yheight #undef radius return(_comp); } /* class_Beamstop_display */ _class_Conics_EH *class_Conics_EH_display(_class_Conics_EH *_comp ) { #define rmin (_comp->_parameters.rmin) #define rmax (_comp->_parameters.rmax) #define focal_length_u (_comp->_parameters.focal_length_u) #define focal_length_d (_comp->_parameters.focal_length_d) #define le (_comp->_parameters.le) #define lh (_comp->_parameters.lh) #define nshells (_comp->_parameters.nshells) #define m (_comp->_parameters.m) #define mirr_thick (_comp->_parameters.mirr_thick) #define disk (_comp->_parameters.disk) #define radii (_comp->_parameters.radii) #define R0 (_comp->_parameters.R0) #define Qc (_comp->_parameters.Qc) #define W (_comp->_parameters.W) #define alpha (_comp->_parameters.alpha) #define transmit (_comp->_parameters.transmit) #define s (_comp->_parameters.s) SIG_MESSAGE("[_cEH_display] component cEH=Conics_EH() DISPLAY [Conics_EH:0]"); printf("MCDISPLAY: component %s\n", _comp->_name); double zz = 0; // Enlarge xy-plane when mcdisplay is ran with --zoom magnify ("xy"); // Draw xy-axis contour for Conic Surfaces int i; for (i = 0; i < s.num_c; i++) { double step = (s.c[i].ze - s.c[i].zs) / 100; double cz; int draw = -1; for (cz = s.c[i].zs + step; cz <= s.c[i].ze; cz += step) { draw++; double rp = rConic (cz - step, s.c[i]); double rc = rConic (cz, s.c[i]); double rx, ry; int j; double theta; for (j = 0; j < 12; j++) { theta = 2.0 * PI * j / 12.0; rx = rp * cos (theta); ry = rp * sin (theta); line (rx, ry, cz - step - zz, rx, ry, cz - zz); } if (draw == 0) { circle ("xy", 0, 0, cz - step - zz, rp); } if (draw == 19) draw = -1; } } // Draw xy-axis cross hairs for Disks // Local variables to control maximal display-size of cross-hairs for (i = 0; i < s.num_di; i++) { double r0 = s.di[i].r0; double r1 = s.di[i].r1; double z0 = s.di[i].z0; if (r0 > 1.0) r0 = 1.0; if (r1 > 1.0) r1 = 1.0; line (r0, 0, z0 - zz, r1, 0, z0 - zz); line (-r0, 0, z0 - zz, -r1, 0, z0 - zz); line (0, r0, z0 - zz, 0, r1, z0 - zz); line (0, -r0, z0 - zz, 0, -r1, z0 - zz); } #undef rmin #undef rmax #undef focal_length_u #undef focal_length_d #undef le #undef lh #undef nshells #undef m #undef mirr_thick #undef disk #undef radii #undef R0 #undef Qc #undef W #undef alpha #undef transmit #undef s return(_comp); } /* class_Conics_EH_display */ #undef magnify #undef line #undef dashed_line #undef multiline #undef rectangle #undef box #undef circle #undef cylinder #undef sphere int display(void) { /* called by mccode_main for WOFSANS:DISPLAY */ printf("MCDISPLAY: start\n"); /* call iteratively all components DISPLAY */ class_Progress_bar_display(&_origin_var); class_Source_gen_display(&_Source_var); class_PSD_monitor_display(&_psd_Source_var); class_L_monitor_display(&_l_Source_var); class_Monitor_nD_display(&_nD1_var); class_Divergence_monitor_display(&_divergence_monitor_Source_var); class_DivLambda_monitor_display(&_h_divlambda_Source_var); class_DivLambda_monitor_display(&_v_divlambda_Source_var); class_PSD_monitor_display(&_psd_FocusingPosition_var); class_L_monitor_display(&_l_FocusingPosition_var); class_Monitor_nD_display(&_nD2_var); class_Divergence_monitor_display(&_divergence_monitor_FocusingPosition_var); class_DivLambda_monitor_display(&_h_divlambda_FocusingPosition_var); class_DivLambda_monitor_display(&_v_divlambda_FocusingPosition_var); class_Brilliance_monitor_display(&_BrillmonLD2_var); class_Slit_display(&_monolith_slit1_var); class_Slit_display(&_monolith_slit2_var); class_PSD_monitor_display(&_psd_monolith_var); class_L_monitor_display(&_l_monolith_var); class_Monitor_nD_display(&_nD3_var); class_Divergence_monitor_display(&_divergence_monitor_monolith_var); class_DivLambda_monitor_display(&_h_divlambda_monolith_var); class_DivLambda_monitor_display(&_v_divlambda_monolith_var); class_PSD_monitor_display(&_PSD_before_slit_cPH_var); class_Slit_display(&_slit_cPH_var); class_PSD_monitor_display(&_PSD_slit_cPH_var); class_L_monitor_display(&_l_slit_cPH_var); class_Monitor_nD_display(&_nD4_var); class_Divergence_monitor_display(&_divergence_monitor_slit_cPH_var); class_DivLambda_monitor_display(&_h_divlambda_slit_cPH_var); class_DivLambda_monitor_display(&_v_divlambda_slit_cPH_var); class_Conics_PH_display(&_cPH_var); class_Beamstop_display(&_beamstop_cPH_var); class_PSD_monitor_display(&_psd_cPH_var); class_L_monitor_display(&_l_cPH_var); class_Monitor_nD_display(&_nD5_var); class_Divergence_monitor_display(&_divergence_monitor_cPH_var); class_DivLambda_monitor_display(&_h_divlambda_cPH_var); class_DivLambda_monitor_display(&_v_divlambda_cPH_var); class_PSD_monitor_display(&_psd_bunker_var); class_L_monitor_display(&_l_bunker_var); class_Monitor_nD_display(&_nD6_var); class_Divergence_monitor_display(&_divergence_monitor_bunker_var); class_DivLambda_monitor_display(&_h_divlambda_bunker_var); class_DivLambda_monitor_display(&_v_divlambda_bunker_var); class_PSD_monitor_display(&_psd_PHfocus1_var); class_L_monitor_display(&_l_PHfocus1_var); class_Monitor_nD_display(&_nD7_var); class_Divergence_monitor_display(&_divergence_monitor_PHfocus1_var); class_DivLambda_monitor_display(&_h_divlambda_PHfocus1_var); class_DivLambda_monitor_display(&_v_divlambda_PHfocus1_var); class_Slit_display(&_slit_focusPH_var); class_PSD_monitor_display(&_psd_slit_focusPH_var); class_L_monitor_display(&_l_slit_focusPH_var); class_Monitor_nD_display(&_nD8_var); class_Divergence_monitor_display(&_divergence_monitor_slit_focusPH_var); class_DivLambda_monitor_display(&_h_divlambda_slit_focusPH_var); class_DivLambda_monitor_display(&_v_divlambda_slit_focusPH_var); class_Slit_display(&_slit_EH_var); class_Conics_EH_display(&_cEH_var); class_Beamstop_display(&_beamstop_cEH_var); class_PSD_monitor_display(&_psd_cEH_var); class_L_monitor_display(&_l_cEH_var); class_Monitor_nD_display(&_nD9_var); class_Divergence_monitor_display(&_divergence_monitor_cEH_var); class_DivLambda_monitor_display(&_h_divlambda_cEH_var); class_DivLambda_monitor_display(&_v_divlambda_cEH_var); class_PSD_monitor_display(&_PSD_10_var); class_PSD_monitor_display(&_PSD_11_var); class_PSD_monitor_display(&_PSD_12_var); class_PSD_monitor_display(&_PSD_13_var); class_L_monitor_display(&_l_10_var); class_L_monitor_display(&_l_11_var); class_L_monitor_display(&_l_12_var); class_L_monitor_display(&_l_13_var); class_Divergence_monitor_display(&_divergence_monitor_10_var); class_Divergence_monitor_display(&_divergence_monitor_11_var); class_Divergence_monitor_display(&_divergence_monitor_12_var); class_Divergence_monitor_display(&_divergence_monitor_13_var); class_DivLambda_monitor_display(&_divlambda_10_var); class_DivLambda_monitor_display(&_h_divlambda_11_var); class_DivLambda_monitor_display(&_h_divlambda_12_var); class_DivLambda_monitor_display(&_h_divlambda_13_var); class_DivLambda_monitor_display(&_v_divlambda_10_var); class_DivLambda_monitor_display(&_v_divlambda_11_var); class_DivLambda_monitor_display(&_v_divlambda_12_var); class_DivLambda_monitor_display(&_v_divlambda_13_var); class_PSD_monitor_display(&_psd_monitor_detector_var); class_L_monitor_display(&_l_detector_var); class_Divergence_monitor_display(&_divergence_monitor_detector_var); class_DivLambda_monitor_display(&_divlambda_detector_var); class_PSD_monitor_display(&_psd_monitor_detector_big_var); printf("MCDISPLAY: end\n"); return(0); } /* display */ void* _getvar_parameters(char* compname) /* enables settings parameters based use of the GETPAR macro */ { #ifdef OPENACC #define strcmp(a,b) str_comp(a,b) #endif if (!strcmp(compname, "origin")) return (void *) &(_origin_var._parameters); if (!strcmp(compname, "Source")) return (void *) &(_Source_var._parameters); if (!strcmp(compname, "psd_Source")) return (void *) &(_psd_Source_var._parameters); if (!strcmp(compname, "l_Source")) return (void *) &(_l_Source_var._parameters); if (!strcmp(compname, "nD1")) return (void *) &(_nD1_var._parameters); if (!strcmp(compname, "divergence_monitor_Source")) return (void *) &(_divergence_monitor_Source_var._parameters); if (!strcmp(compname, "h_divlambda_Source")) return (void *) &(_h_divlambda_Source_var._parameters); if (!strcmp(compname, "v_divlambda_Source")) return (void *) &(_v_divlambda_Source_var._parameters); if (!strcmp(compname, "psd_FocusingPosition")) return (void *) &(_psd_FocusingPosition_var._parameters); if (!strcmp(compname, "l_FocusingPosition")) return (void *) &(_l_FocusingPosition_var._parameters); if (!strcmp(compname, "nD2")) return (void *) &(_nD2_var._parameters); if (!strcmp(compname, "divergence_monitor_FocusingPosition")) return (void *) &(_divergence_monitor_FocusingPosition_var._parameters); if (!strcmp(compname, "h_divlambda_FocusingPosition")) return (void *) &(_h_divlambda_FocusingPosition_var._parameters); if (!strcmp(compname, "v_divlambda_FocusingPosition")) return (void *) &(_v_divlambda_FocusingPosition_var._parameters); if (!strcmp(compname, "BrillmonLD2")) return (void *) &(_BrillmonLD2_var._parameters); if (!strcmp(compname, "monolith_slit1")) return (void *) &(_monolith_slit1_var._parameters); if (!strcmp(compname, "monolith_slit2")) return (void *) &(_monolith_slit2_var._parameters); if (!strcmp(compname, "psd_monolith")) return (void *) &(_psd_monolith_var._parameters); if (!strcmp(compname, "l_monolith")) return (void *) &(_l_monolith_var._parameters); if (!strcmp(compname, "nD3")) return (void *) &(_nD3_var._parameters); if (!strcmp(compname, "divergence_monitor_monolith")) return (void *) &(_divergence_monitor_monolith_var._parameters); if (!strcmp(compname, "h_divlambda_monolith")) return (void *) &(_h_divlambda_monolith_var._parameters); if (!strcmp(compname, "v_divlambda_monolith")) return (void *) &(_v_divlambda_monolith_var._parameters); if (!strcmp(compname, "PSD_before_slit_cPH")) return (void *) &(_PSD_before_slit_cPH_var._parameters); if (!strcmp(compname, "slit_cPH")) return (void *) &(_slit_cPH_var._parameters); if (!strcmp(compname, "PSD_slit_cPH")) return (void *) &(_PSD_slit_cPH_var._parameters); if (!strcmp(compname, "l_slit_cPH")) return (void *) &(_l_slit_cPH_var._parameters); if (!strcmp(compname, "nD4")) return (void *) &(_nD4_var._parameters); if (!strcmp(compname, "divergence_monitor_slit_cPH")) return (void *) &(_divergence_monitor_slit_cPH_var._parameters); if (!strcmp(compname, "h_divlambda_slit_cPH")) return (void *) &(_h_divlambda_slit_cPH_var._parameters); if (!strcmp(compname, "v_divlambda_slit_cPH")) return (void *) &(_v_divlambda_slit_cPH_var._parameters); if (!strcmp(compname, "cPH")) return (void *) &(_cPH_var._parameters); if (!strcmp(compname, "beamstop_cPH")) return (void *) &(_beamstop_cPH_var._parameters); if (!strcmp(compname, "psd_cPH")) return (void *) &(_psd_cPH_var._parameters); if (!strcmp(compname, "l_cPH")) return (void *) &(_l_cPH_var._parameters); if (!strcmp(compname, "nD5")) return (void *) &(_nD5_var._parameters); if (!strcmp(compname, "divergence_monitor_cPH")) return (void *) &(_divergence_monitor_cPH_var._parameters); if (!strcmp(compname, "h_divlambda_cPH")) return (void *) &(_h_divlambda_cPH_var._parameters); if (!strcmp(compname, "v_divlambda_cPH")) return (void *) &(_v_divlambda_cPH_var._parameters); if (!strcmp(compname, "psd_bunker")) return (void *) &(_psd_bunker_var._parameters); if (!strcmp(compname, "l_bunker")) return (void *) &(_l_bunker_var._parameters); if (!strcmp(compname, "nD6")) return (void *) &(_nD6_var._parameters); if (!strcmp(compname, "divergence_monitor_bunker")) return (void *) &(_divergence_monitor_bunker_var._parameters); if (!strcmp(compname, "h_divlambda_bunker")) return (void *) &(_h_divlambda_bunker_var._parameters); if (!strcmp(compname, "v_divlambda_bunker")) return (void *) &(_v_divlambda_bunker_var._parameters); if (!strcmp(compname, "psd_PHfocus1")) return (void *) &(_psd_PHfocus1_var._parameters); if (!strcmp(compname, "l_PHfocus1")) return (void *) &(_l_PHfocus1_var._parameters); if (!strcmp(compname, "nD7")) return (void *) &(_nD7_var._parameters); if (!strcmp(compname, "divergence_monitor_PHfocus1")) return (void *) &(_divergence_monitor_PHfocus1_var._parameters); if (!strcmp(compname, "h_divlambda_PHfocus1")) return (void *) &(_h_divlambda_PHfocus1_var._parameters); if (!strcmp(compname, "v_divlambda_PHfocus1")) return (void *) &(_v_divlambda_PHfocus1_var._parameters); if (!strcmp(compname, "slit_focusPH")) return (void *) &(_slit_focusPH_var._parameters); if (!strcmp(compname, "psd_slit_focusPH")) return (void *) &(_psd_slit_focusPH_var._parameters); if (!strcmp(compname, "l_slit_focusPH")) return (void *) &(_l_slit_focusPH_var._parameters); if (!strcmp(compname, "nD8")) return (void *) &(_nD8_var._parameters); if (!strcmp(compname, "divergence_monitor_slit_focusPH")) return (void *) &(_divergence_monitor_slit_focusPH_var._parameters); if (!strcmp(compname, "h_divlambda_slit_focusPH")) return (void *) &(_h_divlambda_slit_focusPH_var._parameters); if (!strcmp(compname, "v_divlambda_slit_focusPH")) return (void *) &(_v_divlambda_slit_focusPH_var._parameters); if (!strcmp(compname, "slit_EH")) return (void *) &(_slit_EH_var._parameters); if (!strcmp(compname, "cEH")) return (void *) &(_cEH_var._parameters); if (!strcmp(compname, "beamstop_cEH")) return (void *) &(_beamstop_cEH_var._parameters); if (!strcmp(compname, "psd_cEH")) return (void *) &(_psd_cEH_var._parameters); if (!strcmp(compname, "l_cEH")) return (void *) &(_l_cEH_var._parameters); if (!strcmp(compname, "nD9")) return (void *) &(_nD9_var._parameters); if (!strcmp(compname, "divergence_monitor_cEH")) return (void *) &(_divergence_monitor_cEH_var._parameters); if (!strcmp(compname, "h_divlambda_cEH")) return (void *) &(_h_divlambda_cEH_var._parameters); if (!strcmp(compname, "v_divlambda_cEH")) return (void *) &(_v_divlambda_cEH_var._parameters); if (!strcmp(compname, "PSD_10")) return (void *) &(_PSD_10_var._parameters); if (!strcmp(compname, "PSD_11")) return (void *) &(_PSD_11_var._parameters); if (!strcmp(compname, "PSD_12")) return (void *) &(_PSD_12_var._parameters); if (!strcmp(compname, "PSD_13")) return (void *) &(_PSD_13_var._parameters); if (!strcmp(compname, "l_10")) return (void *) &(_l_10_var._parameters); if (!strcmp(compname, "l_11")) return (void *) &(_l_11_var._parameters); if (!strcmp(compname, "l_12")) return (void *) &(_l_12_var._parameters); if (!strcmp(compname, "l_13")) return (void *) &(_l_13_var._parameters); if (!strcmp(compname, "divergence_monitor_10")) return (void *) &(_divergence_monitor_10_var._parameters); if (!strcmp(compname, "divergence_monitor_11")) return (void *) &(_divergence_monitor_11_var._parameters); if (!strcmp(compname, "divergence_monitor_12")) return (void *) &(_divergence_monitor_12_var._parameters); if (!strcmp(compname, "divergence_monitor_13")) return (void *) &(_divergence_monitor_13_var._parameters); if (!strcmp(compname, "divlambda_10")) return (void *) &(_divlambda_10_var._parameters); if (!strcmp(compname, "h_divlambda_11")) return (void *) &(_h_divlambda_11_var._parameters); if (!strcmp(compname, "h_divlambda_12")) return (void *) &(_h_divlambda_12_var._parameters); if (!strcmp(compname, "h_divlambda_13")) return (void *) &(_h_divlambda_13_var._parameters); if (!strcmp(compname, "v_divlambda_10")) return (void *) &(_v_divlambda_10_var._parameters); if (!strcmp(compname, "v_divlambda_11")) return (void *) &(_v_divlambda_11_var._parameters); if (!strcmp(compname, "v_divlambda_12")) return (void *) &(_v_divlambda_12_var._parameters); if (!strcmp(compname, "v_divlambda_13")) return (void *) &(_v_divlambda_13_var._parameters); if (!strcmp(compname, "psd_monitor_detector")) return (void *) &(_psd_monitor_detector_var._parameters); if (!strcmp(compname, "l_detector")) return (void *) &(_l_detector_var._parameters); if (!strcmp(compname, "divergence_monitor_detector")) return (void *) &(_divergence_monitor_detector_var._parameters); if (!strcmp(compname, "divlambda_detector")) return (void *) &(_divlambda_detector_var._parameters); if (!strcmp(compname, "psd_monitor_detector_big")) return (void *) &(_psd_monitor_detector_big_var._parameters); return 0; } void* _get_particle_var(char *token, _class_particle *p) /* enables setpars based use of GET_PARTICLE_DVAR macro and similar */ { if (!strcmp(token, "was_scattered")) return (void *) &(p->was_scattered); if (!strcmp(token, "was_scattered2")) return (void *) &(p->was_scattered2); return 0; } int _getcomp_index(char* compname) /* Enables retrieving the component position & rotation when the index is not known. * Component indexing into MACROS, e.g., POS_A_COMP_INDEX, are 1-based! */ { if (!strcmp(compname, "origin")) return 1; if (!strcmp(compname, "Source")) return 2; if (!strcmp(compname, "psd_Source")) return 3; if (!strcmp(compname, "l_Source")) return 4; if (!strcmp(compname, "nD1")) return 5; if (!strcmp(compname, "divergence_monitor_Source")) return 6; if (!strcmp(compname, "h_divlambda_Source")) return 7; if (!strcmp(compname, "v_divlambda_Source")) return 8; if (!strcmp(compname, "psd_FocusingPosition")) return 9; if (!strcmp(compname, "l_FocusingPosition")) return 10; if (!strcmp(compname, "nD2")) return 11; if (!strcmp(compname, "divergence_monitor_FocusingPosition")) return 12; if (!strcmp(compname, "h_divlambda_FocusingPosition")) return 13; if (!strcmp(compname, "v_divlambda_FocusingPosition")) return 14; if (!strcmp(compname, "BrillmonLD2")) return 15; if (!strcmp(compname, "monolith_slit1")) return 16; if (!strcmp(compname, "monolith_slit2")) return 17; if (!strcmp(compname, "psd_monolith")) return 18; if (!strcmp(compname, "l_monolith")) return 19; if (!strcmp(compname, "nD3")) return 20; if (!strcmp(compname, "divergence_monitor_monolith")) return 21; if (!strcmp(compname, "h_divlambda_monolith")) return 22; if (!strcmp(compname, "v_divlambda_monolith")) return 23; if (!strcmp(compname, "PSD_before_slit_cPH")) return 24; if (!strcmp(compname, "slit_cPH")) return 25; if (!strcmp(compname, "PSD_slit_cPH")) return 26; if (!strcmp(compname, "l_slit_cPH")) return 27; if (!strcmp(compname, "nD4")) return 28; if (!strcmp(compname, "divergence_monitor_slit_cPH")) return 29; if (!strcmp(compname, "h_divlambda_slit_cPH")) return 30; if (!strcmp(compname, "v_divlambda_slit_cPH")) return 31; if (!strcmp(compname, "cPH")) return 32; if (!strcmp(compname, "beamstop_cPH")) return 33; if (!strcmp(compname, "psd_cPH")) return 34; if (!strcmp(compname, "l_cPH")) return 35; if (!strcmp(compname, "nD5")) return 36; if (!strcmp(compname, "divergence_monitor_cPH")) return 37; if (!strcmp(compname, "h_divlambda_cPH")) return 38; if (!strcmp(compname, "v_divlambda_cPH")) return 39; if (!strcmp(compname, "psd_bunker")) return 40; if (!strcmp(compname, "l_bunker")) return 41; if (!strcmp(compname, "nD6")) return 42; if (!strcmp(compname, "divergence_monitor_bunker")) return 43; if (!strcmp(compname, "h_divlambda_bunker")) return 44; if (!strcmp(compname, "v_divlambda_bunker")) return 45; if (!strcmp(compname, "psd_PHfocus1")) return 46; if (!strcmp(compname, "l_PHfocus1")) return 47; if (!strcmp(compname, "nD7")) return 48; if (!strcmp(compname, "divergence_monitor_PHfocus1")) return 49; if (!strcmp(compname, "h_divlambda_PHfocus1")) return 50; if (!strcmp(compname, "v_divlambda_PHfocus1")) return 51; if (!strcmp(compname, "slit_focusPH")) return 52; if (!strcmp(compname, "psd_slit_focusPH")) return 53; if (!strcmp(compname, "l_slit_focusPH")) return 54; if (!strcmp(compname, "nD8")) return 55; if (!strcmp(compname, "divergence_monitor_slit_focusPH")) return 56; if (!strcmp(compname, "h_divlambda_slit_focusPH")) return 57; if (!strcmp(compname, "v_divlambda_slit_focusPH")) return 58; if (!strcmp(compname, "slit_EH")) return 59; if (!strcmp(compname, "cEH")) return 60; if (!strcmp(compname, "beamstop_cEH")) return 61; if (!strcmp(compname, "psd_cEH")) return 62; if (!strcmp(compname, "l_cEH")) return 63; if (!strcmp(compname, "nD9")) return 64; if (!strcmp(compname, "divergence_monitor_cEH")) return 65; if (!strcmp(compname, "h_divlambda_cEH")) return 66; if (!strcmp(compname, "v_divlambda_cEH")) return 67; if (!strcmp(compname, "PSD_10")) return 68; if (!strcmp(compname, "PSD_11")) return 69; if (!strcmp(compname, "PSD_12")) return 70; if (!strcmp(compname, "PSD_13")) return 71; if (!strcmp(compname, "l_10")) return 72; if (!strcmp(compname, "l_11")) return 73; if (!strcmp(compname, "l_12")) return 74; if (!strcmp(compname, "l_13")) return 75; if (!strcmp(compname, "divergence_monitor_10")) return 76; if (!strcmp(compname, "divergence_monitor_11")) return 77; if (!strcmp(compname, "divergence_monitor_12")) return 78; if (!strcmp(compname, "divergence_monitor_13")) return 79; if (!strcmp(compname, "divlambda_10")) return 80; if (!strcmp(compname, "h_divlambda_11")) return 81; if (!strcmp(compname, "h_divlambda_12")) return 82; if (!strcmp(compname, "h_divlambda_13")) return 83; if (!strcmp(compname, "v_divlambda_10")) return 84; if (!strcmp(compname, "v_divlambda_11")) return 85; if (!strcmp(compname, "v_divlambda_12")) return 86; if (!strcmp(compname, "v_divlambda_13")) return 87; if (!strcmp(compname, "psd_monitor_detector")) return 88; if (!strcmp(compname, "l_detector")) return 89; if (!strcmp(compname, "divergence_monitor_detector")) return 90; if (!strcmp(compname, "divlambda_detector")) return 91; if (!strcmp(compname, "psd_monitor_detector_big")) return 92; return -1; } /* embedding file "metadata-r.c" */ /** --- Contents of metadata-r.c ---------------------------------------------------------------------------------- */ // Created by Gregory Tucker, Data Management Software Centre, European Spallation Source ERIC on 07/07/23. #ifndef MCCODE_NAME #include "metadata-r.h" #endif char * metadata_table_key_component(char* key){ if (strlen(key) == 0) return NULL; char sep[2] = ":\0"; // matches any number of repeated colons // look for the separator in the provided key; strtok is allowed to modify the string, so copy it char * tok = malloc((strlen(key) + 1) * sizeof(char)); if (!tok) { fprintf(stderr,"Error allocating token\n"); exit(-1); } strcpy(tok, key); char * pch = strtok(tok, sep); // this *is* the component name (if provided) -- but we need to move the pointer char * comp = malloc((1 + strlen(pch)) * sizeof(char)); if (!comp) { fprintf(stderr,"Error allocating comp\n"); exit(-1); } strcpy(comp, pch); if (tok) free(tok); return comp; } char * metadata_table_key_literal(char * key){ if (strlen(key) == 0) return NULL; char sep[3] = ":\0"; char * tok = malloc((strlen(key) + 1 ) * sizeof(char)); if (!tok) { fprintf(stderr,"Error allocating token\n"); exit(-1); } strcpy(tok, key); char * pch = strtok(tok, sep); // this *is* the component name (if provided) if (pch) pch = strtok(NULL, sep); // either NULL or the literal name char * name = NULL; if (pch) { name = malloc((1 + strlen(pch)) * sizeof(char)); if (!name) { fprintf(stderr,"Error allocating name\n"); exit(-1); } strcpy(name, pch); } if (tok) free(tok); return name; } int metadata_table_defined(int no, metadata_table_t * tab, char * key){ if (strlen(key) == 0){ /* This is 0 instead of `no` independent of any wildcard-matching logic * because a caller _already_ knows `no` and can verify * that `key` is not "" at call-time. So returning `no` is useless. */ return 0; } char * comp = metadata_table_key_component(key); char * name = metadata_table_key_literal(key); // look through the table for the matching component and literal names int number = 0; for (int i=0; i 1) { MPI_MASTER( printf("Simulation '%s' (%s): running on %i nodes (master is '%s', MPI version %i.%i).\n", instrument_name, instrument_source, mpi_node_count, mpi_node_name, MPI_VERSION, MPI_SUBVERSION); ); /* share the same seed, then adapt random seed for each node */ MPI_Bcast(&mcseed, 1, MPI_LONG, 0, MPI_COMM_WORLD); /* root sends its seed to slaves */ mcseed += mpi_node_rank; /* make sure we use different seeds per noe */ } #endif /* USE_MPI */ #ifdef OPENACC #ifdef USE_MPI int num_devices = acc_get_num_devices(acc_device_nvidia); if(num_devices>0){ int my_device = mpi_node_rank % num_devices; acc_set_device_num( my_device, acc_device_nvidia ); printf("Have found %d GPU devices on rank %d. Will use device %d.\n", num_devices, mpi_node_rank, my_device); }else{ printf("There was an issue probing acc_get_num_devices, fallback to host\n"); acc_set_device_type( acc_device_host ); } #endif #endif /* *** parse options ******************************************************* */ SIG_MESSAGE("[" __FILE__ "] main START"); mcformat = getenv(FLAVOR_UPPER "_FORMAT") ? getenv(FLAVOR_UPPER "_FORMAT") : FLAVOR_UPPER; instrument_exe = argv[0]; /* store the executable path */ /* read simulation parameters and options */ mcparseoptions(argc, argv); /* sets output dir and format */ #ifdef USE_MPI if (mpi_node_count > 1) { /* share the same seed, then adapt random seed for each node */ MPI_Bcast(&mcseed, 1, MPI_LONG, 0, MPI_COMM_WORLD); /* root sends its seed to slaves */ mcseed += mpi_node_rank; /* make sure we use different seeds per node */ } #endif /* *** install sig handler, but only once !! after parameters parsing ******* */ #ifndef NOSIGNALS #ifdef SIGQUIT if (signal( SIGQUIT ,sighandler) == SIG_IGN) signal( SIGQUIT,SIG_IGN); /* quit (ASCII FS) */ #endif #ifdef SIGABRT if (signal( SIGABRT ,sighandler) == SIG_IGN) signal( SIGABRT,SIG_IGN); /* used by abort, replace SIGIOT in the future */ #endif #ifdef SIGTERM if (signal( SIGTERM ,sighandler) == SIG_IGN) signal( SIGTERM,SIG_IGN); /* software termination signal from kill */ #endif #ifdef SIGUSR1 if (signal( SIGUSR1 ,sighandler) == SIG_IGN) signal( SIGUSR1,SIG_IGN); /* display simulation status */ #endif #ifdef SIGUSR2 if (signal( SIGUSR2 ,sighandler) == SIG_IGN) signal( SIGUSR2,SIG_IGN); #endif #ifdef SIGHUP if (signal( SIGHUP ,sighandler) == SIG_IGN) signal( SIGHUP,SIG_IGN); #endif #ifdef SIGILL if (signal( SIGILL ,sighandler) == SIG_IGN) signal( SIGILL,SIG_IGN); /* illegal instruction (not reset when caught) */ #endif #ifdef SIGFPE if (signal( SIGFPE ,sighandler) == SIG_IGN) signal( SIGSEGV,SIG_IGN); /* floating point exception */ #endif #ifdef SIGBUS if (signal( SIGBUS ,sighandler) == SIG_IGN) signal( SIGSEGV,SIG_IGN); /* bus error */ #endif #ifdef SIGSEGV if (signal( SIGSEGV ,sighandler) == SIG_IGN) signal( SIGSEGV,SIG_IGN); /* segmentation violation */ #endif #endif /* !NOSIGNALS */ // init executed by master/host siminfo_init(NULL); /* open SIM */ SIG_MESSAGE("[" __FILE__ "] main INITIALISE"); init(); #ifndef NOSIGNALS #ifdef SIGINT if (signal( SIGINT ,sighandler) == SIG_IGN) signal( SIGINT,SIG_IGN); /* interrupt (rubout) only after INIT */ #endif #endif /* !NOSIGNALS */ /* ================ main particle generation/propagation loop ================ */ #ifdef USE_MPI /* sliced Ncount on each MPI node */ mcncount = mpi_node_count > 1 ? floor(mcncount / mpi_node_count) : mcncount; /* number of rays per node */ #endif // MT specific init, note that per-ray init is empty #if RNG_ALG == 2 mt_srandom(mcseed); #endif // main raytrace work loop #ifndef FUNNEL // legacy version raytrace_all(mcncount, mcseed); #else MPI_MASTER( // "funneled" version in which propagation is more parallelizable printf("\nNOTE: CPU COMPONENT grammar activated:\n 1) \"FUNNEL\" raytrace algorithm enabled.\n 2) Any SPLIT's are dynamically allocated based on available buffer size. \n"); ); raytrace_all_funnel(mcncount, mcseed); #endif #ifdef USE_MPI /* merge run_num from MPI nodes */ if (mpi_node_count > 1) { double mcrun_num_double = (double)mcrun_num; mc_MPI_Sum(&mcrun_num_double, 1); mcrun_num = (unsigned long long)mcrun_num_double; } #endif // save/finally executed by master node/thread/host finally(); #ifdef USE_MPI MPI_Finalize(); #endif /* USE_MPI */ return 0; } /* mccode_main */ /* End of file "mccode_main.c". */ /* end of generated C code ./WOFSANS.c */