From 6627cb1481e65ca564a1c52d6ef92772fd48e91a Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Fri, 19 Nov 2021 12:57:53 +0000
Subject: [PATCH] Add missing iprof parameter initialization in GRAY/JINTRAC
 interface

---
 src/gray_jetto1beam.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/gray_jetto1beam.f90 b/src/gray_jetto1beam.f90
index bb54067..37e9f36 100644
--- a/src/gray_jetto1beam.f90
+++ b/src/gray_jetto1beam.f90
@@ -44,6 +44,7 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
     eqp%filenm='JETTO'
     eqp%iequil=ijetto+1
     prfp%filenm='JETTO'
+    prfp%iprof=1
     outp%ipec=1
     firstcall=.false.
     outp%nrho=nrho