From 95d915b4c6d42affe864b97e0a9dac1ce0ab0b6c Mon Sep 17 00:00:00 2001
From: ignis <ignis@postech.ac.kr>
Date: Sat, 6 Apr 2019 23:19:33 +0900
Subject: [PATCH] file_ext extended from 6-digit to 8-digit

---
 begin_new.f90    | 2 +-
 get_file_ext.f90 | 2 +-
 io_write_4.f90   | 6 +++---
 m_io.f90         | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/begin_new.f90 b/begin_new.f90
index 85f61f1..6e76979 100644
--- a/begin_new.f90
+++ b/begin_new.f90
@@ -15,7 +15,7 @@ subroutine begin_new
 
   ! defining the iteration number
   ITIME = 0
-  file_ext = '000000'
+  file_ext = '00000000'
 
 
 
diff --git a/get_file_ext.f90 b/get_file_ext.f90
index 483063b..5ca6759 100644
--- a/get_file_ext.f90
+++ b/get_file_ext.f90
@@ -5,7 +5,7 @@
     use m_io,         only : file_ext
     implicit none
 
-    write(file_ext,"(i6.6)") itime
+    write(file_ext,"(i8.8)") itime
     return
   end subroutine get_file_ext
 
diff --git a/io_write_4.f90 b/io_write_4.f90
index ec833d7..7485363 100644
--- a/io_write_4.f90
+++ b/io_write_4.f90
@@ -75,7 +75,7 @@ subroutine io_write_4
   if (int_scalars) then
      do n = 1,n_scalars
         call xFFT3d(-1,3+n)
-        write(fname,"('sc',i2.2,'.',a6)") n,file_ext
+        write(fname,"('sc',i2.2,'.',a8)") n,file_ext
         tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,3+n)
         call write_tmp4
 
@@ -86,7 +86,7 @@ subroutine io_write_4
   if (les) then
      ! turbulent viscosity
      if (allocated(turb_visc)) then
-        write(fname,"('nu_t.',a6)") file_ext
+        write(fname,"('nu_t.',a8)") file_ext
         tmp4 = turb_visc
         call write_tmp4
      end if
@@ -94,7 +94,7 @@ subroutine io_write_4
      if (n_les > 0) then
         do n = 1, n_les
            call xFFT3d(-1,3+n_scalars+n)
-           write(fname,"('les',i1,'.',a6)") n,file_ext
+           write(fname,"('les',i1,'.',a8)") n,file_ext
            tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,3+n_scalars+n)
            call write_tmp4
         end do
diff --git a/m_io.f90 b/m_io.f90
index c4d575a..0f06a10 100644
--- a/m_io.f90
+++ b/m_io.f90
@@ -9,7 +9,7 @@ module m_io
   use m_openmpi
   implicit none
 
-  character*6  :: file_ext, ex_file_ext
+  character*8  :: file_ext, ex_file_ext
   character*80 :: fname
   ! output file handle
   integer :: in=10, out=11