The Jülich KKR codes
3.5
Readme
Source Files
Modules
Procedures
Derived Types
Programs
rewrite_eigv_atom
Subroutine
21 statements
Source File
mod_eigvects.f90
mod_eigvects
rewrite_eigv_atom
Contents
public subroutine rewrite_eigv_atom(inc, nstates, rveig, rveig_atom)
Uses
type_inc
Arguments
Type
Intent
Optional
Attributes
Name
type(
inc_TYPE
),
intent(in)
::
inc
integer,
intent(in)
::
nstates
double complex,
intent(in)
::
rveig
(inc%almso,nstates)
double complex,
intent(out)
::
rveig_atom
(inc%lmmaxso,inc%natypd,nstates)