15 subroutine pc_strupr( s )
18 integer :: i, n, a, da
21 da = iachar(
'a') - iachar(
'A')
24 if( a > iachar(
'Z'))
then
29 end subroutine pc_strupr
35 integer(kind=kint) :: ctrl
36 integer(kind=kint) :: nget
37 real(kind=kreal) :: tolerance
38 integer(kind=kint) :: maxiter
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)
This module defines common data and basic structures for analysis.