From 9fcc54804f5b8fc003c08e76380471296771c21e Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Tue, 19 Sep 2017 16:32:53 +0000
Subject: [PATCH] added re-normalization of Pins and Currins in spec subroutine

---
 src/pec.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/pec.f90 b/src/pec.f90
index 05c0482..5151da9 100644
--- a/src/pec.f90
+++ b/src/pec.f90
@@ -138,6 +138,8 @@ contains
     dpdv=facpds*(dpdv/dvol)
     ajphiv=facjs*(ajphiv/darea)
     ajcd=ajphiv*ratjbv
+    pins=facpds*pins
+    currins=facjs*currins
 
 ! now dpdv is  dP/dV [MW/m^3]
 ! now ajphiv is J_phi=dI/dA [MA/m^2]