lists, vector elements

[Becker, Bernd]

hello,

I want to count members of 5*5 matrix in a sub routine. Theerfore I
pass 25 blanks into the routine, fill the 25 blanks with precious
results and
continue using the 25 numbers afterwards.

But I cannot get the flow of information from calling level to
subroutine and back to work. What am I doing wrong?

How can I get 25 numbers in and out of a grads function?

       calling routine:

            p.1.1=0
            p.1.2=0
            p.1.3=0
            p.1.4=0
            p.1.5=0
            p.2.1=0
            p.2.2=0
            p.2.3=0
            p.2.4=0
            p.2.5=0
            p.3.1=0
            p.3.2=0
            p.3.3=0
            p.3.4=0
            p.3.5=0
            p.4.1=0
            p.4.2=0
            p.4.3=0
            p.4.4=0
            p.4.5=0
            p.5.1=0
            p.5.2=0
            p.5.3=0
            p.5.4=0
            p.5.5=0

            contitab(var,tim, p.1.1, p.1.2, p.1.3, p.1.4, p.1.5, p.2.1,
p.2.2, p.2.3, p.2.4, p.2.5, p.3.1, p.3.2, p.3.3, p.3.4, p.3.5, p.4.1,
p.4.2, p.4.3, p.4.4, p.4.5, p.5.1, p.5.2, p.5.3, p.5.4, p.5.5)

in contitab:

            say p.1.1' ' p.1.2' ' p.1.3' ' p.1.4' ' p.1.5' ' p.2.1' '
p.2.2' ' p.2.3' ' p.2.4' ' p.2.5' ' p.3.1' ' p.3.2' ' p.3.3' ' p.3.4' '
p.3.5' ' p.4.1' ' p.4.2' ' p.4.3' ' p.4.4' ' p.4.5' ' p.5.1' ' p.5.2' '
p.5.3' ' p.5.4' ' p.5.5

yields:

p.1.1 p.1.2 p.1.3 p.1.4 p.1.5 p.2.1 p.2.2 p.2.3 p.2.4 p.2.5 p.3.1 p.3.2
p.3.3 p.3.4 p.3.5 p.4.1 p.4.2 p.4.3 p.4.4 p.4.5 p.5.1 p.5.2 p.5.3 p.5.4
p.5.5

in calling routine after contitab

            say p.1.1' ' p.1.2' ' p.1.3' ' p.1.4' ' p.1.5' ' p.2.1' '
p.2.2' ' p.2.3' ' p.2.4' ' p.2.5' ' p.3.1' ' p.3.2' ' p.3.3' ' p.3.4' '
p.3.5' ' p.4.1' ' p.4.2' ' p.4.3' ' p.4.4' ' p.4.5' ' p.5.1' ' p.5.2' '
p.5.3' ' p.5.4' ' p.5.5

yields:

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

How do I get 2-D list thing "p"

from one calling level to the next and back?



Thanks,
Bernd.


--
Bernd Becker   The Monthly Outlook
Met Office  FitzRoy Road  Exeter   Devon EX1 3PB  United Kingdom
Tel.: +44 (0) 1392 884511 Fax: +44 (0)870 900 5050
E-mail:bernd.becker at metoffice.gov.uk -  http://www.metoffice.gov.uk