Changeset 3554 for palm/trunk/SOURCE/posix_calls_from_fortran.f90

Timestamp:

Nov 22, 2018 11:24:52 AM (5 years ago)

Author:

gronemeier

Message:

renamed variable if to ivar; add variable description

File:

• palm/trunk/SOURCE/posix_calls_from_fortran.f90 (modified) (3 diffs)

palm/trunk/SOURCE/posix_calls_from_fortran.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id: posix_calls_from_fortran.f90 2696 2017-12-14 17:12:51Z kanani $
+! add variable description
+! 
+! 2696 2017-12-14 17:12:51Z kanani
 ! Corrected "Former revisions" section
 ! 
@@ -50 +53 @@
 
     INTERFACE
-
+!
+!--    Sleep function from C library
        FUNCTION fsleep( seconds )  BIND( C, NAME='sleep' )
           IMPORT
@@ -73 +77 @@
 !> Wait a specified amount of seconds
 !------------------------------------------------------------------------------!
-    SUBROUTINE fortran_sleep( seconds )
+ SUBROUTINE fortran_sleep( seconds )
 
-       INTEGER, INTENT(IN) ::  seconds
+    INTEGER, INTENT(IN) ::  seconds             !< seconds to wait
 
-       INTEGER(c_int)      ::  seconds_in_c
-       INTEGER(c_int)      ::  sleep_return_value
+    INTEGER(c_int)      ::  seconds_in_c        !< same as seconds
+    INTEGER(c_int)      ::  sleep_return_value  !< returned value to sleep
 
-       seconds_in_c = seconds
+    seconds_in_c = seconds
 
-       sleep_return_value = fsleep( seconds_in_c )
+    sleep_return_value = fsleep( seconds_in_c )
 
-   END SUBROUTINE fortran_sleep
+ END SUBROUTINE fortran_sleep
 
  END MODULE posix_calls_from_fortran
-