scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added some missing stuff in the BGL branch. Added a flag TRUE_BGL 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3071 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
kkudin 2006-05-03 19:59:34 +00:00
parent d5af9d79f7
commit e0a7c6f12f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
CPV/cplib.f90
View File

@ -1683,13 +1683,13 @@
#if defined __BGL
COMPLEX*16 :: B, A1, A2, A3, C1, C2, C3
INTEGER :: FLP
INTEGER :: FLP, N
#endif
!
CALL start_clock( 'nlfl' )
!
#if defined __BGL
#if defined __TRUE_BGL
ALLOCATE( temp( 3*nudx, nudx ), tmpbec( nhm, nudx ), tmpdr( 3*nudx, nhm ) )
@ -3215,6 +3215,7 @@
USE task_groups
use fft_base, only : dffts
use mp_global, only : nogrp, me_image, me_ogrp
USE fft_module, ONLY: fwfft, invfft
use parallel_include
!
implicit none