mirror of
https://github.com/QuantumPackage/qp2.git
synced 2025-04-28 03:04:59 +02:00
24 lines
612 B
Fortran
24 lines
612 B
Fortran
subroutine qp_bug(from, code, message)
|
|
implicit none
|
|
BEGIN_DOC
|
|
! This routine prints a bug report
|
|
END_DOC
|
|
character*(*) :: from
|
|
integer :: code
|
|
character*(*) :: message
|
|
|
|
print *, ''
|
|
print *, '======================='
|
|
print *, 'Bug in Quantum Package!'
|
|
print *, '======================='
|
|
print *, ''
|
|
print *, ' from: ', trim(from)
|
|
print *, ' code: ', code
|
|
print *, ' info: ', trim(message)
|
|
print *, ''
|
|
print *, 'Please report this bug at https://github.com/QuantumPackage/qp2/issues'
|
|
print *, 'with your output file attached.'
|
|
print *, ''
|
|
stop -1
|
|
end subroutine qp_bug
|