hdiff output

r30620/ga_modules.f90 2016-07-06 15:37:50.921054738 +0100 r30619/ga_modules.f90 2016-07-06 15:37:51.273059414 +0100
 30:    DOUBLE PRECISION :: MYGA_BH_INIT !Initial # of basin-hopping steps for each individual 30:    DOUBLE PRECISION :: MYGA_BH_INIT !Initial # of basin-hopping steps for each individual
 31:    DOUBLE PRECISION :: MYGA_BH_INCR=0 !Increment for basin-hopping steps after each generation 31:    DOUBLE PRECISION :: MYGA_BH_INCR=0 !Increment for basin-hopping steps after each generation
 32:    DOUBLE PRECISION :: MYGA_BH_STEPS !Current # of basin-hopping steps for each individual 32:    DOUBLE PRECISION :: MYGA_BH_STEPS !Current # of basin-hopping steps for each individual
 33:    LOGICAL :: MYGA_DUMP_POP=.FALSE. !Dump genomes of whole population to files after each generation 33:    LOGICAL :: MYGA_DUMP_POP=.FALSE. !Dump genomes of whole population to files after each generation
 34:    LOGICAL :: MYGA_TWIN=.FALSE. !Allow twinning moves (mating with two copies of one parent) 34:    LOGICAL :: MYGA_TWIN=.FALSE. !Allow twinning moves (mating with two copies of one parent)
 35: END MODULE MYGA_PARAMS 35: END MODULE MYGA_PARAMS
 36: ! 36: !
 37: ! Module to hold whole population of genetic algorithm 37: ! Module to hold whole population of genetic algorithm
 38: ! 38: !
 39: MODULE MYGA_POPULATION 39: MODULE MYGA_POPULATION
 40:    USE MYGA_PARAMS 40: !   USE MYGA_PARAMS
 41:    IMPLICIT NONE 41:    IMPLICIT NONE
 42:    INTEGER, ALLOCATABLE :: MYGA_POP_FOUND(:) 42:    INTEGER, ALLOCATABLE :: MYGA_POP_FOUND(:)
 43:    DOUBLE PRECISION, ALLOCATABLE :: MYGA_POP_ENERGY(:) 43:    DOUBLE PRECISION, ALLOCATABLE :: MYGA_POP_ENERGY(:)
 44:    DOUBLE PRECISION, ALLOCATABLE :: MYGA_POP_GENOME(:,:) !3*natoms,popsize 44:    DOUBLE PRECISION, ALLOCATABLE :: MYGA_POP_GENOME(:,:) !3*natoms,popsize
 45:    DOUBLE PRECISION, ALLOCATABLE :: MYGA_POP_COORDS(:,:) !3*natoms,popsize 45:    DOUBLE PRECISION, ALLOCATABLE :: MYGA_POP_COORDS(:,:) !3*natoms,popsize
 46:    DOUBLE PRECISION, ALLOCATABLE :: MYGA_POP_FITNESS(:) !Fitness for roulette selection 46:    DOUBLE PRECISION, ALLOCATABLE :: MYGA_POP_FITNESS(:) !Fitness for roulette selection
 47:    INTEGER, ALLOCATABLE :: MYGA_POP_TYPE(:,:) !Atom types for multi-component clusters. 47:    INTEGER, ALLOCATABLE :: MYGA_POP_TYPE(:,:) !Atom types for multi-component clusters.
 48:    INTEGER, ALLOCATABLE :: MYGA_POP_MOVE(:,:) !Attempted move record 3,popsize 48:    INTEGER, ALLOCATABLE :: MYGA_POP_MOVE(:,:) !Attempted move record 3,popsize
 49:    INTEGER, ALLOCATABLE :: MYGA_MOVE_HISTORY(:,:) !Move history 4,natoms (1=Attempted crossovers, 2=accepted crossovers, 3=attempted mutations, 4=accepted mutations) 49:    INTEGER, ALLOCATABLE :: MYGA_MOVE_HISTORY(:,:) !Move history 4,natoms (1=Attempted crossovers, 2=accepted crossovers, 3=attempted mutations, 4=accepted mutations)
 50: END MODULE MYGA_POPULATION 50: END MODULE MYGA_POPULATION


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0