home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FVIEWING.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  1.3 KB  |  56 lines
  1.       interface to subroutine C_polarview[c](a, b, c, d)
  2.       real*8 a, b, c, d
  3.       end
  4.  
  5.       interface to subroutine C_up[c](a, b, c)
  6.       real*8 a, b, c
  7.       end
  8.  
  9.       interface to subroutine C_lookat[c](a, b, c, d, e, f, g)
  10.       real*8 a, b, c, d, e, f, g
  11.       end
  12.  
  13.       interface to subroutine C_perspective[c](a, b, c, d)
  14.       real*8 a, b, c, d
  15.       end
  16.  
  17.       interface to subroutine C_window[c](a, b, c, d, e, f)
  18.       real*8 a, b, c, d, e, f
  19.       end
  20.  
  21.       interface to subroutine C_ortho[c](a, b, c, d, e, f)
  22.       real*8 a, b, c, d, e, f
  23.       end
  24.  
  25.       interface to subroutine C_ortho2[c](a, b, c, d)
  26.       real*8 a, b, c, d
  27.       end
  28.  
  29.       subroutine polarview(a, b, c, d)
  30.       call C_polarview(a, b, c, d)
  31.       end
  32.  
  33.       subroutine up(a, b, c)
  34.       call C_up(a, b, c)
  35.       end
  36.  
  37.       subroutine lookat(a, b, c, d, e, f, g)
  38.       call C_lookat(a, b, c, d, e, f, g)
  39.       end
  40.  
  41.       subroutine perspective(a, b, c, d)
  42.       call C_perspective(a, b, c, d)
  43.       end
  44.  
  45.       subroutine window(a, b, c, d, e, f)
  46.       call C_window(a, b, c, d, e, f)
  47.       end
  48.  
  49.       subroutine ortho(a, b, c, d, e, f)
  50.       call C_ortho(a, b, c, d, e, f)
  51.       end
  52.  
  53.       subroutine ortho2(a, b, c, d)
  54.       call C_ortho2(a, b, c, d)
  55.       end
  56.