hdiff output

r29241/OPTIM.F 2015-11-17 23:32:37.832207447 +0000 r29240/OPTIM.F 2015-11-17 23:32:38.020209968 +0000
172:       IF ((INTCONSTRAINTT.OR.INTLJT).AND.(NCONGEOM.GE.2)) THEN172:       IF ((INTCONSTRAINTT.OR.INTLJT).AND.(NCONGEOM.GE.2)) THEN
173: !173: !
174: ! Set up all the constraints and repulsions for zero frozen atoms.174: ! Set up all the constraints and repulsions for zero frozen atoms.
175: !175: !
176:          IF (.NOT.ALLOCATED(CONI)) THEN176:          IF (.NOT.ALLOCATED(CONI)) THEN
177:             ALLOCATE(CONI(INTCONMAX),CONJ(INTCONMAX),CONDISTREF(INTCONMAX),CONCUT(INTCONMAX))177:             ALLOCATE(CONI(INTCONMAX),CONJ(INTCONMAX),CONDISTREF(INTCONMAX),CONCUT(INTCONMAX))
178:             ALLOCATE(REPI(NREPMAX),REPJ(NREPMAX),NREPI(NREPMAX),NREPJ(NREPMAX),REPCUT(NREPMAX),NREPCUT(NREPMAX))178:             ALLOCATE(REPI(NREPMAX),REPJ(NREPMAX),NREPI(NREPMAX),NREPJ(NREPMAX),REPCUT(NREPMAX),NREPCUT(NREPMAX))
179:          ENDIF179:          ENDIF
180:          INTFREEZETOLSAVE=INTFREEZETOL180:          INTFREEZETOLSAVE=INTFREEZETOL
181:          INTFREEZETOL=-1.0D0181:          INTFREEZETOL=-1.0D0
182:          PRINT *,'OPTIM> NCONGEOM=',NCONGEOM 
183:          CALL MAKE_CONPOT(NCONGEOM,CONGEOM) 182:          CALL MAKE_CONPOT(NCONGEOM,CONGEOM) 
184:          INTFREEZETOL=INTFREEZETOLSAVE 
185:       ENDIF183:       ENDIF
186: 184: 
187: 185: 
188:       IF (BLNT) THEN ! PUT THE FULL BLN LETTERS INTO ZSYM186:       IF (BLNT) THEN ! PUT THE FULL BLN LETTERS INTO ZSYM
189:          DO J1=1,NATOMS187:          DO J1=1,NATOMS
190:             ZSYM(J1)=BEADLETTER(J1) // 'L'188:             ZSYM(J1)=BEADLETTER(J1) // 'L'
191:          ENDDO189:          ENDDO
192:       ENDIF190:       ENDIF
193:       ZSYMSAVE=ZSYM(NATOMS)191:       ZSYMSAVE=ZSYM(NATOMS)
194:       IF (UNRST) ALLOCATE(INTSTEP(NINTS))192:       IF (UNRST) ALLOCATE(INTSTEP(NINTS))
887:          IF (DUMPV) CLOSE(44)885:          IF (DUMPV) CLOSE(44)
888:       ENDIF886:       ENDIF
889: 887: 
890: 765   IF (MULTIJOBT) THEN888: 765   IF (MULTIJOBT) THEN
891:          IF (INDEX(MULTISTART,'xyz').NE.0) THEN889:          IF (INDEX(MULTISTART,'xyz').NE.0) THEN
892:             READ(MULTISUNIT,'(A2)',END=864) DUMMYS890:             READ(MULTISUNIT,'(A2)',END=864) DUMMYS
893: !           PRINT '(2A)','DUMMYS=',DUMMYS891: !           PRINT '(2A)','DUMMYS=',DUMMYS
894:             READ(MULTISUNIT,'(A2)',END=864) DUMMYS892:             READ(MULTISUNIT,'(A2)',END=864) DUMMYS
895: !           PRINT '(2A)','DUMMYS=',DUMMYS893: !           PRINT '(2A)','DUMMYS=',DUMMYS
896:             DO J1=1,NATOMS894:             DO J1=1,NATOMS
897: !              READ(MULTISUNIT,'(A2,1X,3G20.10)',END=864) DUMMYS,Q(3*(J1-1)+1:3*(J1-1)+3)895:                READ(MULTISUNIT,'(A2,1X,3G20.10)',END=864) DUMMYS,Q(3*(J1-1)+1:3*(J1-1)+3)
898:                READ(MULTISUNIT,*,END=864) DUMMYS,Q(3*(J1-1)+1:3*(J1-1)+3) 
899:             ENDDO896:             ENDDO
900: !           PRINT *,'Q=',Q(1:NOPT)897: !           PRINT *,'Q=',Q(1:NOPT)
901:          ELSE898:          ELSE
902:             READ(MULTISUNIT,*,END=864) Q(1:NOPT)899:             READ(MULTISUNIT,*,END=864) Q(1:NOPT)
903: !           PRINT *,'Q=',Q(1:NOPT)900: !           PRINT *,'Q=',Q(1:NOPT)
904:          ENDIF901:          ENDIF
905:          PRINT '(A)',' OPTIM> Start coordinates overwritten from file '//TRIM(ADJUSTL(MULTISTART))902:          PRINT '(A)',' OPTIM> Start coordinates overwritten from file '//TRIM(ADJUSTL(MULTISTART))
906:          IF (GTHOMSONT) THEN903:          IF (GTHOMSONT) THEN
907: ! Convert Cartesian input coordiantes to polars904: ! Convert Cartesian input coordiantes to polars
908:             CALL GTHOMSONCTOANG(Q(1:3*NATOMS), THTEMP(1:3*NATOMS), NATOMS, 6)905:             CALL GTHOMSONCTOANG(Q(1:3*NATOMS), THTEMP(1:3*NATOMS), NATOMS, 6)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0