Ignore:
Timestamp:
Nov 22, 2018 11:24:52 AM (3 years ago)
Author:
gronemeier
Message:

renamed variable if to ivar; add variable description

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/posix_calls_from_fortran.f90

    r2718 r3554  
    2525! -----------------
    2626! $Id: posix_calls_from_fortran.f90 2696 2017-12-14 17:12:51Z kanani $
     27! add variable description
     28!
     29! 2696 2017-12-14 17:12:51Z kanani
    2730! Corrected "Former revisions" section
    2831!
     
    5053
    5154    INTERFACE
    52 
     55!
     56!--    Sleep function from C library
    5357       FUNCTION fsleep( seconds )  BIND( C, NAME='sleep' )
    5458          IMPORT
     
    7377!> Wait a specified amount of seconds
    7478!------------------------------------------------------------------------------!
    75     SUBROUTINE fortran_sleep( seconds )
     79 SUBROUTINE fortran_sleep( seconds )
    7680
    77        INTEGER, INTENT(IN) ::  seconds
     81    INTEGER, INTENT(IN) ::  seconds             !< seconds to wait
    7882
    79        INTEGER(c_int)      ::  seconds_in_c
    80        INTEGER(c_int)      ::  sleep_return_value
     83    INTEGER(c_int)      ::  seconds_in_c        !< same as seconds
     84    INTEGER(c_int)      ::  sleep_return_value  !< returned value to sleep
    8185
    82        seconds_in_c = seconds
     86    seconds_in_c = seconds
    8387
    84        sleep_return_value = fsleep( seconds_in_c )
     88    sleep_return_value = fsleep( seconds_in_c )
    8589
    86    END SUBROUTINE fortran_sleep
     90 END SUBROUTINE fortran_sleep
    8791
    8892 END MODULE posix_calls_from_fortran
    89 
Note: See TracChangeset for help on using the changeset viewer.