refactor Subroutine

subroutine refactor(n, nm, a, la, aa, ll, ifail)

Arguments

Type IntentOptional AttributesName
integer :: n
integer :: nm
real :: a
integer :: la
real :: aa
integer :: ll
integer :: ifail

Contents


Common Blocks

Type AttributesNameInitial
integer :: ns
integer :: ns1
integer :: nt
integer :: nt1
integer :: nu
integer :: nu1
integer :: nx
integer :: nx1
integer :: np
integer :: np1
integer :: nprof
integer :: lc
integer :: lc1
integer :: li
integer :: li1
integer :: lm
integer :: lm1
integer :: lp
integer :: lp1
integer :: lq
integer :: lq1
integer :: lr
integer :: lr1
integer :: ls
integer :: ls1
integer :: lt
integer :: lt1
Type AttributesNameInitial
integer :: m1
integer :: m2
integer :: mp
integer :: mq
integer :: lastr
integer :: irow
Type AttributesNameInitial
integer :: nout