| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=ip), | public | :: | nout | = | 6 | ||
| integer(kind=ip), | public | :: | lprint | = | 0 | ||
| integer(kind=ip), | public | :: | maxcol | = | 5 | ||
| integer(kind=ip), | public | :: | method | = | 0 | ||
| integer(kind=ip), | public | :: | keepLU | = | 1 | ||
| real(kind=rp), | public | :: | Ltol1 | = | 100.0_rp | ||
| real(kind=rp), | public | :: | Ltol2 | = | 10.0_rp | ||
| real(kind=rp), | public | :: | small | = | epsilon(1.0_rp)**0.8_rp | ||
| real(kind=rp), | public | :: | Utol1 | = | epsilon(1.0_rp)**0.67_rp | ||
| real(kind=rp), | public | :: | Utol2 | = | epsilon(1.0_rp)**0.67_rp | ||
| real(kind=rp), | public | :: | Uspace | = | 3.0_rp | ||
| real(kind=rp), | public | :: | dens1 | = | 0.3_rp | ||
| real(kind=rp), | public | :: | dens2 | = | 0.5_rp | ||
| integer(kind=ip), | public | :: | mode | = | 5 |
type,public :: lusol_settings integer(ip) :: nout = 6 integer(ip) :: lprint = 0 integer(ip) :: maxcol = 5 integer(ip) :: method = 0 ! TPP integer(ip) :: keepLU = 1 real(rp) :: Ltol1 = 100.0_rp real(rp) :: Ltol2 = 10.0_rp real(rp) :: small = epsilon(1.0_rp)**0.8_rp real(rp) :: Utol1 = epsilon(1.0_rp)**0.67_rp real(rp) :: Utol2 = epsilon(1.0_rp)**0.67_rp real(rp) :: Uspace = 3.0_rp real(rp) :: dens1 = 0.3_rp real(rp) :: dens2 = 0.5_rp integer(ip) :: mode = 5 ! for [[lu6sol]] : `w` solves `A w = v`. end type lusol_settings