 name="l00096"></a>00096   call getarg(1, arg)
<a name="l00097"></a>00097   <span class="keyword">read</span>(arg,*) L
<a name="l00098"></a>00098   call getarg(2, arg)
<a name="l00099"></a>00099   <span class="keyword">read</span>(arg,*) spin
<a name="l00100"></a>00100   seed = 1
<a name="l00101"></a>00101 
<a name="l00102"></a>00102   <span class="comment">! Allocate memory.</span>
<a name="l00103"></a>00103   <span class="keyword">allocate</span>(flm_orig(0:L**2-1), stat=fail)
<a name="l00104"></a>00104  