LCPQ/DEHam
2
0
Fork 0
mirror of https://github.com/LCPQ/DEHam synced 2024-12-21 11:53:39 +01:00
Code Issues Releases Wiki Activity

Added warning for when the number of extradiagonal terms exceeds the max value.

Browse Source
This commit is contained in:
vijay gopal chilkuri 2020-03-17 10:44:50 +01:00
parent c9b118d0c9
commit 9a0c3935fa
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/tJ_4x4.inp
View File

@ -1,5 +1,5 @@
16
11
33
4
1
0

11
src/extra_diag.irp.f
View File

@ -96,6 +96,17 @@
tistart=tistart+1
enddo
! Check for large number of extradiagonal terms
if(detfound + count1 > maxlien)then
write(6,*)" ===================================================="
write(6,*)" *****WARNING*****: The number of extradiagonal terms &
exceedes maximum dimension of :",maxlien, &
" \n The calculation will be unreliable. Decrease the number &
of extradiagonal terms (nnz: second row in input) to solve &
this problem or increase maxlien."
write(6,*)" ===================================================="
endif
Touch foundet foundetadr detfound foundadd foundaddh foundetdmat det deth
call adrfull()