Permalink
Browse files

One more fix to make Intel 18.0.3 working

git-svn-id: svn://svn.code.sf.net/p/cp2k/code/trunk@18574 bac0169d-1eea-4375-b5f6-f89d2ced9994
  • Loading branch information...
alazzaro committed Aug 2, 2018
1 parent 8b576cc commit 3fd8b766a58fc73df0c624c0a02a4379d2e530aa
Showing with 6 additions and 6 deletions.
  1. +6 −6 cp2k/src/qs_rho_atom_types.F
@@ -259,15 +259,15 @@ SUBROUTINE get_rho_atom(rho_atom, cpc_h, cpc_s, rho_rad_h, rho_rad_s, &
ga_Vlocal_gb_h, ga_Vlocal_gb_s)
TYPE(rho_atom_type), INTENT(IN), POINTER :: rho_atom
TYPE(rho_atom_coeff), DIMENSION(:), INTENT(OUT), &
OPTIONAL, POINTER :: cpc_h, cpc_s, rho_rad_h, rho_rad_s, &
TYPE(rho_atom_coeff), DIMENSION(:), OPTIONAL, &
POINTER :: cpc_h, cpc_s, rho_rad_h, rho_rad_s, &
drho_rad_h, drho_rad_s, vrho_rad_h, &
vrho_rad_s
TYPE(rho_atom_coeff), DIMENSION(:, :), &
INTENT(OUT), OPTIONAL, POINTER :: rho_rad_h_d, rho_rad_s_d, trho_rad_h, &
TYPE(rho_atom_coeff), DIMENSION(:, :), OPTIONAL, &
POINTER :: rho_rad_h_d, rho_rad_s_d, trho_rad_h, &
trho_rad_s
TYPE(rho_atom_coeff), DIMENSION(:), INTENT(OUT), &
OPTIONAL, POINTER :: ga_Vlocal_gb_h, ga_Vlocal_gb_s
TYPE(rho_atom_coeff), DIMENSION(:), OPTIONAL, &
POINTER :: ga_Vlocal_gb_h, ga_Vlocal_gb_s
CHARACTER(len=*), PARAMETER :: routineN = 'get_rho_atom', routineP = moduleN//':'//routineN

0 comments on commit 3fd8b76

Please sign in to comment.