Changeset 3867 for palm/trunk/UTIL/inifor/src

Timestamp:

Apr 5, 2019 4:15:55 PM (6 years ago)

Author:

eckhard

Message:

Fix 'kinds.mod0' build issue

File:

• palm/trunk/UTIL/inifor/src/inifor_defs.f90 (modified) (2 diffs)

palm/trunk/UTIL/inifor/src/inifor_defs.f90

@@ -101 +101 @@
  MODULE inifor_defs
  
- USE kinds,                                                                    &
-     ONLY :  wp, iwp
+ !USE kinds,                                                                    &
+ !    ONLY :  wp, iwp
 
  IMPLICIT NONE
@@ -108 +108 @@
 ! 
 !-- Parameters for type definitions
+ INTEGER, PARAMETER  ::  iwp = 8
+ INTEGER, PARAMETER  ::  wp = 8
  INTEGER, PARAMETER  ::  PATH  = 140 !< length of file path strings
  INTEGER, PARAMETER  ::  LNAME = 150 !< length of long name strings