|
地板
楼主 |
发表于 2018-4-10 18:50:53
|
只看该作者
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) |
|