wordtype">real(kind = dp) </span>:: log_first_row(1:2 * l + 1)
<a name="l01006"></a>01006       <span class="keywordtype">real(kind = dp) </span>:: sign(1:2 * l + 1)
<a name="l01007"></a>01007       <span class="keywordtype">real(kind = dp) </span>:: lrenorm(1:2 * l + 1)
<a name="l01008"></a>01008 
<a name="l01009"></a>01009       <span class="keywordtype">integer</span> :: index, i, m, im, j, lp1
<a name="l01010"></a>01010   
<a name="l01011"></a>01011       <span class="comment">! Added by Jason McEwen 19