source: palm/trunk/SOURCE/posix_calls_from_fortran.f90 @ 2000

Last change on this file since 2000 was 2000, checked in by knoop, 5 years ago

Forced header and separation lines into 80 columns

File size: 2.3 KB
Line 
1!> @posix_calls_from_fortran.f90
2!------------------------------------------------------------------------------!
3! This file is part of PALM.
4!
5! PALM is free software: you can redistribute it and/or modify it under the
6! terms of the GNU General Public License as published by the Free Software
7! Foundation, either version 3 of the License, or (at your option) any later
8! version.
9!
10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13!
14! You should have received a copy of the GNU fGeneral Public License along with
15! PALM. If not, see <http://www.gnu.org/licenses/>.
16!
17! Copyright 1997-2016 Leibniz Universitaet Hannover
18!------------------------------------------------------------------------------!
19!
20! Current revisions:
21! -----------------
22! Forced header and separation lines into 80 columns
23!
24! Former revisions:
25! -----------------
26! $Id: posix_calls_from_fortran.f90 1986 2016-08-10 14:07:17Z gronemeier $
27!
28! 1986 2016-08-10 14:07:17Z gronemeier
29! Initial revision
30!
31! Description:
32! ------------
33!> Collection of POSIX-command calls for Fortran
34!------------------------------------------------------------------------------!
35 MODULE posix_calls_from_fortran
36
37    USE, INTRINSIC ::  iso_c_binding, ONLY: c_int
38
39    IMPLICIT none
40
41    PRIVATE
42
43
44    INTERFACE
45
46       FUNCTION fsleep( seconds )  BIND( C, NAME='sleep' )
47          IMPORT
48          INTEGER(c_int) ::  fsleep
49          INTEGER(c_int), INTENT(IN), VALUE ::  seconds
50       END FUNCTION fsleep
51
52    END INTERFACE
53
54    INTERFACE fortran_sleep
55       MODULE PROCEDURE fortran_sleep
56    END INTERFACE fortran_sleep
57
58    PUBLIC fortran_sleep
59
60
61 CONTAINS
62
63!------------------------------------------------------------------------------!
64! Description:
65! ------------
66!> Wait a specified amount of seconds
67!------------------------------------------------------------------------------!
68    SUBROUTINE fortran_sleep( seconds )
69
70       INTEGER, INTENT(IN) ::  seconds
71
72       INTEGER(c_int)      ::  seconds_in_c
73       INTEGER(c_int)      ::  sleep_return_value
74
75       seconds_in_c = seconds
76
77       sleep_return_value = fsleep( seconds_in_c )
78
79   END SUBROUTINE fortran_sleep
80
81 END MODULE posix_calls_from_fortran
82
Note: See TracBrowser for help on using the repository browser.