cread.c

Go to the documentation of this file.

#include "bufrlib.h"
#include "cread.h"

void openrb   (nfile,ufile) f77int *nfile; char *ufile; { pb[*nfile] = fopen( ufile , "rb " ); }

void openwb   (nfile,ufile) f77int *nfile; char *ufile; { pb[*nfile] = fopen( ufile , "wb " ); }

void openab   (nfile,ufile) f77int *nfile; char *ufile; { pb[*nfile] = fopen( ufile , "a+b" ); }

void backbufr (nfile      ) f77int *nfile;              { fsetpos(pb[*nfile],&lstpos[*nfile]);}

void cewind   (nfile      ) f77int *nfile;              { rewind(pb[*nfile]); }

void closfb   (nfile      ) f77int *nfile;              { fclose(pb[*nfile]); }

f77int crdbufr (nfile,bufr,mxbyt)
f77int *nfile; f77int *mxbyt; char *bufr;
{  f77int  nbyt; f77int  nb; f77int wkint[2]; fpos_t nxtpos;
   fgetpos(pb[*nfile],&lstpos[*nfile]);
   nb = sizeof(*bufr); bufr[0]=bufr[1];
   while ( strncmp(bufr,"BUFR",4)!=0)
   {  memmove(bufr,&bufr[1],3);
      if(fread(bufr+3,nb,1,pb[*nfile])!=1) return -1;
   }
   fgetpos(pb[*nfile],&nxtpos); if(fread(bufr+4,nb,4,pb[*nfile])!=4) return -1;
   memcpy(wkint,bufr,8); nbyt=iupbs01(wkint,"LENM",4)-8;
   if(nbyt+8>*mxbyt)                           {fsetpos(pb[*nfile],&nxtpos);return -3;};
   if(fread(bufr+8,nb,nbyt,pb[*nfile])!=nbyt)  {fsetpos(pb[*nfile],&nxtpos);return -2;};
   if(strncmp(bufr+nbyt+4,"7777",4)!=0)        {fsetpos(pb[*nfile],&nxtpos);return -2;};
   return 0;
}

void cwrbufr (nfile,bufr,nwrd) 
f77int *nfile; f77int *nwrd; f77int  *bufr;
{  f77int  nb; nb = sizeof(*bufr);
   fwrite(bufr,nb,*nwrd,pb[*nfile]);
}