Commit b23b8550 authored by Matthias Redies's avatar Matthias Redies

unused variable

parent b5d3518d
...@@ -38,7 +38,7 @@ CONTAINS ...@@ -38,7 +38,7 @@ CONTAINS
! .. Local Scalars .. ! .. Local Scalars ..
REAL e,fj,fl,fn,q,rad,rhos,rhs,sea,sume,t2 REAL e,fj,fl,fn,q,rad,rhos,rhs,sea,sume,t2
REAL d,dxx,rn,rnot,z,t1,rr,r,lambd,c,bmu,weight REAL d,dxx,rn,rnot,z,t1,rr,r,lambd,c,bmu,weight
INTEGER i,j,jatom,jm,korb,n,ncmsh,nm,nm1,nst ,l,ierr INTEGER i,j,jatom,korb,n,ncmsh,nm,nm1,nst ,l,ierr
! .. ! ..
! .. Local Arrays .. ! .. Local Arrays ..
...@@ -54,7 +54,6 @@ CONTAINS ...@@ -54,7 +54,6 @@ CONTAINS
! !
IF (input%frcor) THEN IF (input%frcor) THEN
DO n = 1,atoms%ntype DO n = 1,atoms%ntype
jm = atoms%jri(n)
rnot = atoms%rmsh(1,n) ; dxx = atoms%dx(n) rnot = atoms%rmsh(1,n) ; dxx = atoms%dx(n)
ncmsh = NINT( LOG( (atoms%rmt(n)+10.0)/rnot ) / dxx + 1 ) ncmsh = NINT( LOG( (atoms%rmt(n)+10.0)/rnot ) / dxx + 1 )
ncmsh = MIN( ncmsh, DIMENSION%msh ) ncmsh = MIN( ncmsh, DIMENSION%msh )
......
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