********>Bugfix 28: Author: Holger Gohlke Date: 08/08/02 Programs: nmode Severity: moderate Description: nmode may stop with segmentation fault if normal mode analysis is performed Fix: apply the following patch to amber6/src/nmode/alloc.f ------------------------------------------------------------------------------ *** alloc.f Tue Feb 8 17:09:32 2000 --- alloc.f Thu Aug 8 10:49:22 2002 *************** *** 147,156 **** if(mod(mcscr,2).ne.1) mcscr = mcscr + 1 mcval = mcscr + ns3*9*mprec mcvec = mcval + ns3*mprec ! c ---need at least four scratch arrays ! c of size ns3 for thermo ! nvect4 = max(nvect,4) ! memusd_x = mcvec + ns3*nvect4*mprec endif endif --- 147,153 ---- if(mod(mcscr,2).ne.1) mcscr = mcscr + 1 mcval = mcscr + ns3*9*mprec mcvec = mcval + ns3*mprec ! memusd_x = mcvec + ns3*ns3*mprec endif endif ------------------------------------------------------------------------------ Temporary workarounds: none Files affected: amber6/src/nmode/alloc.f