#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>

main(int argc, char *argv[])

{ FILE *ifp, *ofp;
  char  hold;

  union swp
    { char     b[12];
      long int val[3];
      float    rval[3];
    } buff;

  unsigned long int rec[3];  /* Record values */
  long int rows;
  int i,j,k;
  char *rem;

  if (argc != 4)
    { fprintf (stderr,"Usage: mktab file rec-count outfile\n");
      exit(0);
    }

  if ((ifp = fopen(argv[1],"rb")) == NULL)
    { fprintf (stderr,"Unable to open %s for reading (%s)\n",
               argv[1],strerror(errno));
      exit(100);
    }

  if ((ofp = fopen(argv[3],"w")) == NULL)
    { fprintf (stderr,"Unable to opn %s for writing (%s)\n",
               argv[3],strerror(errno));
      exit (101);
    }

  rows = strtol(argv[2],&rem,10);

  for (i=0; i<rows; i++)
    { fread((void *)(buff.b),12,1,ifp);

      hold = buff.b[0];
      buff.b[0] = buff.b[3];
      buff.b[3] = hold;
      hold = buff.b[1];
      buff.b[1] = buff.b[2];
      buff.b[2] = hold;

      hold = buff.b[4];
      buff.b[4] = buff.b[7];
      buff.b[7] = hold;
      hold = buff.b[5];
      buff.b[5] = buff.b[6];
      buff.b[6] = hold;

      hold = buff.b[8];
      buff.b[8] = buff.b[11];
      buff.b[11] = hold;
      hold = buff.b[9];
      buff.b[9] = buff.b[10];
      buff.b[10] = hold;      

      fprintf(ofp,"%15d %15d %15d\n",buff.val[0],buff.val[1],buff.val[2]);
    }

  close(ifp);
  close(ofp);

  exit(0);
}