home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 2.ddi / SRC.DI$ / MATTEST4.F < prev    next >
Encoding:
Text File  |  1993-03-26  |  579 b   |  24 lines
  1. c
  2. c    MATTEST4
  3. c
  4. c    Simple program that illustrates how to call the MAT-file Library
  5. c    from a Fortran program.  
  6. c
  7. c    The example reads the Matrix 'A' from one MAT-file and writes it 
  8. c    out to another.
  9. c
  10.       program main
  11.       integer matOpen, matClose, matPutFull, matGetFull
  12.       integer fp1, fp2, stat
  13.       integer m, n, pr, pi
  14. c
  15.       fp1 = matOpen('foo.mat', 'r')
  16.       fp2 = matOpen('foo1.mat', 'w')
  17.       stat = matGetFull(fp1, 'A', m, n, pr, pi)
  18.       stat = matPutFull(fp2, 'A', m, n, pr, pi)
  19.       stat = matClose(fp1)
  20.       stat = matClose(fp2)
  21. c
  22.       stop
  23.       end
  24.