text: /* Created RJudd January 1, 1998 */
  /* SPAWARSYSCEN */
  /**********************************************************************
  // 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_vlle_i.c,v 2.0 2003/02/22 15:19:15 judd Exp $ */
  /* Modified RJudd March 20, 1998 */
  /* to vsip_vlle_i.c */
  /* Removed Tisdale error checking Sept 00 */
  
  #include"vsip.h"
  #include"vsip_vviewattributes_i.h"
  #include"vsip_vviewattributes_bl.h"
  
  void (vsip_vlle_i)(
    const vsip_vview_i* a,
    const vsip_vview_i* b,
    const vsip_vview_bl* r) {
      {
        /*define variables*/
        /* register */ unsigned int n = (unsigned int) r->length;
        /* register */ int ast = (int) a->stride,
                           bst = (int) b->stride,
                           rst = (int) r->stride;
        vsip_scalar_i  *ap = (a->block->array) + a->offset,
                       *bp = (b->block->array) + b->offset;
        vsip_scalar_bl *rp = (r->block->array) + r->offset;
        /*end define*/
        while(n-- > 0){
             *rp = (*ap  <= *bp);
              ap += ast; bp += bst; rp += rst;
        }
      }
  }
  