Skip to content

fleur
fleur
Commit ae2739e7 authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files
Options

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

parent 6fd62fe1
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
inpgen/atom_sym.f
View file @ ae2739e7
......@@ -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