等値面
mainprogram  mcube301.f
subroutine  csuba (ic, aa, u) < (nx, ny, nz, x0, y0, z0, xl, yl, zl, nol, ico)
説明：３次元のデータu (nx*ny*nz)を与えて等値面を描くプログラム
入力変数：
      nx = ic (2)：x方向のデータ数
      ny = ic (3)：y方向のデータ数
      nz = ic (4)：z方向のデータ数
      x0 = aa (11)：原点のx座標
      y0 = aa (12)：原点のy座標
      z0 = aa (13)：原点のz座標
      xl = aa (8)：x方向の一辺の長さ
      yl = aa (9)：y方向の一辺の長さ
      zl = aa (10)：z方向の一辺の長さ
      ico = ic (1)：カラーコード [1,7]
      nol：直方体の辺の数；12
      u (nx*ny*nz)：３次元の入力データ
使用例：