// file: tr_wrd_index_0.cc
//
 
// isip include files
//
#include "train_word.h"
#include "train_word_constants.h"
 
// method: set_index_cc
//
// arguments:
//  int_4 index : (input) the index
//
// return: a logical_1 indicating success
//
// this method sets the index of this word
//
logical_1 Train_Word::set_index_cc(int_4 index_a) {

  // set new index
  //
  index_d = index_a;
  
  // exit gracefully
  //
  return ISIP_TRUE;
}
