diff --git a/sources/io.F90 b/sources/io.F90
index 9bd881d..5fe19ef 100644
--- a/sources/io.F90
+++ b/sources/io.F90
@@ -1967,13 +1967,13 @@ module io
 #ifdef __INTEL_COMPILER
     inquire(directory = dname, exist = test)
     do while(.not. test)
-      if (.not. test) call system("mkdir -p " // trim(dname))
+      if (.not. test) call execute_command_line("mkdir -p " // trim(dname))
       inquire(directory = dname, exist = test)
     end do
 #else /* __INTEL_COMPILER */
     inquire(file = dname, exist = test)
     do while(.not. test)
-      if (.not. test) call system("mkdir -p " // trim(dname))
+      if (.not. test) call execute_command_line("mkdir -p " // trim(dname))
       inquire(file = dname, exist = test)
     end do
 #endif /* __INTEL_COMPILER */
@@ -1988,7 +1988,7 @@ module io
 
       call get_parameter_file(fname, status)
       if (status == 0) then
-        call system("cp -a " // trim(fname) // " " // trim(dname))
+        call execute_command_line("cp -a " // trim(fname) // " " // trim(dname))
       else
         call print_message(loc, "Cannot get the location of parameter file!")
         return
@@ -2391,13 +2391,13 @@ module io
 #ifdef __INTEL_COMPILER
     inquire(directory = dname, exist = test)
     do while(.not. test)
-      if (.not. test) call system("mkdir -p " // trim(dname))
+      if (.not. test) call execute_command_line("mkdir -p " // trim(dname))
       inquire(directory = dname, exist = test)
     end do
 #else /* __INTEL_COMPILER */
     inquire(file = dname, exist = test)
     do while(.not. test)
-      if (.not. test) call system("mkdir -p " // trim(dname))
+      if (.not. test) call execute_command_line("mkdir -p " // trim(dname))
       inquire(file = dname, exist = test)
     end do
 #endif /* __INTEL_COMPILER */
@@ -2414,7 +2414,7 @@ module io
 
       call get_parameter_file(fname, status)
       if (status == 0) then
-        call system("cp -a " // trim(fname) // " " // trim(dname))
+        call execute_command_line("cp -a " // trim(fname) // " " // trim(dname))
       else
         call print_message(loc, "Cannot get the location of parameter file!")
         return