2
0
mirror of https://github.com/LCPQ/DEHam synced 2024-12-02 10:38:31 +01:00

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

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

View File

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

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()