Ignore:
Timestamp:
Mar 26, 2014 5:04:47 PM (7 years ago)
Author:
kanani
Message:

REAL constants defined as wp-kind

File:
1 edited

Legend:

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

    r1321 r1342  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants defined as wp-kind
    2323!
    2424! Former revisions:
     
    6161!
    6262!-- Calculate the number of hours, minutes, and seconds
    63     hours     = INT( time / 3600.0 )
    64     rest_time = time - hours * 3600
    65     minutes   = INT( rest_time / 60.0 )
     63    hours     = INT( time / 3600.0_wp )
     64    rest_time = time - hours * 3600_wp
     65    minutes   = INT( rest_time / 60.0_wp )
    6666    seconds   = rest_time - minutes * 60
    6767
Note: See TracChangeset for help on using the changeset viewer.