From 411c4ece4883f8f89fc03ccb6f58586964cb348e Mon Sep 17 00:00:00 2001 From: Lorenzo Figini Date: Thu, 24 Nov 2022 23:34:09 +0100 Subject: [PATCH] Fix problem with long filenames not fitting the header width --- src/gray_params.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/gray_params.f90 b/src/gray_params.f90 index fa27bd6..05ff779 100644 --- a/src/gray_params.f90 +++ b/src/gray_params.f90 @@ -153,6 +153,7 @@ contains #ifndef REVISION character(len=*), parameter :: REVISION="unknown" #endif + integer :: ierr ! Date and time call date_and_time(date, time) @@ -165,7 +166,7 @@ contains ! MHD equilibrium parameters if (params%equilibrium%iequil > 0) then - write(strout(3), '("# EQL input: ",a)') trim(params%equilibrium%filenm) + write(strout(3), '("# EQL input: ",a)') trim(params%equilibrium%filenm(1:95)) ! TODO add missing values write(strout(7), '("# EQL B0 R0 aminor Rax zax:",5(1x,g0.5))') & 0._wp_, 0._wp_, 0._wp_, 0._wp_, 0._wp_ @@ -191,7 +192,7 @@ contains ! Profiles parameters if (params%equilibrium%iequil > 0) then - write(strout(8), '("# PRF input: ",a)') trim(params%profiles%filenm) + write(strout(8), '("# PRF input: ",a)') trim(params%profiles%filenm(1:95)) write(strout(9), '("# PRF iprof iscal factne factte:",4(1x,g0.4))') & params%profiles%iprof, params%profiles%iscal, & params%profiles%factne, params%profiles%factte @@ -212,7 +213,7 @@ contains end if ! Antenna parameters - write(strout(12), '("# ANT input: ",a)') trim(params%antenna%filenm) + write(strout(12), '("# ANT input: ",a)') trim(params%antenna%filenm(1:95)) write(strout(13), '("# ANT ibeam iox psi chi:",4(1x,g0.4))') & params%antenna%ibeam, params%antenna%iox, & params%antenna%psi, params%antenna%chi