base/machine_posix: remove unused m_getuid

cp2k · Dec 6, 2018 · 71bce77 · 71bce77
1 parent cfe5af2
commit 71bce77
Showing 1 changed file with 1 addition and 20 deletions.
diff --git a/src/base/machine_posix.f90 b/src/base/machine_posix.f90
@@ -15,7 +15,7 @@
   PRIVATE
 
   PUBLIC :: m_flush, m_memory, &
-            m_hostnm, m_getcwd, m_getlog, m_getuid, m_getpid, m_getarg, &
+            m_hostnm, m_getcwd, m_getlog, m_getpid, m_getarg, &
             m_iargc, m_abort, m_chdir, m_mov, &
             m_memory_details, m_procrun
 
@@ -387,25 +387,6 @@ SUBROUTINE m_getlog(user)
   END SUBROUTINE m_getlog
 
 
-! *****************************************************************************
-! **************************************************************************************************
-!> \brief ...
-!> \param uid ...
-! **************************************************************************************************
-  SUBROUTINE m_getuid(uid)
-   INTEGER, INTENT(OUT)                     :: uid
-
-   INTERFACE
-     FUNCTION getuid() BIND(C,name="getuid") RESULT(uid)
-       IMPORT
-       INTEGER(KIND=C_INT)              :: uid
-     END FUNCTION
-   END INTERFACE
-
-   uid = getuid()
-  END SUBROUTINE m_getuid
-
-
 ! *****************************************************************************
 ! **************************************************************************************************
 !> \brief ...