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

#include "mag_avgvec.h"

void avgveccall(istat, string, avgvecdat, nrec)

   int *istat;
   struct dsc$descriptor_s *string;
   struct MagAvgVec *avgvecdat;
   int *nrec;

{
   int j,jj;
   int avgveccnt;
   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 Average Vector records */

   *istat = rd_magavgvec(newstring,avgvecdat,&avgveccnt);
   if ( *istat < 0 ) {
      printf("AVGVECCALL: No MAG AVG Vector data");
      *nrec = 0;
      return;
   }
   printf("Number of MAG Average Vector records is %d\n",avgveccnt);
   *nrec = avgveccnt;

/*
   j = *nrec;
   printf("C MAG Average Vector values, record # %d\n",*nrec);
   printf("sc clock = %8d\n", avgvecdat[j].sctime_readout);
   printf("\n");
*/

}