Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (7 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

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

    r1310 r1320  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! kind-parameters added to all INTEGER and REAL declaration statements,
     23! kinds are defined in new module kinds,
     24! old module precision_kind is removed,
     25! revision history before 2012 removed,
     26! comment fields (!:) to be used for variable explanations added to
     27! all variable declaration statements
    2328!
    2429! Former revisions:
     
    2833! 1036 2012-10-22 13:43:42Z raasch
    2934! code put under GPL (PALM 3.9)
    30 !
    31 ! RCS Log replace by Id keyword, revision history cleaned up
    32 !
    33 ! Revision 1.3  2001/01/22 08:16:04  raasch
    34 ! Comments translated into English
    3535!
    3636! Revision 1.1  1997/08/11 06:26:08  raasch
     
    4343!------------------------------------------------------------------------------!
    4444
     45    USE kinds
     46
    4547    IMPLICIT NONE
    4648
    47     CHARACTER (LEN=9) ::  time_to_string
    48     INTEGER           ::  hours, minutes, seconds
    49     REAL              ::  rest_time, time
     49    CHARACTER (LEN=9) ::  time_to_string !:
     50
     51    INTEGER(iwp)      ::  hours   !:
     52    INTEGER(iwp)      ::  minutes !:
     53    INTEGER(iwp)      ::  seconds !:
     54
     55    REAL(wp)          ::  rest_time !:
     56    REAL(wp)          ::  time      !:
    5057
    5158!
Note: See TracChangeset for help on using the changeset viewer.