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