home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / SRC / MSFORT / FARCS.FOR < prev    next >
Text File  |  2000-02-11  |  867b  |  40 lines
  1.       interface to subroutine C_arc[c](x, y, r, s, e)
  2.       real *8 x, y, r, s, e
  3.       end
  4.  
  5.       interface to subroutine C_sector[c](x, y, r, s, e)
  6.       real *8 x, y, r, s, e
  7.       end
  8.  
  9.       interface to subroutine C_circle[c](x, y, r)
  10.       real *8 x, y, r
  11.       end
  12.  
  13.       interface to subroutine C_arcprecision[c](n)
  14.       integer *2 n
  15.       end
  16.  
  17.       interface to subroutine C_circleprecision[c](n)
  18.       integer *2 n
  19.       end
  20.  
  21.       subroutine arc(x, y, r, s, e)
  22.       call C_arc(x, y, r, s, e)
  23.       end
  24.  
  25.       subroutine sector(x, y, r, s, e)
  26.       call C_sector(x, y, r, s, e)
  27.       end
  28.  
  29.       subroutine circle(x, y, r)
  30.       call C_circle(x, y, r)
  31.       end
  32.  
  33.       subroutine arcprecision(n)
  34.       call C_arcprecision(n)
  35.       end
  36.  
  37.       subroutine circleprecision(n)
  38.       call C_circleprecision(n)
  39.       end
  40.