Re: use module to pass data between procedures

On Fri, 25 Apr 2008 23:42:48 -0700 (PDT), Mike wrote:

> Since I have a lot conflict variables with module files in main
> program, to prevent rename so many, I use derived type.
> Declare a derived type in the module like:

> module XXX
> type ComboVar
>    real :: sz
>    ......  !all of the arguments need to pass to some procedure
> end type ComboVar
> type(ComboVar) :: cVar

> Then in main program
> use XXX, cVar1=>cVar
> cVar1=ComboVar(sz,.....);  <== to prevent modifying so many sz in main
> program.

I don't understand why you had variables in the main program that
conflicted with names from the module in the first place.  Do you really
need two entirely separate sets of variables?  Why not just delete the
ones in the main program and use the module variables instead?


-- 
Dave Seaman
Third Circuit ignores precedent in Mumia Abu-Jamal ruling.
<http://www.indybay.org/newsitems/2008/03/29/18489281.php>