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

More cleaning and updating from the IBM SP4 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@177 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2003-04-21 22:11:41 +00:00
parent 45858fb8bd
commit 609a2863fe
2 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Modules/fft_base.f90
View File

@ -301,8 +301,6 @@
nsx_l = MAXVAL( dfft%nsp( : ) )
END IF
ALLOCATE( sndbuf( nsx_l * nz_l, npz ), ishand( npz ) )
ALLOCATE( rcvbuf( nsx_l * nz_l, npz ), irhand( npz ) )
ALLOCATE( rtest( npz ), rdone( npz ) )

11
Modules/fft_scalar.f90
View File

@ -978,12 +978,8 @@
CALL DCFT ( 0, r(1), 1, ldx, r(1), 1, ldx, nx, nzl*ny, idir, &
1.0d0, fw_tablex( 1, ip ), ltabl, work, lwork)
do i = 1, nx
dofft = .TRUE.
IF( PRESENT( pl2ix ) ) THEN
IF( pl2ix( i ) < 1 ) dofft = .FALSE.
END IF
do k = 1, nzl
IF( dofft ) THEN
IF( dofft( i ) ) THEN
j = i + ldx*ldy * ( k - 1 )
call DCFT ( 0, r(j), ldx, 1, r(j), ldx, 1, ny, 1, &
idir, 1.0d0, fw_tabley(1,ip), ltabl, work, lwork)
@ -998,11 +994,8 @@
idir = -1
do i = 1, nx
dofft = .TRUE.
IF( PRESENT( pl2ix ) ) THEN
IF( pl2ix( i ) < 1 ) dofft = .FALSE.
END IF
do k = 1, nzl
IF( dofft ) THEN
IF( dofft( i ) ) THEN
j = i + ldx*ldy * ( k - 1 )
call DCFT ( 0, r(j), ldx, 1, r(j), ldx, 1, ny, 1, &
idir, 1.0d0, bw_tabley(1,ip), ltabl, work, lwork)