#include <string.h>
#include "OpSySInD.h"

#include "UDFCDF_Ansi.h"
#include "UDFCDF_Str.h"
#include "UDFCDF_Defs.h"

void CDFVarCnt (ByTe_4 *Var)
{
   extern struct UserDefs InFo;

   struct SrcInfo *S;

   register ByTe_2 *s1, *sEnD; 

   Var[0] = 0;                                      /* initialize rVar       */
   Var[1] = 0;                                      /* initialize zVar       */
   Var[2] = 30;                                     /* initialize gAtt       */
   Var[3] = 25;                                     /* initialize vAtt       */
   Var[4] = 0;                                      /* initialize nDims      */
   Var[5] = 0;                                      /* initialize Recs       */

   Var[1] = InFo.EmptySrc + 3;                      /* variables             */

   s1 = (ByTe_2 *) InFo.SOrder;                     /* flags here            */
   sEnD = s1 + InFo.EmptySrc;                       /* end of flags here     */
   while (s1 < sEnD)                                /* do all sources        */
   {                                                /* BEG SOURCE LOOP       */
      S = (struct SrcInfo *)InFo.Src + *s1++;       /* source here           */
      if (S->SType != 2)                            /* Non-Scalar Data       */
      {                                             /* BEG NON SCALAR        */
         Var[3] += 1;                               /* DEPEND_1              */
         Var[1] += 3;                               /* THREE SCANS           */
         break;                                     /* only count once       */
      }                                             /* END NON SCALAR        */
   }                                                /* END SOURCE LOOP       */

   s1 = (ByTe_2 *) InFo.SOrder;                     /* flags here            */
   while (s1 < sEnD)                                /* do all sources        */
   {                                                /* BEG SOURCE LOOP       */
      S = (struct SrcInfo *)InFo.Src + *s1++;       /* source here           */
      if (S->AddPh == 1)                            /* Phase Data            */
         Var[1] += 2;                               /* THREE SCANS           */
   }                                                /* END SOURCE LOOP       */
}