hdiff output

r25843/amberinterface.f 2017-03-30 13:31:30.109311129 +0100 r25842/amberinterface.f 2017-03-30 13:31:30.369314577 +0100
105: 105: 
106: ! determine memory sizes for allocating arrays106: ! determine memory sizes for allocating arrays
107:      call mdread1()107:      call mdread1()
108:      call amopen(8,parm,'O','F','R')108:      call amopen(8,parm,'O','F','R')
109:      call rdparm1(8)109:      call rdparm1(8)
110: 110: 
111:       !        --- now, we can allocate memory:111:       !        --- now, we can allocate memory:
112: ! to prevent memory leaks, we need to call locmem only when whe initialize the AMBER interface,112: ! to prevent memory leaks, we need to call locmem only when whe initialize the AMBER interface,
113: ! and not again during MD steptaking moves!113: ! and not again during MD steptaking moves!
114: 114: 
115: ! jdf43> told me to do this115: IF(ncalls<3)     call locmem(.false.)
116: IF(NCALLS .EQ. 1)     CALL LOCMEM(.FALSE.) 
117: 116: 
118: if (master) then117: if (master) then
119: !   write(MYUNITNEW,*) 'lcrd', lcrd118: !   write(MYUNITNEW,*) 'lcrd', lcrd
120:       write(MYUNITNEW,'(/,a,5x,a)') '|','Memory Use     Allocated'119:       write(MYUNITNEW,'(/,a,5x,a)') '|','Memory Use     Allocated'
121:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Real      ', lastr120:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Real      ', lastr
122:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Hollerith ', lasth121:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Hollerith ', lasth
123:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Integer   ', lasti122:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Integer   ', lasti
124:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Max Pairs ', lastpr123:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Max Pairs ', lastpr
125: end if124: end if
126:       !     --- dynamic memory allocation:125:       !     --- dynamic memory allocation:


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0