/* nxtchr.f -- translated by f2c (version of 3 February 1990  3:36:42).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/* Common Block Declarations */

struct {
    doublereal achar, afield[15], oldlin[15];
    integer kntrc, kntlim;
} line_;

#define line_1 line_

/* Table of constant values */

static integer c__1 = 1;

/*<       integer function nxtchr(int) >*/
integer nxtchr_(int_)
integer *int_;
{
    /* Initialized data */

    static struct {
	char e_1[40];
	doublereal e_2;
	} equiv_5 = { {' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ',', ' ', ' ', 
		' ', ' ', ' ', ' ', ' ', '=', ' ', ' ', ' ', ' ', ' ', ' ', 
		' ', '(', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ')', ' ', ' ', 
		' ', ' ', ' ', ' ', ' '}, 0. };

#define adelim ((doublereal *)&equiv_5)

    static struct {
	char e_1[8];
	doublereal e_2;
	} equiv_6 = { {' ', ' ', ' ', ' ', ' ', ' ', ' ', ' '}, 0. };

#define ablnk (*(doublereal *)&equiv_6)


    /* System generated locals */
    integer ret_val;

    /* Local variables */
    extern /* Subroutine */ int move_();
    static integer i;

/*<       implicit double precision (a-h,o-z) >*/

/*     this routine advances the current line scan pointer one column */
/*     and checks whether or not the next character is a delimiter */

/* spice version 2g.6  sccsid=line 3/15/83 */
/*<       common /line/ achar,afield(15),oldlin(15),kntrc,kntlim >*/

/*<       dimension adelim(5) >*/
/*<       data adelim / 1h , 1h,, 1h=, 1h(, 1h) / >*/
/*<       data ablnk / 1h  / >*/
/*<       data ichar /0/ >*/

/*  advance scan pointer (kntrc) */

/*<       kntrc=kntrc+1 >*/
    ++line_1.kntrc;
/*<       if (kntrc.gt.kntlim) go to 30 >*/
    if (line_1.kntrc > line_1.kntlim) {
	goto L30;
    }
/*<       call move(achar,1,afield,kntrc,1) >*/
    move_(&line_1.achar, &c__1, line_1.afield, &line_1.kntrc, &c__1);
/*<     5 do 10 i=1,5 >*/
/* L5: */
    for (i = 1; i <= 5; ++i) {
/*<       if (achar.eq.adelim(i)) go to 20 >*/
	if (line_1.achar == adelim[i - 1]) {
	    goto L20;
	}
/*<    10 continue >*/
/* L10: */
    }

/*  non-delimiter */

/*<       nxtchr=1 >*/
    ret_val = 1;
/*<       return >*/
    return ret_val;

/*  delimiter */

/*<    20 nxtchr=0 >*/
L20:
    ret_val = 0;
/*<       return >*/
    return ret_val;

/*  end-of-line */

/*<    30 nxtchr=-1 >*/
L30:
    ret_val = -1;
/*<       achar=ablnk >*/
    line_1.achar = ablnk;
/*<       return >*/
    return ret_val;
/*<       end >*/
} /* nxtchr_ */

#undef ablnk
#undef adelim


