I am trying to pass an array as an argument to a user defined function,
and would like to also then pass the same array to other routines in
the same module, however not as arguments but using module level
declarations like Private.

Although I do not receive the "duplicate declaration" statement the
arrays are zeroed out once the current function is left for a
subroutine call.

is there any convenient way to transfer this array without using it
repeatedly as an argument? I have a chain of subroutine calls
(subroutines which call other subroutines) all of which refer to the
same array, and the easiest is to make the array accessible anywhere in
the module.

The original program (Fortran) read the array in from an input file and
transfered the contents using common blocks.

appreciate any assistance.

dan