How to make an input data to be the common data of a module?

[Zhanghong_T_]

Hi all,

I am asking for the help of data interface. For the following subroutine, How to make sure its input array to be the common data in the module it used?

Thanks,

Zhanghong Tang

subroutine receivedata (A, B)

use commondata

...

end subroutine

module commondata

real*8, pointer:: A(:), B(:)

...

end module