title: Populate a constant array in order specified by other constants?
body: <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>