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

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