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 @@
REAL, PARAMETER :: eps = 1.0e-7, isqrt3 = 1.0/sqrt(3.0),
& thrd = 1.0/3.0, mtthrd = -2.0/3.0
REAL :: lmat(3,3,8)
DATA lmat / 1.0, 0.0, 0.0, ! 1: primitive : P
REAL,PARAMETER :: lmat(3,3,8)=reshape((/
& 1.0, 0.0, 0.0, ! 1: primitive : P
& 0.0, 1.0, 0.0,
& 0.0, 0.0, 1.0,
+ -1.0, 1.0, 1.0, ! 2: Inverse (F)
......@@ -115,7 +115,7 @@
& -1.0, 0.0, 1.0,
+ 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/),(/3,3,8/))
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