anchor.diff:                  end if
   
                   ! next
  -                if( fstr_ctrl_seek_next_header(ctrl) == 0) exit
  +                if( fstr_ctrl_seek_next_header(ctrl) == 0 )then
  +                    if( ictrl == 1 )then
  +                        exit
  +                    else
  +                        ierror= fstr_ctrl_close( ctrl )
  +                        ictrl = ictrl - 1
  +                        ctrl  = ctrl_list(ictrl)
  +                        if( fstr_ctrl_seek_next_header(ctrl) == 0 ) exit
  +                    endif
  +                endif
           end do
   
   ! -----
  
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:                 else if( header_name == '!ACCELERATION' ) then
                          c_acceleration = c_acceleration + 1
                          call fstr_setup_ACCELERATION( ctrl, c_eigen, P )
                  else if( header_name == '!FLOAD' ) then
                          c_fload = c_fload + 1
                          call fstr_setup_FLOAD( ctrl , c_fload, P )
  