Equivalence plane
mainprogram  mcube301.f
subroutine  csuba (ic, aa, u) < (nx, ny, nz, x0, y0, z0, xl, yl, zl, nol, ico)

Description: This program draws equivalence plane by giving and three-dimensional data (u (nx*ny*nz)).

Input variable:
  nx = ic (2) : Data number of the x direction
  ny = ic (3) : Data number of the y direction
  nz = ic (4) : Data number of the z direction
  x0 = aa (11) : The x coordinate of the origin
  y0 = aa (12) : The y coordinate of the origin
  z0 = aa (13) : The z coordinate of the origin
  xl = aa (8) : The length of the x direction
  yl = aa (9) : The length of the x direction
  zl = aa (10) : The length of the x direction
  ico = ic (1) : color code  [1,7]
  nol : The number of the edge of the rectangular parallelepiped ;12
  u (nx*ny*nz) : Three-dimensional input data

Drawing example: mcube301.wrl