41       SUBROUTINE svLS_LS_CREATE(ls, LS_type, relTol, absTol, maxItr,   argument
46       TYPE(svLS_lsType), INTENT(INOUT) :: ls  local
52       IF (ls%foC) THEN
57       ls%foC     = .TRUE.
58       ls%LS_type = LS_type
62             ls%RI%relTol = 4D-1
63             ls%GM%relTol = 1D-2
64             ls%CG%relTol = 1D-1
65             ls%RI%mItr = 10
66             ls%GM%mItr = 3
67             ls%CG%mItr = 500
68             ls%GM%sD   = 50
70             ls%RI%relTol = 1D-2
71             ls%RI%mItr   = 2
72             ls%RI%sD     = 150
74             ls%RI%reltol = 1D-4
75             ls%RI%mItr   = 1000
80       ls%RI%absTol = 1D-10
81       ls%GM%absTol = 1D-10
82       ls%CG%absTol = 1D-10
84       IF (PRESENT(relTol)) ls%RI%relTol = relTol
85       IF (PRESENT(absTol)) ls%RI%absTol = absTol
86       IF (PRESENT(maxItr)) ls%RI%mItr   = maxItr
89          ls%RI%sD = dimKry
90          ls%GM%sD = dimKry
93          ls%GM%relTol = relTolIn(1)
94          ls%CG%relTol = relTolIn(2)
97          ls%GM%absTol = absTolIn(1)
98          ls%CG%absTol = absTolIn(2)
101          ls%GM%mItr = maxItrIn(1)
102          ls%CG%mItr = maxItrIn(2)
110       SUBROUTINE svLS_LS_FREE (ls)  argument
114       TYPE(svLS_lsType), INTENT(INOUT) :: ls  local
116       IF (.NOT.ls%foC) THEN
121       ls%foC  = .FALSE.