From 45e599cb33694768140d3bdcdb42ade288953f28 Mon Sep 17 00:00:00 2001 From: Axel Kohlmeyer Date: Wed, 25 Aug 2021 23:42:07 -0400 Subject: [PATCH] modernize Fortran --- lib/mesont/TubePotMono.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/mesont/TubePotMono.f90 b/lib/mesont/TubePotMono.f90 index 65e58ecf7a..8c19043a67 100644 --- a/lib/mesont/TubePotMono.f90 +++ b/lib/mesont/TubePotMono.f90 @@ -72,7 +72,7 @@ implicit none !--------------------------------------------------------------------------------------------------- integer(c_int) :: TPMStartMode = 1 - character*512 :: TPMFile = 'MESONT-TABTP.xrs' + character(len=512) :: TPMFile = 'MESONT-TABTP.xrs' integer(c_int) :: TPMUnitID ! Unit for the tabulated potential file integer(c_int) :: TPMNZ = TPMNZMAX @@ -1643,7 +1643,7 @@ contains !********************************************************************** subroutine TPMInit ( ChiIndM, ChiIndN ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! integer(c_int), intent(in) :: ChiIndM, ChiIndN real(c_double) :: RT, DX - character*512 :: PDate + character(len=512) :: PDate !------------------------------------------------------------------------------------------- TPPotType = TP_POT_MONO_R