From 6cb2fa88a97ed8cb3d69e8ab59117076da14fbc4 Mon Sep 17 00:00:00 2001
From: whit <whit@temple.edu>
Date: Tue, 9 Oct 2012 15:34:07 -0400
Subject: [PATCH] modified for new centos 6.2 machines
---
UTILSUBS/get_values.f | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/UTILSUBS/get_values.f b/UTILSUBS/get_values.f
index b7ba588..8aabe47 100644
--- a/UTILSUBS/get_values.f
+++ b/UTILSUBS/get_values.f
@@ -72,12 +72,14 @@ c
this(last_hex:)=' '
CALL squeeze(this,i)
IF(this.eq.' ') goto 2222
- READ(this(1:i),'(z)',err=2222) v(j)
+c READ(this(1:i),'(z)',err=2222) v(j)
+ READ(this(1:i),'(z10)',err=2222) v(j)
elseif(oct) then
this(last_oct:)=' '
CALL squeeze(this,i)
IF(this.eq.' ') goto 2222
- READ(this(1:i),'(o)',err=2222) v(j)
+c READ(this(1:i),'(o)',err=2222) v(j)
+ READ(this(1:i),'(o10)',err=2222) v(j)
elseif(bin) then
this(last_binary:)=' '
CALL squeeze(this,i)
@@ -95,7 +97,8 @@ c
else
CALL squeeze(this,i)
IF(this.eq.' ') goto 2222
- READ(this(1:i),'(i)',err=2222) v(j)
+c READ(this(1:i),'(i)',err=2222) v(j)
+ READ(this(1:i),'(i10)',err=2222) v(j)
endif
c
this= line(divider+1:)
--
GitLab