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

Timestamp:

Aug 25, 2020 12:11:17 PM (4 years ago)

Author:

raasch

Message:

files re-formatted to follow the PALM coding standard

File:

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

palm/trunk/SOURCE/posix_calls_from_fortran.f90

@@ -1 +1 @@
 !> @posix_calls_from_fortran.f90
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
 ! This file is part of the PALM model system.
 !
-! PALM is free software: you can redistribute it and/or modify it under the
-! terms of the GNU General Public License as published by the Free Software
-! Foundation, either version 3 of the License, or (at your option) any later
-! version.
+! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General
+! Public License as published by the Free Software Foundation, either version 3 of the License, or
+! (at your option) any later version.
 !
-! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
-! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
+! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
+! Public License for more details.
 !
-! You should have received a copy of the GNU General Public License along with
-! PALM. If not, see <http://www.gnu.org/licenses/>.
+! You should have received a copy of the GNU General Public License along with PALM. If not, see
+! <http://www.gnu.org/licenses/>.
 !
 ! Copyright 1997-2020 Leibniz Universitaet Hannover
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
+!
 !
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id: posix_calls_from_fortran.f90 2696 2017-12-14 17:12:51Z kanani $
+! File re-formatted to follow the PALM coding standard
+!
+!
+! 2696 2017-12-14 17:12:51Z kanani
 ! Corrected "Former revisions" section
-! 
+!
 ! 2696 2017-12-14 17:12:51Z kanani
-! add variable description
-! 
+! Add variable description
+!
 ! 1986 2016-08-10 14:07:17Z gronemeier
 ! Initial revision
-! 
+!
+!--------------------------------------------------------------------------------------------------!
 ! Description:
 ! ------------
 !> Collection of POSIX-command calls for Fortran
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
  MODULE posix_calls_from_fortran
 
-    USE, INTRINSIC ::  iso_c_binding, ONLY: c_int
+    USE, INTRINSIC ::  iso_c_binding,                                                              &
+        ONLY: c_int
 
     IMPLICIT none
@@ -49 +55 @@
 !
 !--    Sleep function from C library
-       FUNCTION fsleep( seconds )  BIND( C, NAME='sleep' )
+       FUNCTION fsleep( seconds )  BIND( C, NAME = 'sleep' )
           IMPORT
-          INTEGER(c_int) ::  fsleep
-          INTEGER(c_int), INTENT(IN), VALUE ::  seconds
+          INTEGER(c_int)                    ::  fsleep   !<
+          INTEGER(c_int), INTENT(IN), VALUE ::  seconds  !<
        END FUNCTION fsleep
 
@@ -66 +72 @@
  CONTAINS
 
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
 ! Description:
 ! ------------
 !> Wait a specified amount of seconds
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
  SUBROUTINE fortran_sleep( seconds )