Commit f5df50d3 authored by Gregor Michalicek's avatar Gregor Michalicek

Switch on printing of stacktrace for abnormal program termination by default

Also in this commit: Some minor changes to error messages and some additional
array allocations in wannier/wannier.F.
parent 528946be
......@@ -140,7 +140,7 @@ CONTAINS
CASE (mpi_mode)
CALL read_eig_mpi(id,nk,jspin,nv,nmat,k1,k2,k3,bk,wk,neig,eig,el,ello,evac,kveclo,n_start,n_end,zmat)
CASE (-1)
CALL juDFT_error("Could not read eig-file before opening")
CALL juDFT_error("Could not read eig-file before opening", calledby = "eig66_io")
END SELECT
CALL timestop("IO (read)")
END SUBROUTINE read_eig
......@@ -168,7 +168,7 @@ CONTAINS
CASE (MPI_mode)
CALL write_eig_MPI(id,nk,jspin,neig,neig_total,nv,nmat,k1,k2,k3,bk,wk,eig,el,ello,evac,nlotot,kveclo,n_start,n_end,zmat)
CASE (-1)
CALL juDFT_error("Could not write eig-file before opening")
CALL juDFT_error("Could not write eig-file before opening", calledby = "eig66_io")
END SELECT
CALL timestop("IO (write)")
END SUBROUTINE write_eig
......@@ -196,7 +196,7 @@ CONTAINS
CASE (MPI_mode)
CALL write_dos_MPI(id,nk,jspin,qal,qvac,qis,qvlay,qstars,ksym,jsym,mcd,qintsl,qmtsl,qmtp,orbcomp)
CASE (-1)
CALL juDFT_error("Could not write eig-file before opening")
CALL juDFT_error("Could not write DOS to eig-file before opening", calledby = "eig66_io")
END SELECT
CALL timestop("IO (dos-write)")
END SUBROUTINE write_dos
......@@ -225,7 +225,7 @@ CONTAINS
CASE (MPI_mode)
CALL read_dos_MPI(id,nk,jspin,qal,qvac,qis,qvlay,qstars,ksym,jsym,mcd,qintsl,qmtsl,qmtp,orbcomp)
CASE (-1)
CALL juDFT_error("Could not read eig-file before opening")
CALL juDFT_error("Could not DOS from read eig-file before opening", calledby = "eig66_io")
END SELECT
CALL timestop("IO (dos-read)")
END SUBROUTINE read_dos
......
......@@ -281,7 +281,7 @@ CONTAINS
zmat%z_r=RESHAPE(d%eig_vecr(:SIZE(zmat%z_r),nrec),SHAPE(zmat%z_r))
ENDIF
ELSE !TYPE is (COMPLEX)
IF (.NOT.ALLOCATED(d%eig_vecc)) CALL juDFT_error("BUG: can not read complex vectors from memory")
IF (.NOT.ALLOCATED(d%eig_vecc)) CALL juDFT_error("BUG: can not read complex vectors from memory", calledby = "eig66_mem")
zmat%z_c=RESHAPE(d%eig_vecc(:SIZE(zmat%z_c),nrec),SHAPE(zmat%z_c))
END IF
ENDIF
......
......@@ -203,6 +203,7 @@
!call writelocation()
!CALL writetimes(.true.)
INQUIRE(FILE="JUDFT_TRACE",EXIST=calltrace)
IF (error.EQ.1) calltrace = .TRUE.
IF (calltrace) THEN
#ifdef __INTEL_COMPILER
CALL tracebackqq(USER_EXIT_CODE=-1) !return after traceback
......
......@@ -567,6 +567,8 @@ c**************************************************************
+ ("max(irreduc(:))/=nkpts",calledby ="wannier")
else
fullnkpts=nkpts
allocate(irreduc(fullnkpts),mapkoper(fullnkpts))
allocate(shiftkpt(3,fullnkpts))
endif
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment