text: /* Created RJudd                    */
  /* 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_blockrelease_uc.c,v 2.1 2006/06/08 22:19:26 judd Exp $ */
  
  #include"vsip.h"
  #include"vsip_blockattributes_uc.h"
  
  vsip_scalar_uc* (vsip_blockrelease_uc)(
    vsip_block_uc* b,
    vsip_scalar_bl update) {	
     if ((vsip_block_uc*) NULL == b) 
        return (vsip_scalar_uc*)NULL; /* return null if block is null    */
     else if (b->kind != VSIP_USER_BLOCK)
        return (vsip_scalar_uc*)NULL; /* null if block is not user block */
     else {
        b->update = update;
        b->admit = VSIP_RELEASED_BLOCK;
        return b->array;
     }
  }
  
  