1 SUBROUTINE ga_newgen(npossum,ig2sum,myid)
9 USE mpi_params,
ONLY: master
11 INTEGER :: npossum, ig2sum, kelite, jelite
12 INTEGER :: irand, j, n, myid
16 IF (npossum.lt.ig2sum)
CALL ga_possibl(child,ichild,myid)
21 iparent(n,j)=ichild(n,j)
22 IF (iparent(n,j).eq.ibest(n)) jelite=jelite+1
23 IF (jelite.eq.nchrome) kelite=1
26 IF (ielite.ne.0 .and. kelite.eq.0)
THEN
28 irand=1+int(npopsiz*rand)
29 iparent(1:nchrome,irand)=ibest(1:nchrome)
30 IF (myid .eq. master)
WRITE(iunit_ga_out,1260) irand
33 1260
FORMAT(
' Elitist Reproduction on Individual ',i4)
35 END SUBROUTINE ga_newgen