3? 



40 



41 



42 



43 



44 



45 



46 



47 



48 



49 



50 



51 



52 



53 



54 



55 



56 



57 



58 



59 



60 



61 



62 



63 



64 



65 



66 



67 



68 



69 



70 



71 

 -ii 



73 

 74 

 75 

 76 

 77 

 73 

 79 

 30 

 81 

 82 

 83 

 34 

 85 

 86 

 87 

 38 

 89 

 90 

 91 

 32 

 93 

 94 

 95 

 96 

 97 



COHHON/C00R/XX(IQ),YY(JQ) 



DIMENSION AX(50) ,BX(50) ,CX(50) ,NAX(50> 



DIMENSION AY(50),BY(50),CY(50),NAY(50) 



CHARACTER* 1 SIR 

 C 



XSCALE=1.0 



YSCALE=1.0 

 C 



Zh.kkkkkk READ MAPPING INFORMATION 

 C 



J=l 



1=1 

 21 CONTINUE 



READ(3,31,END=999) 3TR.NST.NEND,A1.B1,C1 

 31 F0RMAT(A1,7X,2I8,3G16.11) 



NEND=NEND-1 



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



AXU)=A1 



BX(I)=B1 



CX(I)=C1 



DO 201 LLC=NSI,NEND 



LL=LLC+1 



ALPHC=LL-0.5 



ALPHS=LL 



XMUS(LL-1)=(BUC1A(ALPHS*A(C1-1.0)))AXSCALE 



XMUC(LL-1)=(B1AC1A(ALPHC*A(C1-1.0)))AXSCALE 



XX<LL-1)=<A1+B1*(ALPHCAAC1>)AXSCALEABX 

 201 CONTINUE 



NAX(I)=NEND+1-NST 



NXREG=I 



1=1+1 



GO 10 21 

 20 CONTINUE 



AY(J)=A1 



BY(J)=B1 



CY(J)=C1 



DO 203 LLC=NST,NEND 



LL=LLC+1 



ALPHC=LL-0.5 



ALPHS=LL 



YMUS(LL-1)=(B1ACU(ALPHSA*(C1-1.0)))*YSCALE 



YMUC(LL-1)=<B1AC1A(ALPHCA*(C1-1.0)))AYSCALE 



YY(LL-1)=(A1+B1A(ALPHCAAC1))*YSCALEADY 

 203 CONTINUE 



NAY(J)=NEND+1-NST 



NYREG=J 



J=J+1 



GO TO 21 

 999 CONTINUE 

 C 



Zkkkkkkkk WRITE THE VARIABLE GRID INFORMATION ON FILE CODE 6 

 C 



URITE<6,9) 

 9 F0RMAK////.20X. 'VARIABLE WAVE GRID INFORMATION'.///) 



WRITE(6,23)XSCALE.YSCALE 

 23 FORMAK///, 'EXPANSION COEFFICIENT SCALE FACTORS'./, 



A'XSCALE=',F10.3,5X,'YSCALE=',F10.3.//> 



URITE(6,5) 

 5 F0RMAK1X.X EXPANSION COEFS(A f B,C) AND GRIDS PER REGION',//) 



GRID 



38 



GRID 



39 



GRID 



40 



GRID 



41 



GRID 



42 



GRID 



43 



GRID 



44 



GRID 



45 



GRID 



46 



GRID 



47 



GRID 



48 



GRID 



49 



GRID 



50 



GRID 



51 



GRID 



52 



GRID 



53 



GRID 



54 



GRID 



55 



GRID 



56 



GRID 



57 



GRID 



58 



GRID 



59 



GRID 



60 



GRID 



61 



GRID 



62 



GRID 



63 



GRID 



64 



GRID 



65 



GRID 



66 



GRID 



67 



GRID 



68 



GRID 



69 



GRID 



70 



GRID 



71 



GRID 



72 



GRID 



73 



GRID 



74 



GRID 



"5 



GRID 



76 



GRID 



77 



GRID 



78 



GRID 



79 



GRID 



80 



GRID 



31 



GRID 



82 



GRID 



33 



GRID 



84 



GRID 



85 



GRID 



86 



GRID 



37 



GRID 



88 



GRID 



89 



GRID 



90 



GRID 



91 



GRID 



92 



GRID 



93 



GRID 



94 



GRID 



95 



GRID 



96 



F19 



