From: Gus Correa <gus_at_nyahnyahspammersnyahnyah>

Date: Wed Oct 30 2013 - 14:05:50 MDT

Date: Wed Oct 30 2013 - 14:05:50 MDT

Adriane

I am not sure I understand what output you expect.

Is it the list of all partial sums? (There are five of them.)

If it is, you could make y an array/vector,

store the results in the loop,

and write to the file after the loop ends.

Maybe something like this:

*************

begin

x = (/0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21/)

y = new((/5/),integer)

do t=1,20,4

y((t-1)/4) = x(t) + x(t+1) + x(t+2) + x(t+3)

end do

print(y)

asciiwrite("teste.txt",y)

end

*****************

I hope this helps,

Gus Correa

On 10/30/2013 03:45 PM, Adriane Lima Brito wrote:

*>
*

*> Hi,
*

*>
*

*> My name is Adriane Lima Brito and I'm starting to use the NCL, excuse my
*

*> English but I am not yet familiar with the language. I'm doing a simple
*

*> example to test ... I wrote a vector x and the vector sum of the values
*

*> that were assigned to the variable y, the variable y is inside a loop =
*

*> 1,20,4. The problem is that I can not save all values of y, I can only
*

*> save the last value of y. I wonder how do to keep all the y values in a
*

*> file.
*

*>
*

*> My script:
*

*>
*

*> begin
*

*>
*

*> x = (/0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21/)
*

*>
*

*> do t=1,20,4
*

*>
*

*> y = x(t) + x(t+1) + x(t+2) + x(t+3)
*

*>
*

*> print(y)
*

*>
*

*> asciiwrite("teste.txt",y)
*

*>
*

*> end do
*

*>
*

*> end
*

*>
*

*>
*

*>
*

*> Graciously,
*

*>
*

*>
*

*> ADRIANE LIMA BRITO
*

*>
*

*> Bacharelada em Meteorologia
*

*>
*

*> Universidade do Estado do Amazonas - UEA
*

*>
*

*> Escola Superior de Tecnologia - EST
*

*>
*

*> Manaus - AM
*

*>
*

*> adrianelb.mtr@gmail.com <mailto:adrianelb.mtr@gmail.com>
*

*>
*

*> CV: http://lattes.cnpq.br/8651779320884815
*

*> *******************************************************
*

*>
*

*>
*

*> _______________________________________________
*

*> ncl-talk mailing list
*

*> List instructions, subscriber options, unsubscribe:
*

*> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
*

_______________________________________________

ncl-talk mailing list

List instructions, subscriber options, unsubscribe:

http://mailman.ucar.edu/mailman/listinfo/ncl-talk

Received on Wed Oct 30 14:06:00 2013

*
This archive was generated by hypermail 2.1.8
: Fri Nov 01 2013 - 08:58:14 MDT
*