home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FGETGP.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  636 b   |  26 lines
  1.       interface to subroutine C_getgp[c](x[reference],
  2.      +                              y[reference],
  3.      +                              z[reference])
  4.       end
  5.  
  6.       interface to subroutine C_getgp2[c](x[reference],
  7.      +                               y[reference])
  8.       end
  9.  
  10.       interface to subroutine C_sgetgp2[c](x[reference],
  11.      +                                y[reference])
  12.       end
  13.  
  14.       subroutine getgp(x, y, z)
  15.       call C_getgp(x, y, z)
  16.       end
  17.  
  18.       subroutine getgp2(x, y)
  19.       call C_getgp2(x, y)
  20.       end
  21.  
  22.       subroutine sgetgp2(x, y)
  23.       call C_sgetgp2(x, y)
  24.       end
  25.  
  26.