anchor.diff:          c_istep    = 0; c_localcoord = 0
           c_fload    = 0; c_eigenread = 0
   
  -        ctrl = fstr_ctrl_open( cntl_filename)
  +        ctrl_list = 0
  +        ictrl = 1
  +        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
  
positive.code:         type(fstr_couple),target  :: fstrCPL
          type(fstr_freqanalysis), target :: fstrFREQ
  
          integer(kind=kint) :: ctrl
          type(fstr_param_pack) :: P
  
          integer, parameter :: MAXOUTFILE = 10
  
negative.code: subroutine fstr_setup( cntl_filename, hecMESH, fstrPARAM,  &
          fstrSOLID, fstrEIG, fstrHEAT, fstrDYNAMIC, fstrCPL, fstrFREQ )
          use mMaterial
          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
  