// file: tr_tok_set_0.cc
//

// isip include files
//
#include "train_token.h"
#include "train_token_constants.h"
 
// method: set_state_cc
//
// arguments:
//  int_4 state : (input) the state index
//
// return: a logical_1 indicating success
//
// this method sets the current state index
//
logical_1 Train_Token::set_state_cc(int_4 state_a) {

  // set state index value
  //
  state_d = state_a;

  // exit gracefully
  //
  return ISIP_TRUE;
}
