home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FVIEWP.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  697 b   |  32 lines
  1.       interface to subroutine C_pushviewport[c]()
  2.       end
  3.  
  4.       interface to subroutine C_popviewport[c]()
  5.       end
  6.  
  7.       interface to subroutine C_viewport[c](a, b, c, d)
  8.       real *8 a, b, c, d
  9.       end
  10.  
  11.       interface to subroutine C_getviewport[c](
  12.      +a[reference], b[reference], c[reference], d[reference])
  13.       real a, b, c, d
  14.       end
  15.       
  16.       subroutine pushviewport
  17.       call C_pushviewport
  18.       end
  19.  
  20.       subroutine popviewport
  21.       call C_popviewport
  22.       end
  23.  
  24.       subroutine viewport(a, b, c, d)
  25.       call C_viewport(a, b, c, d)
  26.       end
  27.  
  28.       subroutine getviewport(a, b, c, d)
  29.       call C_getviewport(a, b, c, d)
  30.       end
  31.  
  32.