void Y__not_pdb(int nArgs)
{
IOStream *file;
int familyOK, notOK;
if (nArgs!=2) YError("_not_pdb takes exactly two arguments");
file= yarg_file(1);
familyOK= (int)YGetInteger(sp);
if (!pdb_open) pdb_open= Globalize("yPDBopen", 0L);
if (globTab[pdb_open].ops!=&longScalar &&
globTab[pdb_open].ops!=&intScalar)
YError("yPDBopen variable must be an int or long scalar");
yPDBopen= (int)YGetInteger(&globTab[pdb_open]);
notOK= YtestPDB(file, familyOK);
if (notOK>1) {
YWarning("file is open as a PDB file, but partially broken");
notOK= 0;
} else if (notOK==1) {
/* check for a Clog file if it didn't have a PDB header */
notOK= CLopen(file, familyOK);
}
PushIntValue(notOK);
PopTo(sp-3);
Drop(2);
}
F_STRING_ARG(msg, len)
{
char mess[128];
if (len>127) len= 127;
CopyFortranString(msg, mess, len);
YWarning(mess);
}
