!module formats

  !! formats for ga_main
  1050 format (1 x, '  #      Binary Code', 16 x, 'Param1  Param2  Fitness')
1111	format('1','#################  Generation',i 5,'  #################')
1225	format(/'  Number of Crossovers      =',i5)
1400	format(2x,'CPU time for all generations=',e12.6,' sec'/ &
			&	2x,'                             ',e12.6,' min')
3000	format(2x//'Summary of Output'/ &
			&	2x,'Generation   Evaluations   Avg.Fitness   Best Fitness')
3100	format(2x,3(e10.4,4x),e11.5)

		!! formats for ga_fitness
1075	format(i3,1x,1485i1,99(1x,f9.4),1x,f9.5)
!1075	format(i3,1x,30i1,2(1x,f7.4),1x,f8.5)
1100	format(1x,'Average Function Value of Generation=',f8.5)
1200	format(1x,'Maximum Function Value              =',f8.5/)
1275	format(/' Average Values:',18x,99(1x,f9.4),1x,f8.5/)
!1275	format(/' Average Values:',18x,2(1x,f7.4),1x,f8.5/)

		!! formats for ga_aux
1600	format(1x,'ERROR: npopsiz > indmax.  Set indmax = ',i6)
1700	format(1x,'ERROR: nparam > nparmax.  Set nparmax = ',i6)
1800	format(1x,'ERROR: nchrome > nchrmax.  Set nchrmax = ',i6)
2100	format(1x,'WARNING: for some cases, a considerable performance'/ &
			&	1x,'   reduction has been observed when running a non-'/ &
			&	1x,'   optimal number of bits with the micro-GA.'/ &
			&	1x,'   If possible, use values for nposibl of 2**n,'/ &
			&	1x,'   e.g. 2, 4, 8, 16, 32, 64, etc.  See ReadMe file.')
1000	format('*** Parameter adjustment to individual     ',i4, &
			&	', parameter  ',i3,' ***')
1500 	format(i5,3x,30i2)

		!! formats for ga_mutation
1251	format(/'  Number of Jump Mutations  =',i5/)
1252	format(/'  Number of Creep Mutations =',i5/)
1300	format('*** Jump mutation performed on individual  ',i4, &
			&	', chromosome ',i3,' ***')
1350	format('*** Creep mutation performed on individual ',i4, &
			&	', parameter  ',i3,' ***')

		!! formats for ga_mate
1260 	format('  Elitist Reproduction on Individual ',i4)

		!! formats for ga_microgas
1375 	format(//'%%%%%%%  Restart micro-population at generation', &
			&	i5,'  %%%%%%%')

		!! formats for niche
1900	format(1x,'ERROR: iniche=1 and all values in nichflg array = 0'/ &
			&	1x,'       Do you want to niche or not?')
!end module formats