Share partial of an array in the module 2

[takisword]

Hi everyone. Here I have an array x define in a module. How can I use part of x, say x(1) in a routine? I tried

USE module_name, ONLY: x1 => x(1)

but it didn't work. Can anybody help? Thanks.

 

[GerritGroot]

I doubt whether that's possible.

If it's only for x(1), you might as well copy x(1) into a scalar variable inside your module (say "axeone") and then use ONLY: x1 => axeone

What's against it to use ONLY: x
and take the whole array from the module?

Does that need more memory? I never thought so, I assumed the USE statement works as a sort of pointer for variables without copying the content of the data in another part of the memory.

 

[xwb]

Alternatively in the module

REAL, POINTER:: x1
REAL, PRIVATE:: x(20)

...
x1 => x(1)

Then from the other module just use x1.

 

[takisword]

Thanks to GerritGroot & xwb.