XSHIFT=XSHIFT»SCALE 



YSHIFT=YSHIFT»SCALE 



IF(GRDTYPI.EQ.O) 60 TO 506 

 21 CONTINUE 



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

 31 F0RMAT(A1,7X, 218,3616.11) 



NEND=NEND-1 



IF(STR.EQ.'Y') 60 TO 20 



DO 201 LLC=NST,NEND 



LL=LLC+1 



ALPHC=LL-0.5 



ALPHS41 



XX(LL-1)=(A1+B1*(ALPHC*»C1)>»SCALE 

 201 CONTINUE 



60 TO 21 

 20 CONTINUE 



DO 203 LLC=NST,NEND 



LL=LLC+1 



ALPHC=LL-0.5 



ALPHS=LL 



YY (LL-1 ) = (Al+Bl* (ALPHC**C1 ) ) »SCALE 

 203 CONTINUE 



60 TO 21 

 999 CONTINUE 



506 CONTINUE 

 WRITE(6,9> 



9 FORMAT (////,20X, 'VARIABLE WAVE 6RID INFORMATION',///) 

 WRITE(6,23)SCALE 



23 FORMAT!///, 'EXPANSION COEFFICIENT SCALE FACTOR',/, 

 «'SCALE=',F10.3,//) 

 IF(6RDTYP1.EQ.0) 60 TO 507 

 60 TO 513 



507 READ(7,501) DX.DY 

 501 FORMAT (2F10. 5) 



DO 511 L=1,M 

 XX(L)=(L-0.5)*DX«SCALE 



511 CONTINUE 



DO 512 L=1,N 

 YY(L)=<L-0.5)»DY»SCALE 



512 CONTINUE 



513 CONTINUE 

 WRITE(6,10) 



10 FORMAT!///, IX, 'X CENTER DISTANCES',//) 

 WfiITE(6,ll)(I,XX(I),I=l,M) 



11 FORMAT !8( 14, F12.3)) 

 MRITE(6,12) 



12 F0RMAT(///,1X,'Y CENTER DISTANCES',//) 

 HRITE(6,11)(J,YY(J),J=1,N) 

 IF(6RDTYP2.EQ.O) GO TO 539 



28 CONTINUE 



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

 NEND=NEND-1 



IF(STR.EQ.'Y') 60 TO 27 

 DO 271 LLC=NST,NEND 



15 



MAIN 



156 



MAIN 



157 



MAIN 



158 



MAIN 



159 



MAIN 



160 



MAIN 



161 



MAIN 



162 



MAIN 



163 



MAIN 



164 



MAIN 



165 



MAIN 



166 



MAIN 



167 



MAIN 



168 



MAIN 



169 



MAIN 



170 



MAIN 



171 



MAIN 



172 



MAIN 



173 



MAIN 



174 



MAIN 



175 



MAIN 



176 



MAIN 



177 



MAIN 



178 



MAIN 



179 



MAIN 



180 



MAIN 



181 



MAIN 



182 



MAIN 



183 



MAIN 



184 



MAIN 



185 



MAIN 



186 



MAIN 



187 



MAIN 



188 



MAIN 



189 



MAIN 



190 



MAIN 



191 



MAIN 



192 



MAIN 



193 



MAIN 



194 



MAIN 



195 



MAIN 



196 



MAIN 



197 



MAIN 



198 



MAIN 



199 



MAIN 



200 



MAIN 



201 



MAIN 



202 



MAIN 



203 



MAIN 



204 



MAIN 



205 



MAIN 



206 



MAIN 



207 



MAIN 



208 



MAIN 



209 



