Changeset 4652

Timestamp:

Aug 27, 2020 8:51:55 AM (4 years ago)

Author:

raasch

Message:

routine posix_calls_from_fortran merged into posix_interface_mod

Location:

palm/trunk/SOURCE

Files:

• Makefile (modified) (4 diffs)
• check_open.f90 (modified) (2 diffs)
• posix_calls_from_fortran.f90 (deleted)
• posix_interface_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/Makefile

@@ -25 +25 @@
 # -----------------
 # $Id$
+# routine posix_calls_from_fortran merged into posix_interface_mod
+#
+# 4628 2020-07-29 07:23:03Z raasch
 # dependencies for particle data MPI-I/O added
 # 
@@ -284 +287 @@
         poismg_mod.f90 \
         poismg_noopt_mod.f90 \
-        posix_calls_from_fortran.f90 \
         posix_interface_mod.f90 \
         pres.f90 \
@@ -447 +449 @@
         modules.o \
         netcdf_interface_mod.o \
-        posix_calls_from_fortran.o
+        posix_interface_mod.o
 check_parameters.o: \
         basic_constants_and_equations_mod.o \
@@ -999 +1001 @@
         mod_kinds.o \
         modules.o
-posix_calls_from_fortran.o: \
-
 posix_interface_mod.o: \
         mod_kinds.o

palm/trunk/SOURCE/check_open.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Routine fortran_sleep has been moved to module posix_interface
+! 
+! 4577 2020-06-25 09:53:58Z raasch
 ! further re-formatting to follow the PALM coding standard
 !
@@ -105 +108 @@
     USE pegrid
 
-    USE posix_calls_from_fortran,                                                                  &
+    USE posix_interface,                                                                           &
         ONLY:  fortran_sleep
 

palm/trunk/SOURCE/posix_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Routine fortran_sleep moved from old module posix_calls_from_fortran to here
+!
+! 4649 2020-08-25 12:11:17Z raasch
 ! File re-formatted to follow the PALM coding standard
 !
@@ -116 +119 @@
 
 !
+!-- Sleep function from C library
+    INTERFACE
+       FUNCTION fsleep( seconds )  BIND( C, NAME = 'sleep' )
+          IMPORT
+          INTEGER(C_INT)                    ::  fsleep   !<
+          INTEGER(C_INT), INTENT(IN), VALUE ::  seconds  !<
+       END FUNCTION fsleep
+    END INTERFACE
+
+!
 !-- PALM interfaces
+    INTERFACE fortran_sleep
+       MODULE PROCEDURE fortran_sleep
+    END INTERFACE fortran_sleep
+
     INTERFACE posix_close
        MODULE PROCEDURE posix_close
@@ -155 +172 @@
     END INTERFACE posix_write
 
-    PUBLIC posix_close,                                                                            &
+    PUBLIC fortran_sleep,                                                                          &
+           posix_close,                                                                            &
            posix_lseek,                                                                            &
            posix_open,                                                                             &
@@ -162 +180 @@
 
  CONTAINS
+
+!--------------------------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Wait a specified amount of seconds
+!--------------------------------------------------------------------------------------------------!
+ SUBROUTINE fortran_sleep( seconds )
+
+    INTEGER, INTENT(IN) ::  seconds             !< seconds to wait
+
+    INTEGER(C_INT)      ::  seconds_in_c        !< same as seconds
+    INTEGER(C_INT)      ::  sleep_return_value  !< returned value to sleep
+
+    seconds_in_c = seconds
+
+    sleep_return_value = fsleep( seconds_in_c )
+
+ END SUBROUTINE fortran_sleep
+
 
  INTEGER FUNCTION posix_open( file_name, rd_flag )