Remove EOL whitespace in updated synchdmlc files

Author: ftessier

HEN_HOUSE/doc/src/pirs509a-beamnrc/pirs509a-beamnrc.tex

@@ -8555,7 +8555,7 @@ \subsubsection{SYNCHDMLC}
 The default cross-sections for each leaf type are shown in Figure~\ref{synchdmlc_fig}.  The width of
 each vertical region is specified as back projected to {\tt ZMIN}.  Thus, for any width, $w_i$,
 the user inputs the value, $w_i\times\left(\frac{{\tt ZMIN}}{Z_i}\right)$, where $Z_i$ is the value of Z
-where $w_i$ is defined.  For example, for any leaf type, to define the groove width, $wg$, 
+where $w_i$ is defined.  For example, for any leaf type, to define the groove width, $wg$,
 the user would input $wg\times\left(\frac{{\tt ZMIN}}{zg}\right)$.
 
 Similar to DYNVMLC and SYNCVMLC, leaf ends can be straight, focused ({\tt ENDTYPE}=1) or cylindrical

HEN_HOUSE/omega/beamnrc/CMs/SYNCHDMLC_cm.mortran

@@ -495,17 +495,17 @@
 "I>
 "I>   Repeat 14 until coordinates of all leaves are defined once.  Leaves
 "I>   are numbered 1,2,...TOT_LEAF_$SYNCHDMLC, where numbering goes from leaf
-"I>   1 to leaf TOT_LEAF_$SYNCHDMLC. Convention is -ve to +ve 
-"I>   (ORIENT_$SYNCHDMLC=0,2) or +ve to -ve (ORIENT_$SYNCHDMLC=1,3) 
+"I>   1 to leaf TOT_LEAF_$SYNCHDMLC. Convention is -ve to +ve
+"I>   (ORIENT_$SYNCHDMLC=0,2) or +ve to -ve (ORIENT_$SYNCHDMLC=1,3)
 "I>
 "I>  14a  NEG_$SYNCHDMLC, POS_$SYNCHDMLC, NUM_$SYNCHDMLC (2F15.5,I5)
 "I>
-"I>    NEG_$SYNCHDMLC:   Min. Y (ORIENT_$SYNCHDMLC=0,2) or X 
-"I>                   (ORIENT_$SYNCHDMLC=1,3) of front opening in leaf I (ie 
-"I>                   the opening at ZMIN_$SYNCHDMLC) if ENDTYPE=1, or of 
+"I>    NEG_$SYNCHDMLC:   Min. Y (ORIENT_$SYNCHDMLC=0,2) or X
+"I>                   (ORIENT_$SYNCHDMLC=1,3) of front opening in leaf I (ie
+"I>                   the opening at ZMIN_$SYNCHDMLC) if ENDTYPE=1, or of
 "I>                   rounded end of leaf I if ENDTYPE=0.
-"I>    POS_$SYNCHDMLC:   Max. Y (ORIENT_$SYNCHDMLC=0,2) or X 
-"I>                   (ORIENT_$SYNCHDMLC=1,3) of front opening in leaf I if 
+"I>    POS_$SYNCHDMLC:   Max. Y (ORIENT_$SYNCHDMLC=0,2) or X
+"I>                   (ORIENT_$SYNCHDMLC=1,3) of front opening in leaf I if
 "I>                   ENDTYPE=1, or of rounded end of leaf I if ENDTYPE=0.
 "I>    NUM_$SYNCHDMLC:   Apply NEG_$SYNCHDMLC and POS_$SYNCHDMLC to leaves
 "I>                   I,...,I+NUM_$SYNCHDMLC-1.  Defaults to 1 if set <=0.
@@ -709,7 +709,7 @@
 "V>{p1} the value to compare with ustep
 "V> if {p1}+1.0e-5 < ustep shift it, otherwise set it to ustep
 "V> Note: if above condition failed, this used to leave {p1}
-"V> unshifted, which led to transport errors 
+"V> unshifted, which led to transport errors
 ;
 REPLACE {$GEO_SHIFT_1_(#)} WITH {
   ;IF({P1}~=0.00 ) [
@@ -1084,13 +1084,13 @@ DOUBLE PRECISION   XYL(2), XYFL(2), ZFL, UVL(2), XoN, XoP, Zo, TEMP1, TEMP2,
 IF(ORIENT_$SYNCHDMLC=0)[
     XYL(1)=X(NP); XYL(2)=Y(NP);UVL(1)=U(NP);UVL(2)=V(NP);
 ]
-ELSEIF(ORIENT_$SYNCHDMLC=1)[ 
+ELSEIF(ORIENT_$SYNCHDMLC=1)[
     XYL(1)=Y(NP); XYL(2)=X(NP);UVL(1)=V(NP);UVL(2)=U(NP);
 ]
 ELSEIF(ORIENT_$SYNCHDMLC=2)[
     XYL(1)=-X(NP); XYL(2)=Y(NP);UVL(1)=-U(NP);UVL(2)=V(NP);
 ]
-ELSEIF(ORIENT_$SYNCHDMLC=3)[ 
+ELSEIF(ORIENT_$SYNCHDMLC=3)[
     XYL(1)=-Y(NP); XYL(2)=X(NP);UVL(1)=-V(NP);UVL(2)=U(NP);
 ]
 IF (IDIR=1) [
@@ -2705,7 +2705,7 @@ IF(MODE_$SYNCHDMLC=1|MODE_$SYNCHDMLC=2)["dynamic or step-and-shoot leaf inputs"
          LEAFPOS_$SYNCHDMLC((TOT_LEAF_$SYNCHDMLC-K+1)+
                       (I-1)*TOT_LEAF_$SYNCHDMLC) = tmp_coord;
        ]
-     ]   
+     ]
   ]
   CLOSE(UNIT=mlc_unit);
 
@@ -2777,7 +2777,7 @@ IF(ORIENT_$SYNCHDMLC>=2)[
     LEAFA_$SYNCHDMLC(I) = LEAFA_$SYNCHDMLC(TOT_LEAF_$SYNCHDMLC-I+1);
     LEAFA_$SYNCHDMLC(TOT_LEAF_$SYNCHDMLC-I+1) = tmp_coord;
   ]
-] 
+]
 
 IF(ENDTYPE_$SYNCHDMLC=1)[
 DO I=1, TOT_LEAF_$SYNCHDMLC [
@@ -3709,8 +3709,8 @@ IF(LEAFIS~=0) [
 				   "target leaf"
     IF(LEAFIS~=TOT_LEAF_$SYNCHDMLC & ((((NY=5|NY=6) & (NZ=7|NZ=8|NZ=9)) &
        XYL1>SURPARA1_$SYNCHDMLC(LEAFIS+1,1)*(Z(NP)-ZFOCUS_$SYNCHDMLC(1))) |
-      (I_LEAF_ALT_DEF_$SYNCHDMLC(LEAFTYPE_$SYNCHDMLC(LEAFIS),1,6)=1 & 
-       NY=6 & NZ>1 & 
+      (I_LEAF_ALT_DEF_$SYNCHDMLC(LEAFTYPE_$SYNCHDMLC(LEAFIS),1,6)=1 &
+       NY=6 & NZ>1 &
        XYL1>SURPARA1_$SYNCHDMLC(LEAFIS+1,3)*(Z(NP)-ZFOCUS_$SYNCHDMLC(1))))) [
           LEAFIS=LEAFIS+1;
           TEMP1=SURPARA1_$SYNCHDMLC(LEAFIS,1)*(Z(NP)-ZFOCUS_$SYNCHDMLC(1));
@@ -3800,9 +3800,9 @@ IF(LEAFIS~=0) [
                 ]
            ];
          ]
-         ELSEIF(LEAFIS ~=1 & NY<=2 & 
+         ELSEIF(LEAFIS ~=1 & NY<=2 &
            ((LEAFTYPE_$SYNCHDMLC(LEAFIS) = 3 & NZ<=3) |
-            (LEAFTYPE_$SYNCHDMLC(LEAFIS) = 5 & NZ<=4)))[ 
+            (LEAFTYPE_$SYNCHDMLC(LEAFIS) = 5 & NZ<=4)))[
            "here we are in an isocenter leaf
            "check if particle is in region of previous leaf"
            IF(XYL1<SURPARA1_$SYNCHDMLC(LEAFIS-1,7)*

HEN_HOUSE/omega/beamnrc/CMs/SYNCHDMLC_macros.mortran

@@ -824,7 +824,7 @@ IF(LEAFTYPE_$SYNCHDMLC(LEAFIS)=2 | LEAFTYPE_$SYNCHDMLC(LEAFIS)=4) [
     ELSEIF(NY=3)[
       IF(NZ=1)[ZLHS=1; ZRHS=2;]
       ELSEIF(NZ<=5)[ZLHS=2; ZRHS=6;]
-      ELSEIF(NZ=6)[ZLHS=6; ZRHS=7;]  
+      ELSEIF(NZ=6)[ZLHS=6; ZRHS=7;]
       ELSEIF(NZ=7)[ZLHS=7; ZRHS=8;]
       ELSEIF(NZ=8)[ZLHS=8; ZRHS=9;]
       ELSE[ZLHS=9; ZRHS=10;]
@@ -856,7 +856,7 @@ IF(LEAFTYPE_$SYNCHDMLC(LEAFIS)=2 | LEAFTYPE_$SYNCHDMLC(LEAFIS)=4) [
          ELSEIF(NZ=6)[ZLHS=6; ZRHS=7;]
          ELSE[ZLHS=7; ZRHS=10;]
       ]
-    ] 
+    ]
 ]
 };
 
@@ -1231,7 +1231,7 @@ IF(LEAFTYPE_$SYNCHDMLC(LEAFIS)=2 | LEAFTYPE_$SYNCHDMLC(LEAFIS)=4) [
            ]
         ]
      ]
-   ] 
+   ]
    ELSE[
      "Isocenter Quarter"
      IF(NZ=1) [
@@ -1290,7 +1290,7 @@ IF(LEAFTYPE_$SYNCHDMLC(LEAFIS)=2 | LEAFTYPE_$SYNCHDMLC(LEAFIS)=4) [
         ]
      ]
      ELSEIF(NZ=4)[
-        IF(I_LEAF_ALT_DEF_$SYNCHDMLC(5,2,4)=1)[ 
+        IF(I_LEAF_ALT_DEF_$SYNCHDMLC(5,2,4)=1)[
            IF(NY<=5)[
               LHS=1; J=LEAFIS;
               RHS=6; I=LEAFIS;
@@ -1309,7 +1309,7 @@ IF(LEAFTYPE_$SYNCHDMLC(LEAFIS)=2 | LEAFTYPE_$SYNCHDMLC(LEAFIS)=4) [
                  IF(ZFL>ZREG_$SYNCHDMLC(J,7))[
                    LHS = 5;
                  ]
-                 ELSE[ 
+                 ELSE[
                    LHS = 7;
                  ]
               ]
@@ -1319,7 +1319,7 @@ IF(LEAFTYPE_$SYNCHDMLC(LEAFIS)=2 | LEAFTYPE_$SYNCHDMLC(LEAFIS)=4) [
               LHS=3; J=LEAFIS;
               RHS=7; I=LEAFIS;
            ]
-        ] 
+        ]
      ]
      ELSEIF(NZ<=7)[
         LHS=1; J=LEAFIS;
@@ -1346,7 +1346,7 @@ IF(LEAFTYPE_$SYNCHDMLC(LEAFIS)=2 | LEAFTYPE_$SYNCHDMLC(LEAFIS)=4) [
            ELSE[
               LHS=3; J=LEAFIS;
               RHS=7; I=LEAFIS;
-           ]    
+           ]
         ]
         ELSE[
            IF(NY=1)[

HEN_HOUSE/omega/progs/gui/beamnrc/synchdmlc.tcl

@@ -2369,7 +2369,7 @@ proc draw_SYNCHDMLC { id } {
 NOTE: This is a dynamic or step-and-shoot delivery, with leaf opening\
       coordinates defined in a file.  Leaf opening coordinates are shown for the\
       first field defined in this file."\
-            -font $helvfont -width 300 
+            -font $helvfont -width 300
     } else {
     .synchdmlc$id.show.frm.can create text 160 160 -text "xz\
             cross-section shows only those leaves that\
@@ -2379,7 +2379,7 @@ NOTE: This is a dynamic or step-and-shoot delivery, with leaf opening\
             is shown.  The xy view is at a plane at Z=ZMIN\
             (straight leaf ends) or Z=ZMIN+ZTHICK/2 (cylindrical\
             leaf ends)."\
-	    -font $helvfont -width 300 
+	    -font $helvfont -width 300
     }
 
     set xscale [expr $width/double(abs($xrange(1)-$xrange(0)))]
@@ -2673,7 +2673,7 @@ proc add_SYNCHDMLC_xy {id xscale yscale xmin ymin l m parent_w} {
 
             set a [expr ($neg($i)-$xmin)*$xscale+$l]
             if {$cmval($id,2,0)==3} {
-               set b [expr (-$lstart-$ymin)*$yscale+$m] 
+               set b [expr (-$lstart-$ymin)*$yscale+$m]
             } else {
                set b [expr ($lstart-$ymin)*$yscale+$m]
             }
@@ -3247,8 +3247,8 @@ proc add_SYNCHDMLC_sides {id yscale zscale ymin zmin zmax l m parent_w} {
         for {set i 1} {$i <= $nleaf($id)/2} {incr i} {
           set tmp_coord $neg($i)
           set neg($i) $neg([expr $nleaf($id)-$i+1])
-          set neg([expr $nleaf($id)-$i+1]) $tmp_coord 
-          set tmp_coord $pos($i)     
+          set neg([expr $nleaf($id)-$i+1]) $tmp_coord
+          set tmp_coord $pos($i)
           set pos($i) $pos([expr $nleaf($id)-$i+1])
           set pos([expr $nleaf($id)-$i+1]) $tmp_coord
         }
@@ -3629,7 +3629,7 @@ proc add_SYNCHDMLC_sides {id yscale zscale ymin zmin zmax l m parent_w} {
             if {$cmval($id,2,0)==2 || $cmval($id,2,0)==3} {
                 set y($j) [expr -1*$y($j)]
             }
-            
+
             # set y and z scale and relative position
             set y($j) [expr ($y($j)-$ymin)*$yscale+$l]
             set z($j) [expr ($z($j)-$zmin)*$zscale+$m]
@@ -3744,7 +3744,7 @@ are automaticaly "flipped," so that opening coordinates for leaf i are instead\
 applied to leaf N-i+1, where N is the total no. of leaves.  See the BEAMnrc\
 Manual for more details.}
     help_dialog $w.help "Help" $text info 0 OK
-} 
+}
 
 proc help_screwdist { w } {