home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / SRC / MSFORT / FPATCHES.FOR < prev    next >
Encoding:
Text File  |  2000-02-11  |  1.5 KB  |  49 lines
  1.       interface to subroutine C_patchbasis[c](
  2.      + b1[reference], b2[reference])
  3.       real b1(1, 1), b2(1, 1)
  4.       end
  5.  
  6.       interface to subroutine C_patchprecision[c](n1, n2)
  7.       integer *2 n1, n2
  8.       end
  9.  
  10.       interface to subroutine C_patchcurves[c](n1, n2)
  11.       integer *2 n1, n2
  12.       end
  13.  
  14.       interface to subroutine C_rpatch[c](geomx[reference],
  15.      +                                    geomy[reference],
  16.      +                                    geomz[reference],
  17.      +                                    geomw[reference])
  18.       real geomx(1, 1), geomy(1, 1), geomz(1, 1), geomw(1, 1)
  19.       end
  20.  
  21.       interface to subroutine C_patch[c](geomx[reference],
  22.      +                                    geomy[reference],
  23.      +                                    geomz[reference])
  24.       real geomx(1, 1), geomy(1, 1), geomz(1, 1)
  25.       end
  26.  
  27.       subroutine patchbasis(basis1, basis2)
  28.       real basis1(4, 4), basis2(4, 4)
  29.       call C_patchbasis(basis1, basis2)
  30.       end
  31.  
  32.       subroutine patchprecision(n1, n2)
  33.       call C_patchprecision(n1, n2)
  34.       end
  35.  
  36.       subroutine patchcurves(n1, n2)
  37.       call C_patchcurves(n1, n2)
  38.       end
  39.  
  40.       subroutine rpatch(geomx, geomy, geomz, geomw)
  41.       real geomx(4, 4),geomy(4, 4),geomz(4, 4),geomw(4, 4)
  42.       call C_rpatch(geomx, geomy, geomz, geomw)
  43.       end
  44.  
  45.       subroutine patch(geomx, geomy, geomz)
  46.       real geomx(4, 4),geomy(4, 4),geomz(4, 4)
  47.       call C_patch(geomx, geomy, geomz)
  48.       end
  49.