modified for new centos 6.2 machines

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:)