hecmw_solve_init.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
!
!C***
!C*** hecmw_solve_init
!C***
!
 
module m_hecmw_solve_init
 
contains
 
  subroutine hecmw_solve_init (hecMAT)
    use hecmw_util
    implicit real*8 (a-h,o-z)
    type (hecmwST_matrix)     :: hecMAT
 
    hecmat%Iarray= 0
    hecmat%Rarray= 0.d0
 
    hecmat%Iarray(1)= 100
    hecmat%Iarray(6)=  10
 
    hecmat%Rarray(1)= 1.d-8
    hecmat%Rarray(2)= 1.d0
    hecmat%Rarray(3)= 0.d0
    hecmat%Rarray(4)= 0.10d0
    hecmat%Rarray(5)= 0.10d0
 
  end subroutine hecmw_solve_init
 
end module m_hecmw_solve_init