hdiff output

r31985/mc.F 2017-02-28 11:30:14.444985798 +0000 r31984/mc.F 2017-02-28 11:30:14.700989198 +0000
999:                 if (rigidmdt) call rigidmd_nvt999:                 if (rigidmdt) call rigidmd_nvt
1000: 1000: 
1001:                ELSE IF (PYGPERIODICT.OR.PYBINARYT.OR.LJCAPSIDT) THEN1001:                ELSE IF (PYGPERIODICT.OR.PYBINARYT.OR.LJCAPSIDT) THEN
1002:                 IF(PERCGROUPT) THEN1002:                 IF(PERCGROUPT) THEN
1003: ! sf344> group particles according to percolation, reorder them1003: ! sf344> group particles according to percolation, reorder them
1004:                   CALL PERCGROUP(COORDS(1:3*NATOMS,JP),NATOMS,PERCGROUPCUT,DEBUG,MYUNIT,RIGID)1004:                   CALL PERCGROUP(COORDS(1:3*NATOMS,JP),NATOMS,PERCGROUPCUT,DEBUG,MYUNIT,RIGID)
1005:                   IF(NQ(JP)==0.AND.PERCGROUPRESEEDT) THEN !reseeding with coordinates in file coords.reseed1005:                   IF(NQ(JP)==0.AND.PERCGROUPRESEEDT) THEN !reseeding with coordinates in file coords.reseed
1006:                     OPEN(unit=299,file='coords.reseed',status='old')1006:                     OPEN(unit=299,file='coords.reseed',status='old')
1007:                     IF(ALLOCATED(RESEEDCOORDS)) DEALLOCATE(RESEEDCOORDS)1007:                     IF(ALLOCATED(RESEEDCOORDS)) DEALLOCATE(RESEEDCOORDS)
1008:                     ALLOCATE(RESEEDCOORDS(3*atomingroup(NATOMS/2)))1008:                     ALLOCATE(RESEEDCOORDS(3*atomingroup(NATOMS/2)))
1009:                     DO j3=1,atomingroup(NATOMS/2) ! this is the total number of groups1009:                     DO j1=1,atomingroup(NATOMS/2) ! this is the total number of groups
1010:                         ! we have to have just as many coordinates in coords.reseed1010:                         ! we have to have just as many coordinates in coords.reseed
1011:                        READ(299,*) RESEEDCOORDS(3*j3-2), RESEEDCOORDS(3*j3-1), RESEEDCOORDS(3*j3)  1011:                        READ(299,*) RESEEDCOORDS(3*j1-2), RESEEDCOORDS(3*j1-1), RESEEDCOORDS(3*j1)  
1012:                     END DO1012:                     END DO
1013:                     CLOSE(299)1013:                     CLOSE(299)
1014:                     CALL TAKESTEPPERCGROUPRESEED(JP)1014:                     CALL TAKESTEPPERCGROUPRESEED(JP)
1015:                   END IF1015:                   END IF
1016:                 END IF1016:                 END IF
1017: ! sf344> particles are now ordered according to the percolated groups they are in. Group indices are1017: ! sf344> particles are now ordered according to the percolated groups they are in. Group indices are
1018: !        saved in atomingroup(:)1018: !        saved in atomingroup(:)
1019: !               seed the random number generator with system time + MYNODE (for MPI runs)1019: !               seed the random number generator with system time + MYNODE (for MPI runs)
1020:                   IF(RANDOMSEEDT) THEN1020:                   IF(RANDOMSEEDT) THEN
1021:                      CALL DATE_AND_TIME(datechar,timechar,zonechar,values)1021:                      CALL DATE_AND_TIME(datechar,timechar,zonechar,values)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0