<html><head></head><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:16px"><div abp="4896"><span abp="4897"></span></div><div class="qtdSeparateBR" id="yui_3_16_0_ym19_1_1466125308011_4645" dir="ltr" abp="4898">I found my problem. I need to change the script in this way, then it write a table with one column and 4 rows.</div><div class="qtdSeparateBR" id="yui_3_16_0_ym19_1_1466125308011_4646" dir="ltr" abp="4898"> .....</div><div class="qtdSeparateBR" id="yui_3_16_0_ym19_1_1466125308011_4647" dir="ltr" abp="4898"> R5=avg(R1(:))<br id="yui_3_16_0_ym19_1_1466125308011_4623" abp="5422"> R6=avg(R2(:))<br id="yui_3_16_0_ym19_1_1466125308011_4624" abp="5423"> R7=avg(R3(:))<br id="yui_3_16_0_ym19_1_1466125308011_4625" abp="5424"> R8=avg(R4(:))</div><div id="yui_3_16_0_ym19_1_1466125308011_4626" dir="ltr" abp="4898"> <br id="yui_3_16_0_ym19_1_1466125308011_4630" abp="5428"> <br id="yui_3_16_0_ym19_1_1466125308011_4633" abp="5431"> fil="list.txt"<br id="yui_3_16_0_ym19_1_1466125308011_4634" abp="5432"> <br id="yui_3_16_0_ym19_1_1466125308011_4640" abp="5438"> write_table(fil,"a",[/R5/],"%10.5f")<br id="yui_3_16_0_ym19_1_1466125308011_4641" abp="5439"> write_table(fil,"a",[/R6/],"%10.5f")<br id="yui_3_16_0_ym19_1_1466125308011_4642" abp="5440"> write_table(fil,"a",[/R7/],"%10.5f")<br id="yui_3_16_0_ym19_1_1466125308011_4643" abp="5441"> write_table(fil,"a",[/R8/],"%10.5f")</div><div id="yui_3_16_0_ym19_1_1466125308011_4663" dir="ltr" abp="4898"><br></div><div id="yui_3_16_0_ym19_1_1466125308011_4644" dir="ltr" abp="4898"> end</div><div class="qtdSeparateBR" id="yui_3_16_0_ym19_1_1466125308011_4660" dir="ltr" abp="4898"><br></div><div class="qtdSeparateBR" id="yui_3_16_0_ym19_1_1466125308011_4661" dir="ltr" abp="4898"><br></div><div class="qtdSeparateBR" id="yui_3_16_0_ym19_1_1466125308011_4662" dir="ltr" abp="4898"><br></div><div class="qtdSeparateBR" id="yui_3_16_0_ym19_1_1466125308011_4664" dir="ltr" abp="4898"><br></div><div class="qtdSeparateBR" dir="ltr" abp="4898"><br abp="4899"><br abp="4900"></div> <div class="yahoo_quoted" id="yui_3_16_0_ym19_1_1466125308011_4668" style="display: block;" abp="4901"> <div id="yui_3_16_0_ym19_1_1466125308011_4667" style="font-family: times new roman, new york, times, serif; font-size: 16px;" abp="4902"> <div id="yui_3_16_0_ym19_1_1466125308011_4666" style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;" abp="4903"> <div id="yui_3_16_0_ym19_1_1466125308011_4665" dir="ltr" abp="4904"><font face="Arial" size="2" abp="4905"> On Friday, June 17, 2016 10:17 AM, snow <snowflake_822@yahoo.com> wrote:<br abp="4906"></font></div> <br abp="4907"><br abp="4908"> <div class="y_msg_container" abp="4909"><div id="yiv7187156319" abp="4910"><div abp="4911"><div style="color: rgb(0, 0, 0); font-family: times new roman, new york, times, serif; font-size: 16px; background-color: rgb(255, 255, 255);" abp="4912"><div id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3547" abp="4913"><span id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3586" abp="4914">Dear Wei,</span></div><div id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3546" abp="4915"><span abp="4916"></span><br clear="none" abp="4917"></div><div id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3545" dir="ltr" abp="4918"><span id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3544" abp="4919">Thank you for your reply. My problem is that I want to write a table with one column and four rows. your suggested script writes the table with four columns and one row. The typical scripts should be written in this way:</span></div><div id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3591" dir="ltr" abp="4920"><span abp="4921"></span><br clear="none" abp="4922"></div><div id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3579" dir="ltr" abp="4923"><span id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3596" abp="4924">write_table("list.txt", "a", alist, "%5.5f")</span></div><div dir="ltr" abp="4925"><span abp="4926"></span><br clear="none" abp="4927"></div><div dir="ltr" abp="4928"><span abp="4929">but it dose not work!</span></div><div dir="ltr" abp="4930"><span abp="4931"></span><br clear="none" abp="4932"></div><div dir="ltr" abp="4933"><span abp="4934"></span><br clear="none" abp="4935"></div><div abp="4936"><span abp="4937"></span><br clear="none" abp="4938"></div><div id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3543" abp="4939"><span abp="4940"></span><br clear="none" abp="4941"></div><div id="yiv7187156319yui_3_16_0_ym19_1_1466125308011_3549" abp="4942"><span abp="4943"></span><br clear="none" abp="4944"></div> <div class="yiv7187156319qtdSeparateBR" abp="4945"><br clear="none" abp="4946"><br clear="none" abp="4947"></div><div class="yiv7187156319yqt6174655075" id="yiv7187156319yqt77923" abp="4948"><div class="yiv7187156319yahoo_quoted" style="display: block;" abp="4949"> <div style="font-family: times new roman, new york, times, serif; font-size: 16px;" abp="4950"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;" abp="4951"> <div dir="ltr" abp="4952"><font face="Arial" size="2" abp="4953"> On Thursday, June 16, 2016 10:33 PM, Wei Huang <whuang@univ-wea.com> wrote:<br clear="none" abp="4954"></font></div> <br clear="none" abp="4955"><br clear="none" abp="4956"> <div class="yiv7187156319y_msg_container" abp="4957"><div id="yiv7187156319" abp="4958"><style abp="4959">#yiv7187156319 --
filtered {font-family:SimSun;panose-1:2 1 6 0 3 1 1 1 1 1;}
#yiv7187156319 filtered {panose-1:2 4 5 3 5 4 6 3 2 4;}
#yiv7187156319 filtered {font-family:Calibri;panose-1:2 15 5 2 2 2 4 3 2 4;}
#yiv7187156319 filtered {font-family:Tahoma;panose-1:2 11 6 4 3 5 4 4 2 4;}
#yiv7187156319 filtered {panose-1:3 1 1 1 1 1 1 1 1 1;}
#yiv7187156319 filtered {panose-1:2 1 6 0 3 1 1 1 1 1;}
#yiv7187156319
p.yiv7187156319MsoNormal, #yiv7187156319 li.yiv7187156319MsoNormal, #yiv7187156319 div.yiv7187156319MsoNormal
{margin:0in;margin-bottom:.0001pt;font-size:12.0pt;}
#yiv7187156319 a:link, #yiv7187156319 span.yiv7187156319MsoHyperlink
{color:blue;text-decoration:underline;}
#yiv7187156319 a:visited, #yiv7187156319 span.yiv7187156319MsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
#yiv7187156319 span.yiv7187156319EmailStyle17
{color:#1F497D;}
#yiv7187156319 .yiv7187156319MsoChpDefault
{font-size:10.0pt;}
#yiv7187156319 filtered {margin:1.0in 1.0in 1.0in 1.0in;}
#yiv7187156319 div.yiv7187156319WordSection1
{}
#yiv7187156319 </style><div abp="4960">
<div class="yiv7187156319WordSection1" abp="4961">
<div class="yiv7187156319MsoNormal" abp="4962"><span style="font-size: 11pt;" abp="4963">Snow,</span></div>
<div class="yiv7187156319MsoNormal" abp="4964"><span style="font-size: 11pt;" abp="4965"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4966"><span style="font-size: 11pt;" abp="4967">Please check the docs at:
<a href="https://www.ncl.ucar.edu/Document/Functions/Built-in/write_table.shtml" target="_blank" rel="nofollow" shape="rect" abp="4968">
https://www.ncl.ucar.edu/Document/Functions/Built-in/write_table.shtml</a></span></div>
<div class="yiv7187156319MsoNormal" abp="4969"><span style="font-size: 11pt;" abp="4970"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4971"><span style="font-size: 11pt;" abp="4972">You need to change line:</span></div>
<div class="yiv7187156319MsoNormal" abp="4973"><span style="font-size: 11pt;" abp="4974"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4975"><span style="color: black;" abp="4976">write_table("list.txt", "a", alist, "%5.5f")</span></div>
<div class="yiv7187156319MsoNormal" abp="4977"><span style="color: black;" abp="4978"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4979"><span style="color: black;" abp="4980">To</span></div>
<div class="yiv7187156319MsoNormal" abp="4981"><span style="color: black;" abp="4982"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4983"><span style="color: black;" abp="4984">write_table("list.txt", "a", alist, "%10.5f%10.5f%10.5f%10.5f")</span></div>
<div class="yiv7187156319MsoNormal" abp="4985"><span style="color: black;" abp="4986"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4987"><span style="color: black;" abp="4988">You may add a separator, such as “,” as:</span></div>
<div class="yiv7187156319MsoNormal" abp="4989"><span style="color: black;" abp="4990"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4991"><span style="color: black;" abp="4992">write_table("list.txt", "a", alist, "%10.5f,%10.5f,%10.5f,%10.5f")</span></div>
<div class="yiv7187156319MsoNormal" abp="4993"><span style="color: black;" abp="4994"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4995"><span style="color: black;" abp="4996">Try this script:</span></div>
<div class="yiv7187156319MsoNormal" abp="4997"><span style="color: black;" abp="4998"> </span></div>
<div class="yiv7187156319MsoNormal" abp="4999"><span style="color: black;" abp="5000"> R5=(/189,193,191,192,192,193,192,188,198,196,192,187,197,194,190,187,197,196,195,195,196/)</span></div>
<div class="yiv7187156319MsoNormal" abp="5001"><span style="color: black;" abp="5002"> R6=(/285,286,287,288,289,290,291,292,293,294,295,296,296,297,298,299,298,299,300,301,302/)</span></div>
<div class="yiv7187156319MsoNormal" abp="5003"><span style="color: black;" abp="5004"> R7=(/180,174,172,181,179,173,184,175,185,174,184,173,183,193,182,191,179,189,178,188,176/)</span></div>
<div class="yiv7187156319MsoNormal" abp="5005"><span style="color: black;" abp="5006"> R8=(/264,266,267,267,268,269,270,270,271,271,272,273,273,273,274,273,275,274,276,275,277/)</span></div>
<div class="yiv7187156319MsoNormal" abp="5007"><span style="color: black;" abp="5008"> </span></div>
<div class="yiv7187156319MsoNormal" abp="5009"><span style="color: black;" abp="5010"> ca=tofloat(R5)</span></div>
<div class="yiv7187156319MsoNormal" abp="5011"><span style="color: black;" abp="5012"> cb=tofloat(R6)</span></div>
<div class="yiv7187156319MsoNormal" abp="5013"><span style="color: black;" abp="5014"> cc=tofloat(R7)</span></div>
<div class="yiv7187156319MsoNormal" abp="5015"><span style="color: black;" abp="5016"> cd=tofloat(R8)</span></div>
<div class="yiv7187156319MsoNormal" abp="5017"><span style="color: black;" abp="5018"> </span></div>
<div class="yiv7187156319MsoNormal" abp="5019"><span style="color: black;" abp="5020"> alist=[/ca,cb,cc,cd/]</span></div>
<div class="yiv7187156319MsoNormal" style="text-indent: 12pt;" abp="5021"><span style="color: black;" abp="5022">write_table("list.txt", "w", alist, "%10.5f,%10.5f,%10.5f,%10.5f")</span></div>
<div class="yiv7187156319MsoNormal" style="text-indent: 12pt;" abp="5023"><span style="color: black;" abp="5024"> </span></div>
<div class="yiv7187156319MsoNormal" abp="5025"><span style="color: black;" abp="5026"> </span></div>
<div class="yiv7187156319MsoNormal" abp="5027"><span style="color: black;" abp="5028">Regards,</span></div>
<div class="yiv7187156319MsoNormal" abp="5029"><span style="font-size: 11pt;" abp="5030"> </span></div>
<div class="yiv7187156319MsoNormal" abp="5031"><span style="font-size: 11pt;" abp="5032"> </span></div>
<div abp="5033">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5034"><b abp="5035"><span style="font-size: 17pt;" abp="5036">Wei Huang</span></b><span style="font-size: 9.5pt;" abp="5037"></span></div>
</div>
<div class="yiv7187156319MsoNormal" abp="5038"><span style="font-size: 11pt;" abp="5039"> </span></div>
<div class="yiv7187156319yqt9603814318" id="yiv7187156319yqt26057" abp="5040"><div abp="5041">
<div style="border-width: 1pt medium medium; border-style: solid none none; border-color: rgb(181, 196, 223) currentColor currentColor; padding: 3pt 0in 0in;" abp="5042">
<div class="yiv7187156319MsoNormal" abp="5043"><b abp="5044"><span style="font-size: 10pt;" abp="5045">From:</span></b><span style="font-size: 10pt;" abp="5046"> ncl-talk-bounces@ucar.edu [mailto:ncl-talk-bounces@ucar.edu]
<b abp="5047">On Behalf Of </b>snow<br clear="none" abp="5048">
<b abp="5049">Sent:</b> Wednesday, June 15, 2016 8:05 PM<br clear="none" abp="5050">
<b abp="5051">To:</b> Ncl Talk<br clear="none" abp="5052">
<b abp="5053">Subject:</b> [ncl-talk] Write table problem</span></div>
</div>
</div>
<div class="yiv7187156319MsoNormal" abp="5054"> </div>
<div abp="5055">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5056"><span style="color: black;" abp="5057"> </span></div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5362" abp="5058">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5059"><span style="color: black;" abp="5060">To whom it may concern,</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5363" abp="5061">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5062"><span style="color: black;" abp="5063"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5372" abp="5064">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5065"><span style="color: black;" abp="5066">My below ncl code has aproblem in writting the table with 4 data in one column. It only writes the first data and doesnt continue to write the other data.</span></div>
</div>
<div abp="5067">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5068"><span style="color: black;" abp="5069"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5488" abp="5070">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5071"><span style="color: black;" abp="5072">does anyone know how to fix this problem?</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5489" abp="5073">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5074"><span style="color: black;" abp="5075"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5490" abp="5076">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5077"><span style="color: black;" abp="5078">I appreciate your time and consideration. </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5466" abp="5079">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5080"><span style="color: black;" abp="5081"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5374" abp="5082">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5083"><span style="color: black;" abp="5084">Best regards,</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5375" abp="5085">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5086"><span style="color: black;" abp="5087"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5377" abp="5088">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5089"><span style="color: black;" abp="5090">Snow Sho</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5378" abp="5091">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5092"><span style="color: black;" abp="5093"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5380" abp="5094">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5095"><span style="color: black;" abp="5096"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5382" abp="5097">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5098"><span style="color: black;" abp="5099">this is the code:</span></div>
</div>
<blockquote id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5383" style="margin-top: 5pt; margin-bottom: 5pt;" abp="5100">
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5384" abp="5101">
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5385" abp="5102">
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5386" abp="5103">
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5387" abp="5104">
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5388" abp="5105">
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5389" abp="5106">
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5390" abp="5107">
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5392" abp="5108">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5109"><span style="color: black;" abp="5110">load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5393" clear="none" abp="5111">
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5394" clear="none" abp="5112">
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5395" clear="none" abp="5113">
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/shea_util.ncl"<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5396" clear="none" abp="5114">
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5397" clear="none" abp="5115">
begin<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5398" clear="none" abp="5116">
;----------------------------------------------------------------------<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5399" clear="none" abp="5117">
; WRF data translate NetCDF file to ascii file <br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5400" clear="none" abp="5118">
;----------------------------------------------------------------------</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5401" abp="5119">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5120"><span style="color: black;" abp="5121"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5403" abp="5122">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5123"><span style="color: black;" abp="5124"> infile=("wrfout_d03_2007-07-24_00_00_00")<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5404" clear="none" abp="5125">
fn=dimsizes(infile)</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5405" abp="5126">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5127"><span style="color: black;" abp="5128"> fin=addfile(infile,"r")<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5406" clear="none" abp="5129">
R=fin->RAINNC(0,:,:)</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5407" abp="5130">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5131"><span style="color: black;" abp="5132"> a=(/189,193,191,192,192,193,192,188,198,196,192,187,197,194,190,187,197,196,195,195,196/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5408" clear="none" abp="5133">
b=(/285,286,287,288,289,290,291,292,293,294,295,296,296,297,298,299,298,299,300,301,302/)</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5409" abp="5134">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5135"><span style="color: black;" abp="5136"> c=(/180,174,172,181,179,173,184,175,185,174,184,173,183,193,182,191,179,189,178,188,176/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5410" clear="none" abp="5137">
d=(/264,266,267,267,268,269,270,270,271,271,272,273,273,273,274,273,275,274,276,275,277/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5411" clear="none" abp="5138">
e=(/202,205,206,206,198,197,206,205,204,202,200,200,200,200,210,209,205,202,212,208,204,203/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5412" clear="none" abp="5139">
f=(/270,271,272,273,274,276,277,278,279,280,281,282,283,284,284,284,285,286,287,288,289,290/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5413" clear="none" abp="5140">
g=(/208,208,209,210,211,210,207,205,215,212,213,215,216,207,209,210,211,214,215,209,211,215,214/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5414" clear="none" abp="5141">
h=(/263,264,265,266,267,267,268,269,269,270,271,273,274,276,277,278,279,279,280,282,283,284,287/)</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5415" abp="5142">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5143"><span style="color: black;" abp="5144"> R1=new((/21/),"float") <br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5416" clear="none" abp="5145">
R2=new((/21/),"float")<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5417" clear="none" abp="5146">
R3=new((/22/),"float")<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5418" clear="none" abp="5147">
R4=new((/23/),"float")</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5419" abp="5148">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5149"><span style="color: black;" abp="5150"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5421" abp="5151">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5152"><span style="color: black;" abp="5153"> do k=0,20<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5422" clear="none" abp="5154">
R1(k)=R(a(k),b(k))<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5423" clear="none" abp="5155">
end do<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5424" clear="none" abp="5156">
; print(R1)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5425" clear="none" abp="5157">
do k=0,20<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5426" clear="none" abp="5158">
R2(k)=R(c(k),d(k))<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5427" clear="none" abp="5159">
end do<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5428" clear="none" abp="5160">
do k=0,21<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5429" clear="none" abp="5161">
R3(k)=R(e(k),f(k))<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5430" clear="none" abp="5162">
end do<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5431" clear="none" abp="5163">
do k=0,22<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5432" clear="none" abp="5164">
R4(k)=R(g(k),h(k))<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5433" clear="none" abp="5165">
end do</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5434" abp="5166">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5167"><span style="color: black;" abp="5168"> R5=avg(R1(:))<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5435" clear="none" abp="5169">
R6=avg(R2(:))<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5436" clear="none" abp="5170">
R7=avg(R3(:))<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5437" clear="none" abp="5171">
R8=avg(R4(:))</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5438" abp="5172">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5173"><span style="color: black;" abp="5174"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5440" abp="5175">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5176"><span style="color: black;" abp="5177"> ca=new((/1/),"float")<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5441" clear="none" abp="5178">
ca=(/R5/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5442" clear="none" abp="5179">
cb=new((/1/),"float")<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5443" clear="none" abp="5180">
cb=(/R6/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5444" clear="none" abp="5181">
cc=new((/1/),"float")<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5445" clear="none" abp="5182">
cc=(/R7/)<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5446" clear="none" abp="5183">
cd=new((/1/),"float")<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5447" clear="none" abp="5184">
cd=(/R8/)</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5448" abp="5185">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5186"><span style="color: black;" abp="5187"> </span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5450" abp="5188">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5189"><span style="color: black;" abp="5190">; alist=[/R5,R6,R7,R8/]<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5451" clear="none" abp="5191">
alist=[/ca,cb,cc,cd/]<br id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_5452" clear="none" abp="5192">
write_table("list.txt", "a", alist, "%5.5f")</span></div>
</div>
<div id="yiv7187156319yui_3_16_0_ym19_1_1466038784465_4673" abp="5193">
<div class="yiv7187156319MsoNormal" style="background: white;" abp="5194"><span style="color: black;" abp="5195"> end</span></div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</blockquote>
</div></div>
</div>
</div></div><br clear="none" abp="5196"><br clear="none" abp="5197"></div> </div> </div> </div></div></div></div></div><br abp="5198"><br abp="5199"></div> </div> </div> </div></div></body></html>