c 



C 31 FQRHAT(A1,7X, 218.3616.11) 

 C 



£»♦»»»»»»»««♦♦»♦»♦»«♦♦♦*»*»*««»♦«»»»♦»»*♦»*»»»♦«»*♦*•»♦*»*» 



c 



C INPUT DATA (TAPE4) 



C -NEW 6RID- 



C 



{;«»»»***«*♦**»***»******»*****»****************♦****»**♦»»* 



C 



C MNOTE*» 



C ONLY USE TAPE4 IF 8RDTYP2=1 



C 



CM************************************************** »**»♦«••• 



C IF GRDTYP2=1 TVEN: 



C 



C READ(4,31,END=998> STR,NST,NEND,A1,B1,C1 



C 



C STR=X OR Y STRETCHING DIRECTION 



C NST=STARTING CELL NUMBER FOR THE REGION 



C NEND-NST=NUMBER OF CELLS IN THE REGION 



C A1,B1,C1=STRETCHIN6 COEFFICIENTS FOR THE REGION 



C 



C 31 FORMAT (At, 7X, 218,3616.11) 



C 



C 



C 



c 



C INPUT DATA (TAPED 



C 



CM******************************************************** 



C 



C DO 10 1=1.11 



C READ(l.ll) (DD(I,J).J=1,N) 



C 10 CONTINUE 



C 11 FORMAT (10F8. 2) 



C 



C DD(I,J)=DEPTH AT EACH CELL OF THE OLD GRID 



C 



C*»*»»»»*»»»*»*«**»»**»»*«**»*»»*»**»»»*»»«*»**»»«»*»»»***»»**» 



COttMON/CONST/M, N, M2, N2, DX, DY 



COMMON/COOR/XX(IQ),YY(JQ) 



C0MM0N/C00R2/XX2(IQ2) ,YY2( JQ2) 



CQMMQN/CQOR3/XOWRTN ( IQ, JQ) , YOtffiTN ( 19, JQ) 



COMHON/DEPTHS/D ( IQ2, JQ2) . DD ( IQ, JQ) 



CHARACTERS STR 



READ(7,500) M,N,M2,N2,AN6.XSHIFT,YSHIFT 



AN6=-1.0*(ANG) 



READ (7, 505) GRDTYPI.GRDTYP2 

 505 FORMAT (215) 

 500 FORMAT (415, 3F10. 5) 



AN6=ANG«3. 1415927/180.0 



SCALE=1.0 



14 



MAIN 



102 



MAIN 



103 



MAIN 



104 



MAIN 



105 



MAIN 



106 



MAIN 



107 



MAIN 



108 



MAIN 



109 



MAIN 



110 



MAIN 



111 



MAIN 



112 



MAIN 



113 



MAIN 



114 



MAIN 



115 



MAIN 



116 



MAIN 



117 



MAIN 



118 



MAIN 



119 



MAIN 



120 



MAIN 



121 



MAIN 



122 



MAIN 



123 



MAIN 



124 



MAIN 



125 



MAIN 



126 



MAIN 



127 



MAIN 



128 



MAIN 



129 



MAIN 



130 



MAIN 



131 



MAIN 



132 



MAIN 



133 



MAIN 



134 



MAIN 



135 



MAIN 



136 



MAIN 



137 



MAIN 



138 



MAIN 



139 



MAIN 



140 



MAIN 



141 



MAIN 



142 



MAIN 



143 



MAIN 



144 



MAIN 



145 



MAIN 



146 



MAIN 



147 



MAIN 



148 



MAIN 



149 



MAIN 



150 



MAIN 



151 



MAIN 



152 



MAIN 



153 



MAIN 



154 



MAIN 



155 



