implicit real*8 (a-h,o-z)
        parameter (np=2,nipop=128,npop=64,ngood=32)
         dimension xl(np),xh(np),pop(nipop,np),fval(nipop),x(np)
        dimension cc(ngood),pp(ngood),cpp(ngood)
        dimension mates(2,ngood/2)
        REAL*4 u(nipop,np)
        EXTERNAL func1
        COMMON/bprint/ipt,nfile,ndig,npunch,jpt,mfile
        common/bgenalg2/nc,initgen,ipair,imate,kterl,imute,itest,ihowman
        common/bgenalg3/xmute,alph1,bet1,bacc,pm4,shrink1,expand
        open (UNIT=51,FILE='genalg.err')
        open (UNIT=8,FILE='genalg.out')
        open (UNIT=10,FILE='genalg.in')
        read (10,1000) alph1,bet1
        READ (10,1001) (xl(j),j=1,np)
        READ (10,1001) (xh(j),j=1,np)
        read (10,1012) nc,initgen,ipair,imate,xmute,kterl,imute,itest,
     1ihowman,shrink1,expand
1012    format(9x,i1/9x,i1/9x,i1/9x,i1/9x,f10.0/9x,i2/9x,i1/9x,i1/9x,i1/
     1 9x,f10.0/9x,f10.0)
        call dflt
        bacc=0.0001
        max=2
        ncont=1
1000    FORMAT(9x,f10.0/9x,f10.0)
1001    FORMAT(9x,5f10.0)
        write (8,1002)np,nipop,npop,nc,initgen,ipair,imate,ngood,
     1  ihowman,alph1,bet1,(xl(j),j=1,np),(xh(j),j=1,np),itest
1002    FORMAT(' np=',i2/' nipop=',i5/' npop=',i5/
     1 ' nc=',i1/' initgen=',i1/' ipair=',i1/' imate=',i1/' ngood=',i2/
     2' ihowman=',i2/' alph1=',f10.4/'  bet1=',f10.4/' xl=',
     3 2f10.4/' xh=',2f10.4/' itest=',i1)
       call genalg(max,np,nipop,npop,ngood,xl,xh,cc,pp,
     1 cpp,mates,x,pop,u,fval,func1,iterc,ier,ival,ncont)
        stop
        end
      subroutine func1(x,np,fu0,*)
      implicit real*8 (a-h,o-z)
        dimension x(np)
      fu0=x(1)*dsin(4.d0*x(1))+1.1*x(2)*dsin(2.d0*x(2))
      return
      end  
************************************************************
OUTPUT FOLLOWS
************************************************************
 np= 2
 nipop=  128
 npop=   64
 nc=1
 initgen=4
 ipair=3
 imate=1
 ngood=32
 ihowman= 3
 alph1=    0.1000
  bet1=    0.5000
 xl=    0.0000    0.0000
 xh=   10.0000   10.0000
 itest=1

   PASS  1

                               GENALG BEGINS
      MAX = 2
       NP =     2
    NIPOP =   128
     NPOP =    64
    NGOOD =    32
       NC = 1
  INITGEN = 4
    IPAIR = 3
    IMATE = 1
    ALPHA =     0.1000
     BETA =     0.5000
    XMUTE =     0.1000
     ACC =  0.100000D-03
    ITEST = 1
    IMUTE = 3
  IHOWMAN = 3
   SHRINK =     0.9500
   EXPAND =     0.0500

 PARAMETER BOUNDS
 PARAM.NO.   LOWER BOUND    UPPER BOUND

      1      0.000000D+00   0.100000D+02
      2      0.000000D+00   0.100000D+02

                               GENALG BEGINS
      MAX = 2


 INITIAL POPULATION

 FUNCTION           X-VALUES
  VALUE

 -0.163399D+02      0.885909D+01 0.867484D+01
 -0.143589D+02      0.725128D+01 0.866558D+01
 -0.135329D+02      0.438859D+01 0.877247D+01
 -0.115674D+02      0.720714D+01 0.897115D+01
 -0.114647D+02      0.905457D+01 0.226326D+01
 -0.102756D+02      0.782115D+01 0.854917D+01
 -0.987630D+01      0.121113D+01 0.887786D+01
 -0.954361D+01      0.420044D+01 0.539571D+01
 -0.945531D+01      0.914314D+01 0.482636D+01
 -0.934375D+01      0.565693D+01 0.545622D+01
 -0.851782D+01      0.896297D+01 0.470225D+01
 -0.821479D+01      0.911402D+01 0.631302D+01
 -0.801659D+01      0.926760D+01 0.233512D+01
 -0.782634D+01      0.461460D+01 0.552174D+01
 -0.750076D+01      0.312226D+01 0.831260D+01
 -0.726769D+01      0.247750D+00 0.833094D+01
 -0.674144D+01      0.214065D+01 0.891362D+01
 -0.658898D+01      0.725506D+01 0.200015D+01
 -0.658849D+01      0.296557D+01 0.587996D+01
 -0.652844D+01      0.606790D+01 0.280459D+01
 -0.624360D+01      0.103703D+01 0.529775D+01
 -0.595586D+01      0.611470D+01 0.214086D+01
 -0.579043D+01      0.748728D+00 0.542341D+01
 -0.565937D+01      0.322478D+01 0.826902D+01
 -0.527562D+01      0.274494D+01 0.799985D+01
 -0.507504D+01      0.280104D+01 0.268604D+01
 -0.498955D+01      0.478236D+01 0.908296D+01
 -0.477801D+01      0.856858D+00 0.517364D+01
 -0.459427D+01      0.440068D+00 0.583315D+01
 -0.456693D+01      0.925127D+01 0.457659D+01
 -0.447050D+01      0.256738D+01 0.258519D+01
 -0.433372D+01      0.579956D+01 0.460429D+01
 -0.407684D+01      0.937693D+01 0.219622D+01
 -0.398282D+01      0.878887D+01 0.112214D+01
 -0.395274D+01      0.254057D+01 0.611304D+01
 -0.387749D+01      0.623049D+01 0.234093D+01
 -0.383314D+01      0.440960D+01 0.384654D+00
 -0.344109D+01      0.883079D+01 0.647594D+01
 -0.319726D+01      0.745943D+01 0.388696D+01
 -0.317558D+01      0.901082D+01 0.673328D+01
 -0.280413D+01      0.382368D+01 0.920327D+01
 -0.278035D+01      0.949809D+01 0.532795D+01
 -0.276293D+01      0.426146D+01 0.333494D+01
 -0.267040D+01      0.434307D+01 0.454378D+01
 -0.230770D+01      0.729559D+01 0.365561D+01
 -0.219539D+01      0.629445D+01 0.799682D+01
 -0.218518D+01      0.440862D+00 0.238343D+01
 -0.208035D+01      0.274872D+01 0.133442D+01
 -0.198734D+01      0.343767D+01 0.816094D+01
 -0.184831D+01      0.456273D+00 0.270177D+01
 -0.180964D+01      0.270441D+01 0.634439D+01
 -0.180873D+01      0.531403D+01 0.577993D+01
 -0.174957D+01      0.279286D+01 0.102885D+01
 -0.168434D+01      0.617632D+01 0.796729D+00
 -0.160762D+01      0.561141D+01 0.122753D+01
 -0.155790D+01      0.703519D+01 0.228887D+01
 -0.143027D+01      0.632003D+01 0.798981D+01
 -0.137318D+01      0.250497D+01 0.119443D+00
 -0.133673D+01      0.628479D+01 0.292007D+01
 -0.110604D+01      0.743262D+01 0.741481D+01
 -0.103178D+01      0.196624D+01 0.500059D+01
 -0.815532D+00      0.947298D+01 0.240121D+01
 -0.781816D+00      0.326787D+01 0.799009D+01
 -0.693857D+00      0.866057D+01 0.134488D+00
 -0.638215D+00      0.481613D+01 0.256433D+01
 -0.440643D+00      0.114091D+01 0.132516D+01
 -0.270814D+00      0.173489D+01 0.292890D+01
 -0.170887D-01      0.490633D+01 0.504792D+01
  0.169957D+00      0.989179D+00 0.326672D+01
  0.183008D+00      0.977476D+01 0.872842D+01
  0.359962D+00      0.573854D+01 0.666506D+01
  0.464453D+00      0.296481D+01 0.771113D+01
  0.555848D+00      0.388530D+01 0.785914D+01
  0.704561D+00      0.342064D+01 0.222713D+01
  0.823142D+00      0.661662D+01 0.573569D+01
  0.868947D+00      0.501910D+00 0.467205D+01
  0.900907D+00      0.364291D+01 0.265947D+01
  0.954622D+00      0.324223D+01 0.309519D+01
  0.964555D+00      0.225239D+00 0.127158D+01
  0.115379D+01      0.785935D+01 0.108638D+01
  0.116434D+01      0.749503D+01 0.988056D+01
  0.119285D+01      0.370555D+01 0.200318D+01
  0.123718D+01      0.623066D+00 0.780378D+01
  0.137011D+01      0.367997D+01 0.201019D+01
  0.141258D+01      0.945430D+00 0.773674D+01
  0.151593D+01      0.116921D+01 0.352406D+01
  0.179849D+01      0.217885D+01 0.145083D+01
  0.190835D+01      0.323607D+01 0.667735D+00
  0.191046D+01      0.559040D+01 0.961535D+01
  0.191503D+01      0.343187D+00 0.776099D+01
  0.230573D+01      0.803376D+01 0.499941D+01
  0.254807D+01      0.525537D+01 0.283691D+01
  0.257586D+01      0.509367D+01 0.495208D+01
  0.262784D+01      0.500561D+01 0.209178D+01
  0.325041D+01      0.885983D+00 0.368698D+01
  0.326733D+01      0.732398D+00 0.766488D+01
  0.337280D+01      0.468597D+01 0.422007D+01
  0.350948D+01      0.719896D+01 0.731396D+01
  0.357099D+01      0.499439D+01 0.790822D+01
  0.405969D+01      0.671855D+01 0.257803D+01
  0.432602D+01      0.687774D+01 0.168740D+01
  0.446024D+01      0.676393D+01 0.933226D+01
  0.453609D+01      0.527022D+00 0.759879D+01
  0.456352D+01      0.538540D+01 0.447826D+01
  0.486093D+01      0.673213D+01 0.200991D+01
  0.486293D+01      0.656233D+01 0.183906D+01
  0.515646D+01      0.703443D+01 0.412004D+01
  0.533476D+01      0.965681D+01 0.223901D+01
  0.542220D+01      0.376951D+01 0.765907D+01
  0.564774D+01      0.677522D+01 0.173098D+01
  0.567173D+01      0.521764D+01 0.917042D+00
  0.644860D+01      0.338338D+01 0.426431D+01
  0.702964D+01      0.489694D+01 0.655535D+01
  0.726145D+01      0.510306D+01 0.344465D+01
  0.730418D+01      0.133943D+01 0.986551D+01
  0.747593D+01      0.657936D+01 0.777287D+01
  0.758137D+01      0.393210D+01 0.719541D+01
  0.795010D+01      0.328145D+01 0.742197D+01
  0.834934D+01      0.474463D+01 0.716309D+01
  0.872405D+01      0.955914D+01 0.761657D+01
  0.876158D+01      0.635709D+01 0.734053D+01
  0.898634D+01      0.955993D+01 0.416685D+01
  0.906369D+01      0.975225D+01 0.166906D+01
  0.105700D+02      0.371521D+01 0.707993D+01
  0.110008D+02      0.518387D+01 0.743567D+01
  0.115676D+02      0.954373D+01 0.729823D+01
  0.135899D+02      0.675777D+01 0.690481D+01
  0.160208D+02      0.826511D+01 0.707110D+01

 ITERC =   1     IVAL =   243
 MEAN F = -0.841885D+01     OPT F = -0.178022D+02     SIGMA =  0.384819D+01
 PARAMETERS =
  0.911402D+01 0.853273D+01

 ITERC =   2     IVAL =   358
 MEAN F = -0.118710D+02     OPT F = -0.181390D+02     SIGMA =  0.327135D+01
 PARAMETERS =
  0.911402D+01 0.864645D+01

 ITERC =   3     IVAL =   473
 MEAN F = -0.144843D+02     OPT F = -0.184786D+02     SIGMA =  0.267260D+01
 PARAMETERS =
  0.901988D+01 0.871903D+01

 ITERC =   4     IVAL =   588
 MEAN F = -0.167460D+02     OPT F = -0.185302D+02     SIGMA =  0.170725D+01
 PARAMETERS =
  0.903595D+01 0.863288D+01

 ITERC =   5     IVAL =   703
 MEAN F = -0.181048D+02     OPT F = -0.185524D+02     SIGMA =  0.684383D+00
 PARAMETERS =
  0.904341D+01 0.866116D+01

 ITERC =   6     IVAL =   818
 MEAN F = -0.184705D+02     OPT F = -0.185529D+02     SIGMA =  0.847686D-01
 PARAMETERS =
  0.903595D+01 0.867595D+01


 OPTIMUM REACHED

 FINAL POPULATION

  -18.5529         9.0360    8.6760
  -18.5524         9.0434    8.6612
  -18.5489         9.0329    8.6554
  -18.5443         9.0434    8.6464
  -18.5430         9.0329    8.6464
  -18.5428         9.0329    8.6901
  -18.5399         9.0528    8.6612
  -18.5348         9.0552    8.6612
  -18.5344         9.0514    8.6464
  -18.5318         9.0528    8.6464
  -18.5302         9.0360    8.6329
  -18.5272         9.0199    8.6760
  -18.5267         9.0199    8.6773
  -18.5267         9.0552    8.6464
  -18.5227         9.0434    8.7081
  -18.5128         9.0152    8.6612
  -18.5122         9.0152    8.6773
  -18.5081         9.0618    8.6464
  -18.5065         9.0622    8.6464
  -18.5047         9.0152    8.6464
  -18.5047         9.0152    8.6464
  -18.5047         9.0152    8.6464
  -18.5023         9.0329    8.7190
  -18.5023         9.0329    8.7190
  -18.5023         9.0329    8.7190
  -18.4977         9.0199    8.7081
  -18.4971         9.0669    8.6612
  -18.4971         9.0669    8.6612
  -18.4971         9.0669    8.6612
  -18.4971         9.0669    8.6612
  -18.4947         9.0669    8.6550
  -18.4947         9.0669    8.6550
  -18.4947         9.0669    8.6550
  -18.4944         9.0199    8.6260
  -18.4890         9.0669    8.6464
  -18.4890         9.0669    8.6464
  -18.4890         9.0669    8.6464
  -18.4890         9.0669    8.6464
  -18.4890         9.0669    8.6464
  -18.4890         9.0669    8.6464
  -18.4890         9.0669    8.6464
  -18.4890         9.0669    8.6464
  -18.4890         9.0669    8.6464
  -18.4826         9.0199    8.7169
  -18.4786         9.0199    8.7190
  -18.4786         9.0199    8.7190
  -18.4786         9.0199    8.7190
  -18.4786         9.0199    8.7190
  -18.4786         9.0199    8.7190
  -18.4659         9.0622    8.7190
  -18.4642         9.0669    8.6260
  -18.4311         9.0199    8.5967
  -18.4293         9.0199    8.7399
  -18.4293         9.0199    8.7399
  -18.4148         9.0199    8.5909
  -18.4148         9.0199    8.5909
  -18.3845         9.0669    8.5909
  -18.3845         9.0669    8.5909
  -18.3171         9.0199    8.5626
  -18.2869         9.0669    8.5626
  -18.2838         9.0669    8.5618
  -18.2160         9.0199    8.5395
  -18.1651         9.0669    8.5353
  -18.1651         9.1116    8.6464
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000
    0.0000         0.0000    0.0000