1 SUBROUTINE ga_micro(i,npossum,ig2sum, myid)
7 USE mpi_params,
ONLY: master
9 INTEGER :: i, npossum, ig2sum, myid
10 INTEGER :: icount, j, n
11 REAL(rprec) :: diffrac, rand
23 IF(iparent(n,j).ne.ibest(n)) icount=icount+1
29 diffrac=real(icount,rprec)/((npopsiz-1)*nchrome)
30 IF (diffrac.lt.0.05_dp)
THEN
38 IF(rand.lt.0.5_dp) iparent(n,j)=0
41 IF (npossum.lt.ig2sum)
CALL ga_possibl(parent,iparent,myid)
42 IF (myid .eq. master)
THEN
44 WRITE(iunit_ga_out,1375) i
48 1375
FORMAT(//
'%%%%%%% Restart micro-population at generation',
51 END SUBROUTINE ga_micro