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

#include "sunpulsetime.h"

void sunpulsecall(istat, string, sunpulsedat, nrec)

   int *istat;
   struct dsc$descriptor_s *string;
   struct ACEsunpulsetime *sunpulsedat;
   int *nrec;

{
   int j;
   int sunpulsecnt;
   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 Spacecraft housekeeping records */

   *istat = rd_sunpulse(newstring,sunpulsedat,&sunpulsecnt);
   printf("Number of Sun pulse records is %d\n",sunpulsecnt);
   *nrec = sunpulsecnt;
}