home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FPOINTS.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  313 b   |  16 lines
  1.       interface to subroutine C_point[c](x, y, z)
  2.       real *8 x, y, z
  3.       end
  4.  
  5.       interface to subroutine C_point2[c](x, y)
  6.       real *8 x, y
  7.       end
  8.  
  9.       subroutine point(x, y, z)
  10.       call C_point(x, y, z)
  11.       end
  12.  
  13.       subroutine point2(x, y)
  14.       call C_point2(x, y)
  15.       end
  16.