********> bugfix.12
Author:   Thomas Huber
Date:     4/30/95

Programs: dshift

Severity: minimal

Problem:  behavior differs from manual

Affects:  rprint option always turned on

Fix:  Make the following change to 
---------------------------------------------------------------------------
*** OLD dshift.f
--- NEW dshift.f
***************
*** 29,34
  c
        parameter (MATOM=3000)
        dimension shiftout(MATOM),x(3*MATOM)
  #ifdef HP
  c
  c   --- set up certain underflow operations

--- 29,35 -----
  c
        parameter (MATOM=3000)
        dimension shiftout(MATOM),x(3*MATOM)
+       data rprint /.false./
  #ifdef HP
  c
  c   --- set up certain underflow operations
***************
*** 81,87
        if (iarg.lt.nta) go to 20
     40 continue
  c
!       call cshf(natom,x,shfin,pdbin,libin,shiftout)
  c
        end
        subroutine cshf(natom,x,shfin,pdbin,libin,shiftout)

--- 82,88 -----
        if (iarg.lt.nta) go to 20
     40 continue
  c
!       call cshf(natom,x,shfin,pdbin,libin,shiftout,rprint,istderr)
  c
        end
  c-----------------------------------------------------------------------
***************
*** 84,90
        call cshf(natom,x,shfin,pdbin,libin,shiftout)
  c
        end
!       subroutine cshf(natom,x,shfin,pdbin,libin,shiftout)
  c
  c  Subroutine Chemical SHiFt
  c

--- 85,93 -----
        call cshf(natom,x,shfin,pdbin,libin,shiftout,rprint,istderr)
  c
        end
! c-----------------------------------------------------------------------
!       subroutine cshf(natom,x,shfin,pdbin,libin,shiftout,rprint,
!      .                                                   istderr)
  c
  c  Subroutine Chemical SHiFt
  c
***************
*** 158,164
        namelist/shf/ nring,natr,iatr,str,nprot,obs,wt,iprot,shcut,namr,
       .    shrang,nter,cter,johnbov
        data first /.true./
-       data rprint /.true./
        data shcut /0.0/
  c
  c create base and phosphate definitions for labelling of

--- 161,166 -----
        namelist/shf/ nring,natr,iatr,str,nprot,obs,wt,iprot,shcut,namr,
       .    shrang,nter,cter,johnbov
        data first /.true./
        data shcut /0.0/
  c
  c create base and phosphate definitions for labelling of
---------------------------------------------------------------------------