LL=LLC+1 



ALPHC=LL-0.5 



ALPHS=LL 



XX2(LL-1)=(A1+B1*(ALPHC*«C1))*SCALE 

 271 CONTINUE 



GO TO 28 

 27 CONTINUE 



DO 273 LLC=NST,NEND 



LL=LLC+1 



ALPHC=LL-0.5 



ALPHS=LL 



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

 273 CONTINUE 



GO TO 28 

 998 CONTINUE 



GO TO 560 

 539 CONTINUE 



READ (7, 555) DX2,DY2 

 555 F0RMAT!2F10.5) 

 560 CONTINUE 



WRITE(6,19) 

 19 FQRMAT(////,20X, 'VARIABLE SECOND GRID INFORMATION',///) 



WRITE (6, 23) SCALE 



IF(6RDTYP2.EQ.O) 60 TO 515 



60 TO 525 

 515 CONTINUE 



DO 520 L=1,H2 



XX2(L)=(L-0.5)*DX2»SCALE 

 520 CONTINUE 



DO 524 L=1,N2 



YY2(L)=(L-0.5)*DY2»SCALE 



524 CONTINUE 



525 CONTINUE 

 WRITE(6,40) 



40 FORMATi///, IX, 'X2 CENTER DISTANCES',//) 

 WRITE(6,11)(I,XX2(I),I=1,M2) 

 WRITE(6,42) 

 42 FORMAT (///, IX, 'Y2 CENTER DISTANCES',//) 

 WRITE(6,11)(J,YY2U),J=1,N2) 

 DO 26 JJ=1,N 

 DO 26 11=1, M 



XOWRTN ( 1 1 ■ J J) = (XX ( 1 1 ) -XSHIFT) *COS ( ANG) + ( YSHIFT 

 1-YY(JJ))*SIN(ANG) 



YOMRTN(II,JJ)=(XX(II)-XSHIFT)*SIN(AIC)+(YY(JJ) 

 1-YSHIFT)*C0S(ANS) 

 26 CONTINUE 

 CALL INTERPO 



99 STOP 

 END 

 ♦*«»« «DECK INTERPO 



C***t********t****** MM*********************************************** 



c* 



SUBROUTINE INTERPO 

 C« 



16 



MAIN 



210 



MAIN 



211 



MAIN 



212 



MAIN 



213 



MAIN 



214 



MAIN 



215 



MAIN 



216 



MAIN 



217 



MAIN 



218 



MAIN 



219 



MAIN 



220 



MAIN 



221 



MAIN 



222 



MAIN 



223 



MAIN 



224 



MAIN 



225 



MAIN 



226 



MAIN 



227 



MAIN 



228 



MAIN 



229 



MAIN 



230 



MAIN 



231 



MAIN 



232 



MAIN 



233 



MAIN 



234 



MAIN 



235 



MAIN 



236 



MAIN 



237 



MAIN 



238 



MAIN 



239 



MAIN 



240 



MAIN 



241 



MAIN 



242 



MAIN 



243 



MAIN 



244 



MAIN 



245 



MAIN 



246 



MAIN 



247 



MAIN 



248 



MAIN 



249 



MAIN 



250 



MAIN 



251 



MAIN 



252 



MAIN 



253 



MAIN 



254 



MAIN 



255 



MAIN 



256 



MAIN 



257 



MAIN 



258 



INTERPO 



1 



INTERPO 



2 



INTERPO 



3 



INTERPO 



4 



INTERPO 



5 



