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
  use fstr_ctrl_util_f
 
contains
 
  function fstr_ctrl_get_eigen( ctrl, nget, tolerance, maxiter, sigma)
    implicit none
    integer(kind=kint) :: ctrl
    integer(kind=kint) :: nget
    real(kind=kreal) :: tolerance
    integer(kind=kint) :: maxiter
    real(kind=kreal) :: sigma
    integer(kind=kint) :: fstr_ctrl_get_eigen
 
    ! JP-16
    fstr_ctrl_get_eigen = fstr_ctrl_get_data_ex( ctrl, 1,  'Irir ',  nget, tolerance, maxiter, sigma )
 
  end function fstr_ctrl_get_eigen
 
 
  !* ----------------------------------------------------------------------------------------------- *!
end module fstr_ctrl_eigen