Re: use module to pass data between procedures

"Mike" <SulfateIon@[EMAIL PROTECTED]
> wrote in message 
news:9f2fdad5-682c-4275-9214-29a57fada3eb@[EMAIL PROTECTED]
>

> program main
> !use B
> use shared_data
> !integer,parameter :: N=2
> !C Initialization.
> !REAL,dimension(N) :: XC=(/1.,2./), XSCALE=(/1.,1./);
> !The gradient
> !REAL,dimension(N) :: GC
> real,dimension(2) :: y
You already have "y" available via the shared_data module
Remove this line.

<snip>

> How to pass y array to FCN? please note that FCN can have only three
> arguments.
>

It is already "passed" ie made available via the shared_data module.
You assign values to, (ie initialise), "y" in your program and those
values 
are available so that *anything* that needs the array "y" just needs a
"use 
shared_data" statement. Of course anything that uses the module and
assigns 
new values to "y" overwrites the original values.

Les

PS    Look at the RESHAPE function