Ignore:
Timestamp:
Mar 20, 2014 4:38:49 PM (7 years ago)
Author:
raasch
Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:
1 edited

Legend:

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

    r1321 r1322  
    2020! Current revisions:
    2121! -----------------
     22! REAL constants defined as wp_kind
    2223!
    2324! Former revisions:
     
    6970#if defined( __ibm )
    7071
    71     actual_wallclock_time = IRTC( ) * 1E-9
     72    actual_wallclock_time = IRTC( ) * 1E-9_wp
    7273    remaining_time = maximum_cpu_time_allowed - &
    7374                     ( actual_wallclock_time - initial_wallclock_time )
     
    7677
    7778    CALL SYSTEM_CLOCK( count, count_rate )
    78     actual_wallclock_time = REAL( count ) / REAL( count_rate )
     79    actual_wallclock_time = REAL( count, KIND=wp ) / REAL( count_rate, KIND=wp )
    7980    remaining_time = maximum_cpu_time_allowed - &
    8081                     ( actual_wallclock_time - initial_wallclock_time )
Note: See TracChangeset for help on using the changeset viewer.