home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / r / rlab / CTB / xhpart < prev    next >
Encoding:
Text File  |  1995-11-15  |  328 b   |  20 lines
  1. //-------------------------------------------------------
  2. //
  3. // [AH] = xhpart(A,nu,nz,nc)
  4. //
  5. // Returns the corresponding "H" partition from A
  6. //
  7. // L.D. Peterson
  8. // version 900305
  9. //
  10. //-------------------------------------------------------
  11.  
  12. xhpart = function(A,nu,nz,nc)
  13. {
  14.    local(AH)
  15.  
  16.    AH = A[1:nu;1:nz];
  17.  
  18.    return AH
  19. };
  20.