hdiff output

r30161/keywords.f 2016-03-16 18:33:27.586999402 +0000 r30160/keywords.f 2016-03-16 18:33:27.787001458 +0000
4904:             LPERMDIST=.TRUE.4904:             LPERMDIST=.TRUE.
4905:             IF (NITEMS.GT.1) CALL READI(LOCALPERMNEIGH)4905:             IF (NITEMS.GT.1) CALL READI(LOCALPERMNEIGH)
4906:             IF (NITEMS.GT.2) CALL READF(LOCALPERMCUT)4906:             IF (NITEMS.GT.2) CALL READF(LOCALPERMCUT)
4907:             IF (NITEMS.GT.3) CALL READF(LOCALPERMCUT2)4907:             IF (NITEMS.GT.3) CALL READF(LOCALPERMCUT2)
4908:             ! IF (NITEMS.GT.3) CALL READI(LOCALPERMMAXSEP)4908:             ! IF (NITEMS.GT.3) CALL READI(LOCALPERMMAXSEP)
4909:             WRITE(MYUNIT,'(A,F15.5)') ' keyword> Local permutational alignment: alignment threshold=',LOCALPERMCUT4909:             WRITE(MYUNIT,'(A,F15.5)') ' keyword> Local permutational alignment: alignment threshold=',LOCALPERMCUT
4910:             WRITE(MYUNIT,'(A,F15.5)') ' keyword> Local permutational alignment: alignment cutoff=   ',LOCALPERMCUT24910:             WRITE(MYUNIT,'(A,F15.5)') ' keyword> Local permutational alignment: alignment cutoff=   ',LOCALPERMCUT2
4911:          ELSEIF (WORD.EQ.'PERMDIST') THEN4911:          ELSEIF (WORD.EQ.'PERMDIST') THEN
4912:             IF (NITEMS.GT.1) CALL READF(ORBITTOL)4912:             IF (NITEMS.GT.1) CALL READF(ORBITTOL)
4913:             IF (NITEMS.GT.2) CALL READI(MAXNSETS)4913:             IF (NITEMS.GT.2) CALL READI(MAXNSETS)
4914:             WRITE(MYUNIT, '(A,F15.5)') ' keyword> Distance tolerance for distinguising atoms in the same orbit=',ORBITTOL4914:             WRITE(MYUNIT, '(A,F15.5)'),' keyword> Distance tolerance for distinguising atoms in the same orbit=',ORBITTOL
4915:             WRITE(MYUNIT, '(A,I3)') ' keyword> Maximum number of secondary sets in perm.allow file=', MAXNSETS4915:             WRITE(MYUNIT, '(A,I3)'),' keyword> Maximum number of secondary sets in perm.allow file=', MAXNSETS
4916:          ENDIF4916:          ENDIF
4917: 4917: 
4918:          INQUIRE(FILE='perm.allow',EXIST=PERMFILE)4918:          INQUIRE(FILE='perm.allow',EXIST=PERMFILE)
4919:          IF (.NOT.ALLOCATED(NPERMSIZE)) THEN4919:          IF (.NOT.ALLOCATED(NPERMSIZE)) THEN
4920:             ALLOCATE(NPERMSIZE(NATOMSALLOC),PERMGROUP(NATOMSALLOC),NSETS(NATOMSALLOC),SETS(NATOMSALLOC,MAXNSETS))4920:             ALLOCATE(NPERMSIZE(NATOMSALLOC),PERMGROUP(NATOMSALLOC),NSETS(NATOMSALLOC),SETS(NATOMSALLOC,MAXNSETS))
4921:          ENDIF4921:          ENDIF
4922:          IF (PERMFILE) THEN4922:          IF (PERMFILE) THEN
4923:             OPEN(UNIT=1,FILE='perm.allow',STATUS='OLD')4923:             OPEN(UNIT=1,FILE='perm.allow',STATUS='OLD')
4924:             READ(1,*) NPERMGROUP4924:             READ(1,*) NPERMGROUP
4925:             NDUMMY=14925:             NDUMMY=1


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0