[Q-e-commits] r8580 - branches/espresso-PRACE/PW

[spiga.filippo at gmail.com]

Author: spigafi
Date: 2012-02-04 17:48:20 +0100 (Sat, 04 Feb 2012)
New Revision: 8580

Modified:
   branches/espresso-PRACE/PW/regterg.f90
Log:
Missin pointer declaration

Modified: branches/espresso-PRACE/PW/regterg.f90
===================================================================
--- branches/espresso-PRACE/PW/regterg.f90	2012-02-04 15:31:01 UTC (rev 8579)
+++ branches/espresso-PRACE/PW/regterg.f90	2012-02-04 16:48:20 UTC (rev 8580)
@@ -130,7 +130,7 @@
     !    the first nvec columns contain the trial eigenvectors
   !
 #if defined(__CUDA) && defined(__CUDA_MEM_PINNED)
-  TYPE(C_PTR) :: cptr_psi, cptr_spsi, cptr_hpsi, cptr_sr, cptr_ew, cptr_hr
+  TYPE(C_PTR) :: cptr_psi, cptr_spsi, cptr_hpsi, cptr_sr, cptr_ew, cptr_hr, cptr_vr
 #elif defined(__CUDA) && defined(__MAGMA)
   TYPE(C_PTR) :: cptr_sr, cptr_hr
 #endif