comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 22:25:32 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

check stat with failure_level

Browse source 
svn-origin-rev: 2839
This commit is contained in:
Joost VandeVondele 2004-09-14 15:25:55 +00:00
parent c498ea449d
commit 3dae65d24d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cp_fm_types.F
View file

@ -239,7 +239,7 @@ CONTAINS
nrow_local=matrix_struct%local_leading_dimension
ncol_local=MAX(1,matrix_struct%ncol_locals(context%mepos(2)))
ALLOCATE(matrix%local_data(nrow_local,ncol_local),stat=stat)
CPPostcondition(stat==0,cp_warning_level,routineP,error,failure)
CPPostcondition(stat==0,cp_failure_level,routineP,error,failure)
! JVDV we should remove this, as it is up to the user to zero afterwards
CALL dcopy(nrow_local*ncol_local,0.0_dp,0,matrix%local_data,1)