A general procedure call can generate two remappings per argument:
If remapping is essential then give the INTENT of the arguments:
INTEGER, DIMENSION(512,512), INTENT(IN) :: iarg1 INTEGER, DIMENSION(512,512), INTENT(OUT) :: iarg2
Now each dummy would only be remapped once. NA Software execution time is now 14.7s compared to 25.00s without the INTENT.
For more information, click here