From b151bf568b897f94da943391bde96502a5d3c006 Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Tue, 1 Feb 2022 16:16:18 +0100
Subject: [PATCH] Add missing module load to close open units

---
 src/main.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/main.f90 b/src/main.f90
index 85ce893..7bb075b 100644
--- a/src/main.f90
+++ b/src/main.f90
@@ -8,6 +8,8 @@ program main_std
      set_rhospl,setqphi_num,frhopolv
   use coreprofiles, only : read_profiles_an,read_profiles,tene_scal
   use reflections, only : range2rect
+  use units, only : uprfin, uflx, ubres, ucnt, uprj0, uwbm, ucenr, uoutr, &
+     udisp, upec, usumm, umaps
   implicit none
   type(antctrl_type) :: antp
   type(eqparam_type) :: eqp
@@ -136,8 +138,8 @@ program main_std
   close(udisp)
   close(ubres)
   close(ucnt)
+  close(umaps)
   close(uoutr)
-  close(ueq)
   close(uprfin)
   close(uflx)
   close(upec)