Commit ae2739e7 authored by Daniel Wortmann's avatar Daniel Wortmann

gfortran was unhappy with data statement for some strange reason, changed it to parameter

parent 6fd62fe1
...@@ -91,8 +91,8 @@ ...@@ -91,8 +91,8 @@
REAL, PARAMETER :: eps = 1.0e-7, isqrt3 = 1.0/sqrt(3.0), REAL, PARAMETER :: eps = 1.0e-7, isqrt3 = 1.0/sqrt(3.0),
& thrd = 1.0/3.0, mtthrd = -2.0/3.0 & thrd = 1.0/3.0, mtthrd = -2.0/3.0
REAL :: lmat(3,3,8) REAL,PARAMETER :: lmat(3,3,8)=reshape((/
DATA lmat / 1.0, 0.0, 0.0, ! 1: primitive : P & 1.0, 0.0, 0.0, ! 1: primitive : P
& 0.0, 1.0, 0.0, & 0.0, 1.0, 0.0,
& 0.0, 0.0, 1.0, & 0.0, 0.0, 1.0,
+ -1.0, 1.0, 1.0, ! 2: Inverse (F) + -1.0, 1.0, 1.0, ! 2: Inverse (F)
...@@ -115,7 +115,7 @@ ...@@ -115,7 +115,7 @@
& -1.0, 0.0, 1.0, & -1.0, 0.0, 1.0,
+ 1.0, 0.0, 0.0, ! 8: Inverse (A) + 1.0, 0.0, 0.0, ! 8: Inverse (A)
& 0.0, 1.0, -1.0, & 0.0, 1.0, -1.0,
& 0.0, 1.0, 1.0/ & 0.0, 1.0, 1.0/),(/3,3,8/))
istep0 = 0 istep0 = 0
! !
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment