anchor.diff:  subroutine fstr_setup( cntl_filename, hecMESH, fstrPARAM,  &
           fstrSOLID, fstrEIG, fstrHEAT, fstrDYNAMIC, fstrCPL, fstrFREQ )
           use mMaterial
  -        character(len=HECMW_FILENAME_LEN) :: cntl_filename
  +        character(len=HECMW_FILENAME_LEN) :: cntl_filename, input_filename
           type(hecmwST_local_mesh),target :: hecMESH
           type(fstr_param),target   :: fstrPARAM
           type(fstr_solid),target   :: fstrSOLID
  
positive.code:         c_istep    = 0; c_localcoord = 0
          c_fload    = 0; c_eigenread = 0
  
          ctrl = fstr_ctrl_open( cntl_filename)
          if( ctrl < 0 ) then
                  write(*,*) '### Error: Cannot open FSTR control file : ', cntl_filename
                  write(ILOG,*) '### Error: Cannot open FSTR control file : ', cntl_filename
  
negative.code:         type(fstr_couple),target  :: fstrCPL
          type(fstr_freqanalysis), target :: fstrFREQ
  
          integer(kind=kint) :: ctrl, ctrl_list(20), ictrl
          type(fstr_param_pack) :: P
  
          integer, parameter :: MAXOUTFILE = 10
  