Loadtxt real format update

Change loadtxt format for real numbers to list directed.

Author: chuckyvt

src/stdlib_io.fypp

@@ -144,9 +144,7 @@ contains
       end do
 
       do i = 1, max_rows_
-        #:if 'real' in t1
-          read(s, "(*"//FMT_REAL_${k1}$(1:len(FMT_REAL_${k1}$)-1)//",1x))") d(i, :)
-        #:elif 'complex' in t1
+        #:if 'complex' in t1
           read(s, "(*"//FMT_COMPLEX_${k1}$(1:len(FMT_COMPLEX_${k1}$)-1)//",1x))") d(i, :)
         #:else
           read(s, *) d(i, :)