home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FRECT.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  169 b   |  8 lines
  1.       interface to subroutine C_rect[c](a, b, c, d)
  2.       real *8 a, b, c, d
  3.       end
  4.  
  5.       subroutine rect(a, b, c, d)
  6.       call C_rect(a, b, c, d)
  7.       end
  8.