Inner magnetosphere by three-dimensional lattice

mainprogram inline3d.f subroutine lat3d2 (ic,aa) < (nx,ny,nz,xl,yl,zl,r,g,b) Description: This program draws the inner magnetosphere by three-dimensional lattice. Input variable: nx = ic(1) : Data number of the x direction ny = ic(2) : Data number of the y direction nz = ic(3) : Data number of the z direction xl = aa(1) : The length of the x direction yl = aa(2) : The length of the x direction zl = aa(3) : The length of the x direction r = aa(4) : The red value [ 0,1 ] g = aa(5) : The green value [ 0,1 ] b = aa(6) : The blue value [ 0,1 ] Drawing example: inline3d.wrl