hdiff output

r33319/keywords.f 2017-09-18 10:30:13.466720700 +0100 r33318/keywords.f 2017-09-18 10:30:13.710723911 +0100
309:       ZETT1=.FALSE.309:       ZETT1=.FALSE.
310:       ZETT2=.FALSE.310:       ZETT2=.FALSE.
311:       P46=.FALSE.311:       P46=.FALSE.
312:       G46=.FALSE.312:       G46=.FALSE.
313:       BLNT=.FALSE.313:       BLNT=.FALSE.
314:       CHAPERONINT=.FALSE.314:       CHAPERONINT=.FALSE.
315:       DFTBT=.FALSE.315:       DFTBT=.FALSE.
316:       DFTBCT=.FALSE.316:       DFTBCT=.FALSE.
317:       LJATT=.FALSE.317:       LJATT=.FALSE.
318:       SW=.FALSE.318:       SW=.FALSE.
319:       QUIPT=.FALSE.319:       QUIPT =.FALSE.
320:       QUIPZ=14 ! default is silicon 
321:       XMUL=1320:       XMUL=1
322:       SCT=.FALSE.321:       SCT=.FALSE.
323:       MSCT=.FALSE.322:       MSCT=.FALSE.
324:       MGUPTAT=.FALSE.323:       MGUPTAT=.FALSE.
325:       SQUEEZET=.FALSE.324:       SQUEEZET=.FALSE.
326:       NVEC=0325:       NVEC=0
327: !     SQUEEZER=5.0D0326: !     SQUEEZER=5.0D0
328: !     SQUEEZED=0.95D0327: !     SQUEEZED=0.95D0
329:       DEBUG=.FALSE.328:       DEBUG=.FALSE.
330:       DEBUGss2029=.FALSE.329:       DEBUGss2029=.FALSE.
5622:          LAT(2,3)=-BOXLZ*sin(PBETA)*COS(XX)5621:          LAT(2,3)=-BOXLZ*sin(PBETA)*COS(XX)
5623: 5622: 
5624:          XX=SQRT(1.D0-COS(PALPHA)*COS(PALPHA)-COS(PBETA)*COS(PBETA)5623:          XX=SQRT(1.D0-COS(PALPHA)*COS(PALPHA)-COS(PBETA)*COS(PBETA)
5625:      1     -COS(PGAMMA)*COS(PGAMMA)+2.D0*COS(PALPHA)*COS(PBETA)*COS(PGAMMA))5624:      1     -COS(PGAMMA)*COS(PGAMMA)+2.D0*COS(PALPHA)*COS(PBETA)*COS(PGAMMA))
5626: 5625: 
5627:          XX=SIN(PGAMMA)/BOXLZ/XX5626:          XX=SIN(PGAMMA)/BOXLZ/XX
5628: 5627: 
5629:          LAT(3,1)=0.D05628:          LAT(3,1)=0.D0
5630:          LAT(3,2)=0.D05629:          LAT(3,2)=0.D0
5631:          LAT(3,3)=1.D0/XX5630:          LAT(3,3)=1.D0/XX
5632:  
5633:          WRITE(MYUNIT,*) 'keywords> Lattice vectors calculated as:' 
5634:          WRITE(MYUNIT,*)LAT(:,1)5631:          WRITE(MYUNIT,*)LAT(:,1)
5635:          WRITE(MYUNIT,*)LAT(:,2)5632:          WRITE(MYUNIT,*)LAT(:,2)
5636:          WRITE(MYUNIT,*)LAT(:,3)5633:          WRITE(MYUNIT,*)LAT(:,3)
5637: 5634: 
5638: !5635: !
5639: ! If permdist is set then distance calculations are performed with minpermdist instead5636: ! If permdist is set then distance calculations are performed with minpermdist instead
5640: ! of newmindist in procedures such as AVOID and CSM. This keyword is now independent5637: ! of newmindist in procedures such as AVOID and CSM. This keyword is now independent
5641: ! from PERMOPT5638: ! from PERMOPT
5642: !5639: !
5643:       ELSE IF (WORD.EQ.'PERMDIST'.AND.PERMOPT) THEN5640:       ELSE IF (WORD.EQ.'PERMDIST'.AND.PERMOPT) THEN
7578:       ELSE IF (WORD.EQ.'SUPERSTEP') THEN7575:       ELSE IF (WORD.EQ.'SUPERSTEP') THEN
7579:          SUPERSTEP=.TRUE.7576:          SUPERSTEP=.TRUE.
7580:          IF (NITEMS.GT.1) CALL READI(NSUPER)7577:          IF (NITEMS.GT.1) CALL READI(NSUPER)
7581:          IF (NITEMS.GT.2) CALL READF(SUPSTEP)7578:          IF (NITEMS.GT.2) CALL READF(SUPSTEP)
7582:          IF (NITEMS.GT.3) CALL READF(TEMPS)7579:          IF (NITEMS.GT.3) CALL READF(TEMPS)
7583:          IF (NITEMS.GT.4) CALL READF(SACCRAT)7580:          IF (NITEMS.GT.4) CALL READF(SACCRAT)
7584:          IF (NITEMS.GT.5) CALL READI(NSACCEPT)7581:          IF (NITEMS.GT.5) CALL READI(NSACCEPT)
7585: 7582: 
7586:       ELSE IF (WORD.EQ.'SW') THEN7583:       ELSE IF (WORD.EQ.'SW') THEN
7587:          SW=.TRUE.7584:          SW=.TRUE.
7588:       ELSE IF (WORD.EQ.'QUIPZ') THEN 
7589:          CALL READI(QUIPZ) 
7590:  
7591:       ELSE IF (WORD.EQ.'QUIPLATT') THEN 
7592:           CALL READF(QUIPLATT(1,1)) 
7593:           CALL READF(QUIPLATT(2,1)) 
7594:           CALL READF(QUIPLATT(3,1)) 
7595:           CALL READF(QUIPLATT(1,2)) 
7596:           CALL READF(QUIPLATT(2,2)) 
7597:           CALL READF(QUIPLATT(3,2)) 
7598:           CALL READF(QUIPLATT(1,3)) 
7599:           CALL READF(QUIPLATT(2,3)) 
7600:           CALL READF(QUIPLATT(3,3)) 
7601:  
7602:       ELSE IF (WORD.EQ.'QUIP') THEN7585:       ELSE IF (WORD.EQ.'QUIP') THEN
7603:          QUIPT=.TRUE.7586:          QUIPT=.TRUE.
7604: !        QUIPATOMTYPE='Ag '7587:          QUIPATOMTYPE='Ag '
7605: !        QUIPEQDIST=2.0D0**(1.0D0/6.0D0)7588:          QUIPEQDIST=2.0D0**(1.0D0/6.0D0)
7606: !        QUIPARGSTR='IP LJ'7589:          QUIPARGSTR='IP LJ'
7607: !        IF (NITEMS.GT.1) THEN7590:          IF (NITEMS.GT.1) THEN
7608: !           CALL READA(QUIPATOMTYPE)7591:             CALL READA(QUIPATOMTYPE)
7609: !           CALL READF(QUIPEQDIST)7592:             CALL READF(QUIPEQDIST)
7610: !           CALL READA(QUIPARGSTR)7593:             CALL READA(QUIPARGSTR)
7611: !        ENDIF7594:          ENDIF
7612:       ELSE IF (WORD.EQ.'SETCHIRAL') THEN7595:       ELSE IF (WORD.EQ.'SETCHIRAL') THEN
7613:          SETCHIRAL=.TRUE.7596:          SETCHIRAL=.TRUE.
7614:       ELSE IF (WORD.EQ.'SETCHIRALGENERIC') THEN7597:       ELSE IF (WORD.EQ.'SETCHIRALGENERIC') THEN
7615:          SETCHIRALGENERIC=.TRUE.7598:          SETCHIRALGENERIC=.TRUE.
7616: !7599: !
7617:       ELSE IF (WORD .EQ. 'PRINT_PTGRP') THEN7600:       ELSE IF (WORD .EQ. 'PRINT_PTGRP') THEN
7618:          PRINT_PTGRP = .TRUE.7601:          PRINT_PTGRP = .TRUE.
7619:          IF (NITEMS.GT.1) CALL READF(SYMTOL1)7602:          IF (NITEMS.GT.1) CALL READF(SYMTOL1)
7620:          IF (NITEMS.GT.2) CALL READF(SYMTOL2)7603:          IF (NITEMS.GT.2) CALL READF(SYMTOL2)
7621:          IF (NITEMS.GT.3) CALL READF(SYMTOL3)7604:          IF (NITEMS.GT.3) CALL READF(SYMTOL3)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0