********>Bugfix 21:
Author: Dave Case (reported by Karen Haskell at NEC)
Date: 08/13/2004
Programs: sander, pbsa
Description: The rdparm.f files in sander and pbsa have empty statements
in them. NEC compilers (and maybe others) won't accept such
constructs
Fix: apply the following patch to amber8/src/sander/rdparm.f
------------------------------------------------------------------------------
*** rdparm.f 2004/07/29 21:25:07 7.76
--- rdparm.f 2004/08/14 00:09:35
***************
*** 66,72 ****
nhparm,nparm,nnb,nres,nbona,ntheta,nphia,numbnd, &
numang,nptra,natyp,nphb,ifbox,nmxrs,ifcap,numextra &
,ncopy
- ; ! line terminator for free-form version
8118 format(t2, &
'NATOM = ',i7,' NTYPES = ',i7,' NBONH = ',i7,' MBONA = ',i7, &
/' NTHETH = ',i7,' MTHETA = ',i7,' NPHIH = ',i7,' MPHIA = ',i7, &
--- 66,71 ----
------------------------------------------------------------------------------
Also apply the following patch to amber8/src/pbsa/rdparm.f
------------------------------------------------------------------------------
*** rdparm.f 2004/03/08 16:31:58 1.2
--- rdparm.f 2004/08/14 00:10:12
***************
*** 51,57 ****
nhparm,nparm,nnb,nres,nbona,ntheta,nphia,numbnd, &
numang,nptra,natyp,nphb,ifbox,nmxrs,ifcap,numextra &
,ncopy
- ; ! line terminator for free-form version
8118 format(t2, &
'NATOM = ',i7,' NTYPES = ',i7,' NBONH = ',i7,' MBONA = ',i7, &
/' NTHETH = ',i7,' MTHETA = ',i7,' NPHIH = ',i7,' MPHIA = ',i7, &
--- 51,56 ----
------------------------------------------------------------------------------
Temporary workarounds: none.