n style="color: #b22222;">! </span><span style="color: #b22222;">It might not be necessary to have this in memory. It </span>
      <span style="color: #b22222;">! </span><span style="color: #b22222;">can be done on the fly</span>
      <span style="color: #a020f0;">allocate</span>(p1(norbs),p2(norbs),isrc(norbs),idst(norbs))

<span style="color: #b22222;">!      </span><span style="color: #b22222;">if (myid == 0) then</span>
<span style="color: #b22222;">!         </span><span style="color: #b22222;">write