remove fstrPR from the m_fstr module and add fstrPARAM to m_fstr_main module

Remove fstrPR from the m_fstr module —which is currently treated like a global variable- and add fstrPARAM to the m_fstr_main module instead, and eliminate all access to global variables.

Close #909 (closed)

  • サブルーチンで fstrPR にアクセスしているものは、引数に fstrPARAM がなければ追加し、そちらを参照するように変更
    • fistr1/src/analysis/dynamic/transit/fstr_dynamic_nlimplicit.f90 fstr_Newton_dynamic_contactSLag
    • fistr1/src/analysis/precheck/fstr_precheck.f90 fstr_input_precheck
    • fistr1/src/analysis/static/fstr_CheckConvergence.f90 fstr_check_convergence
    • fistr1/src/analysis/static/fstr_Update.f90 fstr_UpdateNewton
    • fistr1/src/analysis/static/fstr_solve_NLGEOM.f90 FSTR_SOLVE_NLGEOM
    • fistr1/src/analysis/static/fstr_solve_NonLinear.f90 fstr_Newton
    • fistr1/src/analysis/static/fstr_solve_QuasiNewton.f90 fstr_Quasi_Newton
    • これらのサブルーチンのうち、引数が追加されたものを呼びだしているところ
  • m_fstr モジュールで定義されている fstrPR は削除
  • m_fstr_main モジュールで fstrPARAM を定義し、全て引数で渡すように変更
Edited by TOKUNAGA Ken-ichi

Merge request reports

Loading
Loading