#include <stdio.h>
#include <descrip.h>

#include "mag_vector.h"

void veccall(istat, string, vecdat, nrec)

   int *istat;
   struct dsc$descriptor_s *string;
   struct MagVectorSet *vecdat;
   int *nrec;

{
   int j,jj;
   int veccnt;
   char c;
   char newstring[100] = "";

/* Convert Fortran character string to C character string */

   for (j = 0; j < string->dsc$w_length; ++j)
   {
      c = string->dsc$a_pointer[j];  /* extract Fortran string characters */
      if ( c != ' ' ) strcat(newstring,&c);  /* build C character string */
   }
   
/* retrieve MAG Vector records */

   *istat = rd_vec(newstring,vecdat,&veccnt);
   printf("Number of MAG Vector records is %d\n",veccnt);
   *nrec = veccnt;

/*
   j = *nrec;
   printf("C MAG Vector values, record # %d\n",*nrec);
   printf("sc clock = %8d\n", vecdat[j].sctime_readout);
   for (jj=0;jj<18;jj++) printf("%3x ", vecdat[j].vector[0][jj]);
   printf("\n");
*/

}