hdiff output

r29169/main.F 2015-11-17 23:33:41.901066683 +0000 r29168/main.F 2015-11-17 23:33:42.093069259 +0000
150: !                WRITE(MYUNIT,*) TWIST_ATOMS(1:4, J1)150: !                WRITE(MYUNIT,*) TWIST_ATOMS(1:4, J1)
151: !                WRITE(MYUNIT,*) 'Group J1  k value, ref.dihedral:'151: !                WRITE(MYUNIT,*) 'Group J1  k value, ref.dihedral:'
152: !                WRITE(MYUNIT,*) TWIST_K(J1), TWIST_THETA0(J1)152: !                WRITE(MYUNIT,*) TWIST_K(J1), TWIST_THETA0(J1)
153: !              END DO153: !              END DO
154: !        END IF154: !        END IF
155: 155: 
156:       IF (RIGIDINIT) THEN156:       IF (RIGIDINIT) THEN
157:           CALL GENRIGID_READ_FROM_FILE ()157:           CALL GENRIGID_READ_FROM_FILE ()
158: ! csw34> Tell the user how many degrees of freedom there are in the system158: ! csw34> Tell the user how many degrees of freedom there are in the system
159:           WRITE(MYUNIT, '(A,I15)') " genrigid> rbodyconfig used to specifiy rigid bodies, degrees of freedom now ", DEGFREEDOMS159:           WRITE(MYUNIT, '(A,I15)') " genrigid> rbodyconfig used to specifiy rigid bodies, degrees of freedom now ", DEGFREEDOMS
160:           IF (GCBHT) THEN 
161: ! csw34> Make sure we aren't running GCBH with rigid bodies - very dangerous! Could be done but only with great care... 
162:               WRITE(MYUNIT, '(A)') " genrigid> ERROR: cannot use rigid bodies with GCBH! Stopping." 
163:               STOP                 
164:           END IF 
165:       END IF160:       END IF
166: 161: 
167:       IF (CUDAT) THEN162:       IF (CUDAT) THEN
168:          IF ((CUDAPOT .EQ. 'A') .AND. (.NOT. AMBER12T)) THEN163:          IF ((CUDAPOT .EQ. 'A') .AND. (.NOT. AMBER12T)) THEN
169:             WRITE(MYUNIT,'(A)') " main> The AMBER12 keyword must be used with 'CUDA A'. "164:             WRITE(MYUNIT,'(A)') " main> The AMBER12 keyword must be used with 'CUDA A'. "
170:             STOP165:             STOP
171:          END IF166:          END IF
172:          IF (DEBUG) THEN167:          IF (DEBUG) THEN
173:             CUDAFILENAME1 ="GPU_debug_out"168:             CUDAFILENAME1 ="GPU_debug_out"
174:             OPEN(UNIT=325, FILE=CUDAFILENAME1, STATUS="REPLACE")169:             OPEN(UNIT=325, FILE=CUDAFILENAME1, STATUS="REPLACE")


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0