Populate a constant array in order specified by other constants?
<p>Is there a way to populate a constant array in an order specified by other constant variables?</p>

<p>So, in effect this:</p>

<pre><code>integer, parameter :: ired  = 1
integer, parameter :: iblue = 2
real,    parameter :: myarr(2,3)
myarr(ired, :) = [1,0,0]
myarr(iblue,:) = [0,0,1]
</code></pre>

<p>Except the above of course will not compile. Is there a way to get to this in some way?</p>