// file: tr_wrd_active_0.cc
//
 
// isip include files
//
#include "train_word.h"
#include "train_word_constants.h"
 
// method: set_active_cc
//
// arguments:
//  logical_1 status : (input) the status value
//
// return: a logical_1 indicating success
//
// this method sets the active of this word
//
logical_1 Train_Word::set_active_cc(logical_1 status_a) {

  // set new status
  //
  active_d = status_a;
  
  // exit gracefully
  //
  return ISIP_TRUE;
}
