Added tetraneutron (w/ 0 resonance energy) to list of NPL::Nucleus

NPLib/Physics/NPNucleus.cxx

@@ -75,7 +75,12 @@ void Nucleus::SetUp(string isotope){
   else if(isotope=="d") isotope="2H";
   else if(isotope=="t") isotope="3H";
   else if(isotope=="a") isotope="4He";
-
+	else if(isotope=="4n"){ // tetraneutron @Eres = 0
+		string line = "004 0000   4n      32285.268   0.0005                       219.4    ys 0.6    1/2+          00 02PaDGt   B-=100";
+		Extract(line.data());
+		return;
+	}
+	
   ifstream inFile;
   string Path = getenv("NPTOOL") ;
   string FileName = Path + "/NPLib/Physics/nubtab03.asc";
@@ -106,6 +111,10 @@ Nucleus::Nucleus(int Z, int A)
 {
   //----------- Constructor Using nubtab03.asc by Z and A----------
 
+	if(Z==0 && A==4){
+		SetUp("4n");
+		return;
+	}
   // open the file to read and check if it is open
   ifstream inFile;
   string Path = getenv("NPTOOL") ;