FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
fstr_ctrl_eigen.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
6
8 use m_fstr
9 use hecmw
10 include 'fstr_ctrl_util_f.inc'
11
12 private :: pc_strupr
13contains
14
15 subroutine pc_strupr( s )
16 implicit none
17 character(*) :: s
18 integer :: i, n, a, da
19
20 n = len_trim(s)
21 da = iachar('a') - iachar('A')
22 do i = 1, n
23 a = iachar(s(i:i))
24 if( a > iachar('Z')) then
25 a = a - da
26 s(i:i) = achar(a)
27 end if
28 end do
29 end subroutine pc_strupr
30
31
33 function fstr_ctrl_get_eigen( ctrl, nget, tolerance, maxiter)
34 implicit none
35 integer(kind=kint) :: ctrl
36 integer(kind=kint) :: nget
37 real(kind=kreal) :: tolerance
38 integer(kind=kint) :: maxiter
39 integer(kind=kint) :: fstr_ctrl_get_eigen
40
41 ! JP-16
42 fstr_ctrl_get_eigen = fstr_ctrl_get_data_ex( ctrl, 1, 'Iri ', nget, tolerance, maxiter )
43
44 end function fstr_ctrl_get_eigen
45
46
47 !* ----------------------------------------------------------------------------------------------- *!
48end module fstr_ctrl_eigen
49
int fstr_ctrl_get_data_ex(int *ctrl, int *line_no, const char *format,...)
This module contains control file data obtaining functions for dynamic analysis.
integer(kind=kint) function fstr_ctrl_get_eigen(ctrl, nget, tolerance, maxiter)
Read in !EIGEN (struct)
Definition: hecmw.f90:6
This module defined coomon data and basic structures for analysis.
Definition: m_fstr.f90:15