RALICE/icepack/iceconvert/rdmc_mevt_special.c

   1
   2 /********implements functions for the mevt_special structure *********/
   3
   4 #include <string.h>
   5
   6 #include "rdmc.h"
   7
   8 void rdmc_init_mevt_special(mevt_special_t *s, int ntoken){
   9   register int i,imax=RDMC_MAXTOKEN_PER_LINE;
  10   s->id = RDMC_NA;
  11   s->nval = 0;
  12   if ((ntoken >= 0) &&  (ntoken < RDMC_MAXTOKEN_PER_LINE) )
  13     imax=ntoken;
  14   for (i=0 ; i< imax ; i++)
  15     s->val[i]=RDMC_NA;
  16   return;
  17 }
  18
  19 void rdmc_clear_mevt_special(mevt_special_t *s, int ntoken){
  20   rdmc_free_mevt_special(s);
  21   rdmc_init_mevt_special(s,ntoken);
  22 }
  23
  24 void rdmc_free_mevt_special(mevt_special_t *s){
  25 }
  26
  27
  28 void rdmc_cp_mevt_special(mevt_special_t *out ,mevt_special_t  *in){
  29   int nv;
  30   if ((in == NULL) || (out == NULL) || (in == out))
  31     return;
  32   out->id = in->id;
  33   out->nval= in->nval;
  34   nv = (in->nval <= RDMC_MAXTOKEN_PER_LINE )
  35     ? in->nval : RDMC_MAXTOKEN_PER_LINE;
  36   if (nv > 0){
  37     memcpy(out-> val,in->val,nv*sizeof(float));
  38     out->nval= nv;
  39   }else {
  40     out->nval= 0;
  41   }
  42   return;
  43 }