read num,blade_row,blade_passage
do n=1,num read Idim(n),Jdim(n),Kdim(n)
endif
do n=1,num
ijk = Idim(n)*Jdim(n)*Kdim(n) read (x(n,l),l=1,ijk),(y(n,l),l=1,ijk),(z(n,l),l=1,ijk)
endif
Description:
num [integer]: number of blocks in file (this is 1 for now)
blade_row [integer]: blade row id (>0)
blade_passage [integer]: blade passage id (>0)
Idim [integer]: I dimension
Jdim [integer]: J dimension
Kdim [integer]: K dimension
x [double]: X coordinates of block
y [double]: Y coordinates of block
z [double]: Z coordinates of block
Notes:
X,Y,Z are actually NASA cylindrical coordinates.
The actual block id is derived from the GU*0 filename.
G00 is case information and is only generated for MSUTurbo/GUMBO use only