From 65c0a2d5ca3dc41993821c87eb960c3af422b3d9 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 9 Dec 2023 15:19:27 +0100
Subject: [PATCH] more logical split

---
 src/system_routines.f90 | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/system_routines.f90 b/src/system_routines.f90
index b15485f1c..3068f4aa5 100644
--- a/src/system_routines.f90
+++ b/src/system_routines.f90
@@ -32,8 +32,8 @@ module system_routines
 
     function setCWD_C(cwd) bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_INT, C_CHAR
-      implicit none(type,external)
 
+      implicit none(type,external)
       integer(C_INT) :: setCWD_C
       character(kind=C_CHAR), dimension(*), intent(in) :: cwd
     end function setCWD_C
@@ -41,8 +41,8 @@ module system_routines
     subroutine getCWD_C(cwd, stat) bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_INT, C_CHAR
       use prec
-      implicit none(type,external)
 
+      implicit none(type,external)
       character(kind=C_CHAR), dimension(pPathLen+1), intent(out) :: cwd                             ! NULL-terminated array
       integer(C_INT),                                intent(out) :: stat
     end subroutine getCWD_C
@@ -50,8 +50,8 @@ module system_routines
     subroutine getHostName_C(hostname, stat) bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_INT, C_CHAR
       use prec
-      implicit none(type,external)
 
+      implicit none(type,external)
       character(kind=C_CHAR), dimension(pSTRLEN+1), intent(out) :: hostname                         ! NULL-terminated array
       integer(C_INT),                               intent(out) :: stat
     end subroutine getHostName_C
@@ -59,51 +59,51 @@ module system_routines
     subroutine getUserName_C(username, stat) bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_INT, C_CHAR
       use prec
-      implicit none(type,external)
 
+      implicit none(type,external)
       character(kind=C_CHAR), dimension(pSTRLEN+1), intent(out) :: username                         ! NULL-terminated array
       integer(C_INT),                               intent(out) :: stat
     end subroutine getUserName_C
 
     subroutine signalint_C(handler) bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_FUNPTR
-      implicit none(type,external)
 
+      implicit none(type,external)
       type(C_FUNPTR), intent(in), value :: handler
     end subroutine signalint_C
 
     subroutine signalusr1_C(handler) bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_FUNPTR
-      implicit none(type,external)
 
+      implicit none(type,external)
       type(C_FUNPTR), intent(in), value :: handler
     end subroutine signalusr1_C
 
     subroutine signalusr2_C(handler) bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_FUNPTR
-      implicit none(type,external)
 
+      implicit none(type,external)
       type(C_FUNPTR), intent(in), value :: handler
     end subroutine signalusr2_C
 
     subroutine free_C(ptr) bind(C,name='free')
       use, intrinsic :: ISO_C_Binding, only: C_PTR
-      implicit none(type,external)
 
+      implicit none(type,external)
       type(C_PTR), value :: ptr
     end subroutine free_C
 
     function stdout_isatty_C() bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_INT
-      implicit none(type,external)
 
+      implicit none(type,external)
       integer(C_INT) :: stdout_isatty_C
     end function stdout_isatty_C
 
     function stderr_isatty_C() bind(C)
       use, intrinsic :: ISO_C_Binding, only: C_INT
-      implicit none(type,external)
 
+      implicit none(type,external)
       integer(C_INT) :: stderr_isatty_C
     end function stderr_isatty_C