home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / EDUCATIN / PR11.LBR / PR11_C.LQR / PR11_C.LBR / OUT.C < prev    next >
Text File  |  2000-06-30  |  2KB  |  59 lines
  1. /* Copyright (C) 1985,86 Adam Fritz, 133 Main St., Afton, NY 13730 */
  2.  
  3. OUT ( A, lda, n , m )
  4.    float A[] ;
  5.    int lda, n, m ;
  6.  
  7.      /* General purpose output routine for the matrix A     */
  8.      /* which has leading dimension lda and is n by m.      */
  9.      /*                                                     */
  10.      /* J.J. Dongarra, SICE, ... (?)                        */
  11.      /* Adam Fritz, C, 2/22/85                              */
  12.  
  13. {
  14.    int          i, j, k ;
  15.    int          ic, icb, ice ;
  16.  
  17.    if ( n > 0 )
  18.    {
  19.       if ( m > 1 )
  20.       {
  21.          ic =  (m+4)/5 ;
  22.          icb = 0 ;
  23.          ice = 5 ;
  24.          for ( k = 0; k < ic; k++ )
  25.          {
  26.             if (ice > m )
  27.                ice = m ;
  28.             for ( i = 0; i < n; i++ )
  29.             {
  30.                for ( j = icb; j < ice; j++ )
  31.                   printf("%5e  ", A[i*lda+j]) ;
  32.                printf("\n") ;
  33.             } ;
  34.             icb = icb + 5 ;
  35.             ice = ice + 5 ;
  36.             printf("\n") ;
  37.          }
  38.       }
  39.       else {
  40.          ic = (n+4)/5 ;
  41.          icb = 0 ;
  42.          ice = 5 ;
  43.          for ( k = 0; k < ic; k++ )
  44.          {
  45.             if (ice > n )
  46.                ice = n ;
  47.             for ( i = icb; i < ice; i++ )
  48.                printf("%5e  ", A[i]) ;
  49.             printf("\n") ;
  50.             icb = icb + 5 ;
  51.             ice = ice + 5 ;
  52.          } ;
  53.          printf("\n") ;
  54.       }
  55.    }
  56. }
  57.  
  58. /* Copyright (C) 1985,86 Adam Fritz, 133 Main St., Afton, NY 13730 */
  59.