Remove old code.

TrimSPlib.js

@@ -3514,31 +3514,11 @@ function CreateInpFile() {
     // N_Layers=4
     TemplateFile=TemplateFile+"\n"+"N_Layers=numLayer";
 
-    // Then loop over the layers and for each give the following structure
-    // chemical formula, thickness, density, correction factor, number of elements
-    var TemplateLayer = "L1Comp L1d L1rho L1CK L1Elem\n";
-    // Z number of elements
-    TemplateLayer += "L1ELZ1 L1ELZ2 L1ELZ3 L1ELZ4 L1ELZ5\n";
-    // A number of elements
-    TemplateLayer += "L1ELW1 L1ELW2 L1ELW3 L1ELW4 L1ELW5\n";
-    // Weigth of element in composition
-    TemplateLayer += "L1ELC1 L1ELC2 L1ELC3 L1ELC4 L1ELC5\n";
-    // Surface binding energy of elements
-    TemplateLayer += "L1ELE1 L1ELE2 L1ELE3 L1ELE4 L1ELE5\n";
-    // Displacement energy of elements, always 30 eV??
-    TemplateLayer += "L10301 L10302 L10303 L10304 L10305\n";
-    // Bulk binding energy of elements, usually zero
-    TemplateLayer += "0 0 0 0 0\n";
-    // value A-1 of the ziegler tables
-    TemplateLayer += "L1ELST11 L1ELST21 L1ELST31 L1ELST41 L1ELST51\n";
-    // value A-2 of the ziegler tables
-    TemplateLayer += "L1ELST12 L1ELST22 L1ELST32 L1ELST42 L1ELST52\n";
-    // value A-3 of the ziegler tables
-    TemplateLayer += "L1ELST13 L1ELST23 L1ELST33 L1ELST43 L1ELST53\n";
-    // value A-4 of the ziegler tables
-    TemplateLayer += "L1ELST14 L1ELST24 L1ELST34 L1ELST44 L1ELST54\n";
-    // value A-5 of the ziegler tables
-    TemplateLayer += "L1ELST15 L1ELST25 L1ELST35 L1ELST45 L1ELST55";
+    // Each layer contributes 12 data lines after the layer header:
+    // Z, A, composition fraction, elastic energy, displacement energy,
+    // bulk binding energy, then the five stopping-coefficient rows.
+    // These lines are built dynamically from the parsed composition, so
+    // they now support any number of elements up to the Fortran MAXEL.
 
     let projectile = All['ProjType'];
     All['ProjZ'] = elemPars[projectile].Z;
@@ -3550,7 +3530,8 @@ function CreateInpFile() {
 
     // Loop over layers an create appropriate values
     for (var i=1; i<=All['numLayer'];i++){
-	// Arry containing 12 lines for each layer
+	// Array containing the 12 per-layer data lines written after the
+	// "Comp d rho CK nEl" header line.
 	let newLayer = ["","","","","","","","","","","",""];
     
 	Check=0;