LCPQ/DEHam
2
0
Fork 0
mirror of https://github.com/LCPQ/DEHam synced 2024-11-11 16:43:48 +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 16
11 33
4 4
1 1
0 0

11
src/extra_diag.irp.f
View File

@ -97,6 +97,17 @@
enddo 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 Touch foundet foundetadr detfound foundadd foundaddh foundetdmat det deth
call adrfull() call adrfull()