anchor.diff:  ! Copyright (c) 2016 The University of Tokyo
   ! This software is released under the MIT License, see LICENSE.txt
   !-------------------------------------------------------------------------------
  -program fstr_main
  +
  +module m_fstr_main
   
   use hecmw
   use m_fstr
  
positive.code: use fstr_matrix_con_contact
  use m_fstr_freqdata
  
  
          implicit none
          type (hecmwST_local_mesh)              :: hecMESH,hecMESH_G
          type (hecmwST_matrix )                 :: hecMAT
  !#ifdef PARA_CONTACT
          type (hecmwST_matrix )                 :: conMAT
  !#endif
          type (fstr_solid )                     :: fstrSOLID
          type (fstrST_matrix_contact_lagrange)  :: fstrMAT
          type (fstr_heat )                      :: fstrHEAT
          type (lczparam)                        :: fstrEIG
          type (fstr_dynamic )                   :: fstrDYNAMIC
          type ( hecmwST_result_data )           :: fstrRESULT
          type (fstr_couple )                    :: fstrCPL
          type (fstr_freqanalysis)               :: fstrFREQ
          character(len=HECMW_FILENAME_LEN)     :: name_ID
  
          real(kind=kreal):: T1,T2,T3
          integer :: is_entire
  
  
negative.code:         call hecmw_finalize
          if(hecMESH%my_rank==0) write(*,*) 'FrontISTR Completed !!'
  
  end subroutine fstr_main
  
  !=============================================================================!
  !> Initializer                                                                  !
  