NECI_FRSBLK Subroutine

private subroutine NECI_FRSBLK(M, N, NKRY, NBLOCK, V0, VS, A, V, AM, BM, T, W, WT, INDEX, SCR, LSCR, ISCR, LISCR, NDIAG, B2LIMIT, H, ICMAX, LAB, NROW, NCYCLE, PRINTOUT, TLargest, tDie2, tFail)

Arguments

Type IntentOptional 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

Contents