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

- wrong error message in routines blk2cyc cyc2blk 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3675 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2007-01-16 11:39:09 +00:00
parent a537bc9d0e
commit 93ad1c84c3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Modules/ptoolkit.f90
View File

@ -4370,7 +4370,7 @@ SUBROUTINE cyc2blk_redist( n, a, lda, nproc, me, comm_a, b, ldb, desc )
!
USE kinds, ONLY : DP
USE descriptors, ONLY : ilar_ , nlar_ , ilac_ , nlac_ , nlax_ , lambda_node_ , la_npr_ , &
descla_siz_ , la_npc_
descla_siz_ , la_npc_ , la_n_
!
IMPLICIT NONE
!
@ -4413,7 +4413,7 @@ SUBROUTINE cyc2blk_redist( n, a, lda, nproc, me, comm_a, b, ldb, desc )
CALL errore( ' cyc2blk_redist ', ' works only with compatible processor mesh ', 1 )
IF( n < 1 ) &
CALL errore( ' cyc2blk_redist ', ' n less or equal zero ', 1 )
IF( nb < nproc ) &
IF( desc( la_n_ ) < nproc ) &
CALL errore( ' cyc2blk_redist ', ' nb less than the number of proc ', 1 )
ALLOCATE( ip_desc( descla_siz_ , nproc ) )
@ -4504,7 +4504,7 @@ SUBROUTINE blk2cyc_redist( n, a, lda, nproc, me, comm_a, b, ldb, desc )
!
USE kinds, ONLY : DP
USE descriptors, ONLY : ilar_ , nlar_ , ilac_ , nlac_ , nlax_ , lambda_node_ , la_npr_ , &
descla_siz_ , la_npc_
descla_siz_ , la_npc_ , la_n_
!
IMPLICIT NONE
!
@ -4547,7 +4547,7 @@ SUBROUTINE blk2cyc_redist( n, a, lda, nproc, me, comm_a, b, ldb, desc )
CALL errore( ' cyc2blk_redist ', ' works only with compatible processor mesh ', 1 )
IF( n < 1 ) &
CALL errore( ' cyc2blk_redist ', ' n less or equal zero ', 1 )
IF( nb < nproc ) &
IF( desc( la_n_ ) < nproc ) &
CALL errore( ' cyc2blk_redist ', ' nb less than the number of proc ', 1 )
ALLOCATE( ip_desc( descla_siz_ , nproc ) )