Error message was truncated

This commit is contained in:
Paolo Giannozzi 2020-06-06 21:37:45 +02:00
parent ef4297751c
commit ab3ccd6a7a
1 changed files with 1 additions and 1 deletions

View File

@ -798,7 +798,7 @@ SUBROUTINE latgen(ibrav,celldm,a1,a2,a3,omega)
real(DP), INTENT(inout) :: a1(3), a2(3), a3(3)
real(DP), INTENT(out) :: omega
!
character(len=32) :: errormsg
character(len=54) :: errormsg
integer :: ierr
CALL latgen_lib(ibrav,celldm,a1,a2,a3,omega, ierr, errormsg)