| /phasta/svLS/ |
| H A D | LS.f | 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
[all …]
|
| H A D | GMRES.f | 42 2 ls, rowPtr, colPtr, Val, R, X) argument
50 TYPE(svLS_subLsType), INTENT(INOUT) :: ls local
61 ALLOCATE(h(ls%sD+1,ls%sD), u(dof,nNo,ls%sD+1), unCondU(dof,nNo),
62 2 y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+1))
65 ls%suc = .FALSE.
68 DO l=1, ls%mItr
72 ls%itr = ls%itr + 1
90 IF (eps .LE. ls%absTol) THEN
91 ls%callD = 0D0
92 ls%dB = 0D0
[all …]
|
| H A D | CGRAD.f | 42 2 ls, rowPtr, colPtr, D, G, L, R) argument
50 TYPE(svLS_subLsType), INTENT(INOUT) :: ls local
65 ls%suc = .FALSE.
67 ls%iNorm = errO
68 eps = MAX(ls%absTol,ls%relTol*errO)
75 DO i=1, ls%mItr
77 ls%suc = .TRUE.
105 ls%fNorm = SQRT(err)
106 ls%callD = CPUT() - time + ls%callD
107 ls%dB = 5D0*LOG(err/errO)
[all …]
|
| H A D | NSSOLVER.f | 42 2 cS, face, ls, rowPtr, colPtr, Val, Ri) argument
51 TYPE(svLS_lsType), INTENT(INOUT) :: ls local
63 iB = ls%RI%mItr
78 ls%RI%iNorm = eps
79 ls%RI%fNorm = eps
80 ls%CG%callD = 0D0
81 ls%GM%callD = 0D0
82 ls%CG%itr = 0
83 ls%GM%itr = 0
84 ls%RI%callD = CPUT()
[all …]
|
| H A D | dummy_prototypes.f | 68 SUBROUTINE svLS_LS_CREATE(ls, LS_type, relTol, absTol, maxItr, argument
71 TYPE(svLS_lsType), INTENT(INOUT) :: ls local
78 SUBROUTINE svLS_LS_FREE(ls) argument
80 TYPE(svLS_lsType), INTENT(INOUT) :: ls local
99 SUBROUTINE svLS_SOLVE (lhs, ls, dof, Ri, Val, res) argument
102 TYPE(svLS_lsType), INTENT(INOUT) :: ls local
|
| H A D | SOLVE.f | 41 SUBROUTINE svLS_SOLVE (lhs, ls, dof, Ri, Val, incL, res) argument
46 TYPE(svLS_lsType), INTENT(INOUT) :: ls local
93 SELECT CASE (ls%LS_type)
96 2 lhs%commu, lhs%cS, lhs%face, ls, lhs%rowPtr, lhs%colPtr,
100 2 lhs%cS, lhs%face, ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
104 2 ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
107 2 ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
|
| H A D | svLS_API_c.h | 50 void svls_ls_create_(svLS_lsType *ls, int *LS_type, double *relTol, double *absTol, int *maxItr, in…
51 void svls_ls_free_(svLS_lsType *ls);
56 void svls_solve_(void *lhs, svLS_lsType *ls, int *dof, double *Ri, double *Val, int *incL, double *…
|
| H A D | svLS_API.h | 66 SUBROUTINE svLS_LS_CREATE(ls, LS_type, relTol, absTol, maxItr,
69 TYPE(svLS_lsType), INTENT(INOUT) :: ls
75 SUBROUTINE svLS_LS_FREE(ls)
77 TYPE(svLS_lsType), INTENT(INOUT) :: ls
95 SUBROUTINE svLS_SOLVE (lhs, ls, dof, Ri, Val, incL, res)
98 TYPE(svLS_lsType), INTENT(INOUT) :: ls
|
| /phasta/AcuStat/ |
| H A D | create_AcuStatInput.sh | 26 ls -lrt $cores-procs_case/restart-dat.*.1 | grep -v '^lr'> tmp
|
| /phasta/converterIO/ |
| H A D | create_IO_N2O_input.sh | 48 nsynciofiles=`ls $dir/restart-dat.$N_steps.* | wc -l`
|