wrfv2_fire/chem/KPP/util/wkc/kpp_data.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <strings.h>
   5
   6 #include "registry.h"
   7 #include "protos.h"
   8 #include "protos_kpp.h"
   9 #include "data.h"
  10 #include "kpp_data.h"
  11
  12
  13 knode_t *
  14 new_knode ( int * kind )
  15 { knode_t *p ; p = (knode_t *)malloc(sizeof(knode_t)) ; bzero(p,sizeof(knode_t)); return (p) ; }
  16
  17 int
  18 add_knode_to_end ( knode_t * knode , knode_t ** list )
  19 {
  20   knode_t * p ;
  21   if ( *list == NULL )
  22     { *list = knode ; }
  23   else
  24   {
  25     for ( p = *list ; p->next != NULL ; p = p->next ) ;
  26     p->next = knode ;
  27   }
  28   return(0) ;
  29 }
  30
  31
  32