Eliminating unused variables in CFML_Conf_Calc.f90

parent 898ef4ee
Pipeline #10017 passed with stages
in 13 minutes and 30 seconds
......@@ -1119,13 +1119,13 @@
!---- Local variables ----!
character(len=4) :: car,atm
integer :: i,j,k,n,n1,n2,np,jbvs
integer :: i,j,k,n,n1,n2 !,np,jbvs
integer :: nx1,nx2,ny1,ny2,nz1,nz2
integer :: i1,j1,k1,sig1,sig2,ncont
real(kind=cp) :: rx1,ry1,rz1,qval,q1,q2,rep,p,s,cose
real(kind=cp) :: rx1,ry1,rz1,qval,q1,q2,rep !,p,s,cose
real(kind=cp) :: sbvs, dd, occ, radius, rho, dmin, d_cutoff, &
dzero, alpha,c_rep,c_atr
real(kind=cp), dimension(3) :: pto,pta,step,extend
real(kind=cp), dimension(3) :: pto,pta,extend !,step
type (Atom_list_Type) :: At1, At2
logical :: anion,cation
!Coulomb constant (1/4pie0) to get energies in eV, use electron charges and distances in angstroms
......
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