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

Merge pull request #1107 from edoapra/flang2025

Browse source 
buffer size in geom_print()
This commit is contained in:
Edoardo Aprà 2025-04-01 14:33:47 -07:00 • committed by GitHub
commit 1a14b2a0e3
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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))