1c 2c $Id$ 3c 4c $Log: not supported by cvs2svn $ 5c Revision 1.1 2003/02/16 21:40:00 marat 6c initial version 7c MV 8c 9 10c integer paw_rho_ispin 11c integer paw_rho_lmax 12c integer paw_rho_gga 13c integer i_paw_rho(4) 14c integer paw_rho_ae(4,2) 15c integer paw_rho_ps(4,2) 16c integer paw_rho_ae_prime(4,2) 17c integer paw_rho_ps_prime(4,2) 18cc integer paw_rho_u_ae(4) 19cc integer paw_rho_d_ae(4) 20cc integer paw_rho_u_ps(4) 21cc integer paw_rho_d_ps(4) 22c 23c common /paw_density_data/ paw_rho_ae, 24c > paw_rho_ps, 25c > paw_rho_ae_prime, 26c > paw_rho_ps_prime, 27c > i_paw_rho, 28c > paw_rho_gga, 29c > paw_rho_lmax, 30c > paw_rho_ispin 31 32