hdiff output

r13659/charmm_main.src 2017-01-21 10:32:23.751188235 +0000 r13658/charmm_main.src 2017-01-21 10:32:24.451188235 +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)  3:       SUBROUTINE CHSETUP(XO,YO,ZO,MASSO,NATOMO)
  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, FLENGTH129:       INTEGER NATOMO
130:       CHARACTER*100 TOPFILE, PARFILE 
131:       REAL*8  XO(MAXAIM),YO(MAXAIM),ZO(MAXAIM), MASSO(MAXAIM)130:       REAL*8  XO(MAXAIM),YO(MAXAIM),ZO(MAXAIM), MASSO(MAXAIM)
132: ##ENDIF131: ##ENDIF
133: C132: C
134: C     The following are local variables.133: C     The following are local variables.
135: C134: C
136:       INTEGER   ISTART135:       INTEGER   ISTART
137: C136: C
138:       LOGICAL   EOF,ERROR137:       LOGICAL   EOF,ERROR
139:       LOGICAL   LUSED,OK138:       LOGICAL   LUSED,OK
140:       LOGICAL   WANTQU139:       LOGICAL   WANTQU
262:       CALL PTRINI261:       CALL PTRINI
263: C262: C
264: C     Get the CHARMM command line arguments and initialize for different263: C     Get the CHARMM command line arguments and initialize for different
265: C     platforms different variables. Check if CHARMM should communicate264: C     platforms different variables. Check if CHARMM should communicate
266: C     with QUANTA or not265: C     with QUANTA or not
267: ##IFN UNICOS266: ##IFN UNICOS
268:       CALL ARGUMT(WANTQU)267:       CALL ARGUMT(WANTQU)
269: ##ENDIF268: ##ENDIF
270: C269: C
271: C     Initialize local variables270: C     Initialize local variables
272: ##IF OPTIM 
273:       ILOOP=0 
274: ##ENDIF 
275:       COMLEN=0271:       COMLEN=0
276:       ALTLEN=0272:       ALTLEN=0
277:       ISTART=1273:       ISTART=1
278: C274: C
279: C     -- mikem -> 03-Dec-91275: C     -- mikem -> 03-Dec-91
280: ##IF QUANTA276: ##IF QUANTA
281: C     Check if want quanta communications; if so, initialize277: C     Check if want quanta communications; if so, initialize
282:       IF (WANTQU) CALL QuantaInit278:       IF (WANTQU) CALL QuantaInit
283: ##ELSE279: ##ELSE
284:       QUANTAOK=.FALSE.280:       QUANTAOK=.FALSE.
402: C      <- mikem --398: C      <- mikem --
403: C399: C
404: C     main loop command reader400: C     main loop command reader
405:       CALL RDCMND(COMLYN,MXCMSZ,COMLEN,ISTRM,EOF,.TRUE.,.TRUE.,401:       CALL RDCMND(COMLYN,MXCMSZ,COMLEN,ISTRM,EOF,.TRUE.,.TRUE.,
406:      $            'CHARMM> ')402:      $            'CHARMM> ')
407: C403: C
408:  120  CONTINUE404:  120  CONTINUE
409: C405: C
410: C See if it is one of the miscellaneous commands...406: C See if it is one of the miscellaneous commands...
411:       CALL MISCOM(COMLYN,MXCMSZ,COMLEN,LUSED)407:       CALL MISCOM(COMLYN,MXCMSZ,COMLEN,LUSED)
412: ##IF OPTIM 
413:       IF (ILOOP.EQ.0) THEN 
414:          FLENGTH=LEN(TRIM(ADJUSTL(TOPFILE))) 
415:          IPAR = PARINS("TOP",3,TRIM(ADJUSTL(TOPFILE)),FLENGTH) 
416:          FLENGTH=LEN(TRIM(ADJUSTL(PARFILE))) 
417:          IPAR = PARINS("PAR",3,TRIM(ADJUSTL(PARFILE)),FLENGTH) 
418:       ENDIF 
419:       ILOOP=ILOOP+1 
420: ##ENDIF 
421: C 
422:       IF (.NOT.(.NOT.LUSED.OR.EOF)) GOTO 100408:       IF (.NOT.(.NOT.LUSED.OR.EOF)) GOTO 100
423: C409: C
424:       IF (EOF) THEN410:       IF (EOF) THEN
425: C411: C
426: C     If we run out of stuff on a particular stream, pop to the412: C     If we run out of stuff on a particular stream, pop to the
427: C     previous stream. quit when there are no more streams.413: C     previous stream. quit when there are no more streams.
428: C414: C
429:  140    CALL PPSTRM(OK)415:  140    CALL PPSTRM(OK)
430:         IF (.NOT.(OK)) THEN416:         IF (.NOT.(OK)) THEN
431: ##IF OPTIM417: ##IF OPTIM


r13659/machio.src 2017-01-21 10:32:24.055188235 +0000 r13658/machio.src 2017-01-21 10:32:24.751188235 +0000
 44:       character inpath*256, outpath*256 44:       character inpath*256, outpath*256
 45:       character outfile*32, infile*32 45:       character outfile*32, infile*32
 46:       INTEGER LLEN 46:       INTEGER LLEN
 47:       external cboincresolvefilename 47:       external cboincresolvefilename
 48:       external sleep 48:       external sleep
 49: ##ENDIF 49: ##ENDIF
 50: c 50: c
 51:       integer*4 firstreclen 51:       integer*4 firstreclen
 52: C 52: C
 53: C     begin 53: C     begin
 54: C 
 55:       ERR=.FALSE. 54:       ERR=.FALSE.
 56: C 55: C
 57: C 56: C
 58: C     Don't open files on a slave process. 57: C     Don't open files on a slave process.
 59: ##IF PARALLEL 58: ##IF PARALLEL
 60: ##IF PRLLOUT 59: ##IF PRLLOUT
 61:       if(mynod.ne.0)then 60:       if(mynod.ne.0)then
 62:          write(fnodnum,'("cout",i4.4)')mynod 61:          write(fnodnum,'("cout",i4.4)')mynod
 63:          write(outu,*) "Node ",mynod," opening ",fnodnum 62:          write(outu,*) "Node ",mynod," opening ",fnodnum
 64:          open (unit=6, file=fnodnum,status="NEW") 63:          open (unit=6, file=fnodnum,status="NEW")


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0