Fixes for mcstas-antlr

Author: willend

mcstas-comps/contrib/Fermi_chop2a.comp

@@ -51,15 +51,15 @@ SHARE
 
    /*routine to calculate x and y positions of a neutron in a fermi chopper */
    #pragma acc routine
-   void neutxypos(double *x, double *y, double phi, double inrad,double c[])
+   void neutxypos(double *x, double *y, double phi, double inrad, double* c)
     {      
         *x=c[0]+inrad*cos(phi);
         *y=c[1]+inrad*sin(phi);
     }
 
     /* routine to calculate the origin of a circle that describes the neutron path through the chopper */  
     #pragma acc routine
-    void calccenter(double c[],double zr[], double xr[]){
+    void calccenter(double* c, double* zr, double* xr){
       double denom, A,B,C,D,a,b;
       denom=2*(-zr[0]*xr[2] +zr[0]*xr[1]+ zr[1]*xr[2]+xr[0]*zr[2]-xr[0]*zr[1] - xr[1]*zr[2]);
        A=xr[1]-xr[2];B=xr[0]-xr[1];C=zr[2]-zr[1];D=zr[1]-zr[0];
@@ -85,7 +85,7 @@ SHARE
  * return 0 if neutron does not transmit return 1 with channel number if neutron will pass*/
     #pragma acc routine
     int checkabsorb(double phi,int *chan_num, double inrad,double inw, double insw, 
-                    double inbw, double blader, double off, double c[]){
+                    double inbw, double blader, double off, double* c){
      double xtmp,neuzr,neuxr;
      neutxypos(&neuzr,&neuxr,phi,inrad,c);
   // printf("xr:%g zr:%g phi: %g r: %g c[0]: %g c[1]: %g\n",neuxr,neuzr,phi,inrad,c[0],c[1]);

mcstas-comps/contrib/SNS_source.comp

@@ -58,7 +58,7 @@ SHARE %{
   /* ----------------------------------------------------------------
       routine to load E, I and t I data from SNS source files
   -----------------------------------------------------------------*/
-  void sns_source_load(char fname[], double *xvec, double *yvec, int xcol, int ycol,
+  void sns_source_load(char* fname, double *xvec, double *yvec, int xcol, int ycol,
     int *veclenptr, double *tcol, double *Ecol, double **Imat,int *ntvals, int *nEvals)
   {
     FILE *fp;

mcstas-comps/contrib/Vertical_T0a.comp

@@ -44,15 +44,15 @@ SHARE
 
    /*routine to calculate x and y positions of a neutron in a fermi chopper */
    #pragma acc routine
-   void neutxypos(double *x, double *y, double phi, double inrad,double c[])
+   void neutxypos(double *x, double *y, double phi, double inrad, double* c)
     {      
         *x=c[0]+inrad*cos(phi);
         *y=c[1]+inrad*sin(phi);
     }
 
     /* routine to calculate the origin of a circle that describes the neutron path through the chopper */  
     #pragma acc routine
-    void calccenter(double c[],double zr[], double xr[]){
+    void calccenter(double* c, double* zr, double* xr){
       double denom, A,B,C,D,a,b;
       denom=2*(-zr[0]*xr[2] +zr[0]*xr[1]+ zr[1]*xr[2]+xr[0]*zr[2]-xr[0]*zr[1] - xr[1]*zr[2]);
        A=xr[1]-xr[2];B=xr[0]-xr[1];C=zr[2]-zr[1];D=zr[1]-zr[0];
@@ -65,7 +65,7 @@ SHARE
 #endif
 /* function to calculate if the neutron is in the channel or not 
      * return 0 if neutron does not transmit return 1  if neutron will pass*/
-    int t0checkabsorb(double phi, double inrad,double inw1, double inw2, double c[]){
+    int t0checkabsorb(double phi, double inrad,double inw1, double inw2, double* c){
         double xtmp,neuzr,neuxr;
         neutxypos(&neuzr,&neuxr,phi,inrad,c);
      // printf("xr:%g zr:%g phi: %g r: %g c[0]: %g c[1]: %g\n",neuxr,neuzr,phi,inrad,c[0],c[1]);

mcstas-comps/examples/SNS/SNS_ARCS/SNS_ARCS.instr

@@ -119,15 +119,7 @@ COMPONENT mod=SNS_source(filename=filename,
                          Emin=Emin,
                          Emax=Emax)
 AT(0,0,-13.61) ABSOLUTE
-// COMPONENT mod=SNS_source(S_filename="source_sct521_bu_17_1.dat",
-//                          width=0.1,
-//                          height=0.12,
-//                          dist=2.5,
-//                          xw=0.1,
-//                          yh=0.12,
-//                          Emin=Emin,
-//                          Emax=Emax)
-// AT(0,0,0) ABSOLUTE
+
 COMPONENT sourceMantid=Arm()
 AT(0,0,0) RELATIVE mod
 COMPONENT core_ves=Guide_channeled(w1=0.094285,h1=0.11323,w2=0.084684,h2=0.102362,l=1.2444,
@@ -186,8 +178,6 @@ COMPONENT Guide_1_3_3=Guide_channeled(w1=0.06440,h1=0.07609,w2=0.06342,h2=0.0744
             W=Gu_W,nslit=1,d=0.0,alphax=Gu_alpha,alphay=Gu_alpha)
 AT(0,0,8.04145) RELATIVE mod
 
-/*COMPONENT T0_chopp=Arm()*/
-
 COMPONENT t0_chopp=Vertical_T0a(len=0.474,w1=0.08,w2=0.101,nu=T0_nu,delta=0.0,tc=phase_T0,
                  ymin=-0.045,ymax=0.045)
 AT(0,0,LT0)RELATIVE mod
@@ -219,10 +209,9 @@ COMPONENT Guide_2_1_5=Guide_channeled(w1=0.05745,h1=0.06417,w2=0.05637,h2=0.0622
             W=Gu_W,nslit=1,d=0.0,alphax=Gu_alpha,alphay=Gu_alpha)
 AT(0,0,11.08340) RELATIVE mod
 
-COMPONENT fermi_chopp=Fermi_chop2a(len=0.10,w=0.06,ymin=-.0325,ymax=.0325,
+  COMPONENT fermi_chopp=Fermi_chop2a(len=0.10,w=0.06,ymin=-.0325,ymax=.0325,
                                         nu=Fermi_nu,delta=0.0,tc=phasefc1
                                        ,nchan=nchans,bw=0.0005,blader=nrad)
-/*COMPONENT fermi_chopp=Arm()*/
 AT (0,0,LF) RELATIVE mod
 /* COMPONENT Monitor1=TOF_monitor(xmin=-0.035,xmax=0.035,ymin=-0.035,ymax=0.035, */
 /*                 tmin=tplotmin, */