hdiff output

r26670/charmm_main.src 2017-01-21 10:32:49.123188235 +0000 r26669/charmm_main.src 2017-01-21 10:32:49.519188235 +0000
  1: CHARMM Element source/main/charmm.src 1.1  1: CHARMM Element source/main/charmm.src 1.1
  2: ##IF OPTIM  2: ##IF OPTIM
  3:       SUBROUTINE CHSETUP(XO,YO,ZO,MASSO,NATOMO,TOPFILE,PARFILE,MYSTRM)  3:       SUBROUTINE CHSETUP(XO,YO,ZO,MASSO,NATOMO,TOPFILE,PARFILE)
  4: ##ELSE  4: ##ELSE
  5:       PROGRAM CHARMM  5:       PROGRAM CHARMM
  6: ##ENDIF  6: ##ENDIF
  7: C  7: C
  8: C      Chemistry at HARvard Macromolecular Mechanics  8: C      Chemistry at HARvard Macromolecular Mechanics
  9: C      -            ---     -              -  9: C      -            ---     -              -
 10: C 10: C
 11: C      Version 31 - Developmental Version (c31a2) - February 15, 2004 11: C      Version 31 - Developmental Version (c31a2) - February 15, 2004
 12: C 12: C
 13: CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 13: CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
119: ##INCLUDE '~/charmm_fcm/quanta.fcm'119: ##INCLUDE '~/charmm_fcm/quanta.fcm'
120: ##ELSE120: ##ELSE
121:       LOGICAL QUANTAOK121:       LOGICAL QUANTAOK
122: ##ENDIF122: ##ENDIF
123: ##IF NEWTIMER123: ##IF NEWTIMER
124: ##INCLUDE '~/charmm_fcm/new_time.fcm'124: ##INCLUDE '~/charmm_fcm/new_time.fcm'
125: ##ENDIF125: ##ENDIF
126: C126: C
127: ##IF OPTIM127: ##IF OPTIM
128: ##INCLUDE '~/charmm_fcm/coord.fcm'128: ##INCLUDE '~/charmm_fcm/coord.fcm'
129:       INTEGER NATOMO, IPAR, ILOOP, FLENGTH, MYSTRM129:       INTEGER NATOMO, IPAR, ILOOP, FLENGTH
130:       CHARACTER*100 TOPFILE, PARFILE130:       CHARACTER*100 TOPFILE, PARFILE
131:       REAL*8  XO(MAXAIM),YO(MAXAIM),ZO(MAXAIM), MASSO(MAXAIM)131:       REAL*8  XO(MAXAIM),YO(MAXAIM),ZO(MAXAIM), MASSO(MAXAIM)
132: ##ENDIF132: ##ENDIF
133: C133: C
134: C     The following are local variables.134: C     The following are local variables.
135: C135: C
136:       INTEGER   ISTART136:       INTEGER   ISTART
137: C137: C
138:       LOGICAL   EOF,ERROR138:       LOGICAL   EOF,ERROR
139:       LOGICAL   LUSED,OK139:       LOGICAL   LUSED,OK
284:       QUANTAOK=.FALSE.284:       QUANTAOK=.FALSE.
285: ##ENDIF285: ##ENDIF
286: C     Open the input file and read title for run286: C     Open the input file and read title for run
287: C     attention: 'call header' have already been done by now287: C     attention: 'call header' have already been done by now
288:       IF (QUANTAOK) THEN288:       IF (QUANTAOK) THEN
289:         NSTRM=0289:         NSTRM=0
290:         ISTRM=-1290:         ISTRM=-1
291:         EOF=.FALSE.291:         EOF=.FALSE.
292:       ELSE292:       ELSE
293:         NSTRM=1293:         NSTRM=1
294: ##IF OPTIM 
295:         ISTRM=MYSTRM 
296: ##ELSE 
297:         ISTRM=5294:         ISTRM=5
298: ##ENDIF 
299:         JSTRM(NSTRM)=ISTRM295:         JSTRM(NSTRM)=ISTRM
300:         EOF=.FALSE.296:         EOF=.FALSE.
301:         CALL TRYORO(ISTRM,'FORMATTED')297:         CALL TRYORO(ISTRM,'FORMATTED')
302:         NTITLA=0298:         NTITLA=0
303:         CALL RDTITL(TITLEA,NTITLA,ISTRM,0)299:         CALL RDTITL(TITLEA,NTITLA,ISTRM,0)
304:       ENDIF300:       ENDIF
305: C     <- mikem --301: C     <- mikem --
306: C302: C
307: C=======================================================================303: C=======================================================================
308: C     START OF MAIN COMMAND LOOP304: C     START OF MAIN COMMAND LOOP


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0