/* get_atom_type.cc */#ifdef sgi    #include <stdio.h>    #include "get_atom_type.h"#else    extern "C"    {	#include <stdio.h>        #include "get_atom_type.h"    }#endifextern char *programname;extern FILE *logFile;int get_atom_type( char aname[4], 		   char chtype[ATOM_MAPS] ){    char ch, ch1;    register int i;     int type = -1;    ch1 = aname[0];    ch = (ch1 == ' ') ? aname[1] : ch1;    for ( i=0; i<ATOM_MAPS; i++) {        if (ch == chtype[i]) {            type = i;        }    }        if (type == -1) {        fprintf(stderr, "%s: Atom type error, can't find type for \"%s\" in typelist \"%s\".\n", programname, aname, chtype );    }    return (type);} /* EOF */