#include "utility.h"
#include "newgeo.h"

int read_geo(geo_type,raw_file_name)
/*============================================================================*/
/* PURPOSE: READ IN A GEOMETRY FROM A FILE.
/* WRITTEN: JOHN R. HURST
/* MODIFICATIONS:
/*	12 OCT 1993 MVG: ADDED GENERIC CARTESIAN COORDS FILE CAPABILITY.
/*	29 JUL 1992 MVG: ADDED SPARTAN .ARC FILE CAPABILITY.
*/
  int geo_type;		/* TYPE OF GEOMETRY. */
  char raw_file_name[];	/* RAW FILENAME AS ENTERED BY USER. */
  {
  int natom;		/* LOOP INDEX; WHICH ATOM. */
  int nintcoord;	/* LOOP INDEX; WHICH INTERNAL COORDINATE. */
  int status;
  int data_read;

  void exit();

  /* ERASE ANY OLD GEOMETRY THAT MAY BE LYING AROUND. */
  memset(intco,0,sizeof intco);
  for (natom=0; natom