From 8c3e246f257cf20602c8a1ce24fbd9a2a3f893cf Mon Sep 17 00:00:00 2001
From: FIGINI LORENZO <lorenzo.figini@istp.cnr.it>
Date: Tue, 4 Oct 2022 18:43:13 +0200
Subject: [PATCH] Add missing iprof parameter initialization in GRAY/JINTRAC
 interface

Cherry-pick from commit 6627cb14
---
 src/gray_jetto1beam.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/gray_jetto1beam.f90 b/src/gray_jetto1beam.f90
index 55f725d..76bc3f3 100644
--- a/src/gray_jetto1beam.f90
+++ b/src/gray_jetto1beam.f90
@@ -51,6 +51,7 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
       params%equilibrium%filenm = 'JETTO'
       params%equilibrium%iequil = ijetto + 1
       params%profiles%filenm    = 'JETTO'
+      params%profiles%iprof     = 1
       params%output%ipec        = 1
       params%output%nrho        = nrho