home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FMATRIX.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  808 b   |  41 lines
  1.       interface to subroutine C_pushmatrix[c]()
  2.       end
  3.  
  4.       interface to subroutine C_popmatrix[c]()
  5.       end
  6.  
  7.       interface to subroutine C_multmatrix[c](m[reference])
  8.       real m(1,1)
  9.       end
  10.  
  11.       interface to subroutine C_getmatrix[c](m[reference])
  12.       real m(1,1)
  13.       end
  14.  
  15.       interface to subroutine C_loadmatrix[c](m[reference])
  16.       real m(1,1)
  17.       end
  18.  
  19.       subroutine pushmatrix
  20.       call C_pushmatrix
  21.       end
  22.  
  23.       subroutine popmatrix
  24.       call C_popmatrix
  25.       end
  26.  
  27.       subroutine multmatrix(m)
  28.       real m(4, 4)
  29.       call C_multmatrix(m)
  30.       end
  31.  
  32.       subroutine getmatrix(m)
  33.       real m(4, 4)
  34.       call C_getmatrix(m)
  35.       end
  36.  
  37.       subroutine loadmatrix(m)
  38.       real m(4, 4)
  39.       call C_loadmatrix(m)
  40.       end
  41.