V3FIT
ga_decode.f
1  SUBROUTINE ga_decode(i,array,iarray)
2 c#######################################################################
3 c
4 c This routine decodes a binary string to a REAL number.
5 c
6  USE ga_mod
7  IMPLICIT NONE
8  INTEGER :: i, j, m, l, k, iparam
9  REAL(rprec), DIMENSION(nparmax,indmax) :: array
10  INTEGER, DIMENSION(nchrmax,indmax) :: iarray
11  SAVE
12 
13  l=1
14  DO 10 k=1,nparam
15  iparam=0
16  m=l
17  DO 20 j=m,m+ig2(k)-1
18  l=l+1
19  iparam=iparam+iarray(j,i)*(2**(m+ig2(k)-1-j))
20  20 CONTINUE
21  array(k,i)=g0(k)+g1(k)*iparam
22  10 CONTINUE
23 
24  END SUBROUTINE ga_decode