From 5a8f2c98879f22ac1d35cd74b693ee3b65de54ca Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Tue, 1 Apr 2025 10:24:03 -0700
Subject: [PATCH] fix for https://github.com/nwchemgit/nwchem/issues/1106

buffer size is increased and it is checked if properly dimensioned
---
 src/geom/geom.F | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/geom/geom.F b/src/geom/geom.F
index 42c96b8063..e2aa978b48 100644
--- a/src/geom/geom.F
+++ b/src/geom/geom.F
@@ -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))