home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / FTRANS.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  530 b   |  27 lines
  1.       interface to subroutine C_translate[c](x, y, z)
  2.       real *8 x, y, z
  3.       end
  4.  
  5.       interface to subroutine C_scale[c](x, y, z)
  6.       real *8 x, y, z
  7.       end
  8.  
  9.       interface to subroutine C_rotate[c](x, a)
  10.       real *8 x
  11.       character *1 a
  12.       end
  13.  
  14.       subroutine translate(x, y, z)
  15.       call C_translate(x, y, z)
  16.       end
  17.  
  18.       subroutine scale(x, y, z)
  19.       call C_scale(x, y, z)
  20.       end
  21.  
  22.       subroutine rotate(x, a)
  23.       character *1 a
  24.       call C_rotate(x, a)
  25.       end
  26.  
  27.