/* Created RJudd September 16, 2000 */
/* SPAWARSYSCEN D857                */
/**********************************************************************
// For TASP VSIPL Documentation and Code neither the United States    /
// Government, the United States Navy, nor any of their employees,    /
// makes any warranty, express or implied, including the warranties   /
// of merchantability and fitness for a particular purpose, or        /
// assumes any legal liability or responsibility for the accuracy,    /
// completeness, or usefulness of any information, apparatus,         /
// product, or process disclosed, or represents that its use would    /
// not infringe privately owned rights                                /
**********************************************************************/
/* $Id: vsip_blockadmit_li.c,v 2.1 2006/06/08 22:19:26 judd Exp $ */

#include"vsip.h"
#include"vsip_blockattributes_li.h"

int (vsip_blockadmit_li)(
  vsip_block_li* b,
  vsip_scalar_bl update) {
   int blockadmit = (int)update; /* keep update from warning since don't use */
   if ((vsip_scalar_li*)NULL == b->array) 
      blockadmit = 1;   /* fail if no data array    */
   else if (b->kind != VSIP_USER_BLOCK) 
      blockadmit = 1;   /* fail if not a user block */
   else{  
      b->admit = VSIP_ADMITTED_BLOCK; 
      blockadmit = 0;   /* return zero on success   */
   }
   return blockadmit;
}

