Commit 6fd62fe1 authored by Daniel Wortmann's avatar Daniel Wortmann

gfortran did not like intrinic statements, so removed them

parent dc64847d
......@@ -50,9 +50,6 @@ CONTAINS
INTEGER index2(stars%n2d)
! ..
! ..
! .. Intrinsic Functions ..
INTRINSIC iabs,int,min0,sqrt
! ..
!
!
nfftx = 3*stars%k1d
......@@ -635,10 +632,6 @@ CONTAINS
INTEGER kr(3,sym%nop),kv(3)
INTEGER index2(stars%n2d)
! ..
! ..
! .. Intrinsic Functions ..
INTRINSIC iabs,int,min0,sqrt
! ..
!
nfftx = 3*stars%k1d
nffty = 3*stars%k2d
......
......@@ -324,9 +324,6 @@
REAL pt(3),a3(3)
REAL, ALLOCATABLE :: cdn(:,:)
CHARACTER(len=10), ALLOCATABLE :: plotname(:)
! ..
! .. Intrinsic Functions ..
INTRINSIC abs,sqrt
! ..
sfp = 2.0 * sqrt( pi_const )
a3(3) = cell%amat(3,3)
......
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