2
2
& g_dens, g_vxc, g_wght, g_xyz,g_nq,
3
3
& wght_GA, rdens_atom,
5
& g_movecs, noc, totsic, i_degen, n_levels)
5
& g_movecs, totsic, i_degen, n_levels)
7
C$Id: xc_sic.F,v 1.18 2003-10-17 22:55:53 carlfahl Exp $
7
C$Id: xc_sic.F 19841 2011-01-11 20:11:28Z niri $
10
10
#include "errquit.fh"
12
12
integer iVxc_opt, nExc, g_dens(*), g_vxc(4), g_wght,
14
integer ik, ij, noc(2), isp, n_states, naux_ipol, size_mat,
15
integer ik, ij, isp, n_states, naux_ipol, size_mat,
15
16
c & g_sic_dens(2),g_orb,g_vxc_orb(4),g_movecs(2),
16
17
& g_orb,g_vxc_orb(4),g_movecs(2),
17
18
& g_matm, g_vectu, g_coul_orb, g_vxc_sig(2),