| 
 | 
地板
 
 
 楼主 |
发表于 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) |   
 
 
 
 |