Searched refs:restrt_step_num (Results 1 – 4 of 4) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/dynamic/transit/ |
| H A D | fstr_solve_dynamic.f90 | 40 integer(kind=kint) :: restrt_step_num, ndof local
161 restrt_step_num = 1
193 call fstr_read_restart_dyna_nl(restrt_step_num,hecMESH,fstrSOLID,fstrDYNAMIC,fstrPARAM)
195 call fstr_read_restart_dyna_nl(restrt_step_num,hecMESH,fstrSOLID,fstrDYNAMIC,fstrPARAM,&
198 restrt_step_num = restrt_step_num + 1
209 ,fstrCPL, restrt_step_num )
215 ,fstrCPL,fstrMAT,restrt_step_num,infoCTChange &
220 ,fstrCPL,fstrMAT,restrt_step_num,infoCTChange )
227 ,fstrCPL, restrt_step_num )
242 restrt_step_num)
|
| H A D | fstr_dynamic_nlimplicit.f90 | 30 fstrDYNAMIC,fstrRESULT,fstrPARAM,fstrCPL, restrt_step_num ) argument
54 integer(kind=kint) :: restrt_step_num local
118 if( restrt_step_num == 1 ) then
127 do i= restrt_step_num, fstrDYNAMIC%n_step
206 j = i - restrt_step_num + 1
207 kk = fstrDYNAMIC%n_step - restrt_step_num + 1
413 ,fstrCPL,fstrMAT,restrt_step_num,infoCTChange & argument
454 integer(kind=kint) :: restrt_step_num local
529 if( restrt_step_num == 1 .and. fstrDYNAMIC%VarInitialize .and. fstrDYNAMIC%ray_m /= 0.0d0 ) &
546 if( restrt_step_num == 1 ) then
[all …]
|
| H A D | fstr_dynamic_nlexplicit.f90 | 29 ,fstrCPL, restrt_step_num ) argument
53 integer(kind=kint) :: restrt_step_num local
106 if( restrt_step_num == 1 ) then
122 do i= restrt_step_num, fstrDYN%n_step
159 j = i - restrt_step_num + 1
160 kk = fstrDYN%n_step - restrt_step_num + 1
|
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | fstr_solve_NonLinear.f90 | 30 restrt_step_num, sub_step, ctime, dtime ) argument
47 integer(kind=kint) :: restrt_step_num local
87 if( sub_step == restrt_step_num .and. iter == 1 ) hecMATmpc%Iarray(98) = 1
|