1 SUBROUTINE ga_possibl(array, iarray, myid)
11 USE mpi_params,
ONLY: master
14 REAL(rprec),
DIMENSION(nparmax,indmax) :: array
15 INTEGER,
DIMENSION(nchrmax,indmax) :: iarray
16 INTEGER :: i, j, n2ig2j, irand, myid
22 CALL ga_decode(i,array,iarray)
25 IF(nposibl(j).ne.n2ig2j .and. array(j,i).gt.par_max(j))
THEN
27 irand=int((2**nposibl(j))*rand)
28 array(j,i)=g0(j)+irand*g1(j)
29 CALL ga_code(i,j,array,iarray)
30 IF (nowrite.eq.0 .and. myid.eq.master)
THEN
32 WRITE(iunit_ga_out,1000) i,j
38 1000
FORMAT(
'*** Parameter adjustment to individual ',i4,
39 1
', PARAMETER ',i3,
' ***')
41 END SUBROUTINE ga_possibl