Changeset 4652 for palm/trunk


Ignore:
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:
1 deleted
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r4628 r4652  
    2525# -----------------
    2626# $Id$
     27# routine posix_calls_from_fortran merged into posix_interface_mod
     28#
     29# 4628 2020-07-29 07:23:03Z raasch
    2730# dependencies for particle data MPI-I/O added
    2831#
     
    284287        poismg_mod.f90 \
    285288        poismg_noopt_mod.f90 \
    286         posix_calls_from_fortran.f90 \
    287289        posix_interface_mod.f90 \
    288290        pres.f90 \
     
    447449        modules.o \
    448450        netcdf_interface_mod.o \
    449         posix_calls_from_fortran.o
     451        posix_interface_mod.o
    450452check_parameters.o: \
    451453        basic_constants_and_equations_mod.o \
     
    9991001        mod_kinds.o \
    10001002        modules.o
    1001 posix_calls_from_fortran.o: \
    1002 
    10031003posix_interface_mod.o: \
    10041004        mod_kinds.o
  • palm/trunk/SOURCE/check_open.f90

    r4577 r4652  
    2020! Current revisions:
    2121! -----------------
    22 ! 
    23 ! 
     22!
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Routine fortran_sleep has been moved to module posix_interface
     28!
     29! 4577 2020-06-25 09:53:58Z raasch
    2730! further re-formatting to follow the PALM coding standard
    2831!
     
    105108    USE pegrid
    106109
    107     USE posix_calls_from_fortran,                                                                  &
     110    USE posix_interface,                                                                           &
    108111        ONLY:  fortran_sleep
    109112
  • palm/trunk/SOURCE/posix_interface_mod.f90

    r4649 r4652  
    2525! -----------------
    2626! $Id$
     27! Routine fortran_sleep moved from old module posix_calls_from_fortran to here
     28!
     29! 4649 2020-08-25 12:11:17Z raasch
    2730! File re-formatted to follow the PALM coding standard
    2831!
     
    116119
    117120!
     121!-- Sleep function from C library
     122    INTERFACE
     123       FUNCTION fsleep( seconds )  BIND( C, NAME = 'sleep' )
     124          IMPORT
     125          INTEGER(C_INT)                    ::  fsleep   !<
     126          INTEGER(C_INT), INTENT(IN), VALUE ::  seconds  !<
     127       END FUNCTION fsleep
     128    END INTERFACE
     129
     130!
    118131!-- PALM interfaces
     132    INTERFACE fortran_sleep
     133       MODULE PROCEDURE fortran_sleep
     134    END INTERFACE fortran_sleep
     135
    119136    INTERFACE posix_close
    120137       MODULE PROCEDURE posix_close
     
    155172    END INTERFACE posix_write
    156173
    157     PUBLIC posix_close,                                                                            &
     174    PUBLIC fortran_sleep,                                                                          &
     175           posix_close,                                                                            &
    158176           posix_lseek,                                                                            &
    159177           posix_open,                                                                             &
     
    162180
    163181 CONTAINS
     182
     183!--------------------------------------------------------------------------------------------------!
     184! Description:
     185! ------------
     186!> Wait a specified amount of seconds
     187!--------------------------------------------------------------------------------------------------!
     188 SUBROUTINE fortran_sleep( seconds )
     189
     190    INTEGER, INTENT(IN) ::  seconds             !< seconds to wait
     191
     192    INTEGER(C_INT)      ::  seconds_in_c        !< same as seconds
     193    INTEGER(C_INT)      ::  sleep_return_value  !< returned value to sleep
     194
     195    seconds_in_c = seconds
     196
     197    sleep_return_value = fsleep( seconds_in_c )
     198
     199 END SUBROUTINE fortran_sleep
     200
    164201
    165202 INTEGER FUNCTION posix_open( file_name, rd_flag )
Note: See TracChangeset for help on using the changeset viewer.