Subversion Repositories Open64

[/] [branches/] [OpenUH/] [osprey/] [libcaf/] [caf_rtl.c] - Diff between revs 3879 and 3892

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 3879 Rev 3892
Line 794... Line 794... 
{
 
{
 
    int i, is_contig = 1;
 
    int i, is_contig = 1;
 
 
 
 
 
    /* runtime check if it is contiguous transfer */
 
    /* runtime check if it is contiguous transfer */
 
    for (i = 1; i < ndim; i++) {
 
    for (i = 1; i < ndim; i++) {
 
      if (src_str_mults[i] != (src_strides[i-1]*src_extents[i-1])) {
 
      if (src_str_mults[i] != (src_str_mults[i-1]*src_extents[i-1])) {
 
        is_contig = 0;
 
        is_contig = 0;
 
        break;
 
        break;
 
      }
 
      }
 
    }
 
    }