#ifndef _SCRIPTS_H
#define _SCRIPTS_H

#include "charString.h"
#include "arrays.h"
#include "iohelp.h"

// ******************************************************
//
//  This program makes C-shell script files which run
//
//       pot_two_exp_fit_run
//
//  on one of the SU(2) data sets for one channel--one level.
//  The location of the refined data files is hardwired into
//  the program.  Also, the file containing the fitting
//  ranges is also hardwired into the program, so these
//  files better exist.
//
//  Input:    (a) one choice of data set
//            (b) one choice for symmetry channel
//            (c) one choice for level in that channel
//
//  All appropriate quark-antiquark orientations in the
//  two_exp_fit_ranges.dat file will be processed.
//
//  Fitting range file specification:
//
//     For each data set, there should be ONE file
//     named "two_exp_fit_ranges.dat"
//
//     Each line in this file should look like
//      channel level     R     t_start  t_stop
//         Sg     1    (3,0,0)     1       11
//
//  If the line contains the symbol '*', that line is ignored.
//  If the line contains the symbol '!', reoptimiziation using 4/0 is performed.
//
//  The following assumptions concerning the quark-antiquark
//  orientations are made:
//              on-axis   (R,0,0)  ->  index R     orientation = 0
//      planar-diagonal   (R,R,0)  ->  index R     orientation = 1
//       cubic-diagonal   (R,R,R)  ->  index R     orientation = 2
//
// *****************************************************

  // global variables
  
extern int Nirreps;
extern Svector labels;

// *************************************************************************

   // This routine reads the next line from "istream" and checks
   // to see if the line involves the channel and level given as
   // input; it also check to see if the orientation is the one
   // being requested.  If so, it return 0 and values of 
   // Rindex, tstart, tstop in the subroutine arguments. If not,
   // unity is returned.

int parse_next_line(istream& in, int channel, int level, int orientation,
                    int Nspace_dim, int& Rindex, int& tstart, int& tstop,
                    int& reoptimize_flag, int& omit_flag, int block_scale);

// ****************************************************************

  //  linked list for R-indices

struct node
{
 int value;
 node *next;
};

extern node *head;
extern node *tail;

void add_node(int Rindex);

void delete_nodes();

// ****************************************************************

#endif