FrontISTR  5.7.0
Large-scale structural analysis program with finit element method
m_fstr Module Reference

This module defines common data and basic structures for analysis. More...

Data Types

type  fstr_couple
 Data for coupling analysis. More...
 
type  fstr_dynamic
 Data for DYNAMIC ANSLYSIS (fstrDYNAMIC) More...
 
type  fstr_eigen
 Package of data used by Lanczos eigenvalue solver. More...
 
type  fstr_freqanalysis
 
type  fstr_freqanalysis_data
 
type  fstr_heat
 Data for HEAT ANSLYSIS (fstrHEAT) More...
 
type  fstr_param
 FSTR INNER CONTROL PARAMETERS (fstrPARAM) More...
 
type  fstr_solid
 
type  fstr_solid_physic_val
 Data for STATIC ANSLYSIS (fstrSOLID) More...
 
type  tinitialcondition
 
type  tsection
 Data for section control. More...
 
type  tweldline
 -1:not relation, >1:index of coupled_node More...
 

Functions/Subroutines

subroutine fstr_nullify_fstr_param (P)
 NULL POINTER SETTING TO AVOID RUNTIME ERROR. More...
 
subroutine fstr_nullify_fstr_solid (S)
 
subroutine fstr_nullify_fstr_heat (H)
 
subroutine fstr_nullify_fstr_dynamic (DY)
 
subroutine fstr_nullify_fstr_freqanalysis (f)
 
subroutine fstr_nullify_fstr_eigen (E)
 
subroutine fstr_nullify_fstr_couple (C)
 
subroutine fstr_mat_init (hecMAT)
 Initializer of structure hecmwST_matrix. More...
 
subroutine hecmat_init (hecMAT)
 
subroutine hecmat_finalize (hecMAT)
 
subroutine fstr_param_init (fstrPARAM, hecMESH)
 Initializer of structure fstr_param. More...
 
logical function fstr_isboundaryactive (fstrSOLID, nbc, cstep)
 
logical function fstr_isloadactive (fstrSOLID, nbc, cstep)
 
logical function fstr_iscontactactive (fstrSOLID, nbc, cstep)
 
logical function fstr_isembedactive (fstrSOLID, nbc, cstep)
 
subroutine get_coordsys (cdsys_ID, hecMESH, fstrSOLID, coords)
 This subroutine fetch coords defined by local coordinate system. More...
 
subroutine fstr_set_current_config_to_mesh (hecMESH, fstrSOLID, coord)
 
subroutine fstr_recover_initial_config_to_mesh (hecMESH, fstrSOLID, coord)
 
subroutine fstr_solid_phys_zero (phys)
 
subroutine fstr_solid_phys_clear (fstrSOLID)
 
subroutine table_amp (hecMESH, fstrSOLID, cstep, jj_n_amp, time, f_t)
 

Variables

integer(kind=kint), parameter kyes = 1
 CONSTANTS general. More...
 
integer(kind=kint), parameter kno = 0
 
integer(kind=kint), parameter kon = 1
 
integer(kind=kint), parameter koff = 0
 
integer(kind=kint), parameter kstprecheck = 0
 solution type (st) More...
 
integer(kind=kint), parameter kststatic = 1
 
integer(kind=kint), parameter ksteigen = 2
 
integer(kind=kint), parameter kstheat = 3
 
integer(kind=kint), parameter kstdynamic = 4
 
integer(kind=kint), parameter kststaticeigen = 6
 
integer(kind=kint), parameter kstnzprof = 7
 
integer(kind=kint), parameter ksmcg = 1
 solver method (sm) !CAUTION : (<=100):indirect, (>100):direct More...
 
integer(kind=kint), parameter ksmbicgstab = 2
 
integer(kind=kint), parameter ksmgmres = 3
 
integer(kind=kint), parameter ksmgpbicg = 4
 
integer(kind=kint), parameter ksmgmresr = 5
 
integer(kind=kint), parameter ksmgmresren = 6
 
integer(kind=kint), parameter ksmdirect = 101
 
integer(kind=kint), parameter knsmnewton = 1
 nonlinear solver method (nsm) More...
 
integer(kind=kint), parameter knsmquasinewton = 2
 
integer(kind=kint), parameter kcaslagrange = 1
 contact analysis algorithm More...
 
integer(kind=kint), parameter kcaalagrange = 2
 
integer(kind=kint), parameter kbcffstr = 0
 boundary condition file type (bcf) More...
 
integer(kind=kint), parameter kbcfnastran = 1
 
integer(kind=kint), parameter kbcinitial = 1
 
integer(kind=kint), parameter kbctransit = 2
 
integer(kind=kint), parameter restart_outlast = 1
 restart type More...
 
integer(kind=kint), parameter restart_outall = 2
 
integer(kind=kint), parameter kel341fi = 1
 section control More...
 
integer(kind=kint), parameter kel341sesns = 2
 
integer(kind=kint), parameter kel361fi = 1
 
integer(kind=kint), parameter kel361bbar = 2
 
integer(kind=kint), parameter kel361ic = 3
 
integer(kind=kint), parameter kel361fbar = 4
 
integer(kind=kint), parameter kfloadtype_node = 1
 
integer(kind=kint), parameter kfloadtype_surf = 2
 
integer(kind=kint), parameter kfloadcase_re = 1
 
integer(kind=kint), parameter kfloadcase_im = 2
 
integer(kind=kint), parameter kitrcontinue = 0
 iteration control More...
 
integer(kind=kint), parameter kitrconverged = 1
 
integer(kind=kint), parameter kitrdiverged = 2
 
integer(kind=kint), parameter kitrfloatingerror = 3
 
integer(kind=kint) myrank
 PARALLEL EXECUTION. More...
 
integer(kind=kint) nprocs
 
logical paracontactflag = .false.
 PARALLEL CONTACT FLAG. More...
 
character(len=hecmw_filename_len) cntfilname
 FILE NAME. More...
 
character(len=hecmw_filename_len) restartfilname
 
integer(kind=kint), parameter ilog = 16
 FILE HANDLER. More...
 
integer(kind=kint), parameter ista = 17
 
integer(kind=kint), parameter iutb = 18
 
integer(kind=kint), parameter imsg = 51
 
integer(kind=kint), parameter idbg = 52
 
integer(kind=kint), parameter ifvs = 53
 
integer(kind=kint), parameter ineu = 54
 
integer(kind=kint), parameter iresout = 100
 
integer(kind=kint), dimension(100) sviarray
 SOLVER CONTROL. More...
 
real(kind=kreal), dimension(100) svrarray
 
integer(kind=kint), pointer iecho
 FLAG for ECHO/RESULT/POST. More...
 
integer(kind=kint), pointer iresult
 
integer(kind=kint), pointer ivisual
 
integer(kind=kint), pointer ineutral
 
integer(kind=kint), pointer irres
 
integer(kind=kint), pointer iwres
 
integer(kind=kint), pointer nrres
 
integer(kind=kint), pointer nprint
 
integer(kind=kint), parameter kopss_solution = 1
 
integer(kind=kint), parameter kopss_material = 2
 
integer(kind=kint) opsstype = kOPSS_SOLUTION
 
real(kind=kreal), pointer ref_temp
 REFTEMP. More...
 
real(kind=kreal) dt
 ANALYSIS CONTROL for NLGEOM and HEAT. More...
 
real(kind=kreal) etime
 
integer(kind=kint) itmax
 
real(kind=kreal) eps
 
type(tinitialcondition), dimension(:), pointer, save g_initialcnd => null()
 
type(fstr_param), target fstrpr
 GLOBAL VARIABLE INITIALIZED IN FSTR_SETUP. More...
 

Detailed Description

This module defines common data and basic structures for analysis.

Function/Subroutine Documentation

◆ fstr_isboundaryactive()

logical function m_fstr::fstr_isboundaryactive ( type(fstr_solid fstrSOLID,
integer, intent(in)  nbc,
integer, intent(in)  cstep 
)
Parameters
[in]nbcgroup id of boundary condition
[in]cstepcurrent step number

Definition at line 1028 of file m_fstr.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ fstr_iscontactactive()

logical function m_fstr::fstr_iscontactactive ( type(fstr_solid fstrSOLID,
integer, intent(in)  nbc,
integer, intent(in)  cstep 
)
Parameters
fstrsolidtype fstr_solid
[in]nbcgroup id of boundary condition
[in]cstepcurrent step number

Definition at line 1052 of file m_fstr.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ fstr_isembedactive()

logical function m_fstr::fstr_isembedactive ( type(fstr_solid fstrSOLID,
integer, intent(in)  nbc,
integer, intent(in)  cstep 
)
Parameters
fstrsolidtype fstr_solid
[in]nbcgroup id of boundary condition
[in]cstepcurrent step number

Definition at line 1062 of file m_fstr.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ fstr_isloadactive()

logical function m_fstr::fstr_isloadactive ( type(fstr_solid fstrSOLID,
integer, intent(in)  nbc,
integer, intent(in)  cstep 
)
Parameters
[in]nbcgroup id of boundary condition
[in]cstepcurrent step number

Definition at line 1038 of file m_fstr.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ fstr_mat_init()

subroutine m_fstr::fstr_mat_init ( type(hecmwst_matrix hecMAT)

Initializer of structure hecmwST_matrix.

Definition at line 825 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_nullify_fstr_couple()

subroutine m_fstr::fstr_nullify_fstr_couple ( type( fstr_couple C)

Definition at line 814 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_nullify_fstr_dynamic()

subroutine m_fstr::fstr_nullify_fstr_dynamic ( type( fstr_dynamic DY)

Definition at line 782 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_nullify_fstr_eigen()

subroutine m_fstr::fstr_nullify_fstr_eigen ( type( fstr_eigen E)

Definition at line 807 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_nullify_fstr_freqanalysis()

subroutine m_fstr::fstr_nullify_fstr_freqanalysis ( type( fstr_freqanalysis ), intent(inout)  f)

Definition at line 794 of file m_fstr.f90.

◆ fstr_nullify_fstr_heat()

subroutine m_fstr::fstr_nullify_fstr_heat ( type( fstr_heat H)

Definition at line 728 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_nullify_fstr_param()

subroutine m_fstr::fstr_nullify_fstr_param ( type( fstr_param P)

NULL POINTER SETTING TO AVOID RUNTIME ERROR.

Definition at line 658 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_nullify_fstr_solid()

subroutine m_fstr::fstr_nullify_fstr_solid ( type( fstr_solid S)

Definition at line 672 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_param_init()

subroutine m_fstr::fstr_param_init ( type(fstr_param fstrPARAM,
type(hecmwst_local_mesh hecMESH 
)

Initializer of structure fstr_param.

Definition at line 979 of file m_fstr.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ fstr_recover_initial_config_to_mesh()

subroutine m_fstr::fstr_recover_initial_config_to_mesh ( type(hecmwst_local_mesh), intent(inout)  hecMESH,
type (fstr_solid), intent(in)  fstrSOLID,
real(kind=kreal), dimension(:), intent(in)  coord 
)

Definition at line 1111 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_set_current_config_to_mesh()

subroutine m_fstr::fstr_set_current_config_to_mesh ( type(hecmwst_local_mesh), intent(inout)  hecMESH,
type (fstr_solid), intent(in)  fstrSOLID,
real(kind=kreal), dimension(:), intent(out)  coord 
)

Definition at line 1098 of file m_fstr.f90.

Here is the caller graph for this function:

◆ fstr_solid_phys_clear()

subroutine m_fstr::fstr_solid_phys_clear ( type (fstr_solid fstrSOLID)

Definition at line 1135 of file m_fstr.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ fstr_solid_phys_zero()

subroutine m_fstr::fstr_solid_phys_zero ( type(fstr_solid_physic_val), pointer  phys)

Definition at line 1123 of file m_fstr.f90.

Here is the caller graph for this function:

◆ get_coordsys()

subroutine m_fstr::get_coordsys ( integer, intent(in)  cdsys_ID,
type(hecmwst_local_mesh hecMESH,
type(fstr_solid), intent(inout)  fstrSOLID,
real(kind=kreal), dimension(3,3), intent(out)  coords 
)

This subroutine fetch coords defined by local coordinate system.

Parameters
[in]cdsys_idid of local coordinate
hecmeshmesh information
[in,out]fstrsolidfstr_solid

Definition at line 1073 of file m_fstr.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ hecmat_finalize()

subroutine m_fstr::hecmat_finalize ( type( hecmwst_matrix hecMAT)

Definition at line 922 of file m_fstr.f90.

Here is the caller graph for this function:

◆ hecmat_init()

subroutine m_fstr::hecmat_init ( type( hecmwst_matrix hecMAT)

Definition at line 865 of file m_fstr.f90.

Here is the caller graph for this function:

◆ table_amp()

subroutine m_fstr::table_amp ( type ( hecmwst_local_mesh ), intent(in)  hecMESH,
type ( fstr_solid ), intent(in)  fstrSOLID,
integer(kind=kint), intent(in)  cstep,
integer(kind=kint), intent(in)  jj_n_amp,
real(kind=kreal), intent(in)  time,
real(kind=kreal), intent(out)  f_t 
)
Parameters
[in]hecmeshhecmw mesh
[in]fstrsolidfstr_solid
[in]cstepcurr loading step
[in]jj_n_ampindex of amplitude table
[in]timeloading time(total time)
[out]f_tloading factor

Definition at line 1155 of file m_fstr.f90.

Here is the caller graph for this function:

Variable Documentation

◆ cntfilname

character(len=hecmw_filename_len) m_fstr::cntfilname

FILE NAME.

Definition at line 103 of file m_fstr.f90.

◆ dt

real(kind=kreal) m_fstr::dt

ANALYSIS CONTROL for NLGEOM and HEAT.

Definition at line 139 of file m_fstr.f90.

◆ eps

real(kind=kreal) m_fstr::eps

Definition at line 142 of file m_fstr.f90.

◆ etime

real(kind=kreal) m_fstr::etime

Definition at line 140 of file m_fstr.f90.

◆ fstrpr

type( fstr_param ), target m_fstr::fstrpr

GLOBAL VARIABLE INITIALIZED IN FSTR_SETUP.

Definition at line 208 of file m_fstr.f90.

◆ g_initialcnd

type( tinitialcondition ), dimension(:), pointer, save m_fstr::g_initialcnd => null()

Definition at line 151 of file m_fstr.f90.

◆ idbg

integer(kind=kint), parameter m_fstr::idbg = 52

Definition at line 111 of file m_fstr.f90.

◆ iecho

integer(kind=kint), pointer m_fstr::iecho

FLAG for ECHO/RESULT/POST.

Definition at line 121 of file m_fstr.f90.

◆ ifvs

integer(kind=kint), parameter m_fstr::ifvs = 53

Definition at line 112 of file m_fstr.f90.

◆ ilog

integer(kind=kint), parameter m_fstr::ilog = 16

FILE HANDLER.

Definition at line 107 of file m_fstr.f90.

◆ imsg

integer(kind=kint), parameter m_fstr::imsg = 51

Definition at line 110 of file m_fstr.f90.

◆ ineu

integer(kind=kint), parameter m_fstr::ineu = 54

Definition at line 113 of file m_fstr.f90.

◆ ineutral

integer(kind=kint), pointer m_fstr::ineutral

Definition at line 124 of file m_fstr.f90.

◆ iresout

integer(kind=kint), parameter m_fstr::iresout = 100

Definition at line 114 of file m_fstr.f90.

◆ iresult

integer(kind=kint), pointer m_fstr::iresult

Definition at line 122 of file m_fstr.f90.

◆ irres

integer(kind=kint), pointer m_fstr::irres

Definition at line 125 of file m_fstr.f90.

◆ ista

integer(kind=kint), parameter m_fstr::ista = 17

Definition at line 108 of file m_fstr.f90.

◆ itmax

integer(kind=kint) m_fstr::itmax

Definition at line 141 of file m_fstr.f90.

◆ iutb

integer(kind=kint), parameter m_fstr::iutb = 18

Definition at line 109 of file m_fstr.f90.

◆ ivisual

integer(kind=kint), pointer m_fstr::ivisual

Definition at line 123 of file m_fstr.f90.

◆ iwres

integer(kind=kint), pointer m_fstr::iwres

Definition at line 126 of file m_fstr.f90.

◆ kbcffstr

integer(kind=kint), parameter m_fstr::kbcffstr = 0

boundary condition file type (bcf)

Definition at line 63 of file m_fstr.f90.

◆ kbcfnastran

integer(kind=kint), parameter m_fstr::kbcfnastran = 1

Definition at line 64 of file m_fstr.f90.

◆ kbcinitial

integer(kind=kint), parameter m_fstr::kbcinitial = 1

Definition at line 66 of file m_fstr.f90.

◆ kbctransit

integer(kind=kint), parameter m_fstr::kbctransit = 2

Definition at line 67 of file m_fstr.f90.

◆ kcaalagrange

integer(kind=kint), parameter m_fstr::kcaalagrange = 2

Definition at line 60 of file m_fstr.f90.

◆ kcaslagrange

integer(kind=kint), parameter m_fstr::kcaslagrange = 1

contact analysis algorithm

Definition at line 59 of file m_fstr.f90.

◆ kel341fi

integer(kind=kint), parameter m_fstr::kel341fi = 1

section control

Definition at line 74 of file m_fstr.f90.

◆ kel341sesns

integer(kind=kint), parameter m_fstr::kel341sesns = 2

Definition at line 75 of file m_fstr.f90.

◆ kel361bbar

integer(kind=kint), parameter m_fstr::kel361bbar = 2

Definition at line 78 of file m_fstr.f90.

◆ kel361fbar

integer(kind=kint), parameter m_fstr::kel361fbar = 4

Definition at line 80 of file m_fstr.f90.

◆ kel361fi

integer(kind=kint), parameter m_fstr::kel361fi = 1

Definition at line 77 of file m_fstr.f90.

◆ kel361ic

integer(kind=kint), parameter m_fstr::kel361ic = 3

Definition at line 79 of file m_fstr.f90.

◆ kfloadcase_im

integer(kind=kint), parameter m_fstr::kfloadcase_im = 2

Definition at line 86 of file m_fstr.f90.

◆ kfloadcase_re

integer(kind=kint), parameter m_fstr::kfloadcase_re = 1

Definition at line 85 of file m_fstr.f90.

◆ kfloadtype_node

integer(kind=kint), parameter m_fstr::kfloadtype_node = 1

Definition at line 82 of file m_fstr.f90.

◆ kfloadtype_surf

integer(kind=kint), parameter m_fstr::kfloadtype_surf = 2

Definition at line 83 of file m_fstr.f90.

◆ kitrcontinue

integer(kind=kint), parameter m_fstr::kitrcontinue = 0

iteration control

Definition at line 89 of file m_fstr.f90.

◆ kitrconverged

integer(kind=kint), parameter m_fstr::kitrconverged = 1

Definition at line 90 of file m_fstr.f90.

◆ kitrdiverged

integer(kind=kint), parameter m_fstr::kitrdiverged = 2

Definition at line 91 of file m_fstr.f90.

◆ kitrfloatingerror

integer(kind=kint), parameter m_fstr::kitrfloatingerror = 3

Definition at line 92 of file m_fstr.f90.

◆ kno

integer(kind=kint), parameter m_fstr::kno = 0

Definition at line 31 of file m_fstr.f90.

◆ knsmnewton

integer(kind=kint), parameter m_fstr::knsmnewton = 1

nonlinear solver method (nsm)

Definition at line 55 of file m_fstr.f90.

◆ knsmquasinewton

integer(kind=kint), parameter m_fstr::knsmquasinewton = 2

Definition at line 56 of file m_fstr.f90.

◆ koff

integer(kind=kint), parameter m_fstr::koff = 0

Definition at line 33 of file m_fstr.f90.

◆ kon

integer(kind=kint), parameter m_fstr::kon = 1

Definition at line 32 of file m_fstr.f90.

◆ kopss_material

integer(kind=kint), parameter m_fstr::kopss_material = 2

Definition at line 131 of file m_fstr.f90.

◆ kopss_solution

integer(kind=kint), parameter m_fstr::kopss_solution = 1

Definition at line 130 of file m_fstr.f90.

◆ ksmbicgstab

integer(kind=kint), parameter m_fstr::ksmbicgstab = 2

Definition at line 47 of file m_fstr.f90.

◆ ksmcg

integer(kind=kint), parameter m_fstr::ksmcg = 1

solver method (sm) !CAUTION : (<=100):indirect, (>100):direct

Definition at line 46 of file m_fstr.f90.

◆ ksmdirect

integer(kind=kint), parameter m_fstr::ksmdirect = 101

Definition at line 52 of file m_fstr.f90.

◆ ksmgmres

integer(kind=kint), parameter m_fstr::ksmgmres = 3

Definition at line 48 of file m_fstr.f90.

◆ ksmgmresr

integer(kind=kint), parameter m_fstr::ksmgmresr = 5

Definition at line 50 of file m_fstr.f90.

◆ ksmgmresren

integer(kind=kint), parameter m_fstr::ksmgmresren = 6

Definition at line 51 of file m_fstr.f90.

◆ ksmgpbicg

integer(kind=kint), parameter m_fstr::ksmgpbicg = 4

Definition at line 49 of file m_fstr.f90.

◆ kstdynamic

integer(kind=kint), parameter m_fstr::kstdynamic = 4

Definition at line 40 of file m_fstr.f90.

◆ ksteigen

integer(kind=kint), parameter m_fstr::ksteigen = 2

Definition at line 38 of file m_fstr.f90.

◆ kstheat

integer(kind=kint), parameter m_fstr::kstheat = 3

Definition at line 39 of file m_fstr.f90.

◆ kstnzprof

integer(kind=kint), parameter m_fstr::kstnzprof = 7

Definition at line 43 of file m_fstr.f90.

◆ kstprecheck

integer(kind=kint), parameter m_fstr::kstprecheck = 0

solution type (st)

Definition at line 36 of file m_fstr.f90.

◆ kststatic

integer(kind=kint), parameter m_fstr::kststatic = 1

Definition at line 37 of file m_fstr.f90.

◆ kststaticeigen

integer(kind=kint), parameter m_fstr::kststaticeigen = 6

Definition at line 42 of file m_fstr.f90.

◆ kyes

integer(kind=kint), parameter m_fstr::kyes = 1

CONSTANTS general.

Definition at line 30 of file m_fstr.f90.

◆ myrank

integer(kind = kint) m_fstr::myrank

PARALLEL EXECUTION.

Definition at line 96 of file m_fstr.f90.

◆ nprint

integer(kind=kint), pointer m_fstr::nprint

Definition at line 128 of file m_fstr.f90.

◆ nprocs

integer(kind = kint) m_fstr::nprocs

Definition at line 97 of file m_fstr.f90.

◆ nrres

integer(kind=kint), pointer m_fstr::nrres

Definition at line 127 of file m_fstr.f90.

◆ opsstype

integer(kind=kint) m_fstr::opsstype = kOPSS_SOLUTION

Definition at line 132 of file m_fstr.f90.

◆ paracontactflag

logical m_fstr::paracontactflag = .false.

PARALLEL CONTACT FLAG.

Definition at line 100 of file m_fstr.f90.

◆ ref_temp

real(kind=kreal), pointer m_fstr::ref_temp

REFTEMP.

Definition at line 136 of file m_fstr.f90.

◆ restart_outall

integer(kind=kint), parameter m_fstr::restart_outall = 2

Definition at line 71 of file m_fstr.f90.

◆ restart_outlast

integer(kind=kint), parameter m_fstr::restart_outlast = 1

restart type

Definition at line 70 of file m_fstr.f90.

◆ restartfilname

character(len=hecmw_filename_len) m_fstr::restartfilname

Definition at line 104 of file m_fstr.f90.

◆ sviarray

integer(kind=kint), dimension(100) m_fstr::sviarray

SOLVER CONTROL.

Definition at line 117 of file m_fstr.f90.

◆ svrarray

real(kind=kreal), dimension(100) m_fstr::svrarray

Definition at line 118 of file m_fstr.f90.