From 8a95f11bf9372f44bcf4409cb8593a5ff72d3b2f Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Mon, 31 Jan 2022 18:53:29 -0800
Subject: [PATCH] uninitialized variable

---
 src/optim/mepgs/mepgs_drv.F | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/optim/mepgs/mepgs_drv.F b/src/optim/mepgs/mepgs_drv.F
index 8cd5e12b5f..aa6ec41313 100644
--- a/src/optim/mepgs/mepgs_drv.F
+++ b/src/optim/mepgs/mepgs_drv.F
@@ -982,6 +982,7 @@ c
       stpang = mepgs_cosang(abvec, bcvec, .true.)
 c
       grms = 0d0
+c      ogrms = 0d0
       srms = 0d0
       gmax  = 0d0
       smax  = 0d0