Merge lp:~albertog/siesta/merge-OSSO into lp:siesta

[Alberto Garcia]

Commit message to be written.

[Nick Papior (nickpapior)]

There are changes in parts of the code which are not relevant.

Specifically the cold smearing method has been removed! Possibly due to a faulty merge.

Also there were changes to TD-DFT.

I would like a clean-up of comments which is scattered all-over.

Lastly, the use of the spin type should be used throughout (we might as well do it now).

My personal opinion would be to:
spin%SO_offsite change to spin%SO_off

spin%SO_offsite should *only* be true for SO calculations AND off site version. Otherwise false.
This allows easier if-statements throughout the code.

review: Needs Fixing

[lp:~albertog/siesta/merge-OSSO]

688. By Alberto Garcia on 2018-04-19

Sync to trunk-687 (orbmom control in 'state_analysis')

689. By Alberto Garcia on 2018-04-19

Remove irrelevant differences with trunk version

690. By Alberto Garcia on 2018-04-19

Introduce spin%SO_onsite for readability. Add citation

691. By Alberto Garcia on 2018-04-20

Re-instate files in Obj

692. By Alberto Garcia on 2018-04-20

Update and fix cold-smearing omissions in manual

693. By Alberto Garcia on 2018-04-20

Removal of comments and other cosmetics in some routines

694. By Alberto Garcia on 2018-04-20

Removal of comments and other cosmetics in more routines

[Nick Papior (nickpapior)]

Great work Alberto!

I have amended comments again.

If you want, I can have a go on a PR for this branch?

review: Needs Fixing

[Alberto Garcia (albertog)]

Ok. Dfscf and rhoofd are going to be changed later.

On Fri, Apr 20, 2018, 11:59 Nick Papior <email address hidden> wrote:

> Review: Needs Fixing
>
> Great work Alberto!
>
> I have amended comments again.
>
> If you want, I can have a go on a PR for this branch?
>
> Diff comments:
>
> > === modified file 'Docs/siesta.tex'
> > --- Docs/siesta.tex 2018-04-17 13:07:32 +0000
> > +++ Docs/siesta.tex 2018-04-20 09:43:43 +0000
> > @@ -3721,10 +3728,12 @@
> >
> > \option[spin-orbit]%
> > \fdfindex*{Spin:spin-orbit}%
> > - Perform a calculation with spin-orbit coupling. This requires the
> > + Performs calculations including the spin--orbit coupling. By
> default the
> > + off--site SO option is set to \fdftrue. To perform an on--site SO
> calculations
> > + this option has to be {\bf spin-orbit+onsite}. This requires the
>
> No \bf, \textbf{...} ;)
>
> > pseudopotentials to be relativistic.
> >
> > - See Sect.~\ref{sec:spin-orbit}.
> > + See Sect.~\ref{sec:spin-orbit} for further specific spin--orbit
> options.
> >
> > \end{fdfoptions}
> >
> > @@ -3775,96 +3784,148 @@
> > \siesta\ includes the posibility to perform fully relativistic
> > calculations by means of the inclusion in the total Hamiltonian not
> > only the Darwin and velocity correction terms~(Scalar--Relativistic
> > -calculations), but also the spin-orbit~(SO) contribution. The
> > -implementation is based on the on-site SO approximation, where only
> > -the intra-SO contribution of each atom is taken into account. See
> > -\fdf{Spin} on how to turn on the spin-orbit coupling.
> > +calculations), but also the spin--orbit~(SO) contribution. There are
> > +two approaches regarding the SO formalism: on--site and off--site.
> > +Within the on--site approximation only the intra--atomic SO
> contribution is taken
> > +into account. In the off--site scheme additional neighboring
> > +interactions are also included in the SO term. By default, the
> off--site SO
> > +formalism is switched on, being necessary to change the \fdf{Spin} flag
> > +in the input file if the on--site approximation wants to be used. See
> > +\fdf{Spin} on how to handle the spin--orbit coupling.
> >
> > -The current implementation in \siesta\ has been implemented by
> > -Dr. Ram\'on Cuadrado based on the original on-site SO formalism and
> > -implementation developed by Prof. Jaime Ferrer, \textit{et al}~(L
> > +The on--site spin-orbit scheme in this version of \siesta\ has been
> implemented by
> > +Dr. Ram\'on Cuadrado based on the original on--site SO formalism and
> > +implementation developed by Prof. Jaime Ferrer and his collaborators
> \textit{et al}~(L
> > Fern\'andez--Seivane, M Oliveira, S Sanvito, and J Ferrer, Journal of
> > -Physics: Condensed Matter, 2006 vol. 18 pp. 7999; L
> > -Fern\'andez--Seivane and Jaime Ferrer, Phys. Rev. Lett. 99, 2007,
> > -183401).
> > -
> > -The inclusion of the SO term in the Hamiltonian~(and in the Density
> > -Matrix) will involve the increase of non-zero elements in their
> > -off-diagonal parts, i.e., for some $\mu\nu$ orbitals,
> > -H$^{\sigma\sigma'}_{\mu\nu}$(DM$^{\sigma\sigma'}_{\mu\nu}$)
> > +Physics: Condensed Matter, {\bf 18...

[lp:~albertog/siesta/merge-OSSO]

695. By Nick Papior on 2018-04-21

Fixes to manual and removal of comments

696. By Alberto Garcia on 2018-04-22

Sync to trunk-688: Clarify code in dfscf for SOC (no bug)

The code was confusing, since the grid potential has only four
bona-fide components, but was artificially extended to match the
8-component DM in the SOC case. A clarification (and simplification)
can be achieved if the DM is explicitly "spin-box hermitified" in the
same way as it is done in the computation of the charge density.

(No overcounting bug in this branch: it was corrected in revno 654)

697. By Alberto Garcia on 2018-04-22

Simplify rhoofd in SOC case

The code had several special cases for the 'offsite' flavor that did
not really change the results. Now the 'rhoofd' routine is the same
for both 'onsite' and 'offsite' flavors, as it should.

698. By Alberto Garcia on 2018-04-22

Re-fix known issues kept active for debugging purposes

-- The SO contribution of the highest-l pseudopotential was not
taken into account. This bug had been re-introduced in revno 668.

-- The computation of two-center integrals needs a larger NRTAB for
extra accuracy. This change was not brought over when synching to the
trunk version in revno 668.

The 'npotu' bug is now fixed by default (it is still possible to
re-enable it via the line 'keep-npotu-bug T' in the fdf file).

NRTAB is now hardwired to the trunk value of 1024 (no changes allowed
without editing the code).

699. By Alberto Garcia on 2018-04-23

Make comments more concise in compute_energies and clarify signs

700. By Alberto Garcia on 2018-04-23

Put so_strength in m_spin. Clarify handling of TRSym

To avoid dispersion, the artificial 'spin-orbit-strength' is now
stored in the 'spin' derived type.

The user is now only allowed to change TRSym if the type of
calculation permits it.

701. By Nick Papior on 2018-04-23

Convert H0_offsiteSO to H_so_off_2D as a class object. Cosmetics

-- Create H_so_off_2D object to hold the offsite SO Hamiltonian

-- Pass H_so_off explicitly to nlefsm_SO_off (new name)

-- Fixed some possible inconsistencies in the conversion between
   complex and real/imaginary part without kind specifications.

-- Clarified usage in setup_hamiltonian. Now the structure has been
   re-assigned as prior to the OSSO implementation.

702. By Alberto Garcia on 2018-04-24

Re-implement spin-orbit-strength feature at the atom level

The 'offsite' flavor of SOC does not separate 'ion' and 'SO'
contributions to the forces, so the previous implementation of the SO
factor feature gave wrong forces. It has been re-implemented for now
by modifying the SO parts of the semilocal potentials read from a
\code{.psf} file. Care must be taken when re-using any \code{.ion} files
produced. Recall that this is only for debugging and experimental
purposes.

703. By Alberto Garcia on 2018-04-24

Add Ge SOC bands example

704. By Alberto Garcia on 2018-04-24

Sync to trunk-689: spin-in-scf doc; remove print_initial_spin

705. By Alberto Garcia on 2018-04-24

Add Pt dimer soc example

706. By Alberto Garcia on 2018-04-24

Add FePt bulk soc example

707. By Alberto Garcia on 2018-04-24

Move detailed SOC tests to Tests/More_SOC_Examples

The recently added fast 'soc' examples can serve to test the
installation. The more detailed (and much slower) tests have
been moved to a new directory under Tests.

Tests/Makefile has new target 'tests_soc'.

708. By Alberto Garcia on 2018-04-24

Update SOC offsite notes in Docs

709. By Alberto Garcia on 2018-04-26

Sync to trunk-691: CML dicRefs, Harris 'conv', occ. of basis states, tests

710. By Alberto Garcia on 2018-04-27

Fix compilation of some Util programs

711. By Alberto Garcia on 2018-04-27

Sync to trunk-692: update imports in pexsi_local_dos

712. By Alberto Garcia on 2018-04-27

Remove possibly outdated Reference outputs for long tests

713. By Alberto Garcia on 2018-04-30

Update SOC_offsite notes in Docs

Also, remove comment in siesta.tex regarding structural optimization
with the on-site approximation.

(Thanks to Roberto Robles for input)

Unmerged revisions

=== modified file 'Docs/Contributors.txt'
--- Docs/Contributors.txt	2016-09-28 07:49:18 +0000
+++ Docs/Contributors.txt	2018-04-22 14:22:29 +0000
@@ -30,7 +30,8 @@
 Thomas Archer
 Luis C. Balbas
 Xavier Blase
-Ramon Cuadrado
+Jorge I. Cerda,
+Ramon Cuadrado,
 Michele Ceriotti
 Raul de la Cruz
 Gabriel Fabricius

=== added file 'Docs/Off_Site_Spin_Orbit.pdf'
Binary files Docs/Off_Site_Spin_Orbit.pdf	1970-01-01 00:00:00 +0000 and Docs/Off_Site_Spin_Orbit.pdf	2018-04-22 14:22:29 +0000 differ
=== modified file 'Docs/siesta.tex'
--- Docs/siesta.tex	2018-04-17 13:07:32 +0000
+++ Docs/siesta.tex	2018-04-22 14:22:29 +0000
@@ -214,7 +214,8 @@
 Thomas Archer,
 Luis C. Balbas,
 Xavier Blase,
-Ramon Cuadrado,
+Jorge I. Cerd\'a,
+Ram\'on Cuadrado,
 Michele Ceriotti,
 Raul de la Cruz,
 Gabriel Fabricius,
@@ -2241,6 +2242,12 @@
 The default is \emph{one} KB projector from each angular momentum,
 constructed from the nodeless eigenfunction.
 
+For full spin-orbit calculations, the program generates $lj$
+projectors using the $l+1/2$ and $l-1/2$ components of the
+(relativistic) pseudopotentials. In this case the specification of the
+reference energies for projectors is not changed: only $l$ is
+relevant.
+
 \end{fdfentry}  
 
 
@@ -3251,7 +3258,7 @@
     coordinates rigidly to have them positive, by using
     \fdf{AtomicCoordinatesOrigin}.  See the
     \program{Sies2arc}\index{Sies2arc@\textsc{Sies2arc}} utility in the
-    \program{Util/} directory for generating \sysfile*{.arc} files for CERIUS animation.
+    \program{Util/} directory for generating \sysfile*{arc} files for CERIUS animation.
 
   \end{fdflogicalF}
 
@@ -3721,10 +3728,12 @@
 
     \option[spin-orbit]%
     \fdfindex*{Spin:spin-orbit}%
-    Perform a calculation with spin-orbit coupling.  This requires the
+    Performs calculations including the spin-orbit coupling. By default the 
+    off-site SO option is set to \fdftrue. To perform an on-site SO calculations 
+    this option has to be \fdf*{spin-orbit+onsite}. This requires the
     pseudopotentials to be relativistic.
 
-    See Sect.~\ref{sec:spin-orbit}.
+    See Sect.~\ref{sec:spin-orbit} for further specific spin-orbit options.
 
   \end{fdfoptions}
 
@@ -3769,96 +3778,125 @@
 \end{fdflogicalF}
 
 
-\subsection{Spin--Orbit coupling}
+\subsection{Spin-Orbit coupling}
 \label{sec:spin-orbit}
 
 \siesta\ includes the posibility to perform fully relativistic
 calculations by means of the inclusion in the total Hamiltonian not
 only the Darwin and velocity correction terms~(Scalar--Relativistic
-calculations), but also the spin-orbit~(SO) contribution. The
-implementation is based on the on-site SO approximation, where only
-the intra-SO contribution of each atom is taken into account. See
-\fdf{Spin} on how to turn on the spin-orbit coupling.
+calculations), but also the spin-orbit~(SO) contribution. There are
+two approaches regarding the SO formalism: on-site and off-site.
+Within the on-site approximation only the intra-atomic SO
+contribution is taken into account. In the off-site scheme additional
+neighboring interactions are also included in the SO term. By default,
+the off-site SO formalism is switched on, being necessary to change
+the \fdf{Spin} flag in the input file if the on-site approximation
+wants to be used. See \fdf{Spin} on how to handle the spin-orbit
+coupling.
 
-The current implementation in \siesta\ has been implemented by
+The on-site spin-orbit scheme in this version of \siesta\ has been implemented by
 Dr. Ram\'on Cuadrado based on the original on-site SO formalism and
-implementation developed by Prof. Jaime Ferrer, \textit{et al}~(L
+implementation developed by Prof. Jaime Ferrer and his collaborators \textit{et al}~(L
 Fern\'andez--Seivane, M Oliveira, S Sanvito, and J Ferrer, Journal of
-Physics: Condensed Matter, 2006 vol. 18 pp. 7999; L
-Fern\'andez--Seivane and Jaime Ferrer, Phys. Rev. Lett. 99, 2007,
-183401).
-
-The inclusion of the SO term in the Hamiltonian~(and in the Density
-Matrix) will involve the increase of non-zero elements in their
-off-diagonal parts, i.e., for some $\mu\nu$ orbitals,
-H$^{\sigma\sigma'}_{\mu\nu}$(DM$^{\sigma\sigma'}_{\mu\nu}$)
-[$\sigma,\sigma'$=$\uparrow,\downarrow$] will be $\neq$0. This is
+Physics: Condensed Matter, \textbf{18}, 7999 (2006); L Fern\'andez--Seivane 
+and Jaime Ferrer, Phys. Rev. Lett. \textbf{99}, 183401 (2007)).
+
+The off-site scheme has been implemented by
+Dr. Ram\'on Cuadrado and Dr. Jorge I. Cerd\'a based on their initial 
+work~(R. Cuadrado and J. I. Cerd\'a ``Fully relativistic pseudopotential 
+formalism under an atomic orbital basis: spin-orbit splittings and 
+magnetic anisotropies'', J. Phys.: Condens. Matter \textbf{24}, 086005 (2012); 
+``In-plane/out-of-plane disorder influence on the magnetic anisotropy of 
+Fe$_{1-y}$Mn$_y$Pt-L1(0) bulk alloy'', R. Cuadrado, Kai Liu, Timothy 
+J. Klemmer and R. W. Chantrell, Applied Physics Letters, \textbf{108}, 
+123102 (2016)).  
+
+The inclusion of the SO term in the Hamiltonian (and in the Density
+Matrix) causes an increase in the number of non-zero elements in their
+off-diagonal parts, i.e., for some $(\mu,\nu)$ pair of basis
+orbitals, $\mathbf H^{\sigma\sigma'}_{\mu\nu}$ ($\mathbf{DM}^{\sigma\sigma'}_{\mu\nu}$)
+[$\sigma,\sigma'=\uparrow,\downarrow$] will be $\neq0$. This is
 mainly due to the fact that the $\mathbf L\cdot\mathbf S$ operator
-will promote the mixing between different spin-up/down components. The
-terms responsible of this matrices expansion are the
-exchange-correlation potential and the SO. The remaining terms such as
-the kinetic energy or Hartree contribution do not depend of the spin
-orientations and hence will be only added to the total
-Hamiltonian~(and DM) to their diagonal parts.
-
-The current SO formalism enables the possibility of several types of calculations:
+will promote the mixing between different spin-up/down components.
+In addition, these $\mathbf H^{\sigma\sigma'}_{\mu\nu}$ (and
+$\mathbf{DM}^{\sigma\sigma'}_{\mu\nu}$) elements will be complex, in contrast
+with typical polarized/non-polarized calculations where these
+matrices are purely real. Since the spin-up and spin-down manifolds
+are essentially mixed, the solver has to deal with matrices whose
+dimensions are twice as large as for the collinear (unmixed) spin
+problem. Due to this, we advise to take special
+attention to the memory needed to perform a spin-orbit calculation.
+
+
+Unless explicitly advised the following type of calculation can be carried out 
+regardless of whether on-site or off-site approximation is employed: 
 \begin{itemize}
   % 
   \item Selfconsistent calculations for gamma point as well as for
-  bulks~(Not yet implemented for optimizations).
-  % 
-  \item Magnetic Anisotropy Energy~(MAE) can be easily calculated. From
-  first principles calculations, MAE is obtained after subtract the
-  total selfconsistent energy in two different orientations, usually the
-  total energy associated with easy axis from the hard axis. In \siesta\
-  it is possible to perform several self-consistent calculations for
-  different magnetization orientations using the specific block
-  \fdf{DM.InitSpin} in the fdf file. In doing so one will be able to
-  include the initial orientation angles of the magnetization for each
-  atom, as well as an initial value of their net magnetic moments.
-  % 
-  \item By means of Mulliken analysis, after the self-consistent
+  bulks.
+  %
+  \item Structure optimizations %% only supported by the off-site SO
+    %% formalism *** Why ?
+  %
+  %%% *** Incompatible... \item LDA+U calculations~(See Sect.\ref{sec:lda+u} for further info).
+  % 
+  \item Magnetic Anisotropy Energy~(MAE) can be easily
+    calculated. From first principles it is obtained after subtracting
+    the total selfconsistent energy calculated for two different
+    magnetic orientations. In \siesta\ it is possible to perform
+    calculations with different initial magnetic orderings
+    by means of the use of the block \fdf{DM.InitSpin} in the fdf
+    file. In doing so one will be able to include the initial
+    orientation angles of the magnetization for each atom, as well as
+    an initial value of its net magnetic moments.
+  % 
+  \item By means of Mulliken analysis, after the selfconsistent
   procedure, local spin and orbital moments can be calculated by means
   of the flags \fdf{WriteMullikenPop} and \fdf{WriteOrbMom}.
+  % 
 \end{itemize}
 
-Note: Due to the small SO energy value contribution to the total
-energy, the level of precision requiered to perform a proper fully
-relativistic calculation during the selfconsistent process is quite
-demanding. The following values must be carefully converged and
-checked for each specific system to assure that the results are
-accurate enough: \fdf{SCF.H!Tolerance} during the
-selfconsistency~(typically <10$^{-5}$eV), \fdf{ElectronicTemperature},
-\textbf{k}-point sampling and high values of
-\fdf{MeshCutoff}~(specifically for extended solids). In general, one
-can say that a good calculation will have high number of k--points,
-low \fdf{ElectronicTemperature}, extremely small \fdf{SCF.H!Tolerance}
-and high values of \fdf{MeshCutoff}.  We encourage the user to test
-carefully these options for each system. An additional point to take
-into account when the spin--orbit contribution is included is the
-mixing scheme employed. You are encouraged to use \fdf{SCF.Mix}
-\fdf*{hamiltonian} instead of the density matrix, due to the fact that
-the convergence speed increases considerably for the first case. In
-addition, the pseudopotentials have to be well generated and tested
-for each specific system and they have to be generated in their fully
-relativistic form and use the non-linear core corrections.
- 
+Note: Due to the small SO contribution to the total energy, the level
+of precision required to perform a proper fully relativistic
+calculation during the selfconsistent process is quite demanding. The
+following values must be carefully converged and checked for each
+specific system to assure that the results are accurate enough:
+\fdf{SCF.H!Tolerance} during the selfconsistency (typically between
+$10^{-3}\,\mathrm{eV}$ -- $10^{-4}\,\mathrm{eV}$),
+\fdf{ElectronicTemperature}, \textbf{k}--point sampling and high
+values of \fdf{MeshCutoff}~(specifically for extended solids). In
+general, one can say that a good calculation will have high number of
+\textbf{k}--points, low \fdf{ElectronicTemperature}, extremely small
+\fdf{SCF.H!Tolerance} and high values of \fdf{MeshCutoff}.  We
+encourage the user to test carefully these options for each system. An
+additional point to take into account is the mixing scheme
+employed. You are encouraged to use \fdf{SCF.Mix:hamiltonian}
+(currently is set up by default) instead of density matrix mixing,
+since it speeds up the convergence.  The pseudopotentials have to be
+properly generated and tested for each specific system and they have
+to be in their fully relativistic form, together with the non-linear
+core corrections. Finally it is worth to mention that the
+selfconsistent convergence for some non-highly symmetric
+magnetizations directions with respect to the physical symmetry axis
+could still be difficult.
+
 \begin{fdfentry}{Spin!OrbitStrength}[real]<1.0>
 
-  It allows to vary the strength of the spin-orbit interaction from
-  zero to any positive value, including the physical value. This flag
-  is only active when \fdf{Spin} is set to \fdf*{spin-orbit}.
+  It allows to vary the strength of the 
+  spin-orbit interaction from zero to any positive value. It can be
+  used for both the on-site and off-site SOC flavors, but only for
+  debugging and testing purposes, as the only physical value is 1.0.
 
 \end{fdfentry}
 
 \begin{fdflogicalF}{WriteOrbMom}
 
-  If \fdftrue, a table is provided in the main output file, which
+  If \fdftrue, a table is provided in the output file that
   includes an estimation of the vector orbital magnetic
-  moments, in units of the Bohr magneton, projected onto each orbital
-  and also onto each atom. The estimation for the orbital moments is
-  based on a two-center approximation, and makes use of the Mulliken
-  population analysis.
+  moments, in units of the Bohr magneton, projected 
+  onto each orbital and also onto each atom. The estimation for the 
+  orbital moments is based on a two-center approximation, and makes use 
+  of the Mulliken population analysis.
 
   If \fdf{MullikenInScf} is \fdftrue, this information is printed at
   every scf step.
@@ -3866,6 +3904,7 @@
 \end{fdflogicalF}
 
 
+
 \subsection{The self-consistent-field loop}
 
 \textbf{IMPORTANT NOTE: Convergence of the Kohn-Sham energy and forces}
@@ -4988,7 +5027,7 @@
   \index{reading saved data!density matrix}
   
   Instructs to read the density matrix stored in file
-  \sysfile{.DM} by a previous run.
+  \sysfile{DM} by a previous run.
   
   \siesta\ will continue even if \sysfile*{DM} is not found.
 
@@ -9006,8 +9045,8 @@
 Enable an experimental timer which is based on wall time on the master
 node and is aware of the tree-structure of the timed sections. At the
 end of the program, a report is generated in the output file, and a
-{\tt time.json} file in JSON format is also written. \index{JSON
-  timing report@{\bf JSON timing report}} This file can be used by
+\file{time.json} file in JSON format is also written. \index{JSON
+  timing report@\textbf{JSON timing report}} This file can be used by
 third-party scripts to process timing data.
 
   \note, if used with the PEXSI solver (see Sec.~\ref{SolverPEXSI})
@@ -10559,9 +10598,9 @@
 
 \begin{fdflogicalF}{TDED.Saverho}
 
-If \fdftrue\ the instantaneous time-dependent density is saved to
-\texttt{ <istep>}.\texttt{TDRho}\index{TDRho@{\bf TDRho}} after every
-\fdf{TDED.Nsaverho} number of steps.
+  If \fdftrue\ the instantaneous time-dependent density is saved to
+  \file{<istep>.TDRho} after every \fdf{TDED.Nsaverho} number of
+  steps.
 
 \end{fdflogicalF}
 

=== modified file 'Src/Makefile'
--- Src/Makefile	2018-04-22 13:38:14 +0000
+++ Src/Makefile	2018-04-22 14:22:29 +0000
@@ -637,7 +637,7 @@
 compute_ebs_shift.o: m_mpi_utils.o parallel.o precision.o
 compute_energies.o: atomlist.o class_SpData1D.o class_SpData2D.o dhscf.o
 compute_energies.o: files.o m_dipol.o m_energies.o m_mpi_utils.o m_ntm.o
-compute_energies.o: m_rhog.o m_spin.o precision.o siesta_geom.o
+compute_energies.o: m_rhog.o m_spin.o parallel.o precision.o siesta_geom.o
 compute_energies.o: siesta_options.o sparse_matrices.o
 compute_max_diff.o: m_mpi_utils.o precision.o
 compute_norm.o: m_mpi_utils.o m_spin.o precision.o sparse_matrices.o
@@ -932,7 +932,8 @@
 m_sparsity_handling.o: class_SpData2D.o class_Sparsity.o geom_helper.o
 m_sparsity_handling.o: intrinsic_missing.o m_interpolate.o m_region.o
 m_sparsity_handling.o: precision.o
-m_spin.o: alloc.o parallel.o precision.o sys.o units.o
+m_spin.o: alloc.o files.o m_cite.o parallel.o precision.o siesta_options.o
+m_spin.o: sys.o units.o
 m_stress.o: precision.o
 m_supercell.o: atom_graph.o class_OrbitalDistribution.o class_SpData2D.o
 m_supercell.o: intrinsic_missing.o parallel.o parallelsubs.o precision.o
@@ -1134,8 +1135,9 @@
 naefs.o: atmfuncs.o mneighb.o new_matel.o precision.o
 new_matel.o: alloc.o errorf.o interpolation.o matel_registry.o parallel.o
 new_matel.o: precision.o radfft.o spher_harm.o sys.o
-nlefsm.o: alloc.o atm_types.o atmfuncs.o atomlist.o chemical.o mneighb.o
-nlefsm.o: new_matel.o parallel.o parallelsubs.o precision.o
+nlefsm.o: alloc.o atm_types.o atmfuncs.o atomlist.o chemical.o m_spin.o
+nlefsm.o: mneighb.o new_matel.o parallel.o parallelsubs.o precision.o
+nlefsm.o: siesta_options.o sparse_matrices.o
 normalize_dm.o: atomlist.o m_mpi_utils.o m_spin.o parallel.o precision.o
 normalize_dm.o: siesta_options.o sparse_matrices.o sys.o
 obc.o: alloc.o precision.o
@@ -1305,11 +1307,12 @@
 siesta_tddft.o: wavefunctions.o
 sparse_matrices.o: alloc.o class_Fstack_Pair_Geometry_SpData2D.o
 sparse_matrices.o: class_OrbitalDistribution.o class_SpData1D.o
-sparse_matrices.o: class_SpData2D.o class_Sparsity.o precision.o
+sparse_matrices.o: class_SpData2D.o class_Sparsity.o m_spin.o precision.o
 spatial.o: precision.o
 spher_harm.o: alloc.o precision.o sys.o
 spinorbit.o: atm_types.o atmfuncs.o atmparams.o basis_types.o m_mpi_utils.o
-spinorbit.o: parallel.o parallelsubs.o precision.o pseudopotential.o sys.o
+spinorbit.o: parallel.o parallelsubs.o precision.o pseudopotential.o
+spinorbit.o: siesta_options.o sys.o
 state_analysis.o: atomlist.o born_charge.o flook_siesta.o m_energies.o
 state_analysis.o: m_fixed.o m_forces.o m_ntm.o m_spin.o m_stress.o
 state_analysis.o: m_wallclock.o parallel.o remove_intramol_pressure.o

=== modified file 'Src/atm_types.f'
--- Src/atm_types.f	2018-04-07 19:24:04 +0000
+++ Src/atm_types.f	2018-04-22 14:22:29 +0000
@@ -23,12 +23,12 @@
       integer, parameter, public  :: maxnorbs = 100
 !       Maximum number of nlm orbitals
 !
-      integer, parameter, public  :: maxn_pjnl = 10
+      integer, parameter, public  :: maxn_pjnl = 20
 !       Maximum number of projectors (not counting different "m" copies)
       integer, parameter, public  :: maxn_orbnl = 200
 !       Maximum number of nl orbitals (not counting different "m" copies)
 !       Now very large to accommodate filteret basis sets
-      integer, parameter, public  :: maxnprojs = 50
+      integer, parameter, public  :: maxnprojs = 100
 !       Maximum number of nlm projectors
 !
 
@@ -66,9 +66,11 @@
 !             1 to the total number of projectors at that l.
 !             
 !
+         logical                         ::  lj_projs = .false.
          integer                         ::  n_pjnl=0   ! num of "nl" projs
          integer                         ::  lmax_projs=0 ! l cutoff for projs
          integer, dimension(maxn_pjnl)   ::  pjnl_l     ! l of each nl proj
+         real(dp), dimension(maxn_pjnl)  ::  pjnl_j     ! j of each nl proj
          integer, dimension(maxn_pjnl)   ::  pjnl_n     ! n of each nl proj
          real(dp), dimension(maxn_pjnl)
      $                                   ::  pjnl_ekb   ! energy of
@@ -92,9 +94,10 @@
          integer, dimension(maxnprojs)   ::  pj_index
          integer, dimension(maxnprojs)   ::  pj_n
          integer, dimension(maxnprojs)   ::  pj_l
+         real(dp), dimension(maxnprojs)  ::  pj_j
          integer, dimension(maxnprojs)   ::  pj_m
          integer, dimension(maxnprojs)   ::  pj_gindex
-!
+!----------------------------
 !        LDA+U Projectors
 !        Here we follow the scheme used for the KB projectors
 !        

=== modified file 'Src/atmfuncs.f'
--- Src/atmfuncs.f	2016-04-29 07:31:13 +0000
+++ Src/atmfuncs.f	2018-04-22 14:22:29 +0000
@@ -20,6 +20,8 @@
       use atm_types
       use radial, only: rad_get, rad_func
       use spher_harm, only: rlylm
+ 
+
 
       implicit none 
 !

=== modified file 'Src/atmparams.f'
--- Src/atmparams.f	2016-01-25 16:00:16 +0000
+++ Src/atmparams.f	2018-04-22 14:22:29 +0000
@@ -21,7 +21,11 @@
 C INTEGER  NKBMX    : Maximum number of Kleinman-Bylander projectors
 C                     for each angular momentum
 
-         integer, parameter, public  :: nkbmx  =    2  
+C         For the off-site SO calculation plus semicore states
+C         there will be at least 4 KBs for each l angular momentum
+C         (for each l shell we have J = l +/- 1/2 )
+         integer, parameter, public  :: nkbmx  =    4
+
 
 C INTEGER  NSMX    : Maximum number of semicore shells for each angular
 C                    momentum present in the atom ( for normal atom nsmx=0)

=== modified file 'Src/atom.F'
--- Src/atom.F	2018-01-02 09:06:31 +0000
+++ Src/atom.F	2018-04-22 14:22:29 +0000
@@ -97,7 +97,7 @@
      .                       rco,lambda_in,atm_label,npolorb,semic,
      .                       nsemic,cnfigmx,charge_in,smass,basistype, 
      .                       ISIN,RINN,VCTE,qcoe,qyuk,qwid,
-     .                       split_norm,filtercut_in,basp, spp)
+     .                       split_norm,filtercut_in,basp,spp,lj_projs)
 
         use atm_types, only: species_info
         
@@ -105,6 +105,7 @@
 
         type(basis_def_t), pointer   :: basp
         type(species_info), intent(inout)  :: spp
+        logical, intent(in)                :: lj_projs
 
         integer, intent(in) :: izin  
 !       Atomic number (if IZ is negative it will be regarded as a set of 
@@ -242,6 +243,7 @@
         real(dp)
      .    rofi(nrmax), drdi(nrmax), s(nrmax),
      .    vps(nrmax,0:lmaxd), rphi(nrmax,0:lmaxd,nsemx),
+     .    vps_u(nrmax,0:lmaxd),
      .    vlocal(nrmax), vxc(nrmax), ve(nrmax),
      .    rho(nrmax), chcore(nrmax), rho_PAO(nrmax), auxrho(nrmax),
      .    vePAO(nrmax), qPAO(0:lmaxd,nsemx), chlocal(nrmax),
@@ -329,7 +331,7 @@
 !
 ! Reading pseudopotentials
 ! 
-          call read_vps(lmxo, lmxkb, nrval,a,b,rofi,drdi,s,vps,
+          call read_vps(lmxo, lmxkb, nrval,a,b,rofi,drdi,s,vps,vps_u,
      .        rho, chcore, zval, chgvps, nicore, irel, icorr,basp) 
 
           do ir=1,nrval
@@ -569,8 +571,8 @@
 ! Calculation of the Kleinman-Bylander projector functions
 ! 
             call KBgen(is, a,b,rofi,drdi,s,
-     .                 vps, vlocal, ve, nrval, Zval, lmxkb, 
-     .                 nkbl, erefkb, nkb, spp) 
+     .                 vps, vps_u, vlocal, ve, nrval, Zval, lmxkb, 
+     .                 nkbl, erefkb, nkb, spp, lj_projs) 
 
           elseif(flting.lt.0.0d0) then 
 !
@@ -1856,7 +1858,7 @@
 
 
       subroutine KBproj(ikb,rofi,drdi,vps,vlocal,nrwf,l,rphi,
-     .    dkbcos,ekb,proj,nrc)  
+     .    dkbcos,ekb,proj,nrc,rphi2,vii)  
 C
 C  This routine calculates the Kleinman-Bylander projector
 C  with angular momentum l.
@@ -1872,6 +1874,7 @@
      .                           rphi(*), vlocal(*)
         real(dp), intent(out) :: proj(*), dkbcos, ekb
         integer, intent(out)  :: nrc
+        real(dp), intent(inout) :: rphi2(:,:), vii(:)
 C
 C Internal variables
 C
@@ -1880,8 +1883,6 @@
      .    dnrm, vl, vphi, avgv, r, phi, dknrm,
      .    dincv, rc, sum, vij(nkbmx)
 
-        real(dp), save :: rphi2(nrmax,nkbmx), vii(nkbmx)
-
         integer   ir, jkb
 
         real(dp), parameter  :: eps=1.0d-6
@@ -2702,7 +2703,7 @@
 
 !
         subroutine read_vps(lmxo, lmxkb,
-     .             nrval,a,b,rofi,drdi,s,vps,
+     .             nrval,a,b,rofi,drdi,s,vps, vps_u,
      .             rho, chcore, zval, chgvps,
      .             nicore, irel, icorr,basp)
 
@@ -2718,14 +2719,14 @@
       
         real(dp)
      .    rofi(nrmax), drdi(nrmax), s(nrmax), vps(nrmax,0:lmaxd),
+     .    vps_u(nrmax,0:lmaxd),
      .    rho(nrmax), chcore(nrmax) 
 
         real(dp)
      .    a, b, zval
-           
         integer  nrval, lmxo, lmxkb 
-
         character nicore*4, irel*3, icorr*2
+        integer :: nup_end
 C
 C Internal variables
 C
@@ -2736,7 +2737,7 @@
      .    ea, rpb, chgvps
 
         integer  
-     .    nr, nodd, lmax, linput, npotd, npotu, ndown, l, ir, i
+     .    nr, nodd, lmax, linput, npotd, npotu, ndown, l, ir, i, nup
 
         character method(6)*10,text*70
 
@@ -2792,12 +2793,8 @@
         write(6,'(7a)')   
      .    'read_vps: ',method(1),(method(i),i=3,6)
           
-C We are going to find the charge configuration
-C used for the pseudopotential generation using the information given in
-C the 'text' variable.
-
+        !Total charge density used for the pseudopotential generation
         chgvps = vp%gen_zval
-
         write(6,'(a,f10.5)') 'Total valence charge: ', chgvps
 
         if (nicore.ne.'nc  ') then
@@ -2842,9 +2839,9 @@
         enddo 
 
 
-!       Ionic pseudopotentials   (Only 'down' used)
+!       Ionic pseudopotentials (down and up)
 
-        do 20 ndown=1,lmax+1
+        do ndown=1,lmax+1
           l = vp%ldown(ndown) 
           if (l.ne.ndown-1) then
             write(6,'(a)')
@@ -2858,40 +2855,37 @@
           enddo
           vps(1,l) = vps(2,l)     ! AG
 
-  20    continue
-
+       enddo
+       
+       vps_u = 0.0_dp
+       ! For backward compatibility with original OSSO branch,
+       ! put 'keep-npotu-bug T' in fdf file
+       ! To be removed altogether for releases
+       if (fdf_get('keep-npotu-bug',.false.))  then
+          nup_end =  min(lmax,npotu-1)
+          write(6,'(a)') 'atom: *** Buggy code in highest-l ' //
+     $                   'SO component setup enabled ***'
+       else
+          nup_end = npotu
+       endif
+       do nup=1,nup_end
+          l = vp%lup(nup) 
+          vps_u(1:nrval,l) = vp%vup(nup,1:nrval)
+          do ir=2,nrval
+            vps_u(ir,l)=vps_u(ir,l)/rofi(ir)
+          enddo
+          vps_u(1,l) = vps_u(2,l)    
+       enddo
 
 !       Core and valence charge density
 
         chcore(1:nrval) = vp%chcore(1:nrval)
         rho(1:nrval) = vp%chval(1:nrval)
-C
-C Obtain an ionic-pseudopotential if core correction for Hartree
-C potential
-!
-! AG: OBSOLETE, as the program will stop in this case.
-
-        if ((nicore.eq.'pche').or.(nicore.eq.'fche')) then
-          call vhrtre(chcore,ve,rofi,drdi,s,nrval,a)
-          do l=0,lmax
-            do ir=2,nrval
-              vps(ir,l)=vps(ir,l)+ve(ir)
-            enddo
-            vps(1,l) = vps(2,l)    ! AG
-          enddo
-        endif
-
-        return
-
- 5000   continue
-        write(6,*)
-     .      'ERROR: You are using an old pseudopotential file.',
-     .      ' Siesta needs a newer version.'
-        call die
-          
+
         end subroutine read_vps
 !
-        subroutine comKB(is,a,b,rofi,proj,l,ikb,rc,ekb,nrc,spp)
+        subroutine comKB(is,a,b,rofi,proj,l,lj_projs,jk,
+     $                   ikb,rc,ekb,nrc,spp)
 C
 C  Creates the common block with all the information about the 
 C  Kleinman-Bylander projectors.
@@ -2906,6 +2900,8 @@
         integer, intent(in)  :: l, nrc,is, ikb 
         real(dp), intent(in) :: rc, ekb, proj(nrmax), a, b,
      .       rofi(nrmax)
+        logical, intent(in)  :: lj_projs
+        integer, intent(in)  :: jk
         type(species_info), intent(inout)  :: spp
         
         character(len=40) filename
@@ -2932,10 +2928,17 @@
         
         spp%pjnl_n(n) = ikb
         spp%pjnl_l(n) = l
+        if (lj_projs) then
+           spp%pjnl_j(n) = l + (2*jk-3)*0.5_dp ! l -/+ 1/2
+           if (l == 0 ) spp%pjnl_j(n) = 0.5_dp ! special case: only jk=1
+        else
+           spp%pjnl_j(n) = 0.0_dp
+        endif
         do m = -l, l
            ntot = ntot + 1
            spp%pj_index(ntot) = n
            spp%pj_l(ntot) = l
+           spp%pj_j(ntot) = spp%pjnl_j(n)
            spp%pj_m(ntot) = m
         enddo
         spp%nprojs = ntot
@@ -2983,8 +2986,8 @@
        end subroutine comkb
 !
         subroutine KBgen(is, a,b,rofi,drdi,s, 
-     .         vps, vlocal, ve, nrval, Zval, lmxkb, 
-     .         nkbl, erefkb, nkb, spp)
+     .         vps, vps_u, vlocal, ve, nrval, Zval, lmxkb, 
+     .         nkbl, erefkb, nkb, spp, lj_projs)
 
         use basis_specs, only: restricted_grid
         use atom_options, only: new_kb_reference_orbitals
@@ -3002,28 +3005,34 @@
 
         implicit none
 
-        real(dp) 
-     .    a, b, rofi(nrmax), vps(nrmax,0:lmaxd),
+        real(dp), intent(in) ::
+     .    a, b, rofi(nrmax), vps(nrmax,0:lmaxd), vps_u(nrmax,0:lmaxd),
      .    drdi(nrmax), s(nrmax), ve(nrmax),vlocal(nrmax),
      .    Zval, erefkb(nkbmx,0:lmaxd)
 
-        integer
+        integer, intent(in) ::
      .    nrval, lmxkb, nkb, is, nkbl(0:lmaxd)
 
         type(species_info), intent(inout)  :: spp
+        real(dp), allocatable :: rphi2(:,:,:), vii(:,:)
+        real(dp), allocatable :: rphi(:,:,:)
+        real(dp), allocatable :: eref(:,:)
+
+        logical, intent(in) :: lj_projs
 C
 C Internal variables
 C
         integer 
      .    l,nprin, nnodes, ighost, nrwf, ikb, ir,
-     .    nrc, nrlimit, n_pjnl, nkbs_tot
-        real(dp)
-     .    rc(nkbmx,0:lmaxd), dkbcos(nkbmx,0:lmaxd),
-     .    ekb(nkbmx,0:lmaxd)
+     .    nrc, nrlimit, n_pjnl, nkbs_tot, jk, nj
+        real(dp) :: rc, dkbcos, ekb
                
         real(dp)
-     .    rphi(nrmax,nkbmx), rmax, dnrm, 
-     .    proj(nrmax)
+     .    rmax, dnrm, 
+     .    proj(nrmax), vp(nrmax)
+
+        character(len=2) :: jstr
+        logical :: multiple_projectors
                  
 C  The atomic wavefunctions and/or its energy derivatives are
 C  calculated only inside a sphere of radius Rmax. To define the
@@ -3056,13 +3065,20 @@
 
         spp%lmax_projs = lmxkb
         
-        ! Generalize this for lj projectors
         nkbs_tot = 0
         n_pjnl = 0
         do l = 0, lmxkb
-           n_pjnl = n_pjnl + nkbl(l)
-           nkbs_tot = nkbs_tot + nkbl(l)*(2*l+1)
+           do ikb = 1, nkbl(l)
+              n_pjnl = n_pjnl + 1
+              nkbs_tot = nkbs_tot + (2*l+1)
+              if (lj_projs .and. l>0) then  ! j=l+1/2 and j=l-1/2 shells
+                 n_pjnl = n_pjnl + 1
+                 nkbs_tot = nkbs_tot + (2*l+1)
+              endif
+           enddo
         enddo
+
+        spp%lj_projs = lj_projs
         
         ! Eventually will make the arrays allocatable
         if (n_pjnl > maxn_pjnl) then
@@ -3076,88 +3092,128 @@
         ! zero out for build-up in comkb
         spp%n_pjnl = 0   
         spp%nprojs = 0
+
+        write(6,'(/,a)')'KBgen: Kleinman-Bylander projectors: '
+
+        multiple_projectors = .false.
+
+        if (lj_projs) then
+           nj = 2
+        else
+           nj = 1
+        endif
         
+        ! Some output related to ghosts might be changed
+        ! Note ordering of projectors
+        ! Independent projector stacks for different j's
+        allocate (rphi2(nrmax,nkbmx,nj), vii(nkbmx,nj))
+        ! For the derivative option, we need a previous projector 
+        ! and the previous reference energy
+        allocate (rphi(nrmax,nkbmx,nj))
+        allocate (eref(nkbmx,nj))
         do l=0,lmxkb
-          do ir=1,nrmax
-            do ikb=1,nkbmx
-              rphi(ir,ikb)=0.0d0
-            enddo 
-            proj(ir)=0.0d0
-          enddo
+          rphi(:,:,:) = 0.0_dp
           do ikb= 1, nkbl(l)
-C
-C Atomic wavefunctions and eigenvalues
-C for the construction of the KB projectors
-C
-C If the reference energies have not been specifed, the eigenstates
-C with the condition of being zero at r(nrval) will be used.
-C       
+            do jk = 1, nj      ! j-, j+
+                
+             if (jk == 2 .and. l==0) CYCLE  ! only one proj for l=0
+             if (lj_projs .and. l>0 ) then
+              ! Set up the appropriate potential and label
+              if (jk == 1) then
+                 ! V(l-j/2) = Vdn - (l+1)/2 Vup = Vion - (l+1)/2 Vso
+                 vp(:) = vps(:,l) - 0.5_dp*(l+1)*vps_u(:,l)
+                 jstr = 'j-'
+              else
+                 ! V(l+1/2) = Vdn + l/2 Vup = Vion + l/2 Vso
+                 vp(:) = vps(:,l) + 0.5_dp*l*vps_u(:,l)
+                 jstr = 'j+'
+              endif
+             else
+              vp(:) = vps(:,l)
+              jstr = '  '
+             endif
+             proj(:) = 0.0_dp
+           
+! Atomic wavefunctions and eigenvalues
+! for the construction of the KB projectors
+
+           ! We use the same user-entered reference energies for both j's
+
            if (erefkb(ikb,l).ge.1.0d3) then             
+             ! If the reference energies have not been specifed, the
+             ! eigenstates with the condition of being zero at r(nrval)
+             ! will be used.
              nnodes=ikb
              nprin=l+1
-
-             call schro_eq(Zval,rofi,vps(1,l),ve,s,drdi,
+             ! use eref to avoid overwriting erefkb(,) for next j
+             call schro_eq(Zval,rofi,vp,ve,s,drdi,
      .                     nrlimit,l,a,b,nnodes,nprin,
-     .                     erefkb(ikb,l),rphi(1,ikb)) 
+     .                     eref(ikb,jk),rphi(1,ikb,jk)) 
 C Normalization of the eigenstates inside a sphere of radius Rmax
              dnrm=0.0d0
              do ir=1,nrwf
-               dnrm=dnrm+drdi(ir)*rphi(ir,ikb)**2
+               dnrm=dnrm+drdi(ir)*rphi(ir,ikb,jk)**2
              enddo 
              dnrm=sqrt(dnrm)
              do ir=1,nrwf
-               rphi(ir,ikb)=rphi(ir,ikb)/dnrm
+               rphi(ir,ikb,jk)=rphi(ir,ikb,jk)/dnrm
              enddo 
 C
            elseif((erefkb(ikb,l).le.-1.0d3).and.
      .       (ikb.gt.1) ) then 
-C If the energy is specified to be 1000 Ry, the energy derivative
-C of the previous wavefunction will be used
-C
-             call energ_deriv(a,rofi,rphi(1,ikb-1),vps(1,l),
-     .                        ve,drdi,nrwf,l,erefkb(ikb-1,l),
-     .                        rphi(1,ikb),nrval)
-             erefkb(ikb,l)=0.0d0
-C
+             ! If the energy is specified to be 1000 Ry, the energy
+             ! derivative of the previous wavefunction will be used
+             call energ_deriv(a,rofi,rphi(1,ikb-1,jk),vp(1),
+     .                        ve,drdi,nrwf,l,eref(ikb-1,jk),
+     .                        rphi(1,ikb,jk),nrval)
+             eref(ikb,jk)=0.0_dp
+
            else 
-C If the reference energies have been specified, we just use them
-C
-             call rphi_vs_e(a,b,rofi,vps(1,l),
+             ! If the reference energies have been specified, we just
+             ! use them
+             call rphi_vs_e(a,b,rofi,vp(1),
      .                      ve,nrval,l,erefkb(ikb,l),
-     .                      rphi(1,ikb),Rmax)
-C
+     .                      rphi(1,ikb,jk),Rmax)
+             eref(ikb,jk) = erefkb(ikb,l)
            endif 
-C
-C Ghost analysis
-C 
+
+           ! Ghost analysis
+
            if (nkbl(l).eq.1) then
-             call ghost(Zval,rofi,vps(:,l),vlocal,
+             call ghost(Zval,rofi,vp(:),vlocal,
      .                  ve,s,drdi,nrlimit,l,a,b,nrwf,
-     .                  erefkb(ikb,l),rphi(:,ikb),ighost)
+     .                  eref(ikb,jk),rphi(:,ikb,jk),ighost)
            else 
-             if (ikb.eq.1)
-     .         write(6,'(a,i3,/a)') 
-     .         'KBgen: More than one KB projector for l=',l,
-     .         'KBgen: ghost states analysis will be not performed'
+              multiple_projectors = .true.
            endif
-C
-C KB Projectors
-C
-           call KBproj(ikb,rofi,drdi,vps(1,l),vlocal,nrwf,l,
-     .                rphi(1,ikb),dkbcos(ikb,l),ekb(ikb,l),proj,nrc)
-
-C
-           rc(ikb,l)=rofi(nrc)
-C
-C Common block with the information about the  KB projectors
-C
-          call comKB(is,a,b,rofi,proj,
-     .                 l,ikb,rc(ikb,l),ekb(ikb,l),nrc, spp)
-C
-
-          enddo 
-         enddo   
+
+           ! The projector stack and vii are passed as arguments
+           ! to enable the needed loop ordering
+           call KBproj(ikb,rofi,drdi,vp,vlocal,nrwf,l,
+     .                rphi(1,ikb,jk),dkbcos,ekb,proj,nrc,
+     .                rphi2(:,:,jk),vii(:,jk))
+
+           rc = rofi(nrc)
+
+          ! Store KB projectors in data structure
+
+          call comKB(is,a,b,rofi,proj,l,lj_projs,jk,
+     .               ikb,rc,ekb,nrc, spp)
+
+          write(6,'(a2,1x,a,i2,4(3x,a,f10.6))') jstr,
+     .        'l=',l, 'rc=',rc, 'el=',eref(ikb,jk), 
+     .        'Ekb=',ekb,'kbcos=',dkbcos
+
+          enddo ! jk
+         enddo  ! ikb:1,nkbl
+        enddo   ! l
+        deallocate(rphi,rphi2,vii,eref)
         
+        if (multiple_projectors) then
+         write(6,'(a,/a)') 
+     .  'KBgen: More than one KB projector for some l shell(s)',
+     .  'KBgen: ghost-state analysis will not be performed'
+        endif
          if (ighost.eq.1) then
             write(6,"(2a)")'KBgen: WARNING: ',
      .            'Ghost states have been detected'
@@ -3169,34 +3225,14 @@
                write(6,"(a)") " KBgen: *** Warning Ignored by User"
                ighost = 0
             else
-               call die
+               call die("Ghost states detected")
             endif
          endif
 
-         write(6,'(/,a)')'KBgen: Kleinman-Bylander projectors: '
-         do l=0,lmxkb
-           do ikb=1, nkbl(l)
-              write(6,'(3x,a,i2,4(3x,a,f10.6))')
-     .        'l=',l, 'rc=',rc(ikb,l), 'el=',erefkb(ikb,l), 
-     .        'Ekb=',ekb(ikb,l),'kbcos=',dkbcos(ikb,l)
-           enddo
-         enddo
-C
-C Total number of Kleinman-Bylander projectors
-C
-           nkb=0
-           do l=0,lmxkb
-              do ikb=1,nkbl(l)
-                 nkb=nkb+(2*l+1) 
-              enddo 
-           enddo 
-           write(6,'(/,a, i4)')
-     .'KBgen: Total number of  Kleinman-Bylander projectors: ', nkb
-           if (nkb /= spp%nprojs) then
-              print *, "spp%nprojs: ", spp%nprojs
-              call die("Mismatch nkb spp%nprojs")
-           endif
-C     
+         write(6,'(/,a, i4)')
+     .'KBgen: Total number of  Kleinman-Bylander projectors: ',
+     $          spp%nprojs
+
         end subroutine KBgen
 !
         subroutine Basis_gen(Zval,is, iz, a,b,rofi,drdi,s,

=== modified file 'Src/bands.F'
--- Src/bands.F	2017-10-10 19:27:53 +0000
+++ Src/bands.F	2018-04-22 14:22:29 +0000
@@ -366,7 +366,7 @@
       use atmfuncs,     only : symfio, cnfigfio, labelfis, nofis
       use writewave,    only : wfs_filename
 
-      use m_spin,       only: NoMagn, SPpol, NonCol, SpOrb
+      use m_spin,       only: spin 
 
       use m_diag_option, only: ParallelOverK, Serial
       use m_diag, only: diag_init
@@ -459,7 +459,7 @@
       endif
 
 C Find the band energies
-      if (NoMagn .or. SPpol) then
+      if ( spin%none .or. spin%Col ) then
 C fixspin and qs are not used in diagk, since getD=.false. ...
         qs(1) = 0.0_dp
         qs(2) = 0.0_dp
@@ -488,7 +488,7 @@
         ParallelOverK = SaveParallelOverK
         if ( ParallelOverK ) Serial = .true.
 
-      elseif ( NonCol ) then
+      elseif ( spin%NCol ) then
          if (getPSI) then
             if (node==0) then
                write(6,*) "No WFS for non-colinear spin, yet..."
@@ -503,7 +503,7 @@
      .              Haux, Saux, psi, Haux, Saux, aux,
      .              no_u, occtol, 1, no_u )
 
-      elseif ( SpOrb ) then
+      elseif ( spin%SO ) then
         if (getPSI) then
            if (node==0) then
               write(6,*) "No WFS for spin-orbit, yet..."

=== modified file 'Src/basis_io.F'
--- Src/basis_io.F	2017-12-22 10:26:20 +0000
+++ Src/basis_io.F	2018-04-22 14:22:29 +0000
@@ -401,8 +401,14 @@
 ! KBs
          read(lun,*)
          do i=1,spp%n_pjnl
-            read(lun,*)
+            if (spp%lj_projs) then
+               read(lun,*)
+     $           spp%pjnl_l(i), spp%pjnl_j(i), spp%pjnl_n(i),
+     $           spp%pjnl_ekb(i)
+            else
+               read(lun,*)
      $           spp%pjnl_l(i), spp%pjnl_n(i), spp%pjnl_ekb(i)
+            endif
             call radial_read_ascii(spp%pjnl(i),lun,
      $                             yp1=0.0_dp,ypn=huge(1.0_dp))
          enddo
@@ -417,6 +423,7 @@
                nk = nk+1
                spp%pj_n(nk) = spp%pjnl_n(i)
                spp%pj_l(nk) = spp%pjnl_l(i)
+               spp%pj_j(nk) = spp%pjnl_j(i)
                spp%pj_m(nk) = m
                spp%pj_index(nk) = i
             enddo
@@ -450,6 +457,7 @@
       integer, intent(in)         :: unit
       
       character(len=78) line
+      integer :: iostat
 
       read(unit,'(a)') line
       if (trim(line) .eq. '<preamble>') then
@@ -465,7 +473,12 @@
       read(unit,*) p%mass
       read(unit,*) p%self_energy
       read(unit,*) p%lmax_basis, p%n_orbnl
-      read(unit,*) p%lmax_projs, p%n_pjnl
+      read(unit,fmt=*,iostat=iostat) p%lmax_projs, p%n_pjnl, p%lj_projs
+      if (iostat /=0 ) then
+         backspace(unit)
+         read(unit,*) p%lmax_projs, p%n_pjnl
+         p%lj_projs = .false.
+      endif
 
       allocate(p%orbnl(p%n_orbnl))
       allocate(p%pjnl(p%n_pjnl))
@@ -817,9 +830,16 @@
          do i=1,spp%n_pjnl
             zeta = spp%pjnl_n(i)
             l = spp%pjnl_l(i)
-            write(lun,'(2i3,f22.16,2x,a)')
+            if (spp%lj_projs) then
+               write(lun,'(i3,f4.1,i3,f22.16,2x,a)')
+     $           spp%pjnl_l(i), spp%pjnl_j(i), spp%pjnl_n(i),
+     $           spp%pjnl_ekb(i),
+     $           " #kb l, j, n (sequence number), Reference energy"
+            else
+               write(lun,'(2i3,f22.16,2x,a)')
      $           spp%pjnl_l(i), spp%pjnl_n(i), spp%pjnl_ekb(i),
      $           " #kb l, n (sequence number), Reference energy"
+            endif
             call radial_dump_ascii(spp%pjnl(i),lun)
 
            if (write_ion_plot_files) then
@@ -949,8 +969,14 @@
          write(unit,'(g22.12,4x,a)') p%self_energy, "# Self energy "
          write(unit,'(2i4,22x,a)') p%lmax_basis, p%n_orbnl,
      $        "# Lmax for basis, no. of nl orbitals "
-         write(unit,'(2i4,22x,a)') p%lmax_projs, p%n_pjnl,
-     $        "# Lmax for projectors, no. of nl KB projectors "
+         if (p%lj_projs) then
+            write(unit,'(2i4,1x,l1,20x,a)') p%lmax_projs, p%n_pjnl,
+     $       p%lj_projs,
+     $       "# Lmax for projectors, no. of nl KB projectors, LJ projs?"
+         else
+            write(unit,'(2i4,22x,a)') p%lmax_projs, p%n_pjnl,
+     $           "# Lmax for projectors, no. of nl KB projectors"
+         endif
 
          end subroutine write_header
 

=== modified file 'Src/broadcast_basis.F'
--- Src/broadcast_basis.F	2016-06-28 05:57:03 +0000
+++ Src/broadcast_basis.F	2018-04-22 14:22:29 +0000
@@ -104,10 +104,14 @@
      $                 0,MPI_Comm_World,MPIerror)
         call MPI_Bcast(spp%lmax_projs,1,MPI_integer,
      $                 0,MPI_Comm_World,MPIerror)
+        call MPI_Bcast(spp%lj_projs,1,MPI_logical,
+     $                 0,MPI_Comm_World,MPIerror)
         call MPI_Bcast(spp%pjnl_l,maxn_pjnl,MPI_integer,
      $                 0,MPI_Comm_World,MPIerror)
         call MPI_Bcast(spp%pjnl_n,maxn_pjnl,MPI_integer,
      $                 0,MPI_Comm_World,MPIerror)
+        call MPI_Bcast(spp%pjnl_j,maxn_pjnl,MPI_double_precision,
+     $                 0,MPI_Comm_World,MPIerror)
         call MPI_Bcast(spp%pjnl_ekb,maxn_pjnl,MPI_double_precision,
      $                 0,MPI_Comm_World,MPIerror)
 
@@ -134,6 +138,8 @@
      $                 0,MPI_Comm_World,MPIerror)
         call MPI_Bcast(spp%pj_l,maxnprojs,MPI_integer,
      $                 0,MPI_Comm_World,MPIerror)
+        call MPI_Bcast(spp%pj_j,maxnprojs,MPI_double_precision,
+     $                 0,MPI_Comm_World,MPIerror)
         call MPI_Bcast(spp%pj_m,maxnprojs,MPI_integer,
      $                 0,MPI_Comm_World,MPIerror)
 

=== modified file 'Src/compute_energies.F90'
--- Src/compute_energies.F90	2017-12-21 15:49:49 +0000
+++ Src/compute_energies.F90	2018-04-22 14:22:29 +0000
@@ -47,8 +47,11 @@
                                  lastkb, no_s, rmaxv, indxua, iphorb, lasto, &
                                  rmaxo, no_l
       use m_ntm,           only: ntm
-      use m_spin,          only: NoMagn, SPpol, NonCol, SpOrb 
-      use m_spin,          only: nspin, h_spin_dim, spinor_dim
+
+      use m_spin,          only: spin 
+      use sparse_matrices, only: H0_offsiteSO
+      use parallel,        only: IONode 
+
       use m_dipol,         only: dipol
       use siesta_geom,     only: na_u, na_s, xa, isa
       use m_rhog,          only: rhog
@@ -58,22 +61,20 @@
 
       integer, intent(in)   :: iscf
 
-      integer               :: ihmat, ifa, istr, ispin, io
+      integer               :: ispin, io
 #ifdef MPI
       real(dp) :: buffer1
 #endif
 
-      real(dp) :: const
-      real(dp) :: dummy_stress(3,3), dummy_fa(1,1)
-      real(dp) :: dummy_E, g2max, dummy_H(1,1)
       logical  :: mixDM
 
+
       mixDM = (.not. (mixH .or. mix_charge))
 
 !     Compute the band-structure energy
 
       call compute_EBS()
-    
+
       ! These energies were calculated in the latest call to
       ! setup_hamiltonian, using as ingredient D_in 
 
@@ -126,36 +127,104 @@
 
    subroutine compute_EBS()
 
+     real(dp)    :: Ebs_SO(4)
+     complex(dp) :: Ebs_Daux(2,2), Ebs_Haux(2,2)
+
+      integer :: i, j, ind
+
       Ebs = 0.0_dp
-!       const factor takes into account that there are two nondiagonal
-!       elements in non-collinear spin density matrix, stored as
-!       ispin=1 => D11; ispin=2 => D22, ispin=3 => Real(D12);
-!       ispin=4 => Imag(D12)
-
-      if ( SpOrb ) then
-        do io = 1,maxnh
-          Ebs = Ebs      + H(io,1) * ( Dscf(io,1) )   &
-                         + H(io,2) * ( Dscf(io,2) )   &
-                         + H(io,3) * ( Dscf(io,7) )   &
-                         + H(io,4) * ( Dscf(io,8) )   &
-                         - H(io,5) * ( Dscf(io,5) )   &
-                         - H(io,6) * ( Dscf(io,6) )   &
-                         + H(io,7) * ( Dscf(io,3) )   &
-                         + H(io,8) * ( Dscf(io,4) )
+
+! Modifed for Off-Site Spin-orbit coupling by R. Cuadrado, Feb. 2018
+!
+!*****************************************************************************
+!  Note about Ebs and E_Harris calculation for the Spin-Orbit:
+!*****************************************************************************
+!
+!  E_bs and E_Harris are calculated by means of the following 
+! complex matrix multiplication: 
+!
+!                 E_bs = Re { Tr[ H * DM ] } 
+!             E_Harris = Re { Tr[ H * (DM-DM_old) ] }  
+!
+!  In the following: DM/H(1,1) --> up/up     <--> uu
+!                    DM/H(2,2) --> down/down <--> dd
+!                    DM/H(1,2) --> up/down   <--> ud
+!                    DM/H(2,1) --> down/up   <--> du
+!
+!  Using DM/H components, E_bs would be:
+!
+!   E_bs(1)=Re{sum_ij(H_ij(1,1)*D_ji(1,1))}=Re{sum_ij(H_ij^uu*(DM_ij^uu)^*)}
+!   E_bs(2)=Re{sum_ij(H_ij(2,2)*D_ji(2,2))}=Re{sum_ij(H_ij^dd*(DM_ij^dd)^*)}
+!   E_bs(3)=Re{sum_ij(H_ij(1,2)*D_ji(2,1))}=Re{sum_ij(H_ij^ud*(DM_ij^ud)^*)}
+!   E_bs(4)=Re{sum_ij(H_ij(2,1)*D_ji(1,2))}=Re{sum_ij(H_ij^du*(DM_ij^du)^*)}
+!
+!         Where:
+!     
+!             DM_ij^uu = (DM_ji^uu)^*
+!             DM_ij^dd = (DM_ji^dd)^*
+!             DM_ij^ud = (DM_ij^du)^*
+!             DM_ij^du = (DM_ij^ud)^*
+!
+!  Ebs_Haux and Ebs_Daux ARE NOT the dense matrix that appear in 
+! diag3g/3k, they are just two complex numbers (per each io index) used 
+! as an artifact to multiply the elements of the H/DM matrices in a such 
+! way that the result gives Re{Tr[H*DM]}. For example, 
+!
+! H_12(1,1)*DM_21(1,1) <==> Re{ [H_12(1)+iH_12(5)]*[DM_21(1)+iDM_21(5)] } =
+!                                H_12(1)*DM_21(1) - H_12(5)*DM_21(5) = 
+!                                H_12(1)*DM_12(1) + H_12(5)*DM_12(5)   
+!                      
+! H_12(1,2)*DM_21(2,1) <==> Re{ [H_12(3)+iH_12(4)]*[DM_21(7)+iDM_21(8)] } =
+!                                H_12(3)*DM_21(7) - H_12(4)*DM_21(8) = 
+!                                H_12(3)*DM_12(3) + H_12(4)*DM_12(4)   
+!
+!             Since  DM_21(2,1) = [DM_12(1,2)]^*
+!
+!  Same comments are valid for the E_Harris calculation.
+!
+!*****************************************************************************
+!
+      if ( spin%SO ) then
+
+        Ebs_SO = 0.0_dp  
+        Ebs_Daux = dcmplx(0.0_dp, 0.0_dp)
+        Ebs_Haux = dcmplx(0.0_dp, 0.0_dp)
+
+        do io = 1, maxnh
+
+          Ebs_Haux(1,1) = dcmplx(H(io,1),H(io,5))  
+          Ebs_Haux(2,2) = dcmplx(H(io,2),H(io,6))  
+          Ebs_Haux(1,2) = dcmplx(H(io,3),-H(io,4)) 
+          Ebs_Haux(2,1) = dcmplx(H(io,7),H(io,8)) 
+
+          Ebs_Daux(1,1) = dcmplx(Dscf(io,1),Dscf(io,5)) 
+          Ebs_Daux(2,2) = dcmplx(Dscf(io,2),Dscf(io,6)) 
+          Ebs_Daux(1,2) = dcmplx(Dscf(io,3),-Dscf(io,4))
+          Ebs_Daux(2,1) = dcmplx(Dscf(io,7),Dscf(io,8)) 
+
+
+          Ebs_SO(1) = Ebs_SO(1) + real( Ebs_Haux(1,1)*dconjg(Ebs_Daux(1,1)) )
+          Ebs_SO(2) = Ebs_SO(2) + real( Ebs_Haux(2,2)*dconjg(Ebs_Daux(2,2)) )
+          Ebs_SO(3) = Ebs_SO(3) + real( Ebs_Haux(1,2)*dconjg(Ebs_Daux(1,2)) )
+          Ebs_SO(4) = Ebs_SO(4) + real( Ebs_Haux(2,1)*dconjg(Ebs_Daux(2,1)) )
+
         enddo
-      else if ( NonCol ) then
+
+        Ebs = sum ( Ebs_SO )
+
+      else if ( spin%NCol ) then
         do io = 1,maxnh
           Ebs    = Ebs    + H(io,1) * ( Dscf(io,1)  )   &
                           + H(io,2) * ( Dscf(io,2)  )   &
                  + 2.0_dp * H(io,3) * ( Dscf(io,3)  )   &
                  + 2.0_dp * H(io,4) * ( Dscf(io,4)  )
         enddo
-      else if ( SPpol )  then
+      else if ( spin%Col )  then
         do io = 1,maxnh
           Ebs    = Ebs    + H(io,1) * Dscf(io,1)  &
                           + H(io,2) * Dscf(io,2)
         enddo
-      else if ( NoMagn ) then
+      else if ( spin%none ) then
         do io = 1,maxnh
           Ebs    = Ebs + H(io,1) *  Dscf(io,1)
         enddo
@@ -170,36 +239,65 @@
 
     subroutine compute_DEharr()
 
+      real(dp)    :: DEharr_SO(4)
+      complex(dp) :: DEharr_Daux(2,2), DEharr_Haux(2,2), DEharr_Daux_old(2,2)
+
       DEharr = 0.0_dp
-             !       const factor takes into account that there are two nondiagonal
-             !       elements in non-collinear spin density matrix, stored as
-             !       ispin=1 => D11; ispin=2 => D22, ispin=3 => Real(D12);
-             !       ispin=4 => Imag(D12)
-
-      if ( SpOrb ) then
-        do io = 1,maxnh
-          DEharr = DEharr + H(io,1) * ( Dscf(io,1) - Dold(io,1) )  &
-                          + H(io,2) * ( Dscf(io,2) - Dold(io,2) )  &
-                          + H(io,3) * ( Dscf(io,7) - Dold(io,7) )  &
-                          + H(io,4) * ( Dscf(io,8) - Dold(io,8) )  &
-                          - H(io,5) * ( Dscf(io,5) - Dold(io,5) )  &
-                          - H(io,6) * ( Dscf(io,6) - Dold(io,6) )  &
-                          + H(io,7) * ( Dscf(io,3) - Dold(io,3) )  &
-                          + H(io,8) * ( Dscf(io,4) - Dold(io,4) )
-        enddo
-      else if ( NonCol ) then
+
+      if ( spin%SO ) then
+
+        DEharr_SO = 0.0_dp 
+        DEharr_Daux     = dcmplx(0.0_dp, 0.0_dp)
+        DEharr_Daux_old = dcmplx(0.0_dp, 0.0_dp)
+        DEharr_Haux     = dcmplx(0.0_dp, 0.0_dp)
+
+        do io = 1, maxnh
+
+          DEharr_Haux(1,1) = dcmplx( H(io,1),H(io,5) )
+          DEharr_Haux(2,2) = dcmplx( H(io,2),H(io,6) )
+          DEharr_Haux(1,2) = dcmplx( H(io,3),H(io,4) )      ! more clear: -4 here...
+          DEharr_Haux(2,1) = dcmplx( H(io,7),H(io,8) )
+
+          DEharr_Daux(1,1) = dcmplx( Dscf(io,1),Dscf(io,5) )
+          DEharr_Daux(2,2) = dcmplx( Dscf(io,2),Dscf(io,6) )
+          DEharr_Daux(1,2) = dcmplx( Dscf(io,3),Dscf(io,4) )  ! ... and -4 here, as in Ebs
+          DEharr_Daux(2,1) = dcmplx( Dscf(io,7),Dscf(io,8) )
+
+          DEharr_Daux_old(1,1) = dcmplx( Dold(io,1),Dold(io,5) )
+          DEharr_Daux_old(2,2) = dcmplx( Dold(io,2),Dold(io,6) ) 
+          DEharr_Daux_old(1,2) = dcmplx( Dold(io,3),Dold(io,4) )  ! ... and -4 here.
+          DEharr_Daux_old(2,1) = dcmplx( Dold(io,7),Dold(io,8) )
+
+
+          DEharr_SO(1) = DEharr_SO(1) &
+             + real( DEharr_Haux(1,1)*dconjg(DEharr_Daux(1,1)-DEharr_Daux_old(1,1)) ) 
+
+          DEharr_SO(2) = DEharr_SO(2) &
+             + real( DEharr_Haux(2,2)*dconjg(DEharr_Daux(2,2)-DEharr_Daux_old(2,2)) )
+
+          DEharr_SO(3) = DEharr_SO(3) &
+             + real( DEharr_Haux(1,2)*dconjg(DEharr_Daux(1,2)-DEharr_Daux_old(1,2)) )
+
+          DEharr_SO(4) = DEharr_SO(4) &
+             + real( DEharr_Haux(2,1)*dconjg(DEharr_Daux(2,1)-DEharr_Daux_old(2,1)) )
+
+         enddo
+
+         DEharr = sum ( DEharr_SO )
+
+      else if ( spin%NCol ) then
         do io = 1,maxnh
           DEharr = DEharr + H(io,1) * ( Dscf(io,1) - Dold(io,1) )  &
                           + H(io,2) * ( Dscf(io,2) - Dold(io,2) )  &
                  + 2.0_dp * H(io,3) * ( Dscf(io,3) - Dold(io,3) )  &
                  + 2.0_dp * H(io,4) * ( Dscf(io,4) - Dold(io,4) )
         enddo
-      elseif (SPpol)  then
+      elseif ( spin%Col )  then
         do io = 1,maxnh
           DEharr = DEharr + H(io,1) * ( Dscf(io,1) - Dold(io,1) )  &
                           + H(io,2) * ( Dscf(io,2) - Dold(io,2) )
         enddo
-      elseif (NoMagn) then
+      elseif ( spin%none ) then
         do io = 1,maxnh
           DEharr = DEharr + H(io,1) * ( Dscf(io,1) - Dold(io,1) )
         enddo
@@ -222,6 +320,11 @@
       type(filesOut_t)  :: filesOut  ! blank output file names
       real(dp), pointer :: H_vkb(:), H_kin(:), H_so(:,:)
 
+      complex(dp) :: Hc, Dc
+      real(dp)    :: dummy_stress(3,3), dummy_fa(1,1)
+      real(dp)    :: dummy_E, g2max, dummy_H(1,1)
+      integer     :: ihmat, ifa, istr
+      
       ! Compute E_KS(DM_out)
 
       g2max = g2cut
@@ -233,7 +336,7 @@
 
       ! Remove unwanted arguments...
 
-      call dhscf( nspin, no_s, iaorb, iphorb, no_l,      &
+      call dhscf( spin%Grid, no_s, iaorb, iphorb, no_l,      &
                   no_u, na_u, na_s, isa, xa, indxua,                        &
                   ntm, ifa, istr, ihmat, filesOut,                          &
                   maxnh, numh, listhptr, listh, Dscf, Datm,                 &
@@ -250,7 +353,7 @@
       
       Ekin = 0.0_dp
       Enl  = 0.0_dp
-      do ispin = 1, spinor_dim
+      do ispin = 1, spin%spinor
          do io = 1,maxnh
             Ekin = Ekin + H_kin(io) * Dscf(io,ispin)
             Enl  = Enl  + H_vkb(io) * Dscf(io,ispin)
@@ -266,7 +369,33 @@
 #endif
 
       Eso = 0._dp
-      if ( SpOrb ) then
+
+      if ( spin%SO_offsite ) then
+
+        do io = 1, maxnh
+
+!-------- Eso(u,u)
+            Dc = cmplx(Dscf(io,1),Dscf(io,5),kind=dp)
+            Hc = H0_offsiteSO(io,1)
+          Eso = Eso + real( Hc*Dc )
+!-------- Eso(d,d)
+            Dc = cmplx(Dscf(io,2),Dscf(io,6),kind=dp)
+            Hc = H0_offsiteSO(io,2)
+          Eso = Eso + real( Hc*Dc )
+!-------- Eso(u,d)
+            Dc = cmplx(Dscf(io,3),Dscf(io,4),kind=dp)
+            Hc = H0_offsiteSO(io,4)
+          Eso = Eso + real( Hc*Dc )
+!-------- Eso(d,u)
+            Dc = cmplx(Dscf(io,7),-Dscf(io,8),kind=dp)
+            Hc = H0_offsiteSO(io,3)
+          Eso = Eso + real( Hc*Dc )
+
+        enddo
+
+      endif
+
+      if ( spin%SO_onsite ) then
          ! Sadly some compilers (g95), does
          ! not allow bounds for pointer assignments :(
          H_so => val(H_so_2D)
@@ -275,12 +404,15 @@
                  + H_so(io,5)*Dscf(io,3) + H_so(io,6)*Dscf(io,4) &
                  - H_so(io,3)*Dscf(io,5) - H_so(io,4)*Dscf(io,6)
          end do
+      end if
+
 #ifdef MPI
+      if (spin%SO) then
          ! Global reduction of Eso
          call globalize_sum( Eso, buffer1 )
          Eso = buffer1
+      endif
 #endif
-      end if
       
       ! E0 = Ena + Ekin + Enl + Eso - Eions
 

=== modified file 'Src/dfscf.f'
--- Src/dfscf.f	2018-04-22 00:13:43 +0000
+++ Src/dfscf.f	2018-04-22 14:22:29 +0000
@@ -20,6 +20,7 @@
 C Adds the SCF contribution to atomic forces and stress.
 C Written by P.Ordejon, J.M.Soler, and J.Gale.
 C Last modification by J.M.Soler, October 2000.
+C Modifed for Off-Site Spin-orbit coupling by R. Cuadrado, Feb. 2018
 C *********************** INPUT **************************************
 C integer ifa             : Are forces required? (1=yes,0=no)
 C integer istr            : Is stress required? (1=yes,0=no)
@@ -334,7 +335,7 @@
 
 C     Factor two for nondiagonal elements for non-collinear spin (and SO)
         if ( nspin == 4 ) then
-           V(1:nsp,3:4) = 2.0_dp * V(1:nsp,3:4)
+         V(1:nsp,3:4) = 2.0_dp * V(1:nsp,3:4)
         end if
 
 C     Loop on first orbital of mesh point

=== modified file 'Src/final_H_f_stress.F'
--- Src/final_H_f_stress.F	2017-11-23 14:17:27 +0000
+++ Src/final_H_f_stress.F	2018-04-22 14:22:29 +0000
@@ -30,7 +30,7 @@
      &                    rmaxo, no_l, iza
       use metaforce, only: lMetaForce, meta
       use molecularmechanics, only : twobody
-      use m_nlefsm,     only: nlefsm
+      use m_nlefsm,     only: nlefsm, nlefsm_offsiteSO
       use m_overfsm,    only: overfsm
       use m_kinefsm,    only: kinefsm
       use m_naefs,      only: naefs
@@ -46,8 +46,8 @@
       use m_energies
       use m_steps, only: istp
       use m_ntm
-      use m_spin,         only: spin
-      use spinorbit,      only: spinorb
+      use m_spin,          only: spin
+      use spinorbit,       only: spinorb
       use m_dipol
       use m_forces,          only: fa
       use alloc, only: re_alloc, de_alloc
@@ -98,6 +98,7 @@
       real(dp)              :: stresstmp(3,3)
       real(dp), pointer     :: fatmp(:,:)
       real(dp)              :: buffer1
+      integer               :: MPIerror 
 #endif
       character(len=label_length+13) :: fname
       integer :: io_istep, io_ia1
@@ -106,6 +107,8 @@
       type(dict) :: dic_save
 #endif
 #endif
+
+
 !------------------------------------------------------------------------- BEGIN
 
 !     Initialize Hamiltonian ........................................
@@ -158,28 +161,41 @@
 ! ..................
 
 ! Non-local-pseudop: energy, forces, stress and matrix elements .......
-      call nlefsm( scell, na_u, na_s, isa, xa, indxua, 
-     &             maxnh, maxnh, lasto, lastkb, iphorb, iphKB, 
-     &             numh, listhptr, listh, numh, listhptr, listh, 
-     &             spin%spinor, Dscf, Enl, fal, stressl, H_tmp,
-     &             matrix_elements_only=.false. ) 
-
-#ifdef MPI
-! Global reduction of energy terms
-      call globalize_sum(Enl,buffer1)
-      Enl = buffer1
-#endif
-
-! If in the future the spin-orbit routine is able to compute
-! forces and stresses, then "last" will be needed. If we are not
-! computing forces and stresses, calling it in the first iteration
-! should be enough
-!
-      if ( spin%SO ) then
+
+      Eso = 0.0_dp
+      
+      if ( .not.spin%SO_offsite ) then
+       call nlefsm( scell, na_u, na_s, isa, xa, indxua, 
+     &              maxnh, maxnh, lasto, lastkb, iphorb, iphKB, 
+     &              numh, listhptr, listh, numh, listhptr, listh, 
+     &              spin%spinor, Dscf, Enl, fal, stressl, H_tmp,
+     &              matrix_elements_only=.false. ) 
+
+#ifdef MPI
+! Global reduction of energy terms
+       call globalize_sum(Enl,buffer1)
+       Enl = buffer1
+#endif
+      else 
+       call nlefsm_offsiteSO(scell, na_u, na_s, isa, xa, indxua,
+     &                maxnh, maxnh, lasto, lastkb, iphorb, iphKB,
+     &                numh, listhptr, listh, numh, listhptr, listh,
+     &                spin%Grid,
+     &                Enl, Eso, fal,
+     &                stressl, H_tmp,
+     &                matrix_elements_only=.false.)
+#ifdef MPI
+! Global reduction of energy terms
+       call globalize_sum(Enl,buffer1)
+       Enl = buffer1
+       call globalize_sum(Eso,buffer1)
+       Eso = buffer1
+#endif
+      endif
+
+      if ( spin%SO_onsite) then
          call spinorb(no_u,no_l,iaorb,iphorb,isa,indxuo,
      &        maxnh,numh,listhptr,listh,Dscf,H_tmp(:,3:),Eso)
-      else
-         Eso = 0._dp
       endif
       
 !     Non-SCF part of total energy

=== modified file 'Src/initatom.f'
--- Src/initatom.f	2018-04-07 19:24:04 +0000
+++ Src/initatom.f	2018-04-22 14:22:29 +0000
@@ -50,10 +50,10 @@
       use ldau_specs, only: ldau_proj_gen
       use ldau_specs, only: populate_species_info_ldau
       use pseudopotential, only: pseudo_read
-    
+      
       use chemical
 
-      use m_spin, only: SpOrb
+      use m_spin, only: spin
 
       use atm_types, only: species, species_info, nspecies
       
@@ -63,6 +63,7 @@
       integer                      :: is
       logical                      :: user_basis, user_basis_netcdf
       logical :: req_init_setup
+      logical :: lj_projs
 
       type(basis_def_t),   pointer :: basp
       type(species_info),  pointer :: spp
@@ -106,12 +107,13 @@
         call elec_corr_setup()
       else if (user_basis) then
 
-       if ( SpOrb ) then  
+       if ( spin%SO_onsite ) then  
           ! We still need to read the pseudopotential information
-          write(6,'(a)') ' initatom: Spin configuration = spin-orbit'
+          ! because the .ion files do not contain V_so information
+          write(6,'(a)') ' initatom: spin-orbit-onsite with user-basis'
+          write(6,'(a)') ' initatom: Still need to read the psf files.'
           do is = 1 , nsp
              basp => basis_parameters(is)
-             
              basp%label = species_label(is)
              call pseudo_read(basp%label,basp%pseudopotential)
           end do
@@ -132,6 +134,8 @@
         nspecies = nsp              ! For atm_types module
         call setup_atom_tables(nsp)
 
+        lj_projs = (spin%SO_offsite)
+
         allocate(species(nspecies))
         do is = 1,nsp
           call write_basis_specs(6,is)
@@ -151,7 +155,8 @@
      &                    qyuk(0:lmaxd,1:nsemx,is),
      &                    qwid(0:lmaxd,1:nsemx,is),
      &                    split_norm(0:lmaxd,1:nsemx,is), 
-     &                    filtercut(0:lmaxd,1:nsemx,is), basp, spp)
+     &                    filtercut(0:lmaxd,1:nsemx,is), basp, spp,
+     $                    lj_projs)
 !         Generate the projectors for the LDA+U simulations (if requested)
           call ldau_proj_gen(is)
         enddo 
@@ -165,11 +170,12 @@
         call elec_corr_setup()
         ns = nsp               ! Set number of species for main program
 
+        call dump_basis_ascii()
+        call dump_basis_netcdf()
+        call dump_basis_xml()
+        
       endif
 
-      call dump_basis_ascii()
-      call dump_basis_netcdf()
-      call dump_basis_xml()
 
       if (.not. user_basis .and. .not. user_basis_netcdf) then
         call deallocate_spec_arrays()

=== modified file 'Src/m_cite.F90'
--- Src/m_cite.F90	2016-12-29 10:36:10 +0000
+++ Src/m_cite.F90	2018-04-22 14:22:29 +0000
@@ -74,7 +74,7 @@
   ! Increment this after having added a new
   ! citation!
   ! OTHERWISE YOU WILL EXPERIENCE A SEG-FAULT.
-  integer, parameter :: N_citations = 7
+  integer, parameter :: N_citations = 9
 
   private
 
@@ -242,7 +242,29 @@
        cit%issue = "30"
        cit%cite_key = "Lin2014"
        ID = 7
+
+    case ( "10.1088/0953-8984/24/8/086005" )
+       ! Off-Site Spin-Orbit 
+       cit%comment = "Off-Site Spin-Orbit Implementation"
+       cit%doi = "10.1088/0953-8984/24/8/086005"
+       cit%journal = "Journal of Physics: Condensed Matter"
+       cit%year = 2012
+       cit%volume = "24"
+       cit%issue = "8"
+       cit%cite_key = "Cuadrado2012"
+       ID = 8
        
+    case ( "10.1088/0953-8984/18/34/012")
+       ! On-Site Spin-Orbit 
+       cit%comment = "On-Site Spin-Orbit Implementation"
+       cit%doi = "10.1088/0953-8984/18/34/012"
+       cit%journal = "Journal of Physics: Condensed Matter"
+       cit%year = 2006
+       cit%volume = "18"
+       cit%issue = "0"
+       cit%cite_key = "FernandezSeivane2006"
+       ID = 9
+
     end select
 
     ! probably we should error out...

=== modified file 'Src/m_pulay.F90'
--- Src/m_pulay.F90	2016-06-04 20:06:11 +0000
+++ Src/m_pulay.F90	2018-04-22 14:22:29 +0000
@@ -8,7 +8,7 @@
 module m_pulay
 
   use precision, only: dp
-  use m_spin,    only: h_spin_dim, SpOrb
+  use m_spin,    only: spin 
   implicit none
 
   private
@@ -48,7 +48,7 @@
     if (maxsav .le. 0) then
        ! No need for auxiliary arrays
     else
-       nauxpul = sum(numh(1:no_l)) * h_spin_dim * maxsav
+       nauxpul = sum(numh(1:no_l)) * spin%H * maxsav
        !
        call re_alloc(auxpul,1,nauxpul,1,2,name="auxpul",        &
             routine="pulay")
@@ -370,8 +370,8 @@
        ! B(i,i) = dot_product(Res(i)*Res(i))
        b(i,i) = 0.0_dp
        ssum=0.0_dp
-! CC RC Added for on-site SO
-       if ( .not. SpOrb ) then
+
+       if ( .not. spin%SO ) then
         do is=1,nspin
          do ii=1,no_l
           do jj=1,numd(ii)
@@ -380,7 +380,7 @@
           enddo
          enddo
         enddo
-       elseif ( SpOrb ) then
+       elseif ( spin%SO ) then
         do ii=1,no_l
          do jj=1,numd(ii)
           ind = listdptr(ii) + jj
@@ -393,7 +393,6 @@
          enddo
         enddo
        endif
-! CC RC
 
        b(i,i)=ssum
        !
@@ -414,7 +413,7 @@
 
           b(i,j)=0.0_dp
           ssum=0.0_dp
-          if ( .not. SpOrb ) then
+          if ( .not. spin%SO ) then
            do is=1,nspin
             do ii=1,no_l
              do jj=1,numd(ii)
@@ -423,7 +422,7 @@
              enddo
             enddo
            enddo
-          elseif ( SpOrb ) then
+          elseif ( spin%SO ) then
            do ii=1,no_l
             do jj=1,numd(ii)
              ind = listdptr(ii) + jj

=== modified file 'Src/m_spin.F90'
--- Src/m_spin.F90	2018-02-27 21:05:45 +0000
+++ Src/m_spin.F90	2018-04-22 14:22:29 +0000
@@ -37,8 +37,9 @@
      !> Spin-orbit coupling
      logical :: SO = .false.
 
-     !> If .true. the spin-orbit is using the off-site implementation (else the on-site)
-     logical :: SO_off = .false.
+     !> Flavors of off-site implementation
+     logical :: SO_offsite = .false.
+     logical :: SO_onsite  = .false.
 
      ! Perhaps one could argue that one may
      ! associate a symmetry to the spin which
@@ -110,6 +111,10 @@
     use fdf, only : fdf_get, leqi, fdf_deprecated
     use alloc, only: re_alloc
 
+    use m_cite, only: add_citation
+    use files, only: slabel
+    use parallel, only: IONode
+
     character(len=32) :: opt
 
     ! Create pointer assignments...
@@ -127,14 +132,14 @@
     ! Time reversal symmetry
     TrSym  = .true.
 
-    ! All components of the 'spin' variable
-    ! is initially correct...
+    ! Initialize all components of the 'spin' variable
     spin%none = .false.
     spin%Col = .false.
     spin%NCol = .false.
     spin%SO = .false.
-    spin%SO_off = .false.
-    
+    spin%SO_offsite = .false.
+    spin%SO_onsite  = .false.
+
     ! Read in old flags (discouraged)
     spin%Col  = fdf_get('SpinPolarized',.false.)
     spin%NCol = fdf_get('NonCollinearSpin',.false.)
@@ -149,7 +154,7 @@
     if ( spin%SO ) then
        opt = 'spin-orbit'
     else if ( spin%NCol ) then
-       opt = 'non-colinear'
+       opt = 'non-collinear'
     else if ( spin%Col ) then
        opt = 'collinear'
     else
@@ -173,40 +178,38 @@
        
        spin%Col = .true.
        
-    else if ( leqi(opt, 'non-collinear') .or. leqi(opt, 'non-colinear') .or. &
+    else if ( leqi(opt, 'non-collinear') .or.  leqi(opt, 'non-colinear') .or. &
          leqi(opt, 'NC') .or. leqi(opt, 'N-C') ) then
        
        spin%NCol = .true.
        
     else if ( leqi(opt, 'spin-orbit') .or. leqi(opt, 'S-O') .or. &
-         leqi(opt, 'SOC') .or. leqi(opt, 'SO') ) then
-       ! Spin-orbit is the same as using the off-site implementation
-       
-       spin%SO = .true.
-       spin%SO_off = .true.
-
-    else if ( leqi(opt, 'spin-orbit+off') .or. leqi(opt, 'S-O+off') .or. &
-         leqi(opt, 'SOC+off') .or. leqi(opt, 'SO+off') ) then
-       
-       spin%SO = .true.
-       spin%SO_off = .true.
-
-    else if ( leqi(opt, 'spin-orbit+on') .or. leqi(opt, 'S-O+on') .or. &
-         leqi(opt, 'SOC+on') .or. leqi(opt, 'SO+on') ) then
-       
-       spin%SO = .true.
-       spin%SO_off = .false.
+         leqi(opt, 'SOC') .or. leqi(opt, 'SO') .or. &
+         leqi(opt, 'spin-orbit+offsite') .or. leqi(opt, 'S-O+offsite') .or. &
+         leqi(opt, 'SOC+offsite') .or. leqi(opt, 'SO+offsite') ) then
+       ! Spin-orbit defaults to the off-site implementation
+       
+       spin%SO = .true.
+       spin%SO_offsite = .true.
+
+    else if ( leqi(opt, 'spin-orbit+onsite') .or. leqi(opt, 'S-O+onsite') .or. &
+         leqi(opt, 'SOC+onsite') .or. leqi(opt, 'SO+onsite') ) then
+       
+       spin%SO = .true.
+       spin%SO_onsite = .true.
 
     else
        write(*,*) 'Unknown spin flag: ', trim(opt)
        call die('Spin: unknown flag, please assert the correct input.')
     end if
 
-    ! TODO once off-site is fully implemented
-    ! this should be removed to enable the off-site code
-    ! fully!
-    spin%SO_off = .false.
-
+    if ( spin%SO_offsite ) then
+       call add_citation("10.1088/0953-8984/24/8/086005")
+    end if
+    if ( spin%SO_onsite ) then
+       call add_citation("10.1088/0953-8984/18/34/012")
+    end if
+    
     ! Note that, in what follows,
     !   spinor_dim = min(h_spin_dim,2)
     !   e_spin_dim = min(h_spin_dim,4)
@@ -235,9 +238,10 @@
        spin%Col  = .false.
        spin%NCol = .false.
        spin%SO   = .true.
+       ! off/on MUST already be set!
 
        ! should be moved...
-       TRSym      = .false.
+       TRSym = .false.
 
     else if ( spin%NCol ) then
        ! Non-collinear case
@@ -250,13 +254,15 @@
        spin%spinor = 2
 
        ! Flags
-       spin%none = .false.
-       spin%Col  = .false.
-       spin%NCol = .true.
-       spin%SO   = .false.
+       spin%none       = .false.
+       spin%Col        = .false.
+       spin%NCol       = .true.
+       spin%SO         = .false.
+       spin%SO_onsite  = .false.
+       spin%SO_offsite = .false.
 
        ! should be moved...
-       TRSym      = .false.
+       TRSym = .false.
 
     else if ( spin%Col ) then
        ! Collinear case
@@ -269,13 +275,15 @@
        spin%spinor = 2
 
        ! Flags
-       spin%none = .false.
-       spin%Col  = .true.
-       spin%NCol = .false.
-       spin%SO   = .false.
+       spin%none       = .false.
+       spin%Col        = .true.
+       spin%NCol       = .false.
+       spin%SO         = .false.
+       spin%SO_onsite  = .false.
+       spin%SO_offsite = .false.
 
        ! should be moved...
-       TRSym      = .true.
+       TRSym = .true.
 
     else if ( spin%none ) then
        ! No spin configuration...
@@ -288,13 +296,15 @@
        spin%spinor = 1
 
        ! Flags
-       spin%none = .true.
-       spin%Col  = .false.
-       spin%NCol = .false.
-       spin%SO   = .false.
+       spin%none       = .true.
+       spin%Col        = .false.
+       spin%NCol       = .false.
+       spin%SO         = .false.
+       spin%SO_onsite  = .false.
+       spin%SO_offsite = .false.
 
        ! should be moved...
-       TRSym      = .true.
+       TRSym = .true.
 
     end if
 
@@ -325,16 +335,17 @@
   ! Print out spin-configuration options
   subroutine print_spin_options( )
     use parallel, only: IONode
+    use siesta_options, only: so_strength
 
     character(len=32) :: opt
 
     if ( .not. IONode ) return
 
     if ( spin%SO ) then
-       if ( spin%SO_off ) then
-          opt = 'spin-orbit+off'
+       if ( spin%SO_offsite ) then
+          opt = 'spin-orbit+offsite'
        else
-          opt = 'spin-orbit+on'
+          opt = 'spin-orbit+onsite'
        end if
     else if ( spin%NCol ) then
        opt = 'non-collinear'
@@ -356,6 +367,10 @@
        write(*,'(a)') repeat('#',60)
        write(*,'(a,t16,a,t60,a)') '#','Spin-orbit coupling is in beta','#'
        write(*,'(a,t13,a,t60,a)') '#','Several options may not be compatible','#'
+       if (so_strength /= 1.0_dp) then
+          write(*,'(a,t13,a,1x,f10.6,t60,a)') '#','** Warning: SO strength:',&
+                                              so_strength, '#'
+       endif
        write(*,'(a)') repeat('#',60)
     end if
 

=== modified file 'Src/mixer.F'
--- Src/mixer.F	2018-04-17 13:06:00 +0000
+++ Src/mixer.F	2018-04-22 14:22:29 +0000
@@ -30,7 +30,7 @@
       use m_mixing_scf, only: scf_mix
       use m_mixing, only: mixing
       
-      use m_spin,           only: h_spin_dim, SpOrb
+      use m_spin,           only: spin 
       use parallel,         only: IONode
 
       implicit none
@@ -60,7 +60,7 @@
 
 
       ! Create residual function to minimize
-      allocate(F(maxnh,h_spin_dim))
+      allocate(F(maxnh,spin%H))
 
 !$OMP parallel default(shared), private(dtmp,i)
 
@@ -103,15 +103,15 @@
       ! Upon exit Xout contains the mixed quantity
       select case ( mix_spin )
       case ( MIX_SPIN_ALL )
-         call mixing( scf_mix, maxnh, h_spin_dim, Xin, F, Xout)
+         call mixing( scf_mix, maxnh, spin%H, Xin, F, Xout)
       case ( MIX_SPIN_SPINOR )
-         call mixing( scf_mix, maxnh, h_spin_dim, Xin, F, Xout,
+         call mixing( scf_mix, maxnh, spin%H, Xin, F, Xout,
      &        nsub=2)
       case ( MIX_SPIN_SUM )
-         call mixing( scf_mix, maxnh, h_spin_dim, Xin, F, Xout,
+         call mixing( scf_mix, maxnh, spin%H, Xin, F, Xout,
      &        nsub=1)
       case ( MIX_SPIN_SUM_DIFF )
-         call mixing( scf_mix, maxnh, h_spin_dim, Xin, F, Xout,
+         call mixing( scf_mix, maxnh, spin%H, Xin, F, Xout,
      &        nsub=2)
       end select
 
@@ -188,15 +188,15 @@
 
       if (muldeb .and. (.not. MixH) ) then 
          if (IONode) write (6,"(/a)") 'Using DM after mixing:'
-         if ( SpOrb .and. orbmoms) then
+         if ( spin%SO .and. orbmoms) then
             call moments( 1, na_u, no_u, maxnh, numh, listhptr,
      .           listh, S, Dscf, isa, lasto, iaorb, iphorb,
      .           indxuo )
          endif
          ! Call this unconditionally
          call mulliken( mullipop, na_u, no_u, maxnh,
-     &           numh, listhptr, listh, S, Dscf, isa,
-     &           lasto, iaorb, iphorb )
+     &          numh, listhptr, listh, S, Dscf, isa,
+     &          lasto, iaorb, iphorb )
       endif
 
       call timer( 'MIXER', 2 )

=== modified file 'Src/moments.F'
--- Src/moments.F	2018-04-17 13:06:00 +0000
+++ Src/moments.F	2018-04-22 14:22:29 +0000
@@ -296,4 +296,3 @@
       deallocate(l_orb)
 
       end subroutine moments
-

=== modified file 'Src/nlefsm.f'
--- Src/nlefsm.f	2016-11-04 14:10:50 +0000
+++ Src/nlefsm.f	2018-04-22 14:22:29 +0000
@@ -7,9 +7,12 @@
 !
       module m_nlefsm
 
+      use precision,     only : dp
+      use sparse_matrices, only: H0_offsiteSO
+
       implicit none
 
-      public :: nlefsm
+      public :: nlefsm, nlefsm_offsiteSO, calc_Vj_offsiteSO
 
       private
 
@@ -301,8 +304,6 @@
                  kg = kbproj_gindex(ks,koa)
                  call new_MATEL( 'S', kg, ig, xki(1:3,ina),
      &                Ski(ikb,nno), grSki(1:3,ikb,nno) )
-                 !  Maybe: Ski = epskb_sqrt * Ski
-                 !         grSki = epskb_sqrt * grSki
               enddo
 
            enddo ! loop over orbitals
@@ -441,4 +442,620 @@
       
       end subroutine nlefsm
 
+C nlefsm_offsiteSO calculates the KB elements to the total Hamiltonian 
+C (including the SO contribution)
+C when Off-Site Spin Orbit is included in the calculation 
+      subroutine nlefsm_offsiteSO( scell, nua, na, isa, xa, indxua,
+     .                      maxnh, maxnd, lasto, lastkb, iphorb, 
+     .                      iphKB, numd, listdptr, listd, numh, 
+     .                      listhptr, listh, nspin, Enl, Enl_offsiteSO, 
+     .                      fa, stress, H0 , matrix_elements_only)
+
+
+C *********************************************************************
+C Calculates non-local (NL) pseudopotential contribution to total 
+C energy, atomic forces, stress and hamiltonian matrix elements.
+C Energies in Ry. Lengths in Bohr.
+C Writen by J.Soler and P.Ordejon, June 1997.
+C Modified by R. Cuadrado and J. I. Cerda for the 
+C off-site Spin-Orbit, January 2017.
+C **************************** INPUT **********************************
+C real*8  scell(3,3)       : Supercell vectors SCELL(IXYZ,IVECT)
+C integer nua              : Number of atoms in unit cell
+C integer na               : Number of atoms in supercell
+C integer isa(na)          : Species index of each atom
+C real*8  xa(3,na)         : Atomic positions in cartesian coordinates
+C integer indxua(na)       : Index of equivalent atom in unit cell
+C integer maxnh            : First dimension of H and listh
+C integer maxnd            : Maximum number of elements of the
+C                            density matrix
+C integer lasto(0:na)      : Position of last orbital of each atom
+C integer lastkb(0:na)     : Position of last KB projector of each atom
+C integer iphorb(no)       : Orbital index of each orbital in its atom,
+C                            where no=lasto(na)
+C integer iphKB(nokb)      : Index of each KB projector in its atom,
+C                            where nokb=lastkb(na)
+C integer numd(nuo)        : Number of nonzero elements of each row of the
+C                            density matrix
+C integer listdptr(nuo)    : Pointer to the start of each row (-1) of the
+C                            density matrix
+C integer listd(maxnd)     : Nonzero hamiltonian-matrix element column 
+C                            indexes for each matrix row
+C integer numh(nuo)        : Number of nonzero elements of each row of the
+C                            hamiltonian matrix
+C integer listhptr(nuo)    : Pointer to the start of each row (-1) of the
+C                            hamiltonian matrix
+C integer listh(maxnh)     : Nonzero hamiltonian-matrix element column 
+C                            indexes for each matrix row
+C integer nspin            : Number of spin components of Dscf and H
+C                            If computing only matrix elements, it
+C                            can be set to 1.
+C logical matrix_elements_only:
+C integer Dscf(maxnd,nspin): Density matrix. Not touched if computing
+C                            only matrix elements.
+C ******************* INPUT and OUTPUT *********************************
+C real*8 fa(3,na)          : NL forces (added to input fa)
+C real*8 stress(3,3)       : NL stress (added to input stress)
+C real*8 H(maxnh,nspin)    : NL Hamiltonian (added to input H)
+C **************************** OUTPUT *********************************
+C real*8 Enl               : NL energy
+C *********************************************************************
+C
+C  Modules
+C
+C      use precision,     only : dp
+      use parallel,        only : Node, Nodes
+      use parallelsubs,    only : GetNodeOrbs, LocalToGlobalOrb
+      use parallelsubs,    only : GlobalToLocalOrb
+      use atmfuncs,        only : rcut, orb_gindex, kbproj_gindex
+      use atmfuncs,        only : epskb
+      use neighbour,       only : iana=>jan, r2ki=>r2ij, xki=>xij
+      use neighbour,       only : mneighb, reset_neighbour_arrays
+      use alloc,           only : re_alloc, de_alloc
+      use m_new_matel,     only : new_matel
+      use atm_types,       only: species_info, species
+      use sparse_matrices, only: Dscf, xijo
+      use atomlist,        only: indxuo
+     
+      use m_spin,          only: spin
+
+      integer, intent(in) ::
+     .   maxnh, na, maxnd, nspin, nua
+
+      integer, intent(in)  ::
+     .  indxua(na), iphKB(*), iphorb(*), isa(na),  
+     .  lasto(0:na), lastkb(0:na), listd(maxnd), listh(maxnh),
+     .  numd(*), numh(*), listdptr(*), listhptr(*)
+
+      real(dp), intent(in) :: scell(3,3),  ! Dscf(maxnd,nspin),
+     .                        xa(3,na)
+      real(dp), intent(inout) :: fa(3,nua), stress(3,3)
+      real(dp), intent(inout) :: H0(maxnh) 
+                                           
+      real(dp), intent(out)   :: Enl, Enl_offsiteSO 
+      logical, intent(in)     :: matrix_elements_only
+
+      real(dp) ::   volcel
+      external ::   timer, volcel
+
+C Internal variables ................................................
+C maxno  = maximum number of basis orbitals overlapping a KB projector
+
+      integer, save ::  maxno = 2000
+  
+      integer
+     .  ia, ikb, ina, ind, ino, indt,
+     .  io, iio, ioa, is, ispin, ix, ig, kg,
+     .  j, jno, jo, jx, ka, ko, koa, ks, kua,
+     .  nkb, nna, nno, no, nuo, nuotot, maxkba
+
+      integer :: l, koa1, koa2, i 
+
+      integer, dimension(:), pointer :: iano, iono
+
+      real(dp)
+     .  Cijk, fik, rki, rmax, rmaxkb, rmaxo, 
+     .  volume, CVj, epsk(2), Vit  
+
+      real(dp)           :: r1(3), r2(3)
+
+      real(dp), dimension(:), pointer :: Di, Vi ! This is Vion
+      real(dp), dimension(:,:), pointer :: Ski, xno
+      real(dp), dimension(:,:,:), pointer :: grSki
+
+      complex(dp)          :: V_sot(2,2), F_so(3,2,2)
+      complex(dp), pointer :: V_so(:,:,:), Ds(:,:,:)
+
+
+      logical ::   within
+      logical, dimension(:), pointer ::  listed, listedall
+
+      complex(dp) :: E_offsiteSO(4)
+
+      type(species_info), pointer        :: spp
+
+      integer :: nd, ndn
+
+C ------------------------------------------------------------
+
+C Start time counte
+      call timer( 'nlefsm', 1 )
+
+C Find unit cell volume
+      volume = volcel( scell ) * nua / na
+
+C Find maximum range
+      rmaxo = 0.0d0
+      rmaxkb = 0.0d0
+      do ia = 1,na
+        is = isa(ia)
+        do ikb = lastkb(ia-1)+1,lastkb(ia)
+          ioa = iphKB(ikb)
+          rmaxkb = max( rmaxkb, rcut(is,ioa) )
+        enddo
+        do io = lasto(ia-1)+1,lasto(ia)
+          ioa = iphorb(io)
+          rmaxo = max( rmaxo, rcut(is,ioa) )
+        enddo
+      enddo
+      rmax = rmaxo + rmaxkb
+
+C Initialize arrays Di and Vi only once
+      no = lasto(na)
+      nuotot = lasto(nua)
+
+      call GetNodeOrbs(nuotot,Node,Nodes,nuo)
+
+C Allocate local memory
+
+      nullify( Vi ) ! This is Vion
+      call re_alloc( Vi, 1, no, 'Vi', 'nlefsm_offsiteSO' )
+      Vi(1:no) = 0.0_dp
+
+      nullify( listed )
+      call re_alloc( listed, 1, no, 'listed', 'nlefsm_offsiteSO' )
+      listed(1:no) = .false.
+      nullify( listedall )
+      call re_alloc( listedall, 1, no, 'listedall', 'nlefsm_offsiteSO' )
+      listedall(1:no) = .false.
+
+      allocate( V_so(2,2,no) )
+
+      if (.not. matrix_elements_only) then
+       nullify( Di ) 
+       call re_alloc( Di, 1, no, 'Di', 'nlefsm_offsiteSO' )
+       Di(1:no) = 0.0_dp
+       allocate( Ds(2,2,no) )
+      endif
+
+C Make list of all orbitals needed for this node
+
+      do io = 1,nuo
+        call LocalToGlobalOrb(io,Node,Nodes,iio)
+        listedall(iio) = .true.
+        do j = 1,numh(io)
+          jo = listh(listhptr(io)+j)
+          listedall(jo) = .true.
+        enddo
+      enddo
+
+C Find maximum number of KB projectors of one atom = maxkba
+      maxkba = 0
+      do ka = 1,na
+        nkb = lastkb(ka) - lastkb(ka-1)
+        maxkba = max(maxkba,nkb)
+      enddo
+
+C Allocate local arrays that depend on saved parameters
+      nullify( iano )
+      call re_alloc( iano, 1, maxno, 'iano', 'nlefsm_offsiteSO' )
+      nullify( iono )
+      call re_alloc( iono, 1, maxno, 'iono', 'nlefsm_offsiteSO' )
+      nullify( xno )
+      call re_alloc( xno, 1, 3, 1, maxno, 'xno',  'nlefsm_offsiteSO' )
+      nullify( Ski )
+      call re_alloc( Ski, 1, maxkba, 1, maxno, 'Ski','nlefsm_offsiteSO')
+      nullify( grSki )
+      call re_alloc( grSki, 1, 3, 1, maxkba, 1, maxno, 'grSki',
+     &               'nlefsm_offsiteSO' )
+
+C     Initialize neighb subroutine
+      call mneighb( scell, rmax, na, xa, 0, 0, nna )
+
+      nd= 0; ndn= 0
+      Enl = 0.0d0; E_offsiteSO(1:4)=dcmplx(0.0d0,0.0d0)
+      Enl_offsiteSO = 0.0d0
+C     Loop on atoms with KB projectors      
+      do ka = 1,na      ! Supercell atoms
+       kua = indxua(ka) ! Equivalent atom in the UC
+       ks = isa(ka)     ! Specie index of atom ka
+       nkb = lastkb(ka) - lastkb(ka-1) ! number of KB projs of atom ka
+
+C      Find neighbour atoms
+       call mneighb( scell, rmax, na, xa, ka, 0, nna )
+
+C      Find neighbour orbitals
+       Ski(:,:) = 0.0_dp
+       nno = 0; ; iano(:)=0; iono(:)=0
+       do ina = 1,nna  ! Neighbour atoms
+        ia = iana(ina) ! Atom index of ina (the neighbour to ka)
+        is = isa(ia)   ! Specie index of atom ia
+        rki = sqrt(r2ki(ina)) ! Square distance
+ 
+        do io = lasto(ia-1)+1,lasto(ia) ! Orbitals of atom ia
+
+C        Only calculate if needed locally
+
+        if (listedall(io)) then
+          ioa = iphorb(io)  ! Orbital index of orbital io in 
+C                             neighbour atom ina
+
+C         Find if orbital is within range
+          within = .false.
+          do ko = lastkb(ka-1)+1,lastkb(ka)
+           koa = iphKB(ko)
+           if ( rki .lt. rcut(is,ioa)+rcut(ks,koa) ) 
+     &            within = .true.
+          enddo
+
+C         Find overlap between neighbour orbitals and KB projectors
+          if (within) then
+C          Check maxno - if too small then increase array sizes
+           if (nno.eq.maxno) then
+            maxno = maxno + 100
+            call re_alloc( iano, 1, maxno, 'iano', 'nlefsm_offsiteSO',
+     &                    .true. )
+            call re_alloc( iono, 1, maxno, 'iono', 'nlefsm_offsiteSO',
+     &                    .true. )
+            call re_alloc( xno, 1, 3, 1, maxno,'xno','nlefsm_offsiteSO',
+     &                    .true. )
+            call re_alloc( Ski, 1, maxkba, 1, maxno, 'Ski',
+     &                    'nlefsm_offsiteSO', .true. )
+            call re_alloc( grSki, 1, 3, 1, maxkba, 1, maxno,
+     &                    'grSki', 'nlefsm_offsiteSO', .true. )
+           endif
+           nno = nno + 1  ! Number of neighbour orbitals
+           iono(nno) = io ! io orbital of atom ina (neighbour to ka)
+           iano(nno) = ia ! atom index of the neighbour ina
+           xno(1:3,nno) = xki(1:3,ina)
+           ikb = 0
+           do ko = lastkb(ka-1)+1,lastkb(ka) !Generic positions of kb's
+            ikb = ikb + 1
+            ioa = iphorb(io)
+            koa = iphKB(ko)            ! koa = -ikb 
+
+            if ( koa.ne.-ikb ) then
+             write(6,*) 'koa ERROR: koa,ikb=',koa,ikb
+             stop
+            endif
+            kg = kbproj_gindex(ks,koa)
+            ig = orb_gindex(is,ioa)
+            call new_MATEL( 'S', kg, ig, xki(1:3,ina),
+     &                     Ski(ikb,nno), grSki(1:3,ikb,nno) )
+           enddo
+          endif  ! Within
+
+         endif    
+        enddo    ! neighbour AO
+       enddo     ! neighbour atoms
+
+C----- Loop on neighbour orbitals
+       do ino = 1,nno
+        io = iono(ino)
+        ia = iano(ino)
+
+        call GlobalToLocalOrb(io,Node,Nodes,iio)
+
+        if (iio.gt.0) then
+C        Valid orbital
+         if (ia .le. nua) then
+          if (.not. matrix_elements_only) then
+           !Scatter density matrix row of orbital io
+           Ds(1:2,1:2,1:no) = dcmplx(0.0d0,0.0d0) 
+           do j = 1,numh(iio)
+            ind = listhptr(iio)+j  ! jptr
+            jo = listh(ind)       ! j
+            Di(jo) = 0.0_dp
+            do ispin = 1,min(2,nspin)
+             Di(jo) = Di(jo) + Dscf(ind,ispin)
+            enddo
+            Ds(1,1,jo) = dcmplx(Dscf(ind,1), Dscf(ind,5))  ! D(ju,iu)
+            Ds(2,2,jo) = dcmplx(Dscf(ind,2), Dscf(ind,6))  ! D(jd,id)
+            Ds(1,2,jo) = dcmplx(Dscf(ind,3), Dscf(ind,4))  ! D(ju,id)
+            Ds(2,1,jo) = dcmplx(Dscf(ind,7),-Dscf(ind,8))  ! D(jd,iu)
+           enddo
+          endif
+
+C-------- Scatter filter of desired matrix elements
+          do j = 1,numh(iio)
+           jo = listh(listhptr(iio)+j)
+           listed(jo) = .true.
+          enddo
+
+C  Loading V_ion/V_so
+          Vi(1:no) = 0.0_dp
+          V_so(1:2,1:2,1:no) = dcmplx(0.0d0,0.0d0)
+
+C-------- Find matrix elements with other neighbour orbitals
+          do jno = 1,nno
+           jo = iono(jno)
+
+           if (listed(jo)) then
+
+C---------- Loop on KB projectors
+            ko  = lastkb(ka-1)
+            KB_loop: do
+             koa = -iphKB(ko+1)
+             spp => species(ks)
+             l = spp%pj_l(koa)
+
+c----------- Compute Vion
+             if ( l.eq.0 ) then
+              epsk(1) = epskb(ks,koa)
+              Vit = epsk(1) * Ski(koa,ino) * Ski(koa,jno)
+              Vi(jo) = Vi(jo) + Vit
+              if (.not. matrix_elements_only) then
+               Enl = Enl +  Di(jo) * Vit
+               CVj  = epsk(1) * Ski(koa,jno)
+               Cijk = 2.0_dp * Di(jo) * CVj
+               do ix = 1,3
+                fik = Cijk * grSki(ix,koa,ino)
+                fa(ix,ia)  = fa(ix,ia)  - fik
+                fa(ix,kua) = fa(ix,kua) + fik
+                do jx = 1,3
+                stress(jx,ix) = stress(jx,ix) +
+     &                           xno(jx,ino) * fik / volume
+                enddo
+               enddo
+              endif
+              ko = ko + 1 
+
+c----------- Compute Vion from j+/-1/2 and V_so
+             else
+              koa1 = -iphKB(ko+1)
+              koa2 = -iphKB(ko+2*(2*l+1))
+              epsk(1) = epskb(ks,koa1)
+              epsk(2) = epskb(ks,koa2)
+
+              call calc_Vj_offsiteSO( l, epsk, Ski(koa1:koa2,ino), 
+     &                       Ski(koa1:koa2,jno), grSki(:,koa1:koa2,ino),
+     &                       grSki(:,koa1:koa2,jno), Vit, V_sot, F_so )
+              Vi(jo) = Vi(jo) + Vit
+              V_so(1:2,1:2,jo)= V_so(1:2,1:2,jo) + V_sot(1:2,1:2)
+         
+c------------ Forces & SO contribution to E_NL
+              if (.not. matrix_elements_only) then     
+               Enl = Enl +  Di(jo) * Vit
+
+               E_offsiteSO(1) = E_offsiteSO(1) + V_sot(1,1)*Ds(1,1,jo) ! V(iu,ju)*D(ju,iu)
+               E_offsiteSO(2) = E_offsiteSO(2) + V_sot(2,2)*Ds(2,2,jo) ! V(id,jd)*D(jd,id)
+               E_offsiteSO(3) = E_offsiteSO(3) + V_sot(1,2)*Ds(2,1,jo) ! V(iu,jd)*D(jd,iu)
+               E_offsiteSO(4) = E_offsiteSO(4) + V_sot(2,1)*Ds(1,2,jo) ! V(id,ju)*D(ju,id)
+
+               do ix = 1,3
+                fik = 2.0_dp*dreal(Ds(1,1,jo)*F_so(ix,1,1) +
+     &                             Ds(2,2,jo)*F_so(ix,2,2) +
+     &                             Ds(2,1,jo)*F_so(ix,1,2) +
+     &                             Ds(1,2,jo)*F_so(ix,2,1) )
+                fa(ix,ia)  = fa(ix,ia)  - fik
+                fa(ix,kua) = fa(ix,kua) + fik
+                do jx = 1,3
+                 stress(jx,ix) = stress(jx,ix) +
+     &                           xno(jx,ino) * fik / volume
+                enddo
+               enddo
+              endif
+              ko = ko+2*(2*l+1)
+             endif
+             if ( ko.ge.lastkb(ka) ) exit KB_loop
+            enddo KB_loop
+
+           endif  ! listed
+          enddo ! jno orbitals
+
+C-------- Pick up contributions to H and restore Di and Vi
+          do j = 1,numh(iio)
+           ind = listhptr(iio)+j
+           jo = listh(ind)
+           H0(ind) = H0(ind) + Vi(jo)
+           H0_offsiteSO(ind,1) = H0_offsiteSO(ind,1) + V_so(1,1,jo)
+           H0_offsiteSO(ind,2) = H0_offsiteSO(ind,2) + V_so(2,2,jo)
+           H0_offsiteSO(ind,3) = H0_offsiteSO(ind,3) + V_so(1,2,jo)
+           H0_offsiteSO(ind,4) = H0_offsiteSO(ind,4) + V_so(2,1,jo)
+
+
+C     Careful with this Vi()
+           Vi(jo) = 0.0d0
+           listed(jo) = .false.
+          enddo
+         endif ! Atom in UC?
+
+        endif   ! iio .gt. 0 
+       enddo     ! ino AOs
+      enddo       ! atoms with KB projectors loop
+
+      if (.not. matrix_elements_only) then
+       Enl_offsiteSO = sum( dreal(E_offsiteSO(1:4)) )
+      endif
+
+C     Deallocate local memory
+
+      call reset_neighbour_arrays( )
+      call de_alloc( grSki, 'grSki', 'nlefsm_offsiteSO' )
+      call de_alloc( Ski, 'Ski', 'nlefsm_offsiteSO' )
+      call de_alloc( xno, 'xno', 'nlefsm_offsiteSO' )
+      call de_alloc( iono, 'iono', 'nlefsm_offsiteSO' )
+      call de_alloc( iano, 'iano', 'nlefsm_offsiteSO' )
+
+      call de_alloc( listedall, 'listedall', 'nlefsm_offsiteSO' )
+      call de_alloc( listed, 'listed', 'nlefsm_offsiteSO' )
+      call de_alloc( Vi, 'Vi', 'nlefsm_offsiteSO' )
+      deallocate( V_so )
+
+      if (.not. matrix_elements_only) then
+         call de_alloc( Di, 'Di', 'nlefsm_offsiteSO' )
+         deallocate( Ds )
+      endif
+
+      call timer( 'nlefsm', 2 )
+
+      end subroutine nlefsm_offsiteSO
+
+c-----------------------------------------------------------------------
+c
+!> Evaluates:
+!!   <i|V_NL|j>, where V_NL= Sum_{j,mj} |V,j,mj><V,j,mj|
+c
+c-----------------------------------------------------------------------
+      subroutine calc_Vj_offsiteSO( l, epskb, Ski, Skj, grSki, grSkj,
+     &                       V_ion, V_so, F_so )
+
+      use siesta_options, only: so_strength  ! overall factor
+      
+      implicit none
+
+      integer     , intent(in)  :: l
+      real(dp)    , intent(in)  :: epskb(2)
+      real(dp)    , intent(in)  :: Ski(-l:l,2), Skj(-l:l,2)
+      real(dp)    , intent(in)  :: grSki(3,-l:l,2), grSkj(3,-l:l,2)
+      real(dp)    , intent(out) :: V_ion
+      complex(dp) , intent(out) :: F_so(3,2,2)
+      complex(dp) , intent(out) :: V_so(2,2)
+
+
+      integer    :: J, ij, imj, m, is
+      real(dp)   :: aj, amj, al, a2l1, fac, facm,
+     &              epskpm, V_iont, cp, cm, facpm
+
+      real(dp)   :: cg(2*(2*l+1),2)
+      complex(dp):: u(-l:l,-l:l)
+      complex(dp):: SVi(2), SVj(2), grSVi(3,2)
+
+      external   :: die
+c-----------------------------------------------------------------------
+
+c---- set constants and factors
+      al   = dble(l)
+      a2l1 = dble( 2*l+1 )
+
+c---- load Clebsch-Gordan coefficients; cg(J,+-)
+      J = 0
+      cg(:,:) = 0.0_dp
+      do ij = 1, 2
+       aj = al + (2*ij-3)*0.5d0        ! j(ij=1)=l-1/2; j(ij=2)=l+1/2
+       facpm= (-1.0d0)**(aj-al-0.5d0)  ! +/- sign
+       do imj = 1, nint(2*aj)+1        ! Degeneracy for j
+        amj = -aj + dfloat(imj-1)      ! mj value
+        J = J+1                        ! (j,mj) index
+
+        cp = sqrt( (al+0.5d0+amj)/a2l1 )
+        cm = sqrt( (al+0.5d0-amj)/a2l1 )
+        if ( ij.eq. 1 ) then
+         cg(J,1) =  cm*facpm ! <j-|up>
+         cg(J,2) =  cp       ! <j-|down>
+        else
+         cg(J,1) =  cp*facpm ! <j+|up>
+         cg(J,2) =  cm       ! <j+|down>
+        endif
+       enddo
+      enddo
+
+c---- Ski(M)= <l,M|i> ; Si(m)= <l,m|i> = u(m,-M)*Ski(-M) + u(m,M)*Ski(M)
+      fac = 1.0d0/sqrt(2.0d0)
+      u(:,:) = cmplx(0.0d0,0.0d0)
+      u(0,0)= cmplx(1.0d0,0.0d0)
+      do m =  1, l
+       facm = fac*(-1.0d0)**m
+       u(-m,+M) = cmplx(1.0d0,0.0d0)*fac
+       u(-m,-M) = cmplx(0.0d0,1.0d0)*fac  ! J. Cerda
+       u(+m,+M) = cmplx(1.0d0,0.0d0)*facm
+       u(+m,-M) =-cmplx(0.0d0,1.0d0)*facm ! J. Cerda
+      enddo
+
+c---- Load V_so
+      V_so= cmplx(0.0d0,0.0d0); F_so= cmplx(0.0d0,0.0d0)
+      J = 0
+      do ij = 1, 2
+       aj = al + (2*ij-3)*0.5d0        ! j value
+       do imj = 1, nint(2*aj)+1        ! Degeneracy for j
+        amj = -aj + dfloat(imj-1)      ! mj value
+        J = J+1                        ! (j,mj) index
+
+        SVi(1:2)= cmplx(0.0d0,0.0d0); SVj(1:2)= cmplx(0.0d0,0.0d0)
+        grSVi(1:3,1:2)= cmplx(0.0d0,0.0d0)
+        do is = 1, 2  ! spin loop
+
+c        select correct m
+         if ( is.eq.1 ) then
+          m = nint(amj-0.5d0)    ! up   => m=mj-1/2
+         else
+          m = nint(amj+0.5d0)    ! down => m=mj+1/2
+         endif
+     
+         if ( iabs(m).le.l ) then
+          SVi(is)= Ski(+M,ij)*u(+m,M)
+          SVj(is)= Skj(+M,ij)*u(+m,M)
+          grSVi(1:3,is)= grSki(1:3,+M,ij)*u(+m,M)
+          if ( m.ne.0 ) then
+           SVi(is)= SVi(is) + Ski(-M,ij)*u(+m,-M)
+           SVj(is)= SVj(is) + Skj(-M,ij)*u(+m,-M)
+           grSVi(1:3,is)= grSVi(1:3,is) +
+     &                    grSki(1:3,-M,ij)*u(+m,-M)
+          endif
+          SVi(is) = SVi(is) * cg(J,is)
+          SVj(is) = SVj(is) * cg(J,is)
+ 
+          grSVi(1:3,is) = grSVi(1:3,is) * cg(J,is)
+         endif
+        enddo ! is
+
+c       up-up = <i,+|V,J><V,J|j,+>
+        V_so(1,1)  = V_so(1,1)  + SVi(1) * epskb(ij) * conjg(SVj(1))
+        F_so(:,1,1)= F_so(:,1,1)+ grSVi(:,1) * epskb(ij) * conjg(SVj(1))
+
+c       down-down = <i,-|V,J><V,J|j,->
+        V_so(2,2)  = V_so(2,2)  + SVi(2) * epskb(ij) * conjg(SVj(2))
+        F_so(:,2,2)= F_so(:,2,2)+ grSVi(:,2) * epskb(ij) * conjg(SVj(2))
+
+c       up-down = <i,+|V,J><V,J|j,->
+        V_so(1,2)  = V_so(1,2)  + SVi(1) * epskb(ij) * conjg(SVj(2))
+        F_so(:,1,2)= F_so(:,1,2)+ grSVi(:,1) * epskb(ij) * conjg(SVj(2))
+
+c       down-up= <i,-|V,J><V,J|j,+>
+        V_so(2,1)  = V_so(2,1)  + SVi(2) * epskb(ij) * conjg(SVj(1))
+        F_so(:,2,1)= F_so(:,2,1)+ grSVi(:,2) * epskb(ij) * conjg(SVj(1))
+
+       enddo ! mj
+      enddo ! ij
+
+cc--- debugging
+      if ( cdabs(V_so(1,2)+conjg(V_so(2,1))).gt.1.0d-4 ) then
+       write(6,'(a,2f12.6)') 'V_so(1,2)=',V_so(1,2)
+       write(6,'(a,2f12.6)') 'V_so(2,1)=',V_so(2,1)
+       call die('calc_Vj_LS: ERROR')
+      endif
+
+c---- substract out V_ion
+      epskpm = sqrt( epskb(1)*epskb(2) )
+      epskpm = sign(epskpm,epskb(1))
+ 
+      V_ion = 0.0d0
+      do M = -l, l
+       V_iont = ( l**2     * Ski(M,1)*epskb(1)*Skj(M,1)
+     &          + (l+1)**2 * Ski(M,2)*epskb(2)*Skj(M,2)
+     &          + l*(l+1)  * Ski(M,1)*epskpm  *Skj(M,2)
+     &          + l*(l+1)  * Ski(M,2)*epskpm  *Skj(M,1) )/(a2l1**2)
+       V_ion = V_ion + V_iont
+      enddo
+   
+      V_so(1,1) = V_so(1,1) - cmplx(1.0d0,0.0d0)*V_ion
+      V_so(2,2) = V_so(2,2) - cmplx(1.0d0,0.0d0)*V_ion
+
+      ! Apply overall factor
+      V_so = so_strength * V_so
+      F_so = so_strength * F_so
+      
+      return
+      end subroutine calc_Vj_offsiteSO
+
       end module m_nlefsm

=== modified file 'Src/read_options.F90'
--- Src/read_options.F90	2018-04-17 13:07:32 +0000
+++ Src/read_options.F90	2018-04-22 14:22:29 +0000
@@ -198,6 +198,7 @@
   endif
 
   ! Start by printing out spin-configuration
+  so_strength            = fdf_get( 'SpinOrbitStrength',1.0_dp)
   call print_spin_options()
 
   ! H setup only

=== modified file 'Src/setup_H0.F'
--- Src/setup_H0.F	2017-06-23 19:49:18 +0000
+++ Src/setup_H0.F	2018-04-22 14:22:29 +0000
@@ -20,6 +20,10 @@
       use sparse_matrices, only: H_so_2D
       use sparse_matrices, only: Dscf
 
+      use sparse_matrices, only: H0_offsiteSO
+      use m_nlefsm,        only: nlefsm_offsiteSO
+      use m_spin,          only: spin
+
       use sparse_matrices, only: listh, listhptr, numh, maxnh
       use siesta_geom
       use atmfuncs, only: uion
@@ -52,6 +56,13 @@
       real(dp) :: dummy_E
       integer  :: ia, is
 
+      real(dp)    :: dummy_Eso
+      integer     :: io, ispin, i, j 
+      complex(dp) :: Hc, Dc
+#ifdef MPI
+      real(dp)            :: buffer1
+#endif
+
       real(dp), pointer :: H_val(:), H_so(:,:)
 
 #ifdef DEBUG
@@ -113,15 +124,62 @@
 !$OMP parallel workshare default(shared)
       H_val(:) = 0.0_dp
 !$OMP end parallel workshare
-      call nlefsm(scell, na_u, na_s, isa, xa, indxua, 
-     &            maxnh, maxnh, lasto, lastkb, iphorb, iphKB, 
-     &            numh, listhptr, listh, numh, listhptr, listh, 
-     &            1,
-     &            dummy_dm, dummy_E, dummy_fa, dummy_stress,
-     &            H_val,
-     &            matrix_elements_only=.true.) 
-
-
+
+      Eso = 0.0d0
+
+      if ( .not.spin%SO_offsite ) then
+       call nlefsm(scell, na_u, na_s, isa, xa, indxua, 
+     &             maxnh, maxnh, lasto, lastkb, iphorb, iphKB, 
+     &             numh, listhptr, listh, numh, listhptr, listh, 
+     &             1,
+     &             dummy_dm, dummy_E, dummy_fa, dummy_stress,
+     &             H_val,
+     &             matrix_elements_only=.true.) 
+      else
+        H0_offsiteSO=dcmplx(0.0d0,0.0d0)
+        call nlefsm_offsiteSO(scell, na_u, na_s, isa, xa, indxua,
+     &                 maxnh, maxnh, lasto, lastkb, iphorb, iphKB,
+     &                 numh, listhptr, listh, numh, listhptr, listh,
+     &                 spin%Grid,
+     &                 dummy_E, dummy_Eso, dummy_fa,
+     &                 dummy_stress, H_val,
+     &                 matrix_elements_only=.true.)
+
+
+!
+!  Dc IS NOT the dense matrix, it is just a complex number 
+! (per each io index) used as an artifact to multiply the 
+! elements of the H_SO times the corresponding elements of 
+! DM in a such way that the result gives Re{Tr[H_SO*DM]}.
+!
+
+        do io = 1, maxnh
+
+!-------- Eso(u,u)
+            Dc = cmplx(Dscf(io,1),Dscf(io,5),kind=dp)
+            Hc = H0_offsiteSO(io,1)
+          Eso = Eso + real( Hc*Dc )
+!-------- Eso(d,d)
+            Dc = cmplx(Dscf(io,2),Dscf(io,6),kind=dp)
+            Hc = H0_offsiteSO(io,2)
+          Eso = Eso + real( Hc*Dc )
+!-------- Eso(u,d)
+            Dc = cmplx(Dscf(io,3),Dscf(io,4),kind=dp)
+            Hc = H0_offsiteSO(io,4)
+          Eso = Eso + real( Hc*Dc )
+!-------- Eso(d,u)
+            Dc = cmplx(Dscf(io,7),-Dscf(io,8),kind=dp)
+            Hc = H0_offsiteSO(io,3)
+          Eso = Eso + real( Hc*Dc )
+
+        enddo
+
+#ifdef MPI
+! Global reduction of Eso 
+      call globalize_sum(Eso,buffer1)
+      Eso = buffer1
+#endif
+      endif
 ! ..................
 
 ! If in the future the spin-orbit routine is able to compute
@@ -129,17 +187,14 @@
 ! computing forces and stresses, calling it in the first iteration
 ! should be enough
 !
-      if ( spin%SO ) then
+      if ( spin%SO_onsite ) then
          H_so => val(H_so_2D)
 !$OMP parallel workshare default(shared)
          H_so = 0._dp
 !$OMP end parallel workshare
          call spinorb(no_u,no_l,iaorb,iphorb,isa,indxuo,
      &        maxnh,numh,listhptr,listh,Dscf,H_so,Eso)
-      else
-         Eso = 0._dp
       end if
-      
 
 C     This will take care of possible changes to the mesh and atomic-related
 C     mesh structures for geometry changes
@@ -150,7 +205,7 @@
      &                 mscell, G2max, ntm,
      &                 maxnh, numh, listhptr, listh, datm,
      &                 dummy_fa, dummy_stress)
-  
+
       call timer('Setup_H0',2)
 
 #ifdef DEBUG

=== modified file 'Src/setup_hamiltonian.F'
--- Src/setup_hamiltonian.F	2018-03-30 23:16:29 +0000
+++ Src/setup_hamiltonian.F	2018-04-22 14:22:29 +0000
@@ -40,7 +40,10 @@
       use parallel, only: Node
       use m_steps, only: istp
       use m_ntm
-      use m_spin,         only: spin
+
+      use m_spin,          only: spin 
+      use sparse_matrices, only: H0_offsiteSO
+
       use m_dipol
       use alloc, only: re_alloc, de_alloc
       use m_gamma
@@ -70,6 +73,9 @@
 
       real(dp), pointer   :: H_vkb(:), H_kin(:), H_ldau(:,:), H_so(:,:)
 
+      complex(dp):: Hc, Dc
+      integer :: ind, i, j
+
 !------------------------------------------------------------------------- BEGIN
 
       call timer('setup_H',1)
@@ -91,46 +97,46 @@
 !$OMP single
       H_kin => val(H_kin_1D)
       H_vkb => val(H_vkb_1D)
-      if ( spin%SO ) then
+      if ( spin%SO_onsite ) then
          ! Sadly some compilers (g95), does
          ! not allow bounds for pointer assignments :(
          H_so => val(H_so_2D)
       end if
 !$OMP end single ! keep wait
 
-      ! We do not need to set the non-spinor components
-      ! For non-colinear they are set down below,
-      ! while for spin-orbit they are set to the H_so initial
-      ! spin-orbit.
-      
-      do ispin = 1, spin%spinor
-!$OMP do
-          do io = 1,maxnh
-            H(io,ispin) = H_kin(io) + H_vkb(io)
-          end do
-!$OMP end do nowait
-      end do
-
-      if ( spin%NCol ) then
-
-!$OMP do collapse(2)
-         do ispin = 3 , spin%H
-            do io = 1, maxnh
-               H(io,ispin) = 0._dp
-            end do
-         end do
-!$OMP end do nowait
-         
-      else if ( spin%SO ) then
-
-!$OMP do collapse(2)
-         do ispin = 3 , spin%H
-            do io = 1, maxnh
+      if ( .not. spin%SO_offsite ) then
+       do ispin = 1, spin%spinor
+         if (ispin .le. 2) then
+!$OMP do
+           do io = 1,maxnh
+             H(io,ispin) = H_kin(io) + H_vkb(io)
+           end do
+!$OMP end do nowait
+         else
+!$OMP do
+           do io = 1,maxnh
+             H(io,ispin) = 0.0_dp
+           end do
+!$OMP end do nowait
+         end if
+       end do
+      end if
+
+      if ( spin%SO_onsite ) then
+!$OMP do collapse(2)
+         do ispin = 3 , spin%H
+            do io = 1,maxnh
                H(io,ispin) = H_so(io,ispin-2)
             end do
          end do
 !$OMP end do nowait
-
+      else if ( spin%NCol ) then
+!$OMP do
+         do io = 1,maxnh
+            H(io,3) = 0._dp
+            H(io,4) = 0._dp
+         end do
+!$OMP end do nowait
       end if
          
 ! ..................
@@ -146,6 +152,7 @@
 !$OMP single
       Ekin = 0.0_dp
       Enl = 0.0_dp
+      Eso = 0.0_dp
 !$OMP end single ! keep wait
       
 !$OMP do collapse(2), reduction(+:Ekin,Enl)
@@ -157,10 +164,39 @@
       end do
 !$OMP end do nowait
 
-!$OMP single
-      Eso = 0._dp
-!$OMP end single
-      if ( spin%SO ) then
+!
+!  Dc IS NOT the dense matrix, it is just a complex number 
+! (per each io index) used as an artifact to multiply the 
+! elements of the H_SO times the corresponding elements of 
+! DM in a such way that the result gives Re{Tr[H_SO*DM]}.
+!
+
+      if( spin%SO_offsite ) then
+
+        do io = 1, maxnh
+
+!-------- Eso(u,u)
+            Dc = cmplx(Dscf(io,1),Dscf(io,5),kind=dp)
+            Hc = H0_offsiteSO(io,1)
+            Eso = Eso + real( Hc*Dc )
+!-------- Eso(d,d)
+            Dc = cmplx(Dscf(io,2),Dscf(io,6),kind=dp)
+            Hc = H0_offsiteSO(io,2)
+            Eso = Eso + real( Hc*Dc )
+!-------- Eso(u,d)
+            Dc = cmplx(Dscf(io,3),Dscf(io,4),kind=dp)
+            Hc = H0_offsiteSO(io,4)
+            Eso = Eso + real( Hc*Dc )
+!-------- Eso(d,u)
+            Dc = cmplx(Dscf(io,7),-Dscf(io,8),kind=dp)
+            Hc = H0_offsiteSO(io,3)
+            Eso = Eso + real( Hc*Dc )
+
+        enddo
+
+      endif
+
+      if ( spin%SO_onsite ) then
 !$OMP do reduction(+:Eso)
          do io = 1, maxnh
             Eso = Eso + H_so(io,1)*Dscf(io,7) + H_so(io,2)*Dscf(io,8)
@@ -171,7 +207,7 @@
       end if
 
 !$OMP end parallel
-      
+
 #ifdef MPI
       ! Global reduction of Ekin, Enl
       call globalize_sum(Ekin,buffer1)
@@ -188,10 +224,14 @@
 !     Non-SCF part of total energy
       call update_E0()
 
+      if ( spin%SO_offsite ) then
+       H(:,:) = 0.0_dp
+      endif
+
 ! Hubbard term for LDA+U: energy, forces, stress and matrix elements ....
       if( switch_ldau ) then
         if ( spin%NCol ) then
-         call die('LDA+U cannot be used with non-colinear spin.')
+         call die('LDA+U cannot be used with non-collinear spin.')
         end if
         if ( spin%SO ) then
          call die('LDA+U cannot be used with spin-orbit coupling.')
@@ -243,6 +283,29 @@
      .            Exc, Dxc, dipol, stress, fal, stressl,
      .            use_rhog_in)
 
+      if ( spin%SO_offsite ) then
+
+        do is = 1 , spin%spinor
+          do io = 1, maxnh
+            H(io,is) = H(io,is) + H_kin(io) + H_vkb(io)
+          enddo
+        enddo
+
+C------- H(u,u)
+         H(:,1) = H(:,1) + real(H0_offsiteSO(:,1))
+         H(:,5) =          imag(H0_offsiteSO(:,1))
+C------- H(d,d)
+         H(:,2) = H(:,2) + real(H0_offsiteSO(:,2))
+         H(:,6) =          imag(H0_offsiteSO(:,2))
+C------- H(u,d)
+         H(:,3) = H(:,3) + real(H0_offsiteSO(:,3))
+         H(:,4) = H(:,4) + imag(H0_offsiteSO(:,3))
+C------- H(d,u)
+         H(:,7) = H(:,7) + real(H0_offsiteSO(:,4))
+         H(:,8) = H(:,8) - imag(H0_offsiteSO(:,4))
+
+      endif
+
       ! This statement will apply to iscf = 1, for example, when
       ! we do not use rhog_in. Rhog here is always the charge used to
       ! build H, that is, rhog_in.

=== modified file 'Src/siesta_options.F90'
--- Src/siesta_options.F90	2018-04-17 13:07:32 +0000
+++ Src/siesta_options.F90	2018-04-22 14:22:29 +0000
@@ -27,7 +27,6 @@
   ! -- pre 4.0 coordinate output logic -- to be implemented
   logical :: compat_pre_v4_dynamics      ! General switch
 
-  
   logical :: mix_scf_first ! Mix first SCF step?
   logical :: mix_charge    ! New: mix fourier components of rho
   logical :: mixH          ! Mix H instead of DM
@@ -234,10 +233,12 @@
   real(dp) :: total_spin    ! Total spin used in spin-polarized calculations
   real(dp) :: tt            ! Target temperature. Read in redata. Used in dynamics rout.
   real(dp) :: wmix          ! Mixing weight for DM in SCF iteration
-  real(dp) :: wmixkick       ! Mixing weight for DM in special 'kick' SCF steps
+  real(dp) :: wmixkick      ! Mixing weight for DM in special 'kick' SCF steps
 
   character(len=164) :: sname   ! System name, used to initialise read
 
+  real(dp) :: so_strength   ! Overall factor for spin-orbit (for advanced use only!)
+
   integer,  parameter :: SOLVE_DIAGON = 0
   integer,  parameter :: SOLVE_ORDERN = 1
   integer,  parameter :: SOLVE_TRANSI = 2
@@ -250,5 +251,5 @@
   ! LUA-handle
   type(luaState) :: LUA
 #endif
-  
+
 END MODULE siesta_options

=== modified file 'Src/sparse_matrices.F'
--- Src/sparse_matrices.F	2016-08-18 10:36:36 +0000
+++ Src/sparse_matrices.F	2018-04-22 14:22:29 +0000
@@ -31,6 +31,7 @@
 
       real(dp), public, pointer :: xijo(:,:)=>null()
 
+      complex(dp), public, pointer :: H0_offsiteSO(:,:) => null()
 
       ! Pieces of H that do not depend on the SCF density matrix
       ! Formerly there was a single array H0 for this
@@ -54,7 +55,8 @@
       CONTAINS
 
       subroutine resetSparseMatrices( )
-      use alloc, only : de_alloc
+      use alloc,  only : de_alloc
+      use m_spin, only : spin
 
       implicit none
 
@@ -74,6 +76,10 @@
       call delete( xij_2D ) ; nullify(xijo)
 
       call delete( DM_history )
+
+      if( spin%SO_offsite ) then 
+         call de_alloc( H0_offsiteSO, 'H0_offsiteSO', 'sparseMat' )
+      endif
       
       ! Using MixH is bad as several utilities
       ! are not relying on FoX, better to leave out

=== modified file 'Src/spinorbit.f'
--- Src/spinorbit.f	2017-10-26 10:42:57 +0000
+++ Src/spinorbit.f	2018-04-22 14:22:29 +0000
@@ -38,7 +38,6 @@
       use precision, only: dp
       use atmfuncs
       use atm_types
-      use fdf, only: fdf_get
       use parallel, only: Node, Nodes
       use parallelsubs, only: LocalToGlobalOrb
 
@@ -53,7 +52,6 @@
 !     indexing technology)
 
       logical, save  :: vso_setup = .false.
-      real(dp), save :: so_strength = 1.0_dp
 
       integer, pointer, save   :: nr(:)
       real(dp), pointer, save  :: vso(:,:,:)
@@ -140,8 +138,6 @@
       call broadcast(r)
       call broadcast(drdi)
       
-      so_strength = fdf_get('SpinOrbitStrength',1.0_dp)
-
       end subroutine init_vso
 
 !------------------------------------------------
@@ -174,6 +170,7 @@
 C *********************************************************************
 C
       use m_mpi_utils, only: globalize_sum
+      use siesta_options, only: so_strength
       implicit none
 
 C Arguments

=== modified file 'Src/state_analysis.F'
--- Src/state_analysis.F	2018-04-19 08:46:09 +0000
+++ Src/state_analysis.F	2018-04-22 14:22:29 +0000
@@ -22,7 +22,7 @@
      &                          CartesianForce_to_ZmatForce
       use atomlist,      only : iaorb, iphorb, amass, no_u, lasto
       use atomlist,      only : indxuo
-      use m_spin,        only : nspin, SpOrb
+      use m_spin,        only : spin
       use m_fixed,       only : fixed
       use sparse_matrices
       use siesta_geom
@@ -167,7 +167,7 @@
       endif
 
 !     Population and moment analysis 
-      if ( SpOrb .and. orbmoms) then
+      if ( spin%SO .and. orbmoms) then
          call moments( 1, na_u, no_u, maxnh, numh, listhptr,
      .           listh, S, Dscf, isa, lasto, iaorb, iphorb,
      .           indxuo )

=== modified file 'Src/state_init.F'
--- Src/state_init.F	2018-04-15 14:49:37 +0000
+++ Src/state_init.F	2018-04-22 14:22:29 +0000
@@ -26,6 +26,8 @@
       use sparse_matrices, only: xijo, xij_2D
       use sparse_matrices, only: S   , S_1D
 
+      use sparse_matrices, only: H0_offsiteSO
+
       use sparse_matrices, only: H_kin_1D, H_vkb_1D
       use sparse_matrices, only: H_ldau_2D, H_so_2D
 
@@ -138,7 +140,6 @@
       type(dData2D) :: tmp_2D
       real(dp) :: dummy_qspin(8)
 
-
 !------------------------------------------------------------------- BEGIN
       call timer( 'IterGeom', 1 )
 #ifdef DEBUG
@@ -339,6 +340,7 @@
       ! be higher than 1, hence we need to create "fake"
       ! containers and let the new<class> delete the old
       ! sparsity pattern
+
       nullify(numh,listhptr,listh)
       allocate(numh(no_l),listhptr(no_l))
       ! We do not need to allocate listh
@@ -562,12 +564,17 @@
          end if
       end if
       
-      if ( spin%SO ) then
-         write(oname,"(a,i0)") "H_so at geom step ", istep
+      if ( spin%SO_onsite  ) then
+         write(oname,"(a,i0)") "H_so (onsite) at geom step ", istep
          call newdSpData2D(sparse_pattern,spin%H - 2,
      &        block_dist,H_so_2D,name=oname)
       end if
 
+      if ( spin%SO_offsite ) then
+         call re_alloc(H0_offsiteSO, 1,maxnh, 1,4, 'H0_offsiteSO',
+     $                 'state_init')
+      endif
+
       write(oname,"(a,i0)") "S at geom step ", istep
       call newdSpData1D(sparse_pattern,block_dist,S_1D,name=oname)
       if (ionode) call print_type(S_1D)
@@ -585,6 +592,7 @@
 !     Initialize density matrix
       ! The resizing of Dscf is done inside new_dm
       call new_DM(auxchanged, DM_history, DM_2D, EDM_2D)
+
       Dscf => val(DM_2D)
       Escf => val(EDM_2D)
       if (spin%H > 1) call print_spin(dummy_qspin)

=== modified file 'Tests/Makefile'
--- Tests/Makefile	2018-01-04 18:49:12 +0000
+++ Tests/Makefile	2018-04-22 14:22:29 +0000
@@ -75,6 +75,8 @@
 	sih sih_fire sih_op_broyden \
 	si-optical si_pdos_kgrid si_pdos_gamma \
 	sinw sinw_2 \
+	offsite_SOC_Pt2_xx offsite_SOC_Pt2_xz offsite_SOC_Pt2_zy offsite_SOC_Pt2_zz \
+	onsite_SOC_Pt2_xx onsite_SOC_Pt2_xz onsite_SOC_Pt2_zy onsite_SOC_Pt2_zz \
 	var_cell \
 	wannier \
 	zmatrix \
@@ -83,9 +85,12 @@
 # These tests are extremely time consuming and
 # should only be runned sometimes
 # Currently they may be runned individually.
-#	SOC_FePt_xx SOC_FePt_xz SOC_FePt_zy SOC_FePt_zz
-tests_soc  = SOC_Pt2_xx SOC_Pt2_xz SOC_Pt2_zy SOC_Pt2_zz
-tests_soc += SOC_FePt_xx SOC_FePt_xz SOC_FePt_zy SOC_FePt_zz
+#	offsite_SOC_FePt_xx offsite_SOC_FePt_xz offsite_SOC_FePt_zy offsite_SOC_FePt_zz
+#	onsite_SOC_FePt_xx onsite_SOC_FePt_xz onsite_SOC_FePt_zy onsite_SOC_FePt_zz
+tests_soc_offsite  = offsite_SOC_Pt2_xx offsite_SOC_Pt2_xz offsite_SOC_Pt2_zy offsite_SOC_Pt2_zz
+tests_soc_offsite += offsite_SOC_FePt_xx offsite_SOC_FePt_xz offsite_SOC_FePt_zy offsite_SOC_FePt_zz
+tests_soc_onsite  = onsite_SOC_Pt2_xx onsite_SOC_Pt2_xz onsite_SOC_Pt2_zy onsite_SOC_Pt2_zz
+tests_soc_onsite += onsite_SOC_FePt_xx onsite_SOC_FePt_xz onsite_SOC_FePt_zy onsite_SOC_FePt_zz
 
 # Tests only applicable for LUA
 tests_lua  = lua_si111 lua_h2o
@@ -94,13 +99,13 @@
 tests_flos  = flos_h2o_lbfgs flos_h2o_fire flos_h2o_meshcutoff flos_h2o_neb
 
 # Accumulated variable for ALL tests
-tests_all = $(tests) $(tests_soc) $(tests_lua) $(tests_flos)
+tests_all = $(tests) $(tests_soc_offsite) $(tests_soc_onsite) $(tests_lua) $(tests_flos)
 
 all: $(tests)
 
 # Define test specific targets:
 tests: $(tests)
-tests-soc: $(tests_soc)
+tests-soc: $(tests_soc_offsite) $(tests_soc_onsite)
 tests-lua: $(tests_lua)
 tests-flos: $(tests_flos)
 

=== removed file 'Tests/Pseudos/Fe_SOC.psf'
--- Tests/Pseudos/Fe_SOC.psf	2016-05-23 07:56:19 +0000
+++ Tests/Pseudos/Fe_SOC.psf	1970-01-01 00:00:00 +0000
@@ -1,2831 +0,0 @@
- Fe pb rel pcec
- ATM 3.2.2 29-FEB-12 Troullier-Martins                       
- 4s 2.00r r= 2.00/4p 0.00r r= 2.47/3d 6.00r r= 0.59/4f 0.00r r= 2.00/  
-   4  3 1123  0.953366221795E-04  0.125000000000E-01   8.00000000000    
- Radial grid follows
-  0.119918708213E-05  0.241345808087E-05  0.364300272851E-05  0.488801314393E-05
-  0.614868386252E-05  0.742521186666E-05  0.871779661643E-05  0.100266400808E-04
-  0.113519467694E-04  0.126939237638E-04  0.140527807509E-04  0.154287300547E-04
-  0.168219866701E-04  0.182327682964E-04  0.196612953710E-04  0.211077911042E-04
-  0.225724815139E-04  0.240555954609E-04  0.255573646848E-04  0.270780238401E-04
-  0.286178105329E-04  0.301769653581E-04  0.317557319366E-04  0.333543569540E-04
-  0.349730901988E-04  0.366121846012E-04  0.382718962731E-04  0.399524845479E-04
-  0.416542120209E-04  0.433773445904E-04  0.451221514994E-04  0.468889053776E-04
-  0.486778822838E-04  0.504893617493E-04  0.523236268215E-04  0.541809641081E-04
-  0.560616638217E-04  0.579660198255E-04  0.598943296790E-04  0.618468946845E-04
-  0.638240199344E-04  0.658260143584E-04  0.678531907722E-04  0.699058659264E-04
-  0.719843605555E-04  0.740889994285E-04  0.762201113997E-04  0.783780294595E-04
-  0.805630907870E-04  0.827756368026E-04  0.850160132210E-04  0.872845701056E-04
-  0.895816619230E-04  0.919076475986E-04  0.942628905723E-04  0.966477588555E-04
-  0.990626250889E-04  0.101507866600E-03  0.103983865463E-03  0.106491008558E-03
-  0.109029687631E-03  0.111600299356E-03  0.114203245395E-03  0.116838932465E-03
-  0.119507772397E-03  0.122210182203E-03  0.124946584140E-03  0.127717405776E-03
-  0.130523080058E-03  0.133364045377E-03  0.136240745641E-03  0.139153630340E-03
-  0.142103154618E-03  0.145089779345E-03  0.148113971185E-03  0.151176202677E-03
-  0.154276952298E-03  0.157416704549E-03  0.160595950021E-03  0.163815185478E-03
-  0.167074913932E-03  0.170375644723E-03  0.173717893596E-03  0.177102182784E-03
-  0.180529041090E-03  0.183999003967E-03  0.187512613604E-03  0.191070419010E-03
-  0.194672976098E-03  0.198320847777E-03  0.202014604032E-03  0.205754822022E-03
-  0.209542086162E-03  0.213376988220E-03  0.217260127409E-03  0.221192110475E-03
-  0.225173551800E-03  0.229205073492E-03  0.233287305484E-03  0.237420885633E-03
-  0.241606459820E-03  0.245844682049E-03  0.250136214550E-03  0.254481727886E-03
-  0.258881901050E-03  0.263337421579E-03  0.267848985658E-03  0.272417298226E-03
-  0.277043073093E-03  0.281727033044E-03  0.286469909959E-03  0.291272444922E-03
-  0.296135388338E-03  0.301059500051E-03  0.306045549466E-03  0.311094315661E-03
-  0.316206587517E-03  0.321383163837E-03  0.326624853472E-03  0.331932475445E-03
-  0.337306859085E-03  0.342748844148E-03  0.348259280957E-03  0.353839030528E-03
-  0.359488964709E-03  0.365209966313E-03  0.371002929259E-03  0.376868758708E-03
-  0.382808371208E-03  0.388822694837E-03  0.394912669344E-03  0.401079246301E-03
-  0.407323389246E-03  0.413646073841E-03  0.420048288018E-03  0.426531032136E-03
-  0.433095319136E-03  0.439742174703E-03  0.446472637420E-03  0.453287758936E-03
-  0.460188604128E-03  0.467176251266E-03  0.474251792186E-03  0.481416332454E-03
-  0.488670991545E-03  0.496016903014E-03  0.503455214674E-03  0.510987088776E-03
-  0.518613702193E-03  0.526336246596E-03  0.534155928650E-03  0.542073970196E-03
-  0.550091608444E-03  0.558210096165E-03  0.566430701892E-03  0.574754710109E-03
-  0.583183421460E-03  0.591718152948E-03  0.600360238143E-03  0.609111027387E-03
-  0.617971888010E-03  0.626944204539E-03  0.636029378917E-03  0.645228830720E-03
-  0.654543997382E-03  0.663976334416E-03  0.673527315645E-03  0.683198433428E-03
-  0.692991198898E-03  0.702907142194E-03  0.712947812701E-03  0.723114779297E-03
-  0.733409630588E-03  0.743833975168E-03  0.754389441861E-03  0.765077679981E-03
-  0.775900359585E-03  0.786859171741E-03  0.797955828784E-03  0.809192064590E-03
-  0.820569634844E-03  0.832090317313E-03  0.843755912129E-03  0.855568242064E-03
-  0.867529152819E-03  0.879640513310E-03  0.891904215962E-03  0.904322177003E-03
-  0.916896336766E-03  0.929628659988E-03  0.942521136121E-03  0.955575779639E-03
-  0.968794630359E-03  0.982179753752E-03  0.995733241271E-03  0.100945721068E-02
-  0.102335380636E-02  0.103742519971E-02  0.105167358939E-02  0.106610120176E-02
-  0.108071029114E-02  0.109550314025E-02  0.111048206049E-02  0.112564939236E-02
-  0.114100750578E-02  0.115655880048E-02  0.117230570639E-02  0.118825068399E-02
-  0.120439622472E-02  0.122074485135E-02  0.123729911838E-02  0.125406161247E-02
-  0.127103495277E-02  0.128822179141E-02  0.130562481387E-02  0.132324673941E-02
-  0.134109032148E-02  0.135915834818E-02  0.137745364268E-02  0.139597906366E-02
-  0.141473750574E-02  0.143373189998E-02  0.145296521429E-02  0.147244045391E-02
-  0.149216066189E-02  0.151212891955E-02  0.153234834697E-02  0.155282210348E-02
-  0.157355338814E-02  0.159454544026E-02  0.161580153989E-02  0.163732500834E-02
-  0.165911920870E-02  0.168118754635E-02  0.170353346951E-02  0.172616046979E-02
-  0.174907208269E-02  0.177227188821E-02  0.179576351135E-02  0.181955062274E-02
-  0.184363693915E-02  0.186802622413E-02  0.189272228855E-02  0.191772899122E-02
-  0.194305023949E-02  0.196868998985E-02  0.199465224857E-02  0.202094107230E-02
-  0.204756056872E-02  0.207451489720E-02  0.210180826938E-02  0.212944494993E-02
-  0.215742925712E-02  0.218576556357E-02  0.221445829687E-02  0.224351194033E-02
-  0.227293103363E-02  0.230272017358E-02  0.233288401477E-02  0.236342727039E-02
-  0.239435471286E-02  0.242567117467E-02  0.245738154907E-02  0.248949079089E-02
-  0.252200391724E-02  0.255492600838E-02  0.258826220845E-02  0.262201772630E-02
-  0.265619783629E-02  0.269080787914E-02  0.272585326273E-02  0.276133946299E-02
-  0.279727202469E-02  0.283365656238E-02  0.287049876122E-02  0.290780437786E-02
-  0.294557924140E-02  0.298382925423E-02  0.302256039299E-02  0.306177870951E-02
-  0.310149033172E-02  0.314170146464E-02  0.318241839135E-02  0.322364747395E-02
-  0.326539515457E-02  0.330766795636E-02  0.335047248455E-02  0.339381542741E-02
-  0.343770355739E-02  0.348214373208E-02  0.352714289535E-02  0.357270807842E-02
-  0.361884640093E-02  0.366556507210E-02  0.371287139181E-02  0.376077275177E-02
-  0.380927663667E-02  0.385839062533E-02  0.390812239192E-02  0.395847970712E-02
-  0.400947043938E-02  0.406110255608E-02  0.411338412487E-02  0.416632331483E-02
-  0.421992839783E-02  0.427420774977E-02  0.432916985191E-02  0.438482329219E-02
-  0.444117676656E-02  0.449823908039E-02  0.455601914976E-02  0.461452600294E-02
-  0.467376878173E-02  0.473375674294E-02  0.479449925982E-02  0.485600582351E-02
-  0.491828604452E-02  0.498134965428E-02  0.504520650659E-02  0.510986657923E-02
-  0.517533997546E-02  0.524163692563E-02  0.530876778877E-02  0.537674305422E-02
-  0.544557334326E-02  0.551526941075E-02  0.558584214685E-02  0.565730257869E-02
-  0.572966187211E-02  0.580293133339E-02  0.587712241105E-02  0.595224669758E-02
-  0.602831593130E-02  0.610534199820E-02  0.618333693374E-02  0.626231292480E-02
-  0.634228231154E-02  0.642325758934E-02  0.650525141074E-02  0.658827658745E-02
-  0.667234609233E-02  0.675747306139E-02  0.684367079592E-02  0.693095276446E-02
-  0.701933260502E-02  0.710882412713E-02  0.719944131400E-02  0.729119832477E-02
-  0.738410949666E-02  0.747818934721E-02  0.757345257661E-02  0.766991406992E-02
-  0.776758889945E-02  0.786649232710E-02  0.796663980671E-02  0.806804698654E-02
-  0.817072971167E-02  0.827470402648E-02  0.837998617718E-02  0.848659261430E-02
-  0.859453999532E-02  0.870384518725E-02  0.881452526924E-02  0.892659753527E-02
-  0.904007949688E-02  0.915498888583E-02  0.927134365697E-02  0.938916199096E-02
-  0.950846229715E-02  0.962926321646E-02  0.975158362429E-02  0.987544263343E-02
-  0.100008595971E-01  0.101278541120E-01  0.102564460213E-01  0.103866554176E-01
-  0.105185026465E-01  0.106520083094E-01  0.107871932668E-01  0.109240786417E-01
-  0.110626858226E-01  0.112030364672E-01  0.113451525056E-01  0.114890561437E-01
-  0.116347698667E-01  0.117823164427E-01  0.119317189262E-01  0.120830006616E-01
-  0.122361852870E-01  0.123912967378E-01  0.125483592504E-01  0.127073973662E-01
-  0.128684359353E-01  0.130315001202E-01  0.131966154000E-01  0.133638075744E-01
-  0.135331027675E-01  0.137045274319E-01  0.138781083532E-01  0.140538726536E-01
-  0.142318477969E-01  0.144120615918E-01  0.145945421972E-01  0.147793181261E-01
-  0.149664182500E-01  0.151558718038E-01  0.153477083899E-01  0.155419579832E-01
-  0.157386509356E-01  0.159378179808E-01  0.161394902391E-01  0.163436992220E-01
-  0.165504768377E-01  0.167598553957E-01  0.169718676117E-01  0.171865466131E-01
-  0.174039259439E-01  0.176240395701E-01  0.178469218849E-01  0.180726077140E-01
-  0.183011323214E-01  0.185325314146E-01  0.187668411500E-01  0.190040981390E-01
-  0.192443394536E-01  0.194876026320E-01  0.197339256844E-01  0.199833470994E-01
-  0.202359058496E-01  0.204916413978E-01  0.207505937032E-01  0.210128032276E-01
-  0.212783109418E-01  0.215471583319E-01  0.218193874059E-01  0.220950407001E-01
-  0.223741612860E-01  0.226567927765E-01  0.229429793336E-01  0.232327656745E-01
-  0.235261970787E-01  0.238233193957E-01  0.241241790513E-01  0.244288230556E-01
-  0.247372990097E-01  0.250496551136E-01  0.253659401736E-01  0.256862036100E-01
-  0.260104954644E-01  0.263388664082E-01  0.266713677501E-01  0.270080514439E-01
-  0.273489700973E-01  0.276941769794E-01  0.280437260296E-01  0.283976718656E-01
-  0.287560697921E-01  0.291189758096E-01  0.294864466228E-01  0.298585396498E-01
-  0.302353130309E-01  0.306168256378E-01  0.310031370825E-01  0.313943077270E-01
-  0.317903986925E-01  0.321914718689E-01  0.325975899250E-01  0.330088163172E-01
-  0.334252153008E-01  0.338468519388E-01  0.342737921128E-01  0.347061025330E-01
-  0.351438507490E-01  0.355871051597E-01  0.360359350245E-01  0.364904104740E-01
-  0.369506025209E-01  0.374165830712E-01  0.378884249353E-01  0.383662018394E-01
-  0.388499884371E-01  0.393398603211E-01  0.398358940348E-01  0.403381670846E-01
-  0.408467579516E-01  0.413617461042E-01  0.418832120102E-01  0.424112371500E-01
-  0.429459040283E-01  0.434872961881E-01  0.440354982229E-01  0.445905957904E-01
-  0.451526756258E-01  0.457218255552E-01  0.462981345094E-01  0.468816925378E-01
-  0.474725908226E-01  0.480709216929E-01  0.486767786390E-01  0.492902563273E-01
-  0.499114506151E-01  0.505404585650E-01  0.511773784610E-01  0.518223098231E-01
-  0.524753534230E-01  0.531366113002E-01  0.538061867775E-01  0.544841844776E-01
-  0.551707103388E-01  0.558658716324E-01  0.565697769786E-01  0.572825363640E-01
-  0.580042611589E-01  0.587350641341E-01  0.594750594791E-01  0.602243628198E-01
-  0.609830912361E-01  0.617513632811E-01  0.625292989988E-01  0.633170199432E-01
-  0.641146491973E-01  0.649223113924E-01  0.657401327272E-01  0.665682409881E-01
-  0.674067655686E-01  0.682558374899E-01  0.691155894212E-01  0.699861557005E-01
-  0.708676723556E-01  0.717602771252E-01  0.726641094807E-01  0.735793106476E-01
-  0.745060236280E-01  0.754443932228E-01  0.763945660541E-01  0.773566905882E-01
-  0.783309171592E-01  0.793173979919E-01  0.803162872260E-01  0.813277409398E-01
-  0.823519171752E-01  0.833889759618E-01  0.844390793420E-01  0.855023913968E-01
-  0.865790782706E-01  0.876693081982E-01  0.887732515300E-01  0.898910807596E-01
-  0.910229705499E-01  0.921690977612E-01  0.933296414780E-01  0.945047830377E-01
-  0.956947060586E-01  0.968995964685E-01  0.981196425341E-01  0.993550348900E-01
-  0.100605966569      0.101872633031      0.103155232196      0.104453964472    
-  0.105769032790      0.107100642630      0.108449002061      0.109814321765    
-  0.111196815077      0.112596698014      0.114014189310      0.115449510453    
-  0.116902885712      0.118374542182      0.119864709812      0.121373621443    
-  0.122901512846      0.124448622756      0.126015192914      0.127601468098    
-  0.129207696169      0.130834128101      0.132481018028      0.134148623280    
-  0.135837204424      0.137547025305      0.139278353084      0.141031458286    
-  0.142806614837      0.144604100109      0.146424194961      0.148267183789    
-  0.150133354563      0.152022998875      0.153936411986      0.155873892872    
-  0.157835744267      0.159822272715      0.161833788614      0.163870606269    
-  0.165933043936      0.168021423875      0.170136072400      0.172277319929    
-  0.174445501037      0.176640954505      0.178864023378      0.181115055016    
-  0.183394401146      0.185702417921      0.188039465972      0.190405910470    
-  0.192802121175      0.195228472500      0.197685343568      0.200173118269    
-  0.202692185324      0.205242938342      0.207825775883      0.210441101521    
-  0.213089323906      0.215770856828      0.218486119281      0.221235535532    
-  0.224019535182      0.226838553236      0.229693030173      0.232583412009    
-  0.235510150373      0.238473702574      0.241474531673      0.244513106555    
-  0.247589902004      0.250705398775      0.253860083672      0.257054449619    
-  0.260288995744      0.263564227451      0.266880656501      0.270238801093    
-  0.273639185944      0.277082342371      0.280568808374      0.284099128721    
-  0.287673855032      0.291293545864      0.294958766802      0.298670090543    
-  0.302428096991      0.306233373341      0.310086514174      0.313988121553    
-  0.317938805112      0.321939182152      0.325989877741      0.330091524808    
-  0.334244764244      0.338450245000      0.342708624193      0.347020567202    
-  0.351386747777      0.355807848143      0.360284559106      0.364817580161    
-  0.369407619601      0.374055394630      0.378761631472      0.383527065486    
-  0.388352441281      0.393238512831      0.398186043596      0.403195806637    
-  0.408268584739      0.413405170535      0.418606366626      0.423872985710    
-  0.429205850707      0.434605794889      0.440073662006      0.445610306425    
-  0.451216593257      0.456893398497      0.462641609156      0.468462123405    
-  0.474355850710      0.480323711978      0.486366639700      0.492485578096    
-  0.498681483261      0.504955323320      0.511308078571      0.517740741647    
-  0.524254317664      0.530849824380      0.537528292359      0.544290765123    
-  0.551138299323      0.558071964901      0.565092845254      0.572202037411    
-  0.579400652198      0.586689814411      0.594070662998      0.601544351231    
-  0.609112046890      0.616774932442      0.624534205228      0.632391077651    
-  0.640346777363      0.648402547458      0.656559646667      0.664819349553    
-  0.673182946712      0.681651744972      0.690227067601      0.698910254510    
-  0.707702662465      0.716605665297      0.725620654119      0.734749037541    
-  0.743992241891      0.753351711439      0.762828908622      0.772425314270    
-  0.782142427841      0.791981767655      0.801944871127      0.812033295014    
-  0.822248615652      0.832592429205      0.843066351916      0.853672020356    
-  0.864411091683      0.875285243898      0.886296176110      0.897445608799    
-  0.908735284086      0.920166966008      0.931742440786      0.943463517113    
-  0.955332026430      0.967349823217      0.979518785278      0.991840814039    
-   1.00431783484       1.01695179725       1.02974467533       1.04269846802    
-   1.05581519936       1.06909691887       1.08254570184       1.09616364968    
-   1.10995289021       1.12391557804       1.13805389486       1.15237004982    
-   1.16686627983       1.18154484997       1.19640805380       1.21145821371    
-   1.22669768134       1.24212883786       1.25775409444       1.27357589256    
-   1.28959670439       1.30581903323       1.32224541385       1.33887841290    
-   1.35572062932       1.37277469475       1.39004327391       1.40752906506    
-   1.42523480038       1.44316324644       1.46131720459       1.47969951142    
-   1.49831303920       1.51716069635       1.53624542783       1.55557021569    
-   1.57513807945       1.59495207664       1.61501530323       1.63533089415    
-   1.65590202374       1.67673190629       1.69782379651       1.71918099004    
-   1.74080682400       1.76270467747       1.78487797202       1.80733017228    
-   1.83006478646       1.85308536688       1.87639551056       1.89999885974    
-   1.92389910252       1.94809997333       1.97260525363       1.99741877241    
-   2.02254440683       2.04798608283       2.07374777572       2.09983351081    
-   2.12624736405       2.15299346267       2.18007598580       2.20749916513    
-   2.23526728559       2.26338468601       2.29185575978       2.32068495558    
-   2.34987677803       2.37943578839       2.40936660534       2.43967390561    
-   2.47036242480       2.50143695803       2.53290236078       2.56476354957    
-   2.59702550278       2.62969326140       2.66277192984       2.69626667671    
-   2.73018273563       2.76452540606       2.79930005410       2.83451211336    
-   2.87016708581       2.90627054260       2.94282812497       2.97984554512    
-   3.01732858709       3.05528310770       3.09371503740       3.13263038126    
-   3.17203521989       3.21193571038       3.25233808725       3.29324866346    
-   3.33467383137       3.37662006375       3.41909391478       3.46210202109    
-   3.50565110278       3.54974796448       3.59439949642       3.63961267549    
-   3.68539456634       3.73175232249       3.77869318743       3.82622449576    
-   3.87435367435       3.92308824348       3.97243581803       4.02240410865    
-   4.07300092300       4.12423416692       4.17611184572       4.22864206538    
-   4.28183303387       4.33569306238       4.39023056665       4.44545406827    
-   4.50137219603       4.55799368725       4.61532738916       4.67338226025    
-   4.73216737173       4.79169190889       4.85196517255       4.91299658053    
-   4.97479566913       5.03737209456       5.10073563453       5.16489618972    
-   5.22986378534       5.29564857272       5.36226083085       5.42971096805    
-   5.49800952353       5.56716716908       5.63719471072       5.70810309040    
-   5.77990338770       5.85260682156       5.92622475204       6.00076868209    
-   6.07625025935       6.15268127797       6.23007368046       6.30843955953    
-   6.38779116001       6.46814088076       6.54950127657       6.63188506018    
-   6.71530510422       6.79977444324       6.88530627575       6.97191396627    
-   7.05961104743       7.14841122207       7.23832836540       7.32937652717    
-   7.42156993383       7.51492299078       7.60945028464       7.70516658549    
-   7.80208684918       7.90022621972       7.99960003157       8.10022381210    
-   8.20211328397       8.30528436763       8.40975318377       8.51553605585    
-   8.62264951265       8.73111029089       8.84093533777       8.95214181367    
-   9.06474709485       9.17876877610       9.29422467354       9.41113282739    
-   9.52951150479       9.64937920264       9.77075465053       9.89365681360    
-   10.0181048956       10.1441183417       10.2717168419       10.4009203336    
-   10.5317490052       10.6642232989       10.7983639141       10.9341918105    
-   11.0717282115       11.2109946074       11.3520127590       11.4948047006    
-   11.6393927437       11.7857994804       11.9340477872       12.0841608282    
-   12.2361620588       12.3900752295       12.5459243895       12.7037338907    
-   12.8635283910       13.0253328587       13.1891725760       13.3550731433    
-   13.5230604829       13.6931608430       13.8654008023       14.0398072736    
-   14.2164075082       14.3952291003       14.5762999912       14.7596484734    
-   14.9453031957       15.1332931669       15.3236477608       15.5163967208    
-   15.7115701642       15.9091985873       16.1093128700       16.3119442805    
-   16.5171244803       16.7248855294       16.9352598907       17.1482804358    
-   17.3639804494       17.5823936353       17.8035541208       18.0274964627    
-   18.2542556525       18.4838671219       18.7163667479       18.9517908593    
-   19.1901762414       19.4315601425       19.6759802793       19.9234748429    
-   20.1740825049       20.4278424233       20.6847942485       20.9449781298    
-   21.2084347214       21.4752051890       21.7453312159       22.0188550101    
-   22.2958193100       22.5762673919       22.8602430764       23.1477907354    
-   23.4389552986       23.7337822612       24.0323176904       24.3346082331    
-   24.6407011227       24.9506441869       25.2644858549       25.5822751651    
-   25.9040617727       26.2298959576       26.5598286320       26.8939113486    
-   27.2321963084       27.5747363692       27.9215850536       28.2727965573    
-   28.6284257579       28.9885282232       29.3531602198       29.7223787224    
-   30.0962414220       30.4748067355       30.8581338144       31.2462825544    
-   31.6393136046       32.0372883767       32.4402690552       32.8483186067    
-   33.2615007897       33.6798801647       34.1035221044       34.5324928038    
-   34.9668592903       35.4066894346       35.8520519610       36.3030164584    
-   36.7596533909       37.2220341089       37.6902308604       38.1643168020    
-   38.6443660107       39.1304534951       39.6226552073       40.1210480549    
-   40.6257099128       41.1367196355       41.6541570691       42.1781030645    
-   42.7086394891       43.2458492405       43.7898162587       44.3406255397    
-   44.8983631485       45.4631162328       46.0349730364       46.6140229131    
-   47.2003563406       47.7940649347       48.3952414636       49.0039798624    
-   49.6203752475       50.2445239322       50.8765234409       51.5164725247    
-   52.1644711771       52.8206206491       53.4850234655       54.1577834405    
-   54.8390056942       55.5287966691       56.2272641463       56.9345172628    
-   57.6506665283       58.3758238427       59.1101025133       59.8536172725    
-   60.6064842961       61.3688212210       62.1407471641       62.9223827401    
-   63.7138500814       64.5152728564       65.3267762888       66.1484871778    
-   66.9805339175       67.8230465167       68.6761566198       69.5399975271    
-   70.4147042153       71.3004133592       72.1972633527       73.1053943303    
-   74.0249481894       74.9560686122       75.8989010881       76.8535929366    
-   77.8202933303       78.7991533180       79.7903258486       80.7939657949    
-   81.8102299776       82.8392771901       83.8812682231       84.9363658898    
-   86.0047350514       87.0865426427       88.1819576983       89.2911513792    
-   90.4142969990       91.5515700516       92.7031482381       93.8692114951    
-   95.0499420222       96.2455243111       97.4561451738       98.6819937724    
-   99.9232616482       101.180142752       102.452833473       103.741532674    
-   105.046441714       106.367764490       107.705707460       109.060479682    
-   110.432292839       111.821361283       113.227902056       114.652134934    
-   116.094282457       117.554569962       119.033225623    
- Down Pseudopotential follows (l on next line)
-  0
- -0.117631414958E-04 -0.236748079055E-04 -0.357353246941E-04 -0.479485359049E-04
- -0.603147284555E-04 -0.728367599829E-04 -0.855161673038E-04 -0.983551311621E-04
- -0.111355559094E-03 -0.124519519196E-03 -0.137849060242E-03 -0.151346265625E-03
- -0.165013244601E-03 -0.178852132623E-03 -0.192865091959E-03 -0.207054312386E-03
- -0.221422010969E-03 -0.235970432705E-03 -0.250701850838E-03 -0.265618567202E-03
- -0.280722912847E-03 -0.296017247661E-03 -0.311503961609E-03 -0.327185474500E-03
- -0.343064236737E-03 -0.359142729601E-03 -0.375423465170E-03 -0.391908987727E-03
- -0.408601873027E-03 -0.425504729742E-03 -0.442620198887E-03 -0.459950954719E-03
- -0.477499705825E-03 -0.495269193882E-03 -0.513262195742E-03 -0.531481523081E-03
- -0.549930022514E-03 -0.568610577074E-03 -0.587526105790E-03 -0.606679564174E-03
- -0.626073945340E-03 -0.645712280070E-03 -0.665597636364E-03 -0.685733122149E-03
- -0.706121883943E-03 -0.726767106844E-03 -0.747672017601E-03 -0.768839882968E-03
- -0.790274010020E-03 -0.811977748213E-03 -0.833954489492E-03 -0.856207667453E-03
- -0.878740759343E-03 -0.901557286505E-03 -0.924660814024E-03 -0.948054952035E-03
- -0.971743356033E-03 -0.995729727584E-03 -0.102001781489E-02 -0.104461141291E-02
- -0.106951436463E-02 -0.109473056130E-02 -0.112026394317E-02 -0.114611849988E-02
- -0.117229827133E-02 -0.119880734831E-02 -0.122564987271E-02 -0.125283003925E-02
- -0.128035209445E-02 -0.130822033867E-02 -0.133643912697E-02 -0.136501286781E-02
- -0.139394602603E-02 -0.142324312319E-02 -0.145290873603E-02 -0.148294749998E-02
- -0.151336410899E-02 -0.154416331520E-02 -0.157534993127E-02 -0.160692882985E-02
- -0.163890494493E-02 -0.167128327311E-02 -0.170406887319E-02 -0.173726686762E-02
- -0.177088244413E-02 -0.180492085458E-02 -0.183938741728E-02 -0.187428751800E-02
- -0.190962660944E-02 -0.194541021336E-02 -0.198164392098E-02 -0.201833339341E-02
- -0.205548436352E-02 -0.209310263619E-02 -0.213119408879E-02 -0.216976467343E-02
- -0.220882041661E-02 -0.224836742051E-02 -0.228841186456E-02 -0.232896000547E-02
- -0.237001817897E-02 -0.241159280020E-02 -0.245369036524E-02 -0.249631745196E-02
- -0.253948072042E-02 -0.258318691538E-02 -0.262744286561E-02 -0.267225548596E-02
- -0.271763177889E-02 -0.276357883388E-02 -0.281010383057E-02 -0.285721403856E-02
- -0.290491681840E-02 -0.295321962413E-02 -0.300213000312E-02 -0.305165559726E-02
- -0.310180414513E-02 -0.315258348287E-02 -0.320400154436E-02 -0.325606636387E-02
- -0.330878607681E-02 -0.336216892044E-02 -0.341622323598E-02 -0.347095746949E-02
- -0.352638017353E-02 -0.358250000775E-02 -0.363932574090E-02 -0.369686625236E-02
- -0.375513053281E-02 -0.381412768615E-02 -0.387386693077E-02 -0.393435760115E-02
- -0.399560914905E-02 -0.405763114506E-02 -0.412043328035E-02 -0.418402536787E-02
- -0.424841734395E-02 -0.431361927012E-02 -0.437964133416E-02 -0.444649385220E-02
- -0.451418727026E-02 -0.458273216538E-02 -0.465213924787E-02 -0.472241936289E-02
- -0.479358349178E-02 -0.486564275402E-02 -0.493860840920E-02 -0.501249185835E-02
- -0.508730464568E-02 -0.516305846111E-02 -0.523976514133E-02 -0.531743667194E-02
- -0.539608518914E-02 -0.547572298207E-02 -0.555636249437E-02 -0.563801632599E-02
- -0.572069723576E-02 -0.580441814255E-02 -0.588919212797E-02 -0.597503243840E-02
- -0.606195248632E-02 -0.614996585319E-02 -0.623908629157E-02 -0.632932772653E-02
- -0.642070425849E-02 -0.651323016532E-02 -0.660691990446E-02 -0.670178811514E-02
- -0.679784962058E-02 -0.689511943086E-02 -0.699361274448E-02 -0.709334495130E-02
- -0.719433163469E-02 -0.729658857408E-02 -0.740013174745E-02 -0.750497733347E-02
- -0.761114171472E-02 -0.771864147962E-02 -0.782749342507E-02 -0.793771455971E-02
- -0.804932210575E-02 -0.816233350206E-02 -0.827676640724E-02 -0.839263870138E-02
- -0.850996848989E-02 -0.862877410610E-02 -0.874907411341E-02 -0.887088730905E-02
- -0.899423272677E-02 -0.911912963945E-02 -0.924559756260E-02 -0.937365625728E-02
- -0.950332573281E-02 -0.963462625047E-02 -0.976757832633E-02 -0.990220273445E-02
- -0.100385205103E-01 -0.101765529538E-01 -0.103163216330E-01 -0.104578483871E-01
- -0.106011553299E-01 -0.107462648537E-01 -0.108931996322E-01 -0.110419826243E-01
- -0.111926370777E-01 -0.113451865328E-01 -0.114996548256E-01 -0.116560660924E-01
- -0.118144447728E-01 -0.119748156140E-01 -0.121372036743E-01 -0.123016343275E-01
- -0.124681332661E-01 -0.126367265062E-01 -0.128074403909E-01 -0.129803015950E-01
- -0.131553371283E-01 -0.133325743406E-01 -0.135120409260E-01 -0.136937649266E-01
- -0.138777747372E-01 -0.140640991101E-01 -0.142527671590E-01 -0.144438083638E-01
- -0.146372525754E-01 -0.148331300201E-01 -0.150314713043E-01 -0.152323074195E-01
- -0.154356697470E-01 -0.156415900629E-01 -0.158501005429E-01 -0.160612337675E-01
- -0.162750227269E-01 -0.164915008266E-01 -0.167107018918E-01 -0.169326601736E-01
- -0.171574103538E-01 -0.173849875503E-01 -0.176154273230E-01 -0.178487656790E-01
- -0.180850390781E-01 -0.183242844391E-01 -0.185665391449E-01 -0.188118410489E-01
- -0.190602284803E-01 -0.193117402508E-01 -0.195664156600E-01 -0.198242945020E-01
- -0.200854170716E-01 -0.203498241701E-01 -0.206175571122E-01 -0.208886577325E-01
- -0.211631683917E-01 -0.214411319831E-01 -0.217225919399E-01 -0.220075922414E-01
- -0.222961774203E-01 -0.225883925695E-01 -0.228842833487E-01 -0.231838959926E-01
- -0.234872773169E-01 -0.237944747265E-01 -0.241055362227E-01 -0.244205104102E-01
- -0.247394465056E-01 -0.250623943442E-01 -0.253894043883E-01 -0.257205277352E-01
- -0.260558161246E-01 -0.263953219472E-01 -0.267390982528E-01 -0.270871987584E-01
- -0.274396778568E-01 -0.277965906249E-01 -0.281579928326E-01 -0.285239409512E-01
- -0.288944921624E-01 -0.292697043673E-01 -0.296496361951E-01 -0.300343470128E-01
- -0.304238969340E-01 -0.308183468287E-01 -0.312177583323E-01 -0.316221938558E-01
- -0.320317165952E-01 -0.324463905414E-01 -0.328662804904E-01 -0.332914520533E-01
- -0.337219716663E-01 -0.341579066016E-01 -0.345993249777E-01 -0.350462957698E-01
- -0.354988888208E-01 -0.359571748523E-01 -0.364212254756E-01 -0.368911132027E-01
- -0.373669114578E-01 -0.378486945889E-01 -0.383365378792E-01 -0.388305175588E-01
- -0.393307108170E-01 -0.398371958140E-01 -0.403500516933E-01 -0.408693585940E-01
- -0.413951976634E-01 -0.419276510695E-01 -0.424668020142E-01 -0.430127347459E-01
- -0.435655345729E-01 -0.441252878768E-01 -0.446920821258E-01 -0.452660058884E-01
- -0.458471488476E-01 -0.464356018143E-01 -0.470314567422E-01 -0.476348067414E-01
- -0.482457460939E-01 -0.488643702672E-01 -0.494907759305E-01 -0.501250609687E-01
- -0.507673244983E-01 -0.514176668827E-01 -0.520761897483E-01 -0.527429959995E-01
- -0.534181898358E-01 -0.541018767675E-01 -0.547941636321E-01 -0.554951586117E-01
- -0.562049712491E-01 -0.569237124655E-01 -0.576514945774E-01 -0.583884313147E-01
- -0.591346378380E-01 -0.598902307568E-01 -0.606553281480E-01 -0.614300495737E-01
- -0.622145161008E-01 -0.630088503189E-01 -0.638131763606E-01 -0.646276199199E-01
- -0.654523082725E-01 -0.662873702955E-01 -0.671329364877E-01 -0.679891389896E-01
- -0.688561116046E-01 -0.697339898196E-01 -0.706229108264E-01 -0.715230135431E-01
- -0.724344386355E-01 -0.733573285398E-01 -0.742918274842E-01 -0.752380815120E-01
- -0.761962385040E-01 -0.771664482021E-01 -0.781488622322E-01 -0.791436341287E-01
- -0.801509193574E-01 -0.811708753412E-01 -0.822036614835E-01 -0.832494391938E-01
- -0.843083719131E-01 -0.853806251389E-01 -0.864663664517E-01 -0.875657655408E-01
- -0.886789942311E-01 -0.898062265099E-01 -0.909476385543E-01 -0.921034087585E-01
- -0.932737177621E-01 -0.944587484780E-01 -0.956586861213E-01 -0.968737182382E-01
- -0.981040347356E-01 -0.993498279103E-01 -0.100611292480     -0.101888625612    
- -0.103182026958     -0.104491698679     -0.105817845484     -0.107160674657    
- -0.108520396092     -0.109897222325     -0.111291368567     -0.112703052737    
- -0.114132495501     -0.115579920299     -0.117045553386     -0.118529623865    
- -0.120032363723     -0.121554007866     -0.123094794162     -0.124654963468    
- -0.126234759678     -0.127834429754     -0.129454223768     -0.131094394943    
- -0.132755199686     -0.134436897636     -0.136139751699     -0.137864028094    
- -0.139609996389     -0.141377929550     -0.143168103976     -0.144980799551    
- -0.146816299681     -0.148674891340     -0.150556865118     -0.152462515264    
- -0.154392139733     -0.156346040230     -0.158324522262     -0.160327895184    
- -0.162356472244     -0.164410570639     -0.166490511558     -0.168596620236    
- -0.170729226005     -0.172888662344     -0.175075266932     -0.177289381703    
- -0.179531352894     -0.181801531107     -0.184100271355     -0.186427933128    
- -0.188784880438     -0.191171481886     -0.193588110714     -0.196035144863    
- -0.198512967036     -0.201021964755     -0.203562530423     -0.206135061383    
- -0.208739959984     -0.211377633639     -0.214048494894     -0.216752961486    
- -0.219491456416     -0.222264408007     -0.225072249976     -0.227915421500    
- -0.230794367284     -0.233709537629     -0.236661388505     -0.239650381620    
- -0.242676984491     -0.245741670517     -0.248844919052     -0.251987215481    
- -0.255169051292     -0.258390924154     -0.261653337991     -0.264956803065    
- -0.268301836047     -0.271688960103     -0.275118704970     -0.278591607037    
- -0.282108209429     -0.285669062088     -0.289274721859     -0.292925752571    
- -0.296622725124     -0.300366217575     -0.304156815227     -0.307995110712    
- -0.311881704085     -0.315817202911     -0.319802222357     -0.323837385279    
- -0.327923322321     -0.332060672002     -0.336250080814     -0.340492203313    
- -0.344787702218     -0.349137248506     -0.353541521507     -0.358001209006    
- -0.362517007339     -0.367089621493     -0.371719765207     -0.376408161074    
- -0.381155540641     -0.385962644516     -0.390830222466     -0.395759033527    
- -0.400749846107     -0.405803438093     -0.410920596961     -0.416102119880    
- -0.421348813826     -0.426661495691     -0.432040992396     -0.437488141002    
- -0.443003788831     -0.448588793573     -0.454244023414     -0.459970357150    
- -0.465768684309     -0.471639905280     -0.477584931435     -0.483604685262    
- -0.489700100493     -0.495872122247     -0.502121707164     -0.508449823552    
- -0.514857451532     -0.521345583199     -0.527915222773     -0.534567386771    
- -0.541303104176     -0.548123416622     -0.555029378576     -0.562022057543    
- -0.569102534271     -0.576271902970     -0.583531271545     -0.590881761842    
- -0.598324509903     -0.605860666246     -0.613491396151     -0.621217879973    
- -0.629041313466     -0.636962908136     -0.644983891604     -0.653105508004    
- -0.661329018393     -0.669655701195     -0.678086852657     -0.686623787347    
- -0.695267838660     -0.704020359362     -0.712882722151     -0.721856320239    
- -0.730942567967     -0.740142901419     -0.749458779070     -0.758891682428    
- -0.768443116692     -0.778114611400     -0.787907721069     -0.797824025813    
- -0.807865131929     -0.818032672436     -0.828328307551     -0.838753725087    
- -0.849310640749     -0.860000798309     -0.870825969630     -0.881787954520    
- -0.892888580379     -0.904129701606     -0.915513198736     -0.927040977276    
- -0.938714966183     -0.950537115972     -0.962509396392     -0.974633793644    
- -0.986912307102     -0.999346945504      -1.01193972257      -1.02469265205    
-  -1.03760774213      -1.05068698927      -1.06393237137      -1.07734584034    
-  -1.09092931411      -1.10468466807      -1.11861372603      -1.13271825072    
-  -1.14699993406      -1.16146038711      -1.17610113003      -1.19092358205    
-  -1.20592905178      -1.22111872786      -1.23649367035      -1.25205480296    
-  -1.26780290636      -1.28373861292      -1.29986240297      -1.31617460288    
-  -1.33267538523      -1.34936477122      -1.36624263553      -1.38330871381    
-  -1.40056261286      -1.41800382371      -1.43563173758      -1.45344566468    
-  -1.47144485595      -1.48962852749      -1.50799588774      -1.52654616698    
-  -1.54527864920      -1.56419270590      -1.58328783154      -1.60256368037    
-  -1.62202010423      -1.64165719099      -1.66147530308      -1.68147511591    
-  -1.70165765548      -1.72202433495      -1.74257698955      -1.76331790931    
-  -1.78424986925      -1.80537615623      -1.82670059214      -1.84822755260    
-  -1.86996198049      -1.89190939379      -1.91407588664      -1.93646812305    
-  -1.95909332218      -1.98195923426      -2.00507410637      -2.02844663675    
-  -2.05208591712      -2.07600136176      -2.10020262288      -2.12469949166    
-  -2.14950178482      -2.17461921677      -2.20006125827      -2.22583698274    
-  -2.25195490245      -2.27842279753      -2.30524754159      -2.33243492905    
-  -2.35998950988      -2.38791443868      -2.41621134564      -2.44488023743    
-  -2.47391943622      -2.50332556465      -2.53309358373      -2.56321688887    
-  -2.59368746716      -2.62449611630      -2.65563272174      -2.68708658540    
-  -2.71884679519      -2.75090262112      -2.78324392088      -2.81586153548    
-  -2.84874765500      -2.88189613467      -2.91530274371      -2.94896533268    
-  -2.98288390954      -3.01706061996      -3.05149963303      -3.08620693917    
-  -3.12119007176      -3.15645776807      -3.19201958772      -3.22788550815    
-  -3.26406551636      -3.30056921516      -3.33740545940      -3.37458203487    
-  -3.41210538914      -3.44998042001      -3.48821032394      -3.52679650405    
-  -3.56573853456      -3.60503417716      -3.64467944306      -3.68466869410    
-  -3.72499477601      -3.76564917697      -3.80662220542      -3.84790318137    
-  -3.88948063694      -3.93134252235      -3.97347641511      -4.01586973093    
-  -4.05850993628      -4.10138476329      -4.14448242900      -4.18779186140    
-  -4.23130293559      -4.27500672342      -4.31889575958      -4.36296432602    
-  -4.40720875414      -4.45162774068      -4.49622266737      -4.54099790692    
-  -4.58596108738      -4.63112327388      -4.67649901787      -4.72210612245    
-  -4.76796559893      -4.81409865129      -4.86053161741      -4.90729100731    
-  -4.95432871867      -5.00189632017      -5.04920724077      -5.09524230341    
-  -5.14124466889      -5.18805325208      -5.23544537113      -5.28353727702    
-  -5.33236483573      -5.38196604829      -5.43238168434      -5.48364824083    
-  -5.53580028623      -5.58887013288      -5.64288823135      -5.69788357737    
-  -5.75388418565      -5.81091759018      -5.86901134736      -5.92819352441    
-  -5.98849316110      -6.04994069798      -6.11256836752      -6.17641054746    
-  -6.24150407738      -6.30788854064      -6.37560651433      -6.44470379013    
-  -6.51522956870      -6.58723662999      -6.66078148115      -6.73592448361    
-  -6.81272995959      -6.89126627854      -6.97160592254      -7.05382552987    
-  -7.13800591468      -7.22423206067      -7.31259308585      -7.40318217494    
-  -7.49609647539      -7.59143695280      -7.68930820028      -7.78981819716    
-  -7.89307800899      -7.99920142576      -8.10830452843      -8.22050517440    
-  -8.33592240158      -8.45467573505      -8.57688438943      -8.70266636094    
-  -8.83213739634      -8.96540983119      -9.10259128729      -9.24378322018    
-  -9.38907930732      -9.53856366864      -9.69230891122      -9.85037399003    
-  -10.0128018842      -10.1796170751      -10.3508228289      -10.5263982928    
-  -10.7062953925      -10.8904355451      -11.0787062035      -11.2709572407    
-  -11.4669972029      -11.6665894584      -11.8694482853      -12.0752349453    
-  -12.2835538101      -12.4939486193      -12.7058989688      -12.9188171507    
-  -13.1320454961      -13.3448543990      -13.5564412429      -13.7659304904    
-  -13.9723752443      -14.1747606430      -14.3720095028      -14.5629906761    
-  -14.7465306413      -14.9214288855      -15.0864776728      -15.2404868169    
-  -15.3823140927      -15.5109019416      -15.6253211507      -15.7248222473    
-  -15.8088954459      -15.8773401751      -15.9303452845      -15.9685824298    
-  -15.9933104621      -16.0065082716      -16.0109989987      -16.0106444299    
-  -16.0095226061      -16.0084937696      -16.0075629879      -16.0067297984    
-  -16.0059755680      -16.0052984998      -16.0046900070      -16.0041443870    
-  -16.0036558143      -16.0032190184      -16.0028291278      -16.0024816636    
-  -16.0021725126      -16.0018979045      -16.0016543889      -16.0014388137    
-  -16.0012483042      -16.0010802434      -16.0007965399      -16.0005844637    
-  -16.0004266354      -16.0003097209      -16.0002235308      -16.0001603109    
-  -16.0001141855      -16.0000807213      -16.0000565883      -16.0000392967    
-  -16.0000269936      -16.0000183072      -16.0000122266      -16.0000080112    
-  -16.0000051213      -16.0000031660      -16.0000018638      -16.0000010135    
-  -16.0000004724      -16.0000001400      -15.9999999462      -15.9999998425    
-  -15.9999997959      -15.9999997841      -15.9999997924      -15.9999998114    
-  -15.9999998348      -15.9999998592      -15.9999998824      -15.9999999034    
-  -15.9999999217      -15.9999999372      -15.9999999501      -15.9999999608    
-  -15.9999999694      -15.9999999763      -15.9999999817      -15.9999999860    
-  -15.9999999894      -15.9999999920      -15.9999999940      -15.9999999955    
-  -15.9999999966      -15.9999999975      -15.9999999982      -15.9999999987    
-  -15.9999999990      -15.9999999993      -15.9999999995      -15.9999999996    
-  -15.9999999997      -15.9999999998      -15.9999999999      -15.9999999999    
-  -15.9999999999      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000    
- Down Pseudopotential follows (l on next line)
-  1
- -0.152037636136E-04 -0.305993298396E-04 -0.461875685095E-04 -0.619728748804E-04
- -0.779560940170E-04 -0.941406487239E-04 -0.110528648095E-03 -0.127122852348E-03
- -0.143925755785E-03 -0.160940020646E-03 -0.178168297321E-03 -0.195613278392E-03
- -0.213277689961E-03 -0.231164292088E-03 -0.249275879505E-03 -0.267615282407E-03
- -0.286185366334E-03 -0.304989032915E-03 -0.324029220284E-03 -0.343308903529E-03
- -0.362831095422E-03 -0.382598846149E-03 -0.402615244656E-03 -0.422883418523E-03
- -0.443406534830E-03 -0.464187800545E-03 -0.485230462567E-03 -0.506537809237E-03
- -0.528113169731E-03 -0.549959915619E-03 -0.572081460405E-03 -0.594481260560E-03
- -0.617162816716E-03 -0.640129672564E-03 -0.663385417052E-03 -0.686933684174E-03
- -0.710778153199E-03 -0.734922550294E-03 -0.759370648224E-03 -0.784126266975E-03
- -0.809193275011E-03 -0.834575589473E-03 -0.860277175870E-03 -0.886302050926E-03
- -0.912654281389E-03 -0.939337984161E-03 -0.966357329515E-03 -0.993716539598E-03
- -0.102141988890E-02 -0.104947170644E-02 -0.107787637608E-02 -0.110663833579E-02
- -0.113576207983E-02 -0.116525215933E-02 -0.119511318215E-02 -0.122534981428E-02
- -0.125596678039E-02 -0.128696886462E-02 -0.131836091143E-02 -0.135014782574E-02
- -0.138233457454E-02 -0.141492618718E-02 -0.144792775633E-02 -0.148134443855E-02
- -0.151518145534E-02 -0.154944409396E-02 -0.158413770780E-02 -0.161926771831E-02
- -0.165483961421E-02 -0.169085895368E-02 -0.172733136537E-02 -0.176426254740E-02
- -0.180165827049E-02 -0.183952437848E-02 -0.187786678704E-02 -0.191669148735E-02
- -0.195600454620E-02 -0.199581210582E-02 -0.203612038644E-02 -0.207693568598E-02
- -0.211826438164E-02 -0.216011293138E-02 -0.220248787374E-02 -0.224539582953E-02
- -0.228884350369E-02 -0.233283768434E-02 -0.237738524542E-02 -0.242249314788E-02
- -0.246816843938E-02 -0.251441825676E-02 -0.256124982659E-02 -0.260867046594E-02
- -0.265668758443E-02 -0.270530868480E-02 -0.275454136363E-02 -0.280439331387E-02
- -0.285487232478E-02 -0.290598628342E-02 -0.295774317658E-02 -0.301015109108E-02
- -0.306321821576E-02 -0.311695284217E-02 -0.317136336643E-02 -0.322645829034E-02
- -0.328224622208E-02 -0.333873587903E-02 -0.339593608739E-02 -0.345385578462E-02
- -0.351250402115E-02 -0.357188996023E-02 -0.363202288137E-02 -0.369291218043E-02
- -0.375456737097E-02 -0.381699808712E-02 -0.388021408376E-02 -0.394422523808E-02
- -0.400904155204E-02 -0.407467315366E-02 -0.414113029750E-02 -0.420842336774E-02
- -0.427656287922E-02 -0.434555947857E-02 -0.441542394671E-02 -0.448616720007E-02
- -0.455780029262E-02 -0.463033441694E-02 -0.470378090656E-02 -0.477815123785E-02
- -0.485345703121E-02 -0.492971005330E-02 -0.500692221878E-02 -0.508510559231E-02
- -0.516427239018E-02 -0.524443498225E-02 -0.532560589421E-02 -0.540779780917E-02
- -0.549102356972E-02 -0.557529618020E-02 -0.566062880823E-02 -0.574703478725E-02
- -0.583452761856E-02 -0.592312097288E-02 -0.601282869316E-02 -0.610366479654E-02
- -0.619564347630E-02 -0.628877910423E-02 -0.638308623315E-02 -0.647857959872E-02
- -0.657527412177E-02 -0.667318491127E-02 -0.677232726598E-02 -0.687271667712E-02
- -0.697436883062E-02 -0.707729960997E-02 -0.718152509839E-02 -0.728706158118E-02
- -0.739392554891E-02 -0.750213369907E-02 -0.761170293946E-02 -0.772265039078E-02
- -0.783499338855E-02 -0.794874948660E-02 -0.806393645986E-02 -0.818057230635E-02
- -0.829867525066E-02 -0.841826374673E-02 -0.853935648058E-02 -0.866197237320E-02
- -0.878613058347E-02 -0.891185051160E-02 -0.903915180151E-02 -0.916805434435E-02
- -0.929857828142E-02 -0.943074400740E-02 -0.956457217359E-02 -0.970008369073E-02
- -0.983729973304E-02 -0.997624174082E-02 -0.101169314239E-01 -0.102593907655E-01
- -0.104036420254E-01 -0.105497077428E-01 -0.106976107413E-01 -0.108473741307E-01
- -0.109990213120E-01 -0.111525759806E-01 -0.113080621296E-01 -0.114655040541E-01
- -0.116249263550E-01 -0.117863539421E-01 -0.119498120390E-01 -0.121153261865E-01
- -0.122829222465E-01 -0.124526264063E-01 -0.126244651827E-01 -0.127984654258E-01
- -0.129746543237E-01 -0.131530594062E-01 -0.133337085497E-01 -0.135166299810E-01
- -0.137018522820E-01 -0.138894043943E-01 -0.140793156233E-01 -0.142716156431E-01
- -0.144663345011E-01 -0.146635026226E-01 -0.148631508157E-01 -0.150653102759E-01
- -0.152700125913E-01 -0.154772897469E-01 -0.156871741305E-01 -0.158996985371E-01
- -0.161148961742E-01 -0.163328006669E-01 -0.165534460635E-01 -0.167768668405E-01
- -0.170030979078E-01 -0.172321746148E-01 -0.174641327554E-01 -0.176990085736E-01
- -0.179368387695E-01 -0.181776605048E-01 -0.184215114084E-01 -0.186684295829E-01
- -0.189184536099E-01 -0.191716225564E-01 -0.194279759808E-01 -0.196875539392E-01
- -0.199503969913E-01 -0.202165462071E-01 -0.204860431734E-01 -0.207589299999E-01
- -0.210352493259E-01 -0.213150443272E-01 -0.215983587227E-01 -0.218852367812E-01
- -0.221757233284E-01 -0.224698637536E-01 -0.227677040173E-01 -0.230692906581E-01
- -0.233746707999E-01 -0.236838921592E-01 -0.239970030532E-01 -0.243140524064E-01
- -0.246350897588E-01 -0.249601652739E-01 -0.252893297456E-01 -0.256226346073E-01
- -0.259601319389E-01 -0.263018744758E-01 -0.266479156164E-01 -0.269983094311E-01
- -0.273531106702E-01 -0.277123747727E-01 -0.280761578751E-01 -0.284445168200E-01
- -0.288175091649E-01 -0.291951931915E-01 -0.295776279143E-01 -0.299648730905E-01
- -0.303569892288E-01 -0.307540375989E-01 -0.311560802415E-01 -0.315631799775E-01
- -0.319754004179E-01 -0.323928059743E-01 -0.328154618680E-01 -0.332434341411E-01
- -0.336767896663E-01 -0.341155961574E-01 -0.345599221801E-01 -0.350098371627E-01
- -0.354654114064E-01 -0.359267160972E-01 -0.363938233163E-01 -0.368668060516E-01
- -0.373457382093E-01 -0.378306946251E-01 -0.383217510761E-01 -0.388189842927E-01
- -0.393224719704E-01 -0.398322927820E-01 -0.403485263901E-01 -0.408712534593E-01
- -0.414005556688E-01 -0.419365157254E-01 -0.424792173762E-01 -0.430287454219E-01
- -0.435851857298E-01 -0.441486252474E-01 -0.447191520159E-01 -0.452968551841E-01
- -0.458818250220E-01 -0.464741529355E-01 -0.470739314801E-01 -0.476812543755E-01
- -0.482962165206E-01 -0.489189140078E-01 -0.495494441386E-01 -0.501879054383E-01
- -0.508343976717E-01 -0.514890218584E-01 -0.521518802890E-01 -0.528230765408E-01
- -0.535027154942E-01 -0.541909033487E-01 -0.548877476400E-01 -0.555933572564E-01
- -0.563078424560E-01 -0.570313148842E-01 -0.577638875904E-01 -0.585056750467E-01
- -0.592567931648E-01 -0.600173593148E-01 -0.607874923432E-01 -0.615673125916E-01
- -0.623569419157E-01 -0.631565037039E-01 -0.639661228970E-01 -0.647859260074E-01
- -0.656160411394E-01 -0.664565980085E-01 -0.673077279623E-01 -0.681695640008E-01
- -0.690422407971E-01 -0.699258947185E-01 -0.708206638480E-01 -0.717266880058E-01
- -0.726441087709E-01 -0.735730695037E-01 -0.745137153681E-01 -0.754661933543E-01
- -0.764306523015E-01 -0.774072429219E-01 -0.783961178234E-01 -0.793974315340E-01
- -0.804113405260E-01 -0.814380032400E-01 -0.824775801102E-01 -0.835302335891E-01
- -0.845961281733E-01 -0.856754304287E-01 -0.867683090171E-01 -0.878749347222E-01
- -0.889954804765E-01 -0.901301213882E-01 -0.912790347688E-01 -0.924424001606E-01
- -0.936203993649E-01 -0.948132164706E-01 -0.960210378826E-01 -0.972440523512E-01
- -0.984824510018E-01 -0.997364273645E-01 -0.101006177405     -0.102291899553    
- -0.103593794737     -0.104912066413     -0.106246920597     -0.107598565897    
- -0.108967213546     -0.110353077436     -0.111756374150     -0.113177322995    
- -0.114616146039     -0.116073068144     -0.117548317001     -0.119042123169    
- -0.120554720105     -0.122086344205     -0.123637234840     -0.125207634394    
- -0.126797788300     -0.128407945081     -0.130038356386     -0.131689277032    
- -0.133360965044     -0.135053681691     -0.136767691534     -0.138503262460    
- -0.140260665732     -0.142040176022     -0.143842071462     -0.145666633685    
- -0.147514147866     -0.149384902772     -0.151279190804     -0.153197308042    
- -0.155139554294     -0.157106233142     -0.159097651987     -0.161114122103    
- -0.163155958678     -0.165223480871     -0.167317011857     -0.169436878879    
- -0.171583413299     -0.173756950652     -0.175957830695     -0.178186397463    
- -0.180442999323     -0.182727989025     -0.185041723762     -0.187384565223    
- -0.189756879651     -0.192159037900     -0.194591415491     -0.197054392675    
- -0.199548354489     -0.202073690820     -0.204630796460     -0.207220071175    
- -0.209841919763     -0.212496752119     -0.215184983298     -0.217907033581    
- -0.220663328542     -0.223454299113     -0.226280381651     -0.229142018008    
- -0.232039655599     -0.234973747472     -0.237944752382     -0.240953134856    
- -0.243999365273     -0.247083919935     -0.250207281137     -0.253369937251    
- -0.256572382796     -0.259815118517     -0.263098651463     -0.266423495068    
- -0.269790169229     -0.273199200388     -0.276651121616     -0.280146472692    
- -0.283685800191     -0.287269657569     -0.290898605245     -0.294573210696    
- -0.298294048538     -0.302061700617     -0.305876756105     -0.309739811585    
- -0.313651471145     -0.317612346474     -0.321623056958     -0.325684229769    
- -0.329796499971     -0.333960510611     -0.338176912824     -0.342446365929    
- -0.346769537533     -0.351147103633     -0.355579748723     -0.360068165892    
- -0.364613056938     -0.369215132472     -0.373875112026     -0.378593724164    
- -0.383371706593     -0.388209806274     -0.393108779539     -0.398069392200    
- -0.403092419670     -0.408178647076     -0.413328869381     -0.418543891501    
- -0.423824528423     -0.429171605334     -0.434585957738     -0.440068431580    
- -0.445619883376     -0.451241180336     -0.456933200493     -0.462696832829    
- -0.468532977412     -0.474442545521     -0.480426459779     -0.486485654294    
- -0.492621074783     -0.498833678720     -0.505124435462     -0.511494326400    
- -0.517944345090     -0.524475497397     -0.531088801644     -0.537785288746    
- -0.544566002368     -0.551431999062     -0.558384348424     -0.565424133241    
- -0.572552449648     -0.579770407280     -0.587079129428     -0.594479753206    
- -0.601973429704     -0.609561324159     -0.617244616122     -0.625024499628    
- -0.632902183372     -0.640878890886     -0.648955860727     -0.657134346657    
- -0.665415617842     -0.673800959049     -0.682291670851     -0.690889069837    
- -0.699594488835     -0.708409277135     -0.717334800728     -0.726372442555    
- -0.735523602758     -0.744789698954     -0.754172166515     -0.763672458863    
- -0.773292047779     -0.783032423734     -0.792895096228     -0.802881594153    
- -0.812993466174     -0.823232281136     -0.833599628480     -0.844097118697    
- -0.854726383798     -0.865489077806     -0.876386877281     -0.887421481865    
- -0.898594614858     -0.909908023811     -0.921363481153     -0.932962784834    
- -0.944707758998     -0.956600254664     -0.968642150431     -0.980835353191    
- -0.993181798843      -1.00568345301      -1.01834231175      -1.03116040223    
-  -1.04413978339      -1.05728254654      -1.07059081589      -1.08406674907    
-  -1.09771253744      -1.11153040636      -1.12552261528      -1.13969145767    
-  -1.15403926073      -1.16856838489      -1.18328122300      -1.19818019925    
-  -1.21326776771      -1.22854641054      -1.24401863572      -1.25968697435    
-  -1.27555397746      -1.29162221227      -1.30789425786      -1.32437270034    
-  -1.34106012734      -1.35795912188      -1.37507225563      -1.39240208160    
-  -1.40995112622      -1.42772188080      -1.44571679264      -1.46393825561    
-  -1.48238860044      -1.50107008484      -1.51998488345      -1.53913507800    
-  -1.55852264758      -1.57814945948      -1.59801726059      -1.61812766974    
-  -1.63848217113      -1.65908210905      -1.67992868433      -1.70102295243    
-  -1.72236582371      -1.74395806595      -1.76580030923      -1.78789305351    
-  -1.81023667893      -1.83283145892      -1.85567757625      -1.87877514188    
-  -1.90212421678      -1.92572483647      -1.94957703815      -1.97368089038    
-  -1.99803652497      -2.02264417077      -2.04750418927      -2.07261711142    
-  -2.09798367547      -2.12360486546      -2.14948194982      -2.17561651973    
-  -2.20201052684      -2.22866631982      -2.25558667925      -2.28277485042    
-  -2.31023457342      -2.33797011010      -2.36598626710      -2.39428841461    
-  -2.42288249982      -2.45177505471      -2.48097319706      -2.51048462403    
-  -2.54031759739      -2.57048091933      -2.60098389805      -2.63183630204    
-  -2.66304830212      -2.69463040041      -2.72659334547      -2.75894803314    
-  -2.79170539279      -2.82487625928      -2.85847123126      -2.89250051717    
-  -2.92697377104      -2.96189992112      -2.99728699507      -3.03314194676    
-  -3.06947049058      -3.10627694989      -3.14356412738      -3.18133320533    
-  -3.21958368390      -3.25831336532      -3.29751839099      -3.33719333654    
-  -3.37733136826      -3.41792446088      -3.45896367365      -3.50043947783    
-  -3.54234212494      -3.58466204146      -3.62739023290      -3.67051867792    
-  -3.71404069226      -3.75795124302      -3.80224719558      -3.84692747877    
-  -3.89199315870      -3.93744741664      -3.98329543216      -4.02954417828    
-  -4.07620214009      -4.12327897259      -4.17078511573      -4.21873138626    
-  -4.26712856569      -4.31598700236      -4.36531624329      -4.41512470840    
-  -4.46541941642      -4.51620576792      -4.56748738812      -4.61926602881    
-  -4.67154152637      -4.72431181124      -4.77757296265      -4.83131930195    
-  -4.88554351755      -4.94023681468      -4.99538908373      -5.05098908163    
-  -5.10702462167      -5.16348276824      -5.22035003394      -5.27761257770    
-  -5.33525640374      -5.39326756205      -5.45163235226      -5.51033753342    
-  -5.56937054284      -5.62871972737      -5.68837459005      -5.74832605382    
-  -5.80856674189      -5.86909127034      -5.92989654325      -5.99098203261    
-  -6.05235001513      -6.11400572481      -6.17595737135      -6.23821587286    
-  -6.30079477790      -6.36370721367      -6.42697078869      -6.49060259065    
-  -6.55454435913      -6.61903672400      -6.68328134729      -6.74624640711    
-  -6.80916148913      -6.87285094785      -6.93707649811      -7.00193768412    
-  -7.06745249850      -7.13363983599      -7.20052005803      -7.26810787934    
-  -7.33641463709      -7.40544788532      -7.47521170822      -7.54570704339    
-  -7.61693206887      -7.68888261418      -7.76155257161      -7.83493429038    
-  -7.90901894219      -7.98379685135      -8.05925778659      -8.13539121412    
-  -8.21218651344      -8.28963315893      -8.36772087042      -8.44643973645    
-  -8.52578031410      -8.60573370861      -8.68629163611      -8.76744647217    
-  -8.84919128848      -8.93151987977      -9.01442678240      -9.09790728602    
-  -9.18195743920      -9.26657404962      -9.35175467958      -9.43749763671    
-  -9.52380196043      -9.61066740388      -9.69809441123      -9.78608409079    
-  -9.87463818206      -9.96375901957      -10.0534494907      -10.1437129853    
-  -10.2345533444      -10.3259748007      -10.4179819121      -10.5105794914    
-  -10.6037725295      -10.6975661132      -10.7919653377      -10.8869752148    
-  -10.9826005755      -11.0788459703      -11.1757155645      -11.2732130301    
-  -11.3713414376      -11.4701031402      -11.5694996518      -11.6695315288    
-  -11.7701982360      -11.8714980015      -11.9734276592      -12.0759824665    
-  -12.1791558933      -12.2829393706      -12.3873219882      -12.4922901281    
-  -12.5978270198      -12.7039122021      -12.8105208785      -12.9176231553    
-  -13.0251831536      -13.1331579994      -13.2414966984      -13.3501389227    
-  -13.4590137463      -13.5680383851      -13.6771170150      -13.7861397501    
-  -13.8949818730      -14.0035034005      -14.1115490517      -14.2189486490    
-  -14.3255179299      -14.4310596881      -14.5353650901      -14.6382149516    
-  -14.7393807055      -14.8386247903      -14.9357000159      -15.0303485563    
-  -15.1222961570      -15.2112563000      -15.2969039676      -15.3788939078    
-  -15.4568708801      -15.5304724076      -15.5994032772      -15.6633773616    
-  -15.7221116171      -15.7753693604      -15.8229464863      -15.8646928232    
-  -15.9005229349      -15.9304330438      -15.9545199056      -15.9730030007    
-  -15.9862503092      -15.9948081892      -15.9994359318      -16.0011456552    
-  -16.0012483028      -16.0010802434      -16.0007965399      -16.0005844637    
-  -16.0004266354      -16.0003097209      -16.0002235308      -16.0001603109    
-  -16.0001141855      -16.0000807213      -16.0000565883      -16.0000392967    
-  -16.0000269936      -16.0000183072      -16.0000122266      -16.0000080112    
-  -16.0000051213      -16.0000031660      -16.0000018638      -16.0000010135    
-  -16.0000004724      -16.0000001400      -15.9999999462      -15.9999998425    
-  -15.9999997959      -15.9999997841      -15.9999997924      -15.9999998114    
-  -15.9999998348      -15.9999998592      -15.9999998824      -15.9999999034    
-  -15.9999999217      -15.9999999372      -15.9999999501      -15.9999999608    
-  -15.9999999694      -15.9999999763      -15.9999999817      -15.9999999860    
-  -15.9999999894      -15.9999999920      -15.9999999940      -15.9999999955    
-  -15.9999999966      -15.9999999975      -15.9999999982      -15.9999999987    
-  -15.9999999990      -15.9999999993      -15.9999999995      -15.9999999996    
-  -15.9999999997      -15.9999999998      -15.9999999999      -15.9999999999    
-  -15.9999999999      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000    
- Down Pseudopotential follows (l on next line)
-  2
- -0.176665913181E-03 -0.355554572799E-03 -0.536692394813E-03 -0.720109641939E-03
- -0.905833352075E-03 -0.109389347032E-02 -0.128431896168E-02 -0.147713978008E-02
- -0.167238595559E-02 -0.187008803257E-02 -0.207027689426E-02 -0.227298382119E-02
- -0.247824048703E-02 -0.268607896351E-02 -0.289653172573E-02 -0.310963165757E-02
- -0.332541205632E-02 -0.354390663811E-02 -0.376514954319E-02 -0.398917534123E-02
- -0.421601903700E-02 -0.444571607509E-02 -0.467830234634E-02 -0.491381419278E-02
- -0.515228841377E-02 -0.539376227158E-02 -0.563827349677E-02 -0.588586029510E-02
- -0.613656135237E-02 -0.639041584151E-02 -0.664746342770E-02 -0.690774427509E-02
- -0.717129905371E-02 -0.743816894417E-02 -0.770839564577E-02 -0.798202138223E-02
- -0.825908890792E-02 -0.853964151562E-02 -0.882372304241E-02 -0.911137787653E-02
- -0.940265096497E-02 -0.969758782012E-02 -0.999623452593E-02 -0.102986377474E-01
- -0.106048447358E-01 -0.109149033361E-01 -0.112288619964E-01 -0.115467697737E-01
- -0.118686763413E-01 -0.121946319980E-01 -0.125246876759E-01 -0.128588949464E-01
- -0.131973060303E-01 -0.135399738054E-01 -0.138869518144E-01 -0.142382942733E-01
- -0.145940560802E-01 -0.149542928239E-01 -0.153190607924E-01 -0.156884169813E-01
- -0.160624191034E-01 -0.164411255974E-01 -0.168245956373E-01 -0.172128891409E-01
- -0.176060667799E-01 -0.180041899894E-01 -0.184073209767E-01 -0.188155227323E-01
- -0.192288590381E-01 -0.196473944788E-01 -0.200711944520E-01 -0.205003251765E-01
- -0.209348537050E-01 -0.213748479342E-01 -0.218203766130E-01 -0.222715093563E-01
- -0.227283166549E-01 -0.231908698853E-01 -0.236592413227E-01 -0.241335041507E-01
- -0.246137324735E-01 -0.251000013281E-01 -0.255923866945E-01 -0.260909655088E-01
- -0.265958156751E-01 -0.271070160769E-01 -0.276246465899E-01 -0.281487880953E-01
- -0.286795224907E-01 -0.292169327044E-01 -0.297611027078E-01 -0.303121175281E-01
- -0.308700632625E-01 -0.314350270912E-01 -0.320070972904E-01 -0.325863632474E-01
- -0.331729154734E-01 -0.337668456182E-01 -0.343682464846E-01 -0.349772120423E-01
- -0.355938374437E-01 -0.362182190372E-01 -0.368504543838E-01 -0.374906422716E-01
- -0.381388827306E-01 -0.387952770504E-01 -0.394599277932E-01 -0.401329388120E-01
- -0.408144152665E-01 -0.415044636382E-01 -0.422031917487E-01 -0.429107087758E-01
- -0.436271252699E-01 -0.443525531729E-01 -0.450871058345E-01 -0.458308980294E-01
- -0.465840459768E-01 -0.473466673580E-01 -0.481188813336E-01 -0.489008085636E-01
- -0.496925712261E-01 -0.504942930352E-01 -0.513060992616E-01 -0.521281167517E-01
- -0.529604739475E-01 -0.538033009064E-01 -0.546567293217E-01 -0.555208925435E-01
- -0.563959255989E-01 -0.572819652138E-01 -0.581791498334E-01 -0.590876196448E-01
- -0.600075165983E-01 -0.609389844296E-01 -0.618821686824E-01 -0.628372167312E-01
- -0.638042778043E-01 -0.647835030069E-01 -0.657750453448E-01 -0.667790597487E-01
- -0.677957030980E-01 -0.688251342450E-01 -0.698675140406E-01 -0.709230053588E-01
- -0.719917731223E-01 -0.730739843280E-01 -0.741698080740E-01 -0.752794155849E-01
- -0.764029802389E-01 -0.775406775956E-01 -0.786926854223E-01 -0.798591837229E-01
- -0.810403547647E-01 -0.822363831085E-01 -0.834474556361E-01 -0.846737615799E-01
- -0.859154925529E-01 -0.871728425781E-01 -0.884460081188E-01 -0.897351881101E-01
- -0.910405839888E-01 -0.923623997257E-01 -0.937008418573E-01 -0.950561195179E-01
- -0.964284444724E-01 -0.978180311494E-01 -0.992250966747E-01 -0.100649860905    
- -0.102092546463     -0.103553378771     -0.105032586088     -0.106530399541    
- -0.108047053169     -0.109582783950     -0.111137831847     -0.112712439838    
- -0.114306853960     -0.115921323342     -0.117556100249     -0.119211440119    
- -0.120887601601     -0.122584846599     -0.124303440312     -0.126043651273    
- -0.127805751393     -0.129590016005     -0.131396723903     -0.133226157389    
- -0.135078602317     -0.136954348133     -0.138853687929     -0.140776918479    
- -0.142724340291     -0.144696257656     -0.146692978688     -0.148714815381    
- -0.150762083649     -0.152835103383     -0.154934198496     -0.157059696977    
- -0.159211930939     -0.161391236673     -0.163597954699     -0.165832429824    
- -0.168095011187     -0.170386052321     -0.172705911208     -0.175054950328    
- -0.177433536726     -0.179842042059     -0.182280842663     -0.184750319603    
- -0.187250858742     -0.189782850794     -0.192346691388     -0.194942781129    
- -0.197571525663     -0.200233335734     -0.202928627258     -0.205657821379    
- -0.208421344539     -0.211219628545     -0.214053110634     -0.216922233545    
- -0.219827445582     -0.222769200693     -0.225747958532     -0.228764184536    
- -0.231818349997     -0.234910932136     -0.238042414174     -0.241213285412    
- -0.244424041306     -0.247675183543     -0.250967220121     -0.254300665427    
- -0.257676040319     -0.261093872208     -0.264554695136     -0.268059049864    
- -0.271607483955     -0.275200551861     -0.278838815004     -0.282522841872    
- -0.286253208102     -0.290030496571     -0.293855297489     -0.297728208489    
- -0.301649834722     -0.305620788951     -0.309641691645     -0.313713171079    
- -0.317835863430     -0.322010412879     -0.326237471708     -0.330517700403    
- -0.334851767760     -0.339240350986     -0.343684135807     -0.348183816574    
- -0.352740096371     -0.357353687128     -0.362025309727     -0.366755694121    
- -0.371545579442     -0.376395714120     -0.381306855999     -0.386279772456    
- -0.391315240520     -0.396414046994     -0.401576988577     -0.406804871992    
- -0.412098514105     -0.417458742060     -0.422886393404     -0.428382316221    
- -0.433947369259     -0.439582422072     -0.445288355147     -0.451066060051    
- -0.456916439561     -0.462840407814     -0.468838890441     -0.474912824719    
- -0.481063159714     -0.487290856430     -0.493596887956     -0.499982239626    
- -0.506447909163     -0.512994906844     -0.519624255651     -0.526336991434    
- -0.533134163073     -0.540016832642     -0.546986075571     -0.554042980822    
- -0.561188651050     -0.568424202782     -0.575750766589     -0.583169487263    
- -0.590681523994     -0.598288050554     -0.605990255480     -0.613789342257    
- -0.621686529510     -0.629683051190     -0.637780156771     -0.645979111443    
- -0.654281196309     -0.662687708588     -0.671199961813     -0.679819286042    
- -0.688547028062     -0.697384551600     -0.706333237535     -0.715394484119    
- -0.724569707187     -0.733860340387     -0.743267835396     -0.752793662153    
- -0.762439309086     -0.772206283344     -0.782096111034     -0.792110337459    
- -0.802250527356     -0.812518265149     -0.822915155186     -0.833442821997    
- -0.844102910545     -0.854897086485     -0.865827036420     -0.876894468169    
- -0.888101111031     -0.899448716058     -0.910939056323     -0.922573927204    
- -0.934355146659     -0.946284555514     -0.958364017745     -0.970595420776    
- -0.982980675769     -0.995521717925      -1.00822050678      -1.02107902653    
-  -1.03409928631      -1.04728332054      -1.06063318921      -1.07415097823    
-  -1.08783879976      -1.10169879249      -1.11573312204      -1.12994398126    
-  -1.14433359056      -1.15890419830      -1.17365808111      -1.18859754424    
-  -1.20372492195      -1.21904257785      -1.23455290527      -1.25025832765    
-  -1.26616129890      -1.28226430379      -1.29856985834      -1.31508051021    
-  -1.33179883910      -1.34872745716      -1.36586900936      -1.38322617396    
-  -1.40080166288      -1.41859822216      -1.43661863236      -1.45486570900    
-  -1.47334230299      -1.49205130113      -1.51099562646      -1.53017823882    
-  -1.54960213525      -1.56927035045      -1.58918595730      -1.60935206729    
-  -1.62977183105      -1.65044843881      -1.67138512088      -1.69258514822    
-  -1.71405183287      -1.73578852851      -1.75779863099      -1.78008557882    
-  -1.80265285374      -1.82550398124      -1.84864253110      -1.87207211800    
-  -1.89579640200      -1.91981908916      -1.94414393213      -1.96877473068    
-  -1.99371533231      -2.01896963287      -2.04454157714      -2.07043515945    
-  -2.09665442430      -2.12320346696      -2.15008643415      -2.17730752465    
-  -2.20487098994      -2.23278113488      -2.26104231838      -2.28965895404    
-  -2.31863551085      -2.34797651389      -2.37768654500      -2.40777024349    
-  -2.43823230688      -2.46907749160      -2.50031061370      -2.53193654962    
-  -2.56396023694      -2.59638667510      -2.62922092618      -2.66246811569    
-  -2.69613343334      -2.73022213381      -2.76473953757      -2.79969103168    
-  -2.83508207061      -2.87091817706      -2.90720494280      -2.94394802950    
-  -2.98115316959      -3.01882616713      -3.05697289865      -3.09559931408    
-  -3.13471143756      -3.17431536842      -3.21441728202      -3.25502343069    
-  -3.29614014467      -3.33777383300      -3.37993098448      -3.42261816863    
-  -3.46584203664      -3.50960932229      -3.55392684302      -3.59880150079    
-  -3.64424028318      -3.69025026429      -3.73683860583      -3.78401255806    
-  -3.83177946084      -3.88014674464      -3.92912193160      -3.97871263653    
-  -4.02892656795      -4.07977152918      -4.13125541933      -4.18338623441    
-  -4.23617206834      -4.28962111407      -4.34374166458      -4.39854211399    
-  -4.45403095860      -4.51021679799      -4.56710833607      -4.62471438212    
-  -4.68304385189      -4.74210576865      -4.80190926425      -4.86246358015    
-  -4.92377806848      -4.98586219308      -5.04872553050      -5.11237777106    
-  -5.17682871981      -5.24208829751      -5.30816654168      -5.37507360743    
-  -5.44281976851      -5.51141541814      -5.58087106993      -5.65119735875    
-  -5.72240504149      -5.79450499795      -5.86750823151      -5.94142586991    
-  -6.01626916587      -6.09204949776      -6.16877837017      -6.24646741439    
-  -6.32512838893      -6.40477317988      -6.48541380123      -6.56706239516    
-  -6.64973123219      -6.73343271124      -6.81817935968      -6.90398383317    
-  -6.99085891549      -7.07881751816      -7.16787268006      -7.25803756677    
-  -7.34932546991      -7.44174980625      -7.53532411666      -7.63006206494    
-  -7.72597743641      -7.82308413637      -7.92139618827      -8.02092773174    
-  -8.12169302035      -8.22370641912      -8.32698240177      -8.43153554769    
-  -8.53738053859      -8.64453215492      -8.75300527178      -8.86281485466    
-  -8.97397595469      -9.08650370348      -9.20041330761      -9.31572004260    
-  -9.43243924638      -9.55058631233      -9.67017668172      -9.79122583555    
-  -9.91374928587      -10.0377625663      -10.1632812222      -10.2903207994    
-  -10.4188968333      -10.5490248357      -10.6807202824      -10.8139985982    
-  -10.9488751425      -11.0853651924      -11.2234839261      -11.3632464041    
-  -11.5046675493      -11.6477621267      -11.7925447204      -11.9390297100    
-  -12.0872312454      -12.2371632192      -12.3888392386      -12.5422725940    
-  -12.6974762270      -12.8544626951      -13.0132441351      -13.1738322237    
-  -13.3362381356      -13.5004724991      -13.6665453487      -13.8344660755    
-  -14.0042433731      -14.1758851817      -14.3493986279      -14.5247899611    
-  -14.7020644860      -14.8812264912      -15.0622791742      -15.2452245608    
-  -15.4300634213      -15.6167951811      -15.8054178273      -15.9959278095    
-  -16.1883199363      -16.3825872656      -16.5787209907      -16.7767103200    
-  -16.9765423518      -17.1782019436      -17.3816715752      -17.5869312071    
-  -17.7939581330      -18.0027268270      -18.2132087851      -18.4253723621    
-  -18.6391826031      -18.8546010699      -19.0715856632      -19.2900904398    
-  -19.5100654255      -19.7314564244      -19.9542048243      -20.1782473977    
-  -20.4035161006      -20.6299378678      -20.8574344051      -21.0859219799    
-  -21.3153112084      -21.5455068422      -21.7764075528      -22.0079057146    
-  -22.2398871882      -22.4722311021      -22.7048096363      -22.9374878053    
-  -23.1701232438      -23.4025659942      -23.6346582975      -23.8662343887    
-  -24.0971202977      -24.3271336568      -24.5560835167      -24.7837701724    
-  -25.0099850003      -25.2345103098      -25.4571192096      -25.6775754929    
-  -25.8956335428      -26.1110382601      -26.3235250182      -26.5328196461    
-  -26.7386384432      -26.9406882302      -27.1386664382      -27.3322612409    
-  -27.5211517327      -27.7050081587      -27.8834921996      -28.0562573169    
-  -28.2229491642      -28.3832060709      -28.5366596036      -28.6829352130    
-  -28.8216529749      -28.9524284335      -29.0748735557      -29.1885978086    
-  -29.2932093698      -29.3883164825      -29.4735289678      -29.5484599058    
-  -29.6127274962      -29.6659571102      -29.7077835405      -29.7378534558    
-  -29.7558280624      -29.7613859709      -29.7542262607      -29.7340717314    
-  -29.7006723223      -29.6538086775      -29.5932958281      -29.5189869589    
-  -29.4307772229      -29.3286075669      -29.2124685274      -29.0824039592    
-  -28.9385146592      -28.7809618495      -28.6099704874      -28.4258323694    
-  -28.2289090003      -28.0196341947      -27.7985163806      -27.5661405665    
-  -27.3231699338      -27.0703470032      -26.8084943231      -26.5385146109    
-  -26.2613902742      -25.9781822241      -25.6900278838      -25.3981382817    
-  -25.1037941090      -24.8083406087      -24.5131811516      -24.2197693441    
-  -23.9295995033      -23.6441953260      -23.3650965721      -23.0938435819    
-  -22.8319594495      -22.5809296866      -22.3421792334      -22.1170467091    
-  -21.9067558531      -21.7123841862      -21.5348290376      -21.3747712315    
-  -21.2326369315      -21.1085583999      -21.0023347583      -20.9133942515    
-  -20.8407600277      -20.7830220709      -20.7383186762      -20.7043317575    
-  -20.6783013427      -20.6570658678      -20.6371363553      -20.6148141990    
-  -20.5863649283      -20.5482590612      -20.4975080437      -20.4320977962    
-  -20.3514842870      -20.2576991227      -20.1549388229      -20.0493085077    
-  -19.9438108933      -19.8392960732      -19.7355502531      -19.6326983887    
-  -19.5307859225      -19.4298619765      -19.3299803144      -19.2311923336    
-  -19.1335492013      -19.0371011353      -18.9418972747      -18.8479854788    
-  -18.7554121477      -18.6642220570      -18.5744582055      -18.4861616767    
-  -18.3993715131      -18.3141246024      -18.2304555766      -18.1483967216    
-  -18.0679778990      -17.9892264795      -17.9121672857      -17.8368225479    
-  -17.7632118694      -17.6913522034      -17.6212578398      -17.5529404035    
-  -17.4864088625      -17.4216695464      -17.3587261746      -17.2975798942    
-  -17.2382293270      -17.1806706250      -17.1248975339      -17.0709014645    
-  -17.0186715701      -16.9681948300      -16.9194561384      -16.8724383973    
-  -16.8271226117      -16.7834879882      -16.7415120340      -16.7011706554    
-  -16.6624382559      -16.6252878317      -16.5896910645      -16.5556184095    
-  -16.5230391790      -16.4919216211      -16.4622329919      -16.4339396227    
-  -16.4070069813      -16.3813997286      -16.3570817720      -16.3340163156    
-  -16.3121659105      -16.2914925064      -16.2719575064      -16.2535218292    
-  -16.2361459780      -16.2197901208      -16.2044141811      -16.1899779410    
-  -16.1764411541      -16.1637636672      -16.1519055455      -16.1408271959    
-  -16.1304894802      -16.1208538098      -16.1118822122      -16.1035373594    
-  -16.0957825539      -16.0885816673      -16.0818990380      -16.0756993399    
-  -16.0699474478      -16.0646083338      -16.0596470451      -16.0550288164    
-  -16.0507193749      -16.0466854875      -16.0428957774      -16.0393218020    
-  -16.0359393373      -16.0327297501      -16.0296812800      -16.0267899940    
-  -16.0240601314      -16.0215035618      -16.0191379067      -16.0169839738    
-  -16.0150580823      -16.0133740053      -16.0119141360      -16.0106447278    
-  -16.0095226061      -16.0084937696      -16.0075629879      -16.0067297984    
-  -16.0059755680      -16.0052984998      -16.0046900070      -16.0041443870    
-  -16.0036558143      -16.0032190184      -16.0028291278      -16.0024816636    
-  -16.0021725126      -16.0018979045      -16.0016543889      -16.0014388137    
-  -16.0012483042      -16.0010802434      -16.0007965399      -16.0005844637    
-  -16.0004266354      -16.0003097209      -16.0002235308      -16.0001603109    
-  -16.0001141855      -16.0000807213      -16.0000565883      -16.0000392967    
-  -16.0000269936      -16.0000183072      -16.0000122266      -16.0000080112    
-  -16.0000051213      -16.0000031660      -16.0000018638      -16.0000010135    
-  -16.0000004724      -16.0000001400      -15.9999999462      -15.9999998425    
-  -15.9999997959      -15.9999997841      -15.9999997924      -15.9999998114    
-  -15.9999998348      -15.9999998592      -15.9999998824      -15.9999999034    
-  -15.9999999217      -15.9999999372      -15.9999999501      -15.9999999608    
-  -15.9999999694      -15.9999999763      -15.9999999817      -15.9999999860    
-  -15.9999999894      -15.9999999920      -15.9999999940      -15.9999999955    
-  -15.9999999966      -15.9999999975      -15.9999999982      -15.9999999987    
-  -15.9999999990      -15.9999999993      -15.9999999995      -15.9999999996    
-  -15.9999999997      -15.9999999998      -15.9999999999      -15.9999999999    
-  -15.9999999999      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000    
- Down Pseudopotential follows (l on next line)
-  3
- -0.282046789892E-04 -0.567646919750E-04 -0.856829657602E-04 -0.114965978447E-03
- -0.144616684145E-03 -0.174640641230E-03 -0.205042121231E-03 -0.235826074002E-03
- -0.266997211020E-03 -0.298560439592E-03 -0.330520683414E-03 -0.362882936966E-03
- -0.395652257206E-03 -0.428833764364E-03 -0.462432643035E-03 -0.496454143333E-03
- -0.530903581159E-03 -0.565786339322E-03 -0.601107868347E-03 -0.636873687316E-03
- -0.673089384991E-03 -0.709760619954E-03 -0.746893122354E-03 -0.784492694199E-03
- -0.822565210632E-03 -0.861116620753E-03 -0.900152948080E-03 -0.939680292503E-03
- -0.979704830108E-03 -0.102023281519E-02 -0.106127058023E-02 -0.110282453740E-02
- -0.114490118020E-02 -0.118750708286E-02 -0.123064890295E-02 -0.127433338172E-02
- -0.131856734475E-02 -0.136335770411E-02 -0.140871145855E-02 -0.145463569459E-02
- -0.150113758834E-02 -0.154822440619E-02 -0.159590350503E-02 -0.164418233559E-02
- -0.169306844186E-02 -0.174256946171E-02 -0.179269313066E-02 -0.184344728095E-02
- -0.189483984257E-02 -0.194687884606E-02 -0.199957242329E-02 -0.205292880744E-02
- -0.210695633569E-02 -0.216166345046E-02 -0.221705869979E-02 -0.227315073947E-02
- -0.232994833411E-02 -0.238746035865E-02 -0.244569579976E-02 -0.250466375671E-02
- -0.256437344357E-02 -0.262483419022E-02 -0.268605544394E-02 -0.274804677066E-02
- -0.281081785672E-02 -0.287437851040E-02 -0.293873866297E-02 -0.300390837132E-02
- -0.306989781796E-02 -0.313671731384E-02 -0.320437730023E-02 -0.327288834835E-02
- -0.334226116335E-02 -0.341250658554E-02 -0.348363558994E-02 -0.355565929070E-02
- -0.362858894202E-02 -0.370243593878E-02 -0.377721181996E-02 -0.385292826910E-02
- -0.392959711678E-02 -0.400723034293E-02 -0.408584007752E-02 -0.416543860312E-02
- -0.424603835763E-02 -0.432765193429E-02 -0.441029208512E-02 -0.449397172312E-02
- -0.457870392287E-02 -0.466450192393E-02 -0.475137913236E-02 -0.483934912241E-02
- -0.492842563966E-02 -0.501862260245E-02 -0.510995410367E-02 -0.520243441430E-02
- -0.529607798435E-02 -0.539089944546E-02 -0.548691361379E-02 -0.558413549145E-02
- -0.568258026955E-02 -0.578226333000E-02 -0.588320024845E-02 -0.598540679654E-02
- -0.608889894374E-02 -0.619369286131E-02 -0.629980492311E-02 -0.640725170913E-02
- -0.651605000856E-02 -0.662621682067E-02 -0.673776935959E-02 -0.685072505559E-02
- -0.696510155773E-02 -0.708091673795E-02 -0.719818869255E-02 -0.731693574507E-02
- -0.743717645009E-02 -0.755892959577E-02 -0.768221420580E-02 -0.780704954376E-02
- -0.793345511558E-02 -0.806145067209E-02 -0.819105621292E-02 -0.832229198914E-02
- -0.845517850683E-02 -0.858973652954E-02 -0.872598708213E-02 -0.886395145426E-02
- -0.900365120302E-02 -0.914510815677E-02 -0.928834441839E-02 -0.943338236896E-02
- -0.958024467092E-02 -0.972895427171E-02 -0.987953440761E-02 -0.100320086071E-01
- -0.101864006944E-01 -0.103427347939E-01 -0.105010353329E-01 -0.106613270462E-01
- -0.108236349799E-01 -0.109879844948E-01 -0.111544012708E-01 -0.113229113111E-01
- -0.114935409456E-01 -0.116663168355E-01 -0.118412659775E-01 -0.120184157079E-01
- -0.121977937064E-01 -0.123794280014E-01 -0.125633469736E-01 -0.127495793609E-01
- -0.129381542623E-01 -0.131291011430E-01 -0.133224498392E-01 -0.135182305616E-01
- -0.137164739018E-01 -0.139172108354E-01 -0.141204727280E-01 -0.143262913401E-01
- -0.145346988309E-01 -0.147457277646E-01 -0.149594111151E-01 -0.151757822708E-01
- -0.153948750400E-01 -0.156167236566E-01 -0.158413627850E-01 -0.160688275254E-01
- -0.162991534197E-01 -0.165323764569E-01 -0.167685330785E-01 -0.170076601845E-01
- -0.172497951391E-01 -0.174949757764E-01 -0.177432404065E-01 -0.179946278210E-01
- -0.182491773001E-01 -0.185069286176E-01 -0.187679220475E-01 -0.190321983709E-01
- -0.192997988815E-01 -0.195707653922E-01 -0.198451402425E-01 -0.201229663039E-01
- -0.204042869872E-01 -0.206891462497E-01 -0.209775886011E-01 -0.212696591111E-01
- -0.215654034166E-01 -0.218648677281E-01 -0.221680988376E-01 -0.224751441259E-01
- -0.227860515692E-01 -0.231008697476E-01 -0.234196478522E-01 -0.237424356928E-01
- -0.240692837057E-01 -0.244002429616E-01 -0.247353651738E-01 -0.250747027058E-01
- -0.254183085799E-01 -0.257662364853E-01 -0.261185407865E-01 -0.264752765320E-01
- -0.268364994625E-01 -0.272022660200E-01 -0.275726333562E-01 -0.279476593420E-01
- -0.283274025762E-01 -0.287119223944E-01 -0.291012788788E-01 -0.294955328673E-01
- -0.298947459630E-01 -0.302989805439E-01 -0.307082997726E-01 -0.311227676064E-01
- -0.315424488068E-01 -0.319674089498E-01 -0.323977144368E-01 -0.328334325039E-01
- -0.332746312332E-01 -0.337213795631E-01 -0.341737472990E-01 -0.346318051247E-01
- -0.350956246127E-01 -0.355652782362E-01 -0.360408393795E-01 -0.365223823504E-01
- -0.370099823912E-01 -0.375037156907E-01 -0.380036593960E-01 -0.385098916246E-01
- -0.390224914766E-01 -0.395415390470E-01 -0.400671154385E-01 -0.405993027737E-01
- -0.411381842085E-01 -0.416838439444E-01 -0.422363672422E-01 -0.427958404352E-01
- -0.433623509428E-01 -0.439359872836E-01 -0.445168390901E-01 -0.451049971218E-01
- -0.457005532803E-01 -0.463036006227E-01 -0.469142333771E-01 -0.475325469565E-01
- -0.481586379743E-01 -0.487926042589E-01 -0.494345448696E-01 -0.500845601115E-01
- -0.507427515513E-01 -0.514092220336E-01 -0.520840756963E-01 -0.527674179874E-01
- -0.534593556814E-01 -0.541599968956E-01 -0.548694511074E-01 -0.555878291714E-01
- -0.563152433364E-01 -0.570518072632E-01 -0.577976360425E-01 -0.585528462124E-01
- -0.593175557770E-01 -0.600918842249E-01 -0.608759525475E-01 -0.616698832581E-01
- -0.624738004113E-01 -0.632878296219E-01 -0.641120980849E-01 -0.649467345953E-01
- -0.657918695680E-01 -0.666476350584E-01 -0.675141647833E-01 -0.683915941410E-01
- -0.692800602333E-01 -0.701797018864E-01 -0.710906596730E-01 -0.720130759337E-01
- -0.729470947997E-01 -0.738928622155E-01 -0.748505259609E-01 -0.758202356749E-01
- -0.768021428789E-01 -0.777964009999E-01 -0.788031653951E-01 -0.798225933759E-01
- -0.808548442325E-01 -0.819000792587E-01 -0.829584617772E-01 -0.840301571653E-01
- -0.851153328804E-01 -0.862141584864E-01 -0.873268056801E-01 -0.884534483181E-01
- -0.895942624439E-01 -0.907494263156E-01 -0.919191204335E-01 -0.931035275682E-01
- -0.943028327898E-01 -0.955172234962E-01 -0.967468894425E-01 -0.979920227708E-01
- -0.992528180404E-01 -0.100529472258     -0.101822184907     -0.103131157983    
- -0.104456596020     -0.105798706126     -0.107157698015     -0.108533784037    
- -0.109927179214     -0.111338101274     -0.112766770682     -0.114213410679    
- -0.115678247311     -0.117161509469     -0.118663428924     -0.120184240362    
- -0.121724181421     -0.123283492727     -0.124862417936     -0.126461203767    
- -0.128080100043     -0.129719359730     -0.131379238975     -0.133059997148    
- -0.134761896883     -0.136485204117     -0.138230188130     -0.139997121594    
- -0.141786280608     -0.143597944744     -0.145432397093     -0.147289924305    
- -0.149170816639     -0.151075368003     -0.153003876002     -0.154956641987    
- -0.156933971098     -0.158936172316     -0.160963558505     -0.163016446470    
- -0.165095156998     -0.167200014912     -0.169331349121     -0.171489492675    
- -0.173674782809     -0.175887561004     -0.178128173036     -0.180396969031    
- -0.182694303519     -0.185020535492     -0.187376028457     -0.189761150494    
- -0.192176274314     -0.194621777318     -0.197098041654     -0.199605454276    
- -0.202144407011     -0.204715296611     -0.207318524821     -0.209954498442    
- -0.212623629390     -0.215326334767     -0.218063036920     -0.220834163509    
- -0.223640147579     -0.226481427618     -0.229358447634     -0.232271657220    
- -0.235221511628     -0.238208471834     -0.241233004618     -0.244295582629    
- -0.247396684467     -0.250536794750     -0.253716404196     -0.256936009696    
- -0.260196114393     -0.263497227763     -0.266839865689     -0.270224550548    
- -0.273651811287     -0.277122183512     -0.280636209567     -0.284194438617    
- -0.287797426743     -0.291445737019     -0.295139939605     -0.298880611837    
- -0.302668338313     -0.306503710990     -0.310387329273     -0.314319800108    
- -0.318301738081     -0.322333765510     -0.326416512546     -0.330550617267    
- -0.334736725783     -0.338975492334     -0.343267579393     -0.347613657769    
- -0.352014406713     -0.356470514025     -0.360982676159     -0.365551598336    
- -0.370177994648     -0.374862588177     -0.379606111105     -0.384409304824    
- -0.389272920062     -0.394197716991     -0.399184465352     -0.404233944570    
- -0.409346943883     -0.414524262459     -0.419766709525     -0.425075104491    
- -0.430450277080     -0.435893067457     -0.441404326360     -0.446984915235    
- -0.452635706368     -0.458357583023     -0.464151439580     -0.470018181674    
- -0.475958726338     -0.481974002144     -0.488064949352     -0.494232520051    
- -0.500477678315     -0.506801400347     -0.513204674635     -0.519688502107    
- -0.526253896282     -0.532901883436     -0.539633502757     -0.546449806506    
- -0.553351860186     -0.560340742703     -0.567417546538     -0.574583377915    
- -0.581839356974     -0.589186617944     -0.596626309324     -0.604159594053    
- -0.611787649700     -0.619511668642     -0.627332858249     -0.635252441074    
- -0.643271655038     -0.651391753628     -0.659614006086     -0.667939697608    
- -0.676370129541     -0.684906619585     -0.693550501998     -0.702303127799    
- -0.711165864977     -0.720140098702     -0.729227231538     -0.738428683658    
- -0.747745893061     -0.757180315796     -0.766733426180     -0.776406717025    
- -0.786201699868     -0.796119905199     -0.806162882694     -0.816332201451    
- -0.826629450228     -0.837056237685     -0.847614192624     -0.858304964239    
- -0.869130222360     -0.880091657710     -0.891190982153     -0.902429928954    
- -0.913810253038     -0.925333731254     -0.937002162636     -0.948817368675    
- -0.960781193588     -0.972895504590     -0.985162192178     -0.997583170402    
-  -1.01016037716      -1.02289577446      -1.03579134875      -1.04884911117    
-  -1.06207109788      -1.07545937034      -1.08901601564      -1.10274314678    
-  -1.11664290298      -1.13071745004      -1.14496898064      -1.15939971464    
-  -1.17401189945      -1.18880781036      -1.20378975088      -1.21896005310    
-  -1.23432107803      -1.24987521600      -1.26562488700      -1.28157254107    
-  -1.29772065873      -1.31407175135      -1.33062836154      -1.34739306366    
-  -1.36436846416      -1.38155720210      -1.39896194961      -1.41658541234    
-  -1.43443033000      -1.45249947687      -1.47079566230      -1.48932173134    
-  -1.50808056525      -1.52707508215      -1.54630823764      -1.56578302544    
-  -1.58550247807      -1.60546966757      -1.62568770622      -1.64615974731    
-  -1.66688898593      -1.68787865979      -1.70913205003      -1.73065248215    
-  -1.75244332686      -1.77450800099      -1.79684996846      -1.81947274120    
-  -1.84237988007      -1.86557499589      -1.88906175030      -1.91284385674    
-  -1.93692508132      -1.96130924368      -1.98600021776      -2.01100193255    
-  -2.03631837267      -2.06195357889      -2.08791164846      -2.11419673531    
-  -2.14081305000      -2.16776485947      -2.19505648652      -2.22269230894    
-  -2.25067675837      -2.27901431871      -2.30770952416      -2.33676695675    
-  -2.36619124341      -2.39598705252      -2.42615908985      -2.45671209392    
-  -2.48765083083      -2.51898008835      -2.55070466946      -2.58282938530    
-  -2.61535904746      -2.64829845977      -2.68165240961      -2.71542565876    
-  -2.74962293394      -2.78424891713      -2.81930823586      -2.85480545350    
-  -2.89074505982      -2.92713146204      -2.96396897646      -3.00126182101    
-  -3.03901410885      -3.07722984338      -3.11591291475      -3.15506709827    
-  -3.19469605474      -3.23480333316      -3.27539237582      -3.31646652591    
-  -3.35802903801      -3.40008309129      -3.44263180562      -3.48567826053    
-  -3.52922551704      -3.57327664225      -3.61783473649      -3.66290296294    
-  -3.70848457950      -3.75458297254      -3.80120169230      -3.84834448970    
-  -3.89601535392      -3.94421855072      -3.99295866078      -4.04224061779    
-  -4.09206974583      -4.14245179554      -4.19339297856      -4.24489999987    
-  -4.29698008732      -4.34964101798      -4.40289114054      -4.45673939323    
-  -4.51119531656      -4.56626906012      -4.62197138267      -4.67831364460    
-  -4.73530779201      -4.79296633125      -4.85130229310      -4.91032918558    
-  -4.97006093434      -5.03051180989      -5.09169634087      -5.15362921280    
-  -5.21632515217      -5.27979879606      -5.34406454784      -5.40913642052    
-  -5.47502786958      -5.54175161849      -5.60931948057      -5.67774218220    
-  -5.74702919327      -5.81718857159      -5.88822682887      -5.96014882630    
-  -6.03295770788      -6.10665487937      -6.18124003966      -6.25671126991    
-  -6.33306518355      -6.41029713730      -6.48840150002      -6.56737197253    
-  -6.64720194772      -6.72788489663      -6.80941476334      -6.89178634936    
-  -6.97499566729      -7.05904024418      -7.14391935686      -7.22963418492    
-  -7.31618787160      -7.40358548794      -7.49183390152      -7.58094155625    
-  -7.67091817493      -7.76177439999      -7.85352139059      -7.94617039547    
-  -8.03973232096      -8.13421731195      -8.22963436162      -8.32599096229    
-  -8.42329280672      -8.52154354540      -8.62074460218      -8.72089504769    
-  -8.82199152746      -8.92402823997      -9.02699695848      -9.13088708990    
-  -9.23568576358      -9.34137794332      -9.44794655617      -9.55537263250    
-  -9.66363545279      -9.77271269726      -9.88258059618      -9.99321407912    
-  -10.1045869230      -10.2166718999      -10.3294409257      -10.4428652133    
-  -10.5569154321      -10.6715618781      -10.7867746577      -10.9025238855    
-  -11.0187798981      -11.1355134766      -11.2526960707      -11.3703000054    
-  -11.4882986425      -11.6066664565      -11.7253789748      -11.8444124299    
-  -11.9637436007      -12.0833466781      -12.2031980843      -12.3232713870    
-  -12.4434623872      -12.5639632737      -12.6839246802      -12.8022610860    
-  -12.9201456248      -13.0383433650      -13.1565538219      -13.2748113511    
-  -13.3930656938      -13.5112643617      -13.6293531367      -13.7472688988    
-  -13.8649418422      -13.9822950241      -14.0992446409      -14.2157003231    
-  -14.3315655044      -14.4467378272      -14.5611095599      -14.6745680126    
-  -14.7869959383      -14.8982719171      -15.0082707203      -15.1168636549    
-  -15.2239188944      -15.3293017980      -15.4328752238      -15.5344998432    
-  -15.6340344593      -15.7313363373      -15.8262615499      -15.9186653441    
-  -16.0084025316      -16.0953279093      -16.1792967103      -16.2601650908    
-  -16.3377906549      -16.4120330188      -16.4827544166      -16.5498203509    
-  -16.6131002865      -16.6724683908      -16.7278043200      -16.7789940519    
-  -16.8259307642      -16.8685157598      -16.9066594370      -16.9402822997    
-  -16.9693160136      -16.9937044995      -17.0134050608      -17.0283895455    
-  -17.0386455339      -17.0441775488      -17.0450082813      -17.0411798227    
-  -17.0327548957      -17.0198180718      -17.0024769626      -16.9808633684    
-  -16.9551343707      -16.9254733374      -16.8920908196      -16.8552253200    
-  -16.8151438795      -16.7721424504      -16.7265460104      -16.6787083557    
-  -16.6290115145      -16.5778647067      -16.5257027717      -16.4729839741    
-  -16.4201870937      -16.3678076993      -16.3163535029      -16.2663386940    
-  -16.2182771618      -16.1726745272      -16.1300189338      -16.0907705821    
-  -16.0553500457      -16.0241254711      -15.9973988498      -15.9753916544    
-  -15.9582302505      -15.9459316429      -15.9383902806      -15.9353668423    
-  -15.9364801570      -15.9412036965      -15.9488684260      -15.9586742351    
-  -15.9697127191      -15.9810047913      -15.9915572893      -16.0004448480    
-  -16.0069194742      -16.0105708745      -16.0115072570      -16.0106437127    
-  -16.0095226061      -16.0084937696      -16.0075629879      -16.0067297984    
-  -16.0059755680      -16.0052984998      -16.0046900070      -16.0041443870    
-  -16.0036558143      -16.0032190184      -16.0028291278      -16.0024816636    
-  -16.0021725126      -16.0018979045      -16.0016543889      -16.0014388137    
-  -16.0012483042      -16.0010802434      -16.0007965399      -16.0005844637    
-  -16.0004266354      -16.0003097209      -16.0002235308      -16.0001603109    
-  -16.0001141855      -16.0000807213      -16.0000565883      -16.0000392967    
-  -16.0000269936      -16.0000183072      -16.0000122266      -16.0000080112    
-  -16.0000051213      -16.0000031660      -16.0000018638      -16.0000010135    
-  -16.0000004724      -16.0000001400      -15.9999999462      -15.9999998425    
-  -15.9999997959      -15.9999997841      -15.9999997924      -15.9999998114    
-  -15.9999998348      -15.9999998592      -15.9999998824      -15.9999999034    
-  -15.9999999217      -15.9999999372      -15.9999999501      -15.9999999608    
-  -15.9999999694      -15.9999999763      -15.9999999817      -15.9999999860    
-  -15.9999999894      -15.9999999920      -15.9999999940      -15.9999999955    
-  -15.9999999966      -15.9999999975      -15.9999999982      -15.9999999987    
-  -15.9999999990      -15.9999999993      -15.9999999995      -15.9999999996    
-  -15.9999999997      -15.9999999998      -15.9999999999      -15.9999999999    
-  -15.9999999999      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000      -16.0000000000    
-  -16.0000000000      -16.0000000000      -16.0000000000    
- Up Pseudopotential follows (l on next line)
-  1
- -0.560834330955E-07 -0.112872308935E-06 -0.170375500900E-06 -0.228601993973E-06
- -0.287560886175E-06 -0.347261389942E-06 -0.407712833603E-06 -0.468924662819E-06
- -0.530906442061E-06 -0.593667856111E-06 -0.657218711565E-06 -0.721568938376E-06
- -0.786728591396E-06 -0.852707851954E-06 -0.919517029443E-06 -0.987166562934E-06
- -0.105566702280E-05 -0.112502911239E-05 -0.119526366966E-05 -0.126638166890E-05
- -0.133839422245E-05 -0.141131258241E-05 -0.148514814243E-05 -0.155991243947E-05
- -0.163561715559E-05 -0.171227411982E-05 -0.178989530995E-05 -0.186849285447E-05
- -0.194807903439E-05 -0.202866628521E-05 -0.211026719887E-05 -0.219289452567E-05
- -0.227656117629E-05 -0.236128022382E-05 -0.244706490578E-05 -0.253392862621E-05
- -0.262188495774E-05 -0.271094764372E-05 -0.280113060038E-05 -0.289244791899E-05
- -0.298491386807E-05 -0.307854289561E-05 -0.317334963133E-05 -0.326934888899E-05
- -0.336655566865E-05 -0.346498515908E-05 -0.356465274009E-05 -0.366557398494E-05
- -0.376776466277E-05 -0.387124074109E-05 -0.397601838825E-05 -0.408211397597E-05
- -0.418954408189E-05 -0.429832549220E-05 -0.440847520421E-05 -0.452001042903E-05
- -0.463294859427E-05 -0.474730734674E-05 -0.486310455525E-05 -0.498035831333E-05
- -0.509908694212E-05 -0.521930899322E-05 -0.534104325156E-05 -0.546430873838E-05
- -0.558912471414E-05 -0.571551068161E-05 -0.584348638884E-05 -0.597307183231E-05
- -0.610428725999E-05 -0.623715317458E-05 -0.637169033663E-05 -0.650791976786E-05
- -0.664586275438E-05 -0.678554085008E-05 -0.692697587994E-05 -0.707018994346E-05
- -0.721520541814E-05 -0.736204496295E-05 -0.751073152185E-05 -0.766128832742E-05
- -0.781373890449E-05 -0.796810707374E-05 -0.812441695553E-05 -0.828269297360E-05
- -0.844295985889E-05 -0.860524265343E-05 -0.876956671424E-05 -0.893595771728E-05
- -0.910444166149E-05 -0.927504487283E-05 -0.944779400840E-05 -0.962271606060E-05
- -0.979983836134E-05 -0.997918858638E-05 -0.101607947595E-04 -0.103446852571E-04
- -0.105308888124E-04 -0.107194345201E-04 -0.109103518409E-04 -0.111036706059E-04
- -0.112994210216E-04 -0.114976336745E-04 -0.116983395356E-04 -0.119015699656E-04
- -0.121073567198E-04 -0.123157319527E-04 -0.125267282233E-04 -0.127403785003E-04
- -0.129567161670E-04 -0.131757750265E-04 -0.133975893073E-04 -0.136221936683E-04
- -0.138496232043E-04 -0.140799134517E-04 -0.143131003939E-04 -0.145492204667E-04
- -0.147883105644E-04 -0.150304080452E-04 -0.152755507376E-04 -0.155237769454E-04
- -0.157751254545E-04 -0.160296355387E-04 -0.162873469656E-04 -0.165483000032E-04
- -0.168125354260E-04 -0.170800945212E-04 -0.173510190956E-04 -0.176253514815E-04
- -0.179031345441E-04 -0.181844116875E-04 -0.184692268618E-04 -0.187576245700E-04
- -0.190496498748E-04 -0.193453484057E-04 -0.196447663662E-04 -0.199479505411E-04
- -0.202549483034E-04 -0.205658076222E-04 -0.208805770698E-04 -0.211993058298E-04
- -0.215220437039E-04 -0.218488411208E-04 -0.221797491432E-04 -0.225148194760E-04
- -0.228541044749E-04 -0.231976571536E-04 -0.235455311931E-04 -0.238977809493E-04
- -0.242544614620E-04 -0.246156284632E-04 -0.249813383861E-04 -0.253516483735E-04
- -0.257266162871E-04 -0.261063007165E-04 -0.264907609880E-04 -0.268800571745E-04
- -0.272742501042E-04 -0.276734013705E-04 -0.280775733417E-04 -0.284868291704E-04
- -0.289012328038E-04 -0.293208489932E-04 -0.297457433045E-04 -0.301759821283E-04
- -0.306116326902E-04 -0.310527630617E-04 -0.314994421702E-04 -0.319517398102E-04
- -0.324097266541E-04 -0.328734742634E-04 -0.333430550995E-04 -0.338185425353E-04
- -0.343000108669E-04 -0.347875353245E-04 -0.352811920849E-04 -0.357810582829E-04
- -0.362872120237E-04 -0.367997323948E-04 -0.373186994785E-04 -0.378441943646E-04
- -0.383762991626E-04 -0.389150970150E-04 -0.394606721101E-04 -0.400131096951E-04
- -0.405724960895E-04 -0.411389186985E-04 -0.417124660269E-04 -0.422932276925E-04
- -0.428812944407E-04 -0.434767581579E-04 -0.440797118866E-04 -0.446902498396E-04
- -0.453084674146E-04 -0.459344612095E-04 -0.465683290369E-04 -0.472101699401E-04
- -0.478600842081E-04 -0.485181733911E-04 -0.491845403170E-04 -0.498592891070E-04
- -0.505425251920E-04 -0.512343553290E-04 -0.519348876178E-04 -0.526442315181E-04
- -0.533624978662E-04 -0.540897988928E-04 -0.548262482401E-04 -0.555719609798E-04
- -0.563270536311E-04 -0.570916441787E-04 -0.578658520915E-04 -0.586497983410E-04
- -0.594436054203E-04 -0.602473973636E-04 -0.610612997649E-04 -0.618854397981E-04
- -0.627199462367E-04 -0.635649494742E-04 -0.644205815439E-04 -0.652869761401E-04
- -0.661642686389E-04 -0.670525961187E-04 -0.679520973827E-04 -0.688629129798E-04
- -0.697851852268E-04 -0.707190582305E-04 -0.716646779105E-04 -0.726221920218E-04
- -0.735917501780E-04 -0.745735038745E-04 -0.755676065123E-04 -0.765742134219E-04
- -0.775934818877E-04 -0.786255711726E-04 -0.796706425425E-04 -0.807288592920E-04
- -0.818003867696E-04 -0.828853924036E-04 -0.839840457284E-04 -0.850965184109E-04
- -0.862229842770E-04 -0.873636193395E-04 -0.885186018248E-04 -0.896881122013E-04
- -0.908723332074E-04 -0.920714498801E-04 -0.932856495837E-04 -0.945151220394E-04
- -0.957600593548E-04 -0.970206560540E-04 -0.982971091075E-04 -0.995896179640E-04
- -0.100898384581E-03 -0.102223613454E-03 -0.103565511656E-03 -0.104924288858E-03
- -0.106300157374E-03 -0.107693332185E-03 -0.109104030978E-03 -0.110532474178E-03
- -0.111978884981E-03 -0.113443489392E-03 -0.114926516259E-03 -0.116428197307E-03
- -0.117948767178E-03 -0.119488463463E-03 -0.121047526743E-03 -0.122626200625E-03
- -0.124224731780E-03 -0.125843369981E-03 -0.127482368145E-03 -0.129141982368E-03
- -0.130822471967E-03 -0.132524099524E-03 -0.134247130920E-03 -0.135991835384E-03
- -0.137758485528E-03 -0.139547357395E-03 -0.141358730500E-03 -0.143192887873E-03
- -0.145050116107E-03 -0.146930705396E-03 -0.148834949586E-03 -0.150763146219E-03
- -0.152715596579E-03 -0.154692605743E-03 -0.156694482620E-03 -0.158721540008E-03
- -0.160774094639E-03 -0.162852467229E-03 -0.164956982529E-03 -0.167087969371E-03
- -0.169245760728E-03 -0.171430693759E-03 -0.173643109865E-03 -0.175883354739E-03
- -0.178151778424E-03 -0.180448735367E-03 -0.182774584471E-03 -0.185129689155E-03
- -0.187514417409E-03 -0.189929141852E-03 -0.192374239789E-03 -0.194850093272E-03
- -0.197357089157E-03 -0.199895619169E-03 -0.202466079957E-03 -0.205068873161E-03
- -0.207704405474E-03 -0.210373088701E-03 -0.213075339831E-03 -0.215811581095E-03
- -0.218582240037E-03 -0.221387749578E-03 -0.224228548084E-03 -0.227105079437E-03
- -0.230017793099E-03 -0.232967144188E-03 -0.235953593546E-03 -0.238977607813E-03
- -0.242039659495E-03 -0.245140227046E-03 -0.248279794935E-03 -0.251458853726E-03
- -0.254677900153E-03 -0.257937437198E-03 -0.261237974172E-03 -0.264580026789E-03
- -0.267964117252E-03 -0.271390774331E-03 -0.274860533450E-03 -0.278373936764E-03
- -0.281931533251E-03 -0.285533878791E-03 -0.289181536259E-03 -0.292875075607E-03
- -0.296615073960E-03 -0.300402115699E-03 -0.304236792558E-03 -0.308119703711E-03
- -0.312051455872E-03 -0.316032663385E-03 -0.320063948322E-03 -0.324145940578E-03
- -0.328279277973E-03 -0.332464606350E-03 -0.336702579673E-03 -0.340993860136E-03
- -0.345339118258E-03 -0.349739032996E-03 -0.354194291844E-03 -0.358705590945E-03
- -0.363273635199E-03 -0.367899138372E-03 -0.372582823207E-03 -0.377325421540E-03
- -0.382127674410E-03 -0.386990332179E-03 -0.391914154647E-03 -0.396899911170E-03
- -0.401948380783E-03 -0.407060352319E-03 -0.412236624532E-03 -0.417478006226E-03
- -0.422785316376E-03 -0.428159384260E-03 -0.433601049585E-03 -0.439111162623E-03
- -0.444690584338E-03 -0.450340186527E-03 -0.456060851949E-03 -0.461853474469E-03
- -0.467718959195E-03 -0.473658222621E-03 -0.479672192765E-03 -0.485761809323E-03
- -0.491928023808E-03 -0.498171799702E-03 -0.504494112606E-03 -0.510895950392E-03
- -0.517378313358E-03 -0.523942214386E-03 -0.530588679096E-03 -0.537318746010E-03
- -0.544133466710E-03 -0.551033906010E-03 -0.558021142113E-03 -0.565096266788E-03
- -0.572260385533E-03 -0.579514617753E-03 -0.586860096934E-03 -0.594297970817E-03
- -0.601829401582E-03 -0.609455566027E-03 -0.617177655749E-03 -0.624996877336E-03
- -0.632914452553E-03 -0.640931618533E-03 -0.649049627966E-03 -0.657269749303E-03
- -0.665593266948E-03 -0.674021481461E-03 -0.682555709759E-03 -0.691197285325E-03
- -0.699947558415E-03 -0.708807896269E-03 -0.717779683321E-03 -0.726864321422E-03
- -0.736063230055E-03 -0.745377846555E-03 -0.754809626339E-03 -0.764360043129E-03
- -0.774030589182E-03 -0.783822775527E-03 -0.793738132196E-03 -0.803778208468E-03
- -0.813944573107E-03 -0.824238814610E-03 -0.834662541451E-03 -0.845217382340E-03
- -0.855904986467E-03 -0.866727023769E-03 -0.877685185185E-03 -0.888781182921E-03
- -0.900016750723E-03 -0.911393644137E-03 -0.922913640794E-03 -0.934578540681E-03
- -0.946390166425E-03 -0.958350363576E-03 -0.970461000896E-03 -0.982723970651E-03
- -0.995141188908E-03 -0.100771459583E-02 -0.102044615598E-02 -0.103333785864E-02
- -0.104639171809E-02 -0.105960977397E-02 -0.107299409154E-02 -0.108654676207E-02
- -0.110026990310E-02 -0.111416565882E-02 -0.112823620037E-02 -0.114248372622E-02
- -0.115691046246E-02 -0.117151866319E-02 -0.118631061085E-02 -0.120128861660E-02
- -0.121645502064E-02 -0.123181219262E-02 -0.124736253197E-02 -0.126310846832E-02
- -0.127905246181E-02 -0.129519700356E-02 -0.131154461598E-02 -0.132809785323E-02
- -0.134485930156E-02 -0.136183157976E-02 -0.137901733951E-02 -0.139641926588E-02
- -0.141404007767E-02 -0.143188252786E-02 -0.144994940407E-02 -0.146824352894E-02
- -0.148676776060E-02 -0.150552499312E-02 -0.152451815695E-02 -0.154375021938E-02
- -0.156322418499E-02 -0.158294309614E-02 -0.160291003342E-02 -0.162312811616E-02
- -0.164360050287E-02 -0.166433039178E-02 -0.168532102130E-02 -0.170657567054E-02
- -0.172809765984E-02 -0.174989035122E-02 -0.177195714898E-02 -0.179430150019E-02
- -0.181692689521E-02 -0.183983686827E-02 -0.186303499799E-02 -0.188652490794E-02
- -0.191031026722E-02 -0.193439479101E-02 -0.195878224112E-02 -0.198347642664E-02
- -0.200848120447E-02 -0.203380047994E-02 -0.205943820742E-02 -0.208539839090E-02
- -0.211168508464E-02 -0.213830239379E-02 -0.216525447501E-02 -0.219254553713E-02
- -0.222017984177E-02 -0.224816170400E-02 -0.227649549304E-02 -0.230518563291E-02
- -0.233423660307E-02 -0.236365293916E-02 -0.239343923369E-02 -0.242360013669E-02
- -0.245414035649E-02 -0.248506466040E-02 -0.251637787542E-02 -0.254808488904E-02
- -0.258019064990E-02 -0.261270016861E-02 -0.264561851847E-02 -0.267895083625E-02
- -0.271270232296E-02 -0.274687824466E-02 -0.278148393321E-02 -0.281652478712E-02
- -0.285200627230E-02 -0.288793392295E-02 -0.292431334231E-02 -0.296115020357E-02
- -0.299845025065E-02 -0.303621929908E-02 -0.307446323687E-02 -0.311318802535E-02
- -0.315239970006E-02 -0.319210437164E-02 -0.323230822671E-02 -0.327301752877E-02
- -0.331423861912E-02 -0.335597791775E-02 -0.339824192429E-02 -0.344103721893E-02
- -0.348437046334E-02 -0.352824840162E-02 -0.357267786128E-02 -0.361766575414E-02
- -0.366321907735E-02 -0.370934491431E-02 -0.375605043567E-02 -0.380334290031E-02
- -0.385122965632E-02 -0.389971814195E-02 -0.394881588667E-02 -0.399853051211E-02
- -0.404886973308E-02 -0.409984135855E-02 -0.415145329268E-02 -0.420371353580E-02
- -0.425663018541E-02 -0.431021143721E-02 -0.436446558605E-02 -0.441940102696E-02
- -0.447502625615E-02 -0.453134987198E-02 -0.458838057594E-02 -0.464612717364E-02
- -0.470459857576E-02 -0.476380379904E-02 -0.482375196719E-02 -0.488445231186E-02
- -0.494591417350E-02 -0.500814700235E-02 -0.507116035926E-02 -0.513496391654E-02
- -0.519956745889E-02 -0.526498088412E-02 -0.533121420399E-02 -0.539827754496E-02
- -0.546618114890E-02 -0.553493537380E-02 -0.560455069441E-02 -0.567503770283E-02
- -0.574640710909E-02 -0.581866974164E-02 -0.589183654780E-02 -0.596591859418E-02
- -0.604092706695E-02 -0.611687327215E-02 -0.619376863582E-02 -0.627162470414E-02
- -0.635045314341E-02 -0.643026573997E-02 -0.651107440000E-02 -0.659289114925E-02
- -0.667572813259E-02 -0.675959761349E-02 -0.684451197332E-02 -0.693048371054E-02
- -0.701752543970E-02 -0.710564989034E-02 -0.719486990558E-02 -0.728519844069E-02
- -0.737664856130E-02 -0.746923344149E-02 -0.756296636161E-02 -0.765786070584E-02
- -0.775392995953E-02 -0.785118770619E-02 -0.794964762422E-02 -0.804932348331E-02
- -0.815022914050E-02 -0.825237853582E-02 -0.835578568766E-02 -0.846046468753E-02
- -0.856642969459E-02 -0.867369492954E-02 -0.878227466806E-02 -0.889218323377E-02
- -0.900343499050E-02 -0.911604433407E-02 -0.923002568331E-02 -0.934539347050E-02
- -0.946216213097E-02 -0.958034609203E-02 -0.969995976097E-02 -0.982101751225E-02
- -0.994353367367E-02 -0.100675225117E-01 -0.101929982156E-01 -0.103199748804E-01
- -0.104484664889E-01 -0.105784868923E-01 -0.107100497892E-01 -0.108431687036E-01
- -0.109778569614E-01 -0.111141276648E-01 -0.112519936654E-01 -0.113914675357E-01
- -0.115325615380E-01 -0.116752875918E-01 -0.118196572393E-01 -0.119656816076E-01
- -0.121133713698E-01 -0.122627367025E-01 -0.124137872410E-01 -0.125665320320E-01
- -0.127209794825E-01 -0.128771373060E-01 -0.130350124656E-01 -0.131946111124E-01
- -0.133559385218E-01 -0.135189990238E-01 -0.136837959310E-01 -0.138503314608E-01
- -0.140186066532E-01 -0.141886212840E-01 -0.143603737724E-01 -0.145338610828E-01
- -0.147090786215E-01 -0.148860201261E-01 -0.150646775496E-01 -0.152450409367E-01
- -0.154270982932E-01 -0.156108354476E-01 -0.157962359051E-01 -0.159832806925E-01
- -0.161719481947E-01 -0.163622139815E-01 -0.165540506247E-01 -0.167474275050E-01
- -0.169423106075E-01 -0.171386623066E-01 -0.173364411380E-01 -0.175356015591E-01
- -0.177360936951E-01 -0.179378630726E-01 -0.181408503376E-01 -0.183449909592E-01
- -0.185502149170E-01 -0.187564463724E-01 -0.189636033220E-01 -0.191715972341E-01
- -0.193803326655E-01 -0.195897068591E-01 -0.197996093213E-01 -0.200099213781E-01
- -0.202205157097E-01 -0.204312558617E-01 -0.206419957334E-01 -0.208525790413E-01
- -0.210628387578E-01 -0.212725965233E-01 -0.214816620326E-01 -0.216898323925E-01
- -0.218968914523E-01 -0.221026091047E-01 -0.223067405575E-01 -0.225090255749E-01
- -0.227091876883E-01 -0.229069333761E-01 -0.231019512118E-01 -0.232939109812E-01
- -0.234824627667E-01 -0.236672360016E-01 -0.238478384911E-01 -0.240238554045E-01
- -0.241948482351E-01 -0.243603537320E-01 -0.245198828035E-01 -0.246729193930E-01
- -0.248189193313E-01 -0.249573091651E-01 -0.250874849665E-01 -0.252088111245E-01
- -0.253206191247E-01 -0.254222063191E-01 -0.255128346922E-01 -0.255917296285E-01
- -0.256580786886E-01 -0.257110303997E-01 -0.257496930698E-01 -0.257731336342E-01
- -0.257803765455E-01 -0.257704027165E-01 -0.257421485314E-01 -0.256945049375E-01
- -0.256263166334E-01 -0.255363813724E-01 -0.254234493980E-01 -0.252862230341E-01
- -0.251233564525E-01 -0.249334556423E-01 -0.247150786096E-01 -0.244667358358E-01
- -0.241868910295E-01 -0.238739622044E-01 -0.235263231233E-01 -0.231423051484E-01
- -0.227201995423E-01 -0.222582602670E-01 -0.217547073325E-01 -0.212077307477E-01
- -0.206154951337E-01 -0.199761450583E-01 -0.192878111582E-01 -0.185486171171E-01
- -0.177566875701E-01 -0.169101570109E-01 -0.160071797784E-01 -0.150459412037E-01
- -0.140246699998E-01 -0.129416519777E-01 -0.117952451750E-01 -0.105838964806E-01
- -0.930615984029E-02 -0.796071612506E-02 -0.654639473863E-02 -0.506219703788E-02
- -0.350732162967E-02 -0.188119159904E-02 -0.183483710122E-03  0.158584039442E-02
-  0.342650098951E-02  0.533786507695E-02  0.731890925412E-02  0.936818072139E-02
-  0.114837565472E-01  0.136632013555E-01  0.159035236523E-01  0.182011310694E-01
-  0.205517848712E-01  0.229505541491E-01  0.253917702137E-01  0.278689817944E-01
-  0.303749117624E-01  0.329014162118E-01  0.354394468642E-01  0.379790179006E-01
-  0.405091784779E-01  0.430179923445E-01  0.454925261394E-01  0.479188481344E-01
-  0.502820393543E-01  0.525662191906E-01  0.547545877981E-01  0.568294877233E-01
-  0.587724873647E-01  0.605644889822E-01  0.621858640562E-01  0.636166188340E-01
-  0.648365928712E-01  0.658256932645E-01  0.665641670634E-01  0.670329140116E-01
-  0.672138412821E-01  0.670902612016E-01  0.666473320774E-01  0.658725411026E-01
-  0.647562268798E-01  0.632921373281E-01  0.614780165598E-01  0.593162116840E-01
-  0.568142873377E-01  0.539856319967E-01  0.508500356874E-01  0.474342135173E-01
-  0.437722433452E-01  0.399058788015E-01  0.358846905706E-01  0.317659791702E-01
-  0.276143911579E-01  0.235011574442E-01  0.195028568018E-01  0.156995892147E-01
-  0.121724217748E-01  0.899994357827E-02  0.625373450446E-02  0.399251464025E-02
-  0.225469498749E-02  0.104899431557E-02  0.342719829732E-03  0.472290418306E-04
- -0.439395364538E-08   0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000       0.00000000000    
-   0.00000000000       0.00000000000       0.00000000000    
- Up Pseudopotential follows (l on next line)
-  2
-  0.297569568834E-06  0.598882102071E-06  0.903984680403E-06  0.121292497673E-05
-  0.152575126361E-05  0.184251242078E-05  0.216325794281E-05  0.248803794685E-05
-  0.281690318042E-05  0.314990502941E-05  0.348709552601E-05  0.382852735694E-05
-  0.417425387160E-05  0.452432909048E-05  0.487880771353E-05  0.523774512877E-05
-  0.560119742089E-05  0.596922138005E-05  0.634187451075E-05  0.671921504079E-05
-  0.710130193041E-05  0.748819488145E-05  0.787995434672E-05  0.827664153945E-05
-  0.867831844281E-05  0.908504781963E-05  0.949689322221E-05  0.991391900222E-05
-  0.103361903208E-04  0.107637731587E-04  0.111967343266E-04  0.116351414756E-04
-  0.120790631076E-04  0.125285685864E-04  0.129837281481E-04  0.134446129123E-04
-  0.139112948931E-04  0.143838470106E-04  0.148623431020E-04  0.153468579334E-04
-  0.158374672110E-04  0.163342475937E-04  0.168372767043E-04  0.173466331423E-04
-  0.178623964955E-04  0.183846473530E-04  0.189134673177E-04  0.194489390186E-04
-  0.199911461244E-04  0.205401733560E-04  0.210961065000E-04  0.216590324222E-04
-  0.222290390808E-04  0.228062155405E-04  0.233906519863E-04  0.239824397376E-04
-  0.245816712625E-04  0.251884401921E-04  0.258028413353E-04  0.264249706935E-04
-  0.270549254757E-04  0.276928041135E-04  0.283387062769E-04  0.289927328894E-04
-  0.296549861439E-04  0.303255695189E-04  0.310045877943E-04  0.316921470683E-04
-  0.323883547732E-04  0.330933196931E-04  0.338071519800E-04  0.345299631717E-04