1 SUBROUTINE ga_decode(i,array,iarray)
8 INTEGER :: i, j, m, l, k, iparam
9 REAL(rprec),
DIMENSION(nparmax,indmax) :: array
10 INTEGER,
DIMENSION(nchrmax,indmax) :: iarray
19 iparam=iparam+iarray(j,i)*(2**(m+ig2(k)-1-j))
21 array(k,i)=g0(k)+g1(k)*iparam
24 END SUBROUTINE ga_decode