/* Include file for exacat.c */

#define TRUE 1
#define FALSE 0

/* Realloc fix */
#define xalloc(Loc, Bytes) \
    ((Loc) == NULL ? malloc (Bytes) : realloc ((Loc), (Bytes)))

#define MAXGRP 1000
     /* #define NULL 0 */

typedef struct datrec {
  long cumnum;
  long clustnum;
  long filenum;
  long bitpix;
  char objnam[9];
  char typobs;
  char empty[4];
  long nframes;
  long x;
  long y;
  double jd;
  struct datrec *nextobs;
} datrec;

typedef struct tobs {
  char objnam[9];
  long nframes;
  long refx;
  long refy;
  long firstobs;
  long lastobs;
  double firstjd;
  double lastjd;
  long nobs;
  char comment[49];
  char type;
} tobs;

typedef struct clust {
  long yy;
  long mm;
  long dd;
  long nfile;
  long nerror;
  char inst[3];
} clust;

int tapehdrd(int tapefiledes, unsigned char *tapebuff,
	     char (**header)[81], int *maxln, int *bitpix, int *naxes);
void julian(int mode, long *iy, long *m, double *d, double *djul);
void xhinfo(char (*header)[81], datrec *dirrec, char *comment,
	     int nend, int *datac);
void xtimestr(double realday, char *tstring);
int main(int argc, char *argv[]);