diff options
Diffstat (limited to 'var/spack/repos/builtin/packages/nek5000/add_fjfortran.patch')
| -rw-r--r-- | var/spack/repos/builtin/packages/nek5000/add_fjfortran.patch | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/var/spack/repos/builtin/packages/nek5000/add_fjfortran.patch b/var/spack/repos/builtin/packages/nek5000/add_fjfortran.patch new file mode 100644 index 0000000000..0739863bda --- /dev/null +++ b/var/spack/repos/builtin/packages/nek5000/add_fjfortran.patch @@ -0,0 +1,47 @@ +diff -u -r -N a/core/comm_mpi.f b/core/comm_mpi.f +--- a/core/comm_mpi.f 2020-09-14 09:56:13.000000000 +0900 ++++ b/core/comm_mpi.f 2020-09-14 09:58:51.000000000 +0900 +@@ -736,7 +736,7 @@ + + call gop_test(ivb) ! added, Jan. 8, 2008 + +- log_np=log2(np) ++ log_np=int(log2(real(np))) + np2 = 2**log_np + if (np2.eq.np) call gp2_test(ivb) ! added, Jan. 8, 2008 + +@@ -1200,7 +1200,7 @@ + ifgot=.false. + if (nid.eq.root) ifgot=.true. + +- lnp = log2(np) ++ lnp = int(log2(real(np))) + do i=1,lnp + if (ifgot) then + jnid=nid+level +diff -u -r -N a/core/makenek.inc b/core/makenek.inc +--- a/core/makenek.inc 2020-09-08 14:39:12.000000000 +0900 ++++ b/core/makenek.inc 2020-09-14 09:57:58.000000000 +0900 +@@ -234,6 +234,10 @@ + FF77="-qfixed" + PPPO="-WF," + ;; ++ *frt*) FCPP="-Cpp" ++ FR8="-Ad" ++ FF77="-Fixed -X9" ++ ;; + *) echo "ERROR: Cannot find a supported compiler!" + echo "" + read;; +diff -u -r -N a/core/map2.f b/core/map2.f +--- a/core/map2.f 2020-09-08 15:09:13.000000000 +0900 ++++ b/core/map2.f 2020-09-08 15:11:45.000000000 +0900 +@@ -654,7 +654,7 @@ + integer e,eg + + +- log2p = log2(np) ++ log2p = int(log2(real(np))) + np2 = 2**log2p + if (np2.eq.np.and.nelgv.eq.nelgt) then ! std power of 2 case + |