From 917abc43e724c36b7483a8e00604a09e3edfa1da Mon Sep 17 00:00:00 2001 From: Gregor Michalicek Date: Thu, 26 Apr 2018 19:39:05 +0200 Subject: [PATCH] Bugfix for slice plots and HDF5 --- io/cdn_io.F90 | 9 ++++++++- main/cdngen.F90 | 2 +- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/io/cdn_io.F90 b/io/cdn_io.F90 index 50047c24..44d2f874 100644 --- a/io/cdn_io.F90 +++ b/io/cdn_io.F90 @@ -230,7 +230,14 @@ MODULE m_cdn_io 1,-1.0,fermiEnergy,l_qfix,den) END IF ELSE - WRITE(*,*) TRIM(ADJUSTL(filename))//' file or relevant density entry not found.' + INQUIRE(FILE=TRIM(ADJUSTL(filename)),EXIST=l_exist) + IF(l_exist) THEN + WRITE(*,*) 'densityType is ', densityType + WRITE(*,*) 'Relevant density entry is '//TRIM(ADJUSTL(archiveName))//'.' + WRITE(*,*) 'Entry not found in '//TRIM(ADJUSTL(filename))//'.' + ELSE + WRITE(*,*) TRIM(ADJUSTL(filename))//' file not found.' + END IF WRITE(*,*) 'Falling back to stream access.' mode = CDN_STREAM_MODE END IF diff --git a/main/cdngen.F90 b/main/cdngen.F90 index bf6bc10c..52daf21e 100644 --- a/main/cdngen.F90 +++ b/main/cdngen.F90 @@ -120,7 +120,7 @@ SUBROUTINE cdngen(eig_id,mpi,input,banddos,sliceplot,vacuum,& IF (sliceplot%slice) THEN IF (mpi%irank.EQ.0) THEN - CALL writeDensity(stars,vacuum,atoms,cell,sphhar,input,sym,oneD,archiveType,CDN_INPUT_DEN_const,& + CALL writeDensity(stars,vacuum,atoms,cell,sphhar,input,sym,oneD,CDN_ARCHIVE_TYPE_CDN_const,CDN_INPUT_DEN_const,& 0,-1.0,0.0,.FALSE.,outDen,'cdn_slice') END IF CALL juDFT_end("slice OK",mpi%irank) -- GitLab