If an array is not explicitly distributed it is given the default mapping - often, but not always, replication.
To force replication of an array, A:
For example,
REAL, DIMENSION(100,100) :: A !HPF$ PROCESSORS, DIMENSION(NUMBER_OF_PROCESSORS()) :: P !HPF$ TEMPLATE, DIMENSION(NUMBER_OF_PROCESSORS()) :: T !HPF$ ALIGN A(*,*) WITH T(*) !HPF$ DISTRIBUTE (BLOCK) :: T
For more information, click here