/* File to invoke the cifparser for reading variables */
#include <stdio.h>
#include "cifvars.h"     /* created automatically */
extern FILE *yyin;
extern int yydebug;
char blockname[80];      /* name of data block */
char wantfile[80];
void cifsiv_(char *filename, char *wantblock, cifcmnstr *tohere, int filelen, int blocklen)  
{
strncpy(wantfile,filename,filelen);
wantfile[filelen] = 0x00;
if((yyin = fopen(wantfile,"r")) == NULL)
    {
    printf("Cannot open file %s; Aborting\n",wantfile);
    return;
    }
strncpy(blockname,"data_",6);
strncat(blockname,wantblock,blocklen);
blockname[blocklen+6] = 0x00;
cifcmnptr = tohere;
blockname[79] = 0x00;   /* terminate string for safety */
/* printf("Target blockname: %s, length %d\n",blockname,strlen(blockname));*/
/*yydebug = 1;*/
yyparse();
}