|
C---------------------------------------
C INPUT GRID SEPARATION in free format
C---------------------------------------
READ(5,9) DUMMY
9 FORMAT(A50)
READ(5,*) (X(I),I=0,IE)
READ(5,9) DUMMY
READ(5,*) (Y(J),J=0,JE)
READ(5,9) DUMMY
READ(5,*) (Z(K),K=0,KE)
READ(5,9) DUMMY
READ(5,*) IXREF,JYREF,VXREF,VYREF
C--------------------------------------------------
C CALC DISTANCE from the origin: DX(I),DY(J),DZ(K) |
|