fstr_ctrl_eigen.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
module fstr_ctrl_eigen
  use m_fstr
  use hecmw
  include 'fstr_ctrl_util_f.inc'
 
  private :: pc_strupr
contains
 
  subroutine pc_strupr( s )
    implicit none
    character(*) :: s
    integer :: i, n, a, da
 
    n = len_trim(s)
    da = iachar('a') - iachar('A')
    do i = 1, n
      a = iachar(s(i:i))
      if( a > iachar('Z')) then
        a = a - da
        s(i:i) = achar(a)
      end if
    end do
  end subroutine pc_strupr
 
 
  function fstr_ctrl_get_eigen( ctrl, nget, tolerance, maxiter)
    implicit none
    integer(kind=kint) :: ctrl
    integer(kind=kint) :: nget
    real(kind=kreal) :: tolerance
    integer(kind=kint) :: maxiter
    integer(kind=kint) :: fstr_ctrl_get_eigen
 
    ! JP-16
    fstr_ctrl_get_eigen = fstr_ctrl_get_data_ex( ctrl, 1,  'Iri ',  nget, tolerance, maxiter )
 
  end function fstr_ctrl_get_eigen
 
 
  !* ----------------------------------------------------------------------------------------------- *!
end module fstr_ctrl_eigen