PRIVATE void rd_1dim_slice(int *array, int dim, int shift, int post){
char *cp;
cp = get_array1(array+shift, dim-shift-post);
if (cp) {
fprintf(stderr,"\nrd_1dim: %s\n", cp);
exit(1);
}
return;
}
PRIVATE void rd_loop(int loop[31])
{
char *cp;
cp = get_array1(loop, 31);
if (cp) {
fprintf(stderr,"\nrd_loop: %s\n", cp);
exit(1);
}
return;
}
PRIVATE void rd_stacks(int stacks[NBPAIRS+1][NBPAIRS+1])
{
int i;
char *cp;
for (i=1; i<=NBPAIRS; i++) {
cp = get_array1(stacks[i]+1,NBPAIRS);
if (cp) {
fprintf(stderr,"\nrd_stacks: %s\n", cp);
exit(1);
}
}
return;
}
/*------------------------------------------------------------*/
PRIVATE void rd_dangle(int dangle[NBPAIRS+1][5])
{
int i;
char *cp;
for (i=0; i< NBPAIRS+1; i++) {
cp = get_array1(dangle[i],5);
if (cp) {
fprintf(stderr,"\nrd_dangle: %s\n", cp);
exit(1);
}
}
return;
}
PRIVATE void rd_ninio(void)
{
char *cp;
int temp[2];
cp = get_array1(temp, 2);
if (cp) {
fprintf(stderr,"rd_F_ninio: %s\n", cp);
exit(1);
}
F_ninio37[2] = temp[0];
MAX_NINIO = temp[1];
return;
}
PRIVATE void rd_misc(void)
{
char *cp;
int values[1]; /* so far just one */
cp = get_array1(values,1);
if (cp) {
fprintf(stderr,"rd_misc: %s\n", cp);
exit(1);
}
DuplexInit = values[0];
return;
}
PRIVATE void rd_mismatch(int mismatch[NBPAIRS+1][5][5])
{
char *cp;
int i;
for (i=1; i<NBPAIRS+1; i++) {
cp = get_array1(mismatch[i][0],5*5);
if (cp) {
fprintf(stderr, "rd_mismatch: in field mismatch[%d]\n\t%s\n", i, cp);
exit(1);
}
}
return;
}
/*------------------------------------------------------------*/
PRIVATE void rd_int11(int int11[NBPAIRS+1][NBPAIRS+1][5][5])
{
char *cp;
int i, j;
for (i=1; i<NBPAIRS+1; i++) {
for (j=1; j<NBPAIRS+1; j++) {
cp = get_array1(int11[i][j][0],5*5);
if (cp) {
fprintf(stderr, "rd_int11: in field int11[%d][%d]\n\t%s\n", i, j, cp);
exit(1);
}
}
}
return;
}
/*------------------------------------------------------------*/
PRIVATE void rd_MLparams(void)
{
char *cp;
int values[4];
cp = get_array1(values,4);
if (cp) {
fprintf(stderr,"rd_MLparams: %s\n", cp);
exit(1);
}
ML_BASE37 = values[0];
ML_closing37 = values[1];
ML_intern37 = values[2];
TerminalAU = values[3];
return;
}
/*------------------------------------------------------------*/
PRIVATE void rd_int22(int int22[NBPAIRS+1][NBPAIRS+1][5][5][5][5])
{
char *cp;
int i, j, k, l, m;
for (i=1; i<NBPAIRS+1; i++)
for (j=1; j<NBPAIRS+1; j++)
for (k=1; k<5; k++)
for (l=1; l<5; l++)
for (m=1; m<5; m++) {
cp = get_array1(int22[i][j][k][l][m]+1,4);
if (cp) {
fprintf(stderr, "rd_int22: in field "
"int22[%d][%d][%d][%d][%d]\n\t%s\n",
i, j, k, l, m, cp);
exit(1);
}
}
return;
}
