Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | M | ||||
integer | :: | N | ||||
integer | :: | NKRY | ||||
integer | :: | NBLOCK | ||||
real(kind=dp) | :: | V0(M,N) | ||||
real(kind=dp) | :: | VS(M,N) | ||||
real(kind=dp) | :: | A(N,N) | ||||
real(kind=dp) | :: | V(M*NBLOCK*(NKRY+1)) | ||||
real(kind=dp) | :: | AM(NBLOCK*NBLOCK*(NKRY+1)) | ||||
real(kind=dp) | :: | BM(NBLOCK*NBLOCK*NKRY) | ||||
real(kind=dp) | :: | T(3*NBLOCK*NKRY*NBLOCK*NKRY) | ||||
real(kind=dp) | :: | W(N) | ||||
real(kind=dp) | :: | WT(NBLOCK*NKRY) | ||||
integer | :: | INDEX(N) | ||||
real(kind=dp) | :: | SCR(LSCR) | ||||
integer | :: | LSCR | ||||
integer | :: | ISCR(LISCR) | ||||
integer | :: | LISCR | ||||
integer | :: | NDIAG | ||||
real(kind=dp) | :: | B2LIMIT | ||||
real(kind=dp) | :: | H(*) | ||||
integer | :: | ICMAX | ||||
integer | :: | LAB(M,ICMAX) | ||||
integer | :: | NROW(M) | ||||
integer | :: | NCYCLE | ||||
logical | :: | PRINTOUT | ||||
logical | :: | TLargest | ||||
logical | :: | tDie2 | ||||
logical | :: | tFail |