home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FMOVE.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  931 b   |  48 lines
  1.       interface to subroutine C_move[c](x, y, z)
  2.       real *8 x, y, z
  3.       end
  4.  
  5.       interface to subroutine C_move2[c](x, y)
  6.       real *8 x, y
  7.       end
  8.  
  9.       interface to subroutine C_rmove[c](x, y, z)
  10.       real *8 x, y, z
  11.       end
  12.  
  13.       interface to subroutine C_rmove2[c](x, y)
  14.       real *8 x, y
  15.       end
  16.  
  17.       interface to subroutine C_smove2[c](x, y)
  18.       real *8 x, y
  19.       end
  20.  
  21.       interface to subroutine C_rsmove2[c](x, y)
  22.       real *8 x, y
  23.       end
  24.  
  25.       subroutine move(x, y, z)
  26.       call C_move(x, y, z)
  27.       end
  28.  
  29.       subroutine move2(x, y)
  30.       call C_move2(x, y)
  31.       end
  32.  
  33.       subroutine rmove(x, y, z)
  34.       call C_rmove(x, y, z)
  35.       end
  36.  
  37.       subroutine rmove2(x, y)
  38.       call C_rmove2(x, y)
  39.       end
  40.  
  41.       subroutine smove2(x, y)
  42.       call C_smove2(x, y)
  43.       end
  44.  
  45.       subroutine rsmove2(x, y)
  46.       call C_rsmove2(x, y)
  47.       end
  48.