comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-29 06:35:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fix for https://github.com/nwchemgit/nwchem/issues/1106

Browse source 
buffer size is increased and it is checked if properly dimensioned
This commit is contained in:
edoapra 2025-04-01 10:24:03 -07:00
parent 8896742959
commit 5a8f2c9887
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/geom/geom.F
View file

@ -2691,7 +2691,9 @@ c
integer icent, jcent
integer i
double precision scale, tmp(3),twopi
character*80 buf
integer buflen
parameter(buflen=128)
character*(buflen) buf
logical oprint_uniq,ofinite,oprint_crystal
c
c external functions
@ -2727,6 +2729,9 @@ c
$ call errquit('geom_print: user units?',0, GEOM_ERR)
c
buf = ' '
if(lenn(geom)+lent(geom)+17.gt.buflen) call errquit
$ ('geom_print: increase buflen to',
$ lenn(geom)+lent(geom)+17, GEOM_ERR)
write(buf,1) 'Geometry',
$ names(geom)(1:lenn(geom)),
$ trans(geom)(1:lent(geom))