Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 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/mod_kinds.f90

    r1319 r1320  
    2626! $Id$
    2727!
    28 ! 1318 2014-03-17 13:35:16Z raasch
    29 ! bugfix: default integer kind changed to single precision
    30 !
    3128! 1306 2014-03-13 14:30:59Z raasch
    3229! Initial revision
     
    4643!
    4744!-- Floating point kinds
    48     INTEGER, PARAMETER ::  sp = 4           ! single precision (32 bit)
    49     INTEGER, PARAMETER ::  dp = 8           ! double precision (64 bit)
     45    INTEGER, PARAMETER ::  sp = 4           !: single precision (32 bit)
     46    INTEGER, PARAMETER ::  dp = 8           !: double precision (64 bit)
    5047
    5148!
    5249!-- Integer kinds
    53     INTEGER, PARAMETER ::  isp = SELECTED_INT_KIND(  9 )   ! single precision (32 bit)
    54     INTEGER, PARAMETER ::  idp = SELECTED_INT_KIND( 14 )   ! double precision (64 bit)
     50    INTEGER, PARAMETER ::  isp = SELECTED_INT_KIND(  9 )   !: single precision (32 bit)
     51    INTEGER, PARAMETER ::  idp = SELECTED_INT_KIND( 14 )   !: double precision (64 bit)
    5552
    5653!
    5754!-- Set kinds to be used as defaults
    58     INTEGER, PARAMETER ::   wp =  dp          ! default real kind
    59     INTEGER, PARAMETER ::  iwp = isp          ! default integer kind
     55    INTEGER, PARAMETER ::   wp =  dp          !: default real kind
     56    INTEGER, PARAMETER ::  iwp = isp          !: default integer kind
    6057
    6158    SAVE
Note: See TracChangeset for help on using the changeset viewer.