C 1 = VARIABLY SIZED, RECTILINEAR 



C 



C GRDTYP2=N£W GRID TYPE 



C = CONSTANT SIZED, RECTILINEAR 



C 1 = VARIABLY SIZED, RECTILINEAR 



C 



C*»»» 



C 



C IF: GRDTYP1=0 THEN: 



C 



C READ (7, 501) DX.DY 



C 501 FORMAT (2F10.5) 



C 



C*«*» 



c 



C IF: 6RDTYP2=0 THEN: 



C 



C READ (7, 501) DX2.DY2 



C 501 FORMAT (2F10. 5) 



C 



C»**» 



C 



C IF: GRDTYP1=0 & GRDTYP2=0 THEN: 



C 



C READ(7,501) DX,DY 



C READ (7, 501) DX2,DY2 



C 501 FQRMAT(2F10.5) 



C 



C DX=CELL LENGTH IN THE X DIRECTION (OLD GRID) IN MAP INCHES OR CM 



C DY=CELL LENGTH IN THE Y DIRECTION (OLD GRID) IN HAP INCHES OR CM 



C DX2=CELL LENGTH IN THE X DIRECTION (NEW GRID) IN MAP INCHES OR CM 



C DY2=CELL LENGTH IN THE Y DIRECTION (NEW GRID) IN MAP INCHES OR CM 



C 



[I********************************************************** 



c 



C INPUT DATA (TAPE3) 



C -OLD GRID- 



C 



C**********t************«**t ******************************* 



c 



C MNOTE** 



C ONLY USE TAPE3 IF GRDTYP1=1 



C 



o************************************************************ 



c 



C IF GRDTYP1=1 THEN: 



C 



C 



C READ(3,31,END=999) STR,NST,NEND,A1,B1,C1 



C 



C STR=X OR Y STRETCHING DIRECTION 



C NST=STARTIN6 CELL NU1BER FOR THE REGION 



C NEND-NST=NUHBER OF CELLS IN THE REGION 



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



13 



MAIN 



48 



MAIN 



49 



MAIN 



50 



MAIN 



51 



MAIN 



52 



MAIN 



53 



MAIN 



54 



MAIN 



55 



MAIN 



56 



MAIN 



57 



MAIN 



58 



MAIN 



59 



MAIN 



60 



MAIN 



61 



MAIN 



62 



MAIN 



63 



MAIN 



64 



MAIN 



65 



MAIN 



66 



MAIN 



67 



MAIN 



68 



MAIN 



69 



MAIN 



70 



MAIN 



71 



MAIN 



72 



MAIN 



73 



MAIN 



74 



MAIN 



75 



MAIN 



76 



MAIN 



77 



MAIN 



78 



MAIN 



79 



MAIN 



80 



MAIN 



81 



MAIN 



82 



MAIN 



83 



MAIN 



84 



MAIN 



85 



MAIN 



86 



MAIN 



87 



MAIN 



88 



MAIN 



89 



MAIN 



90 



MAIN 



91 



MAIN 



92 



MAIN 



93 



MAIN 



94 



MAIN 



95 



MAIN 



96 



MAIN 



97 



MAIN 



98 



MAIN 



99 



MAIN 



100 



MAIN 



101 



