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:                 else if( header_name == '!ACCELERATION' ) then
                          c_acceleration = c_acceleration + 1
                          call fstr_setup_ACCELERATION( ctrl, c_eigen, P )
  
                  !--------------- for dynamic -------------------------
                  else if( header_name == '!FLOAD' ) then
                          c_fload = c_fload + 1
                          call fstr_setup_FLOAD( ctrl , c_fload, P )
  
negative.code:                 end if
  
                  ! next
                  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
  
  ! -----
  