">target</span>     :: <span style="color: #a0522d;">comms(:)</span>
     <span style="color: #228b22;">real</span>(dp), <span style="color: #a020f0;">dimension</span>(:), <span style="color: #a020f0;">pointer</span> ::<span style="color: #a0522d;"> data1</span>
     <span style="color: #228b22;">real</span>(dp), <span style="color: #a020f0;">dimension</span>(:), <span style="color: #a020f0;">pointer</span> ::<span style="color: #a0522d;"> data2</span>
     <span style="color: #228b22;">integer</span>, <spa