提交: 351a6512d971fe318865731642394c763dc57916 - sctk (git)

Superconducting Toolkit

Commit MetaInfo

• 修订版: 351a6512d971fe318865731642394c763dc57916 (tree)
• 时间: 2017-03-26 08:16:03
• 作者: nisihara1 <nisihara.burai@gmai...>
• Commiter: 慧径

Log Message

add errore when ibnd_size == 0, in [cr]rmmdiagg.f90

更改概述

• modified: PW/src/crmmdiagg.f90
• modified: PW/src/rrmmdiagg.f90

差异

--- a/PW/src/crmmdiagg.f90
+++ b/PW/src/crmmdiagg.f90
@@ -83,6 +83,8 @@ SUBROUTINE crmmdiagg( npwx, npw, nbnd, npol, psi, hpsi, spsi, e, &
   !
   ibnd_size = MAX( ibnd_end - ibnd_start + 1, 0 )
   !
+  IF( ibnd_size == 0 ) CALL errore( ' crmmdiagg ', ' ibnd_size == 0 ', 1 )
+  !
   ALLOCATE( phi( kdmx, ibnd_start:ibnd_end, ndiis ), STAT=ierr )
   IF( ierr /= 0 ) CALL errore( ' crmmdiagg ', ' cannot allocate phi ', ABS(ierr) )
   !

--- a/PW/src/rrmmdiagg.f90
+++ b/PW/src/rrmmdiagg.f90
@@ -70,6 +70,8 @@ SUBROUTINE rrmmdiagg( npwx, npw, nbnd, psi, hpsi, spsi, e, &
   !
   ibnd_size = MAX( ibnd_end - ibnd_start + 1, 0 )
   !
+  IF( ibnd_size == 0 ) CALL errore( ' rrmmdiagg ', ' ibnd_size == 0 ', 1 )
+  !
   ALLOCATE( phi( npwx, ibnd_start:ibnd_end, ndiis ), STAT=ierr )
   IF( ierr /= 0 ) CALL errore( ' rrmmdiagg ', ' cannot allocate phi ', ABS(ierr) )
   !