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:
parent
c9b118d0c9
commit
9a0c3935fa
@ -1,5 +1,5 @@
|
||||
16
|
||||
11
|
||||
33
|
||||
4
|
||||
1
|
||||
0
|
||||
|
@ -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()
|
||||
|
Loading…
Reference in New Issue
Block a user