comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Increase dimensions for bonded interactions lists in pre_mksgm

Browse source
This commit is contained in:
Tjerk Straatsma 2006-02-10 17:26:42 +00:00
parent c50856d71a
commit 3ce8d0d0de
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/prepar/pre_mksgm.F
View file

@ -1,6 +1,6 @@
logical function pre_mksgm(lfnout,lfnfrg,filfrg,lfnsgm,filsgm)
c
c $Id: pre_mksgm.F,v 1.17 2003-10-19 03:30:58 d3j191 Exp $
c $Id: pre_mksgm.F,v 1.18 2006-02-10 17:26:42 d3j191 Exp $
c
c function to make segment file
c
@ -47,10 +47,10 @@ c allocate memory for bonds, angles, torsions and impropers
c ---------------------------------------------------------
c
matm=natm
mbnd=2*matm
mbnd=4*matm
if(mbnd.lt.nbnd) mbnd=nbnd
mang=2*matm
mdih=3*matm
mang=6*matm
mdih=12*matm
mimp=matm
nang=0
ndih=0