Get MCNP620 working with gfortran 7

ljacobson64 · Aug 22, 2018 · 52bf1f7 · 52bf1f7
1 parent 6b0d526
commit 52bf1f7
Show file tree

Hide file tree

Showing 2 changed files with 50 additions and 1 deletion.
diff --git a/mcnp_source.sh b/mcnp_source.sh
@@ -16,5 +16,5 @@ cp -r MCNPX27/Source MCNPX27/Source_orig
 cp -r MCNP602/Source MCNP602/Source_orig
 cp -r MCNP610/Source MCNP610/Source_orig
 cp -r MCNP611/Source MCNP611/Source_orig
-cp -r MCNP611/Source MCNP620/Source_orig
+cp -r MCNP620/Source MCNP620/Source_orig
 ./patch.sh
diff --git a/patch/mcnp620.patch b/patch/mcnp620.patch
@@ -1,3 +1,52 @@
+diff -rN '--unified=0' MCNP620/Source/import/laqmod31.F90 MCNP620/Source_new/import/laqmod31.F90
+--- MCNP620/Source/import/laqmod31.F90
++++ MCNP620/Source_new/import/laqmod31.F90
+@@ -41114 +41113,0 @@
+-      use mcnp_random, only : rang
+@@ -41155 +41153,0 @@
+-      use mcnp_random, only : rang
+@@ -42270 +42267,0 @@
+-      use mcnp_random, only : rang
+@@ -42706 +42702,0 @@
+-      use mcnp_random, only : rang
+@@ -42939 +42934,0 @@
+-      use mcnp_random, only : rang
+@@ -42972 +42966,0 @@
+-      use mcnp_random, only : rang
+@@ -42994 +42987,0 @@
+-      use mcnp_random, only : rang
+@@ -43153 +43145,0 @@
+-      use mcnp_random, only : rang
+@@ -43209 +43200,0 @@
+-      use mcnp_random, only : rang
+@@ -43237 +43227,0 @@
+-      use mcnp_random, only : rang
+@@ -43257 +43246,0 @@
+-      use mcnp_random, only : rang
+@@ -43310 +43298,0 @@
+-      use mcnp_random, only : rang
+@@ -43343 +43330,0 @@
+-      use mcnp_random, only : rang
+@@ -43536 +43522,0 @@
+-      use mcnp_random, only : rang
+@@ -43639 +43624,0 @@
+-      use mcnp_random, only : rang
+@@ -43842 +43826,0 @@
+-      use mcnp_random, only : rang
+@@ -43928 +43911,0 @@
+-      use mcnp_random, only : rang
+@@ -43987 +43969,0 @@
+-      use mcnp_random, only : rang
+@@ -45528 +45509,0 @@
+-      use mcnp_random, only : rang
+@@ -45680 +45660,0 @@
+-      use mcnp_random, only : rang
+@@ -45855 +45834,0 @@
+-      use mcnp_random, only : rang
+@@ -45929 +45907,0 @@
+-      use mcnp_random, only : rang
+@@ -45963 +45940,0 @@
+-      use mcnp_random, only : rang
 diff -rN '--unified=0' MCNP620/Source/src/burn_out.F90 MCNP620/Source_new/src/burn_out.F90
 --- MCNP620/Source/src/burn_out.F90
 +++ MCNP620/Source_new/src/burn_out.F90