UPP
(develop)
Toggle main menu visibility
Main Page
Related Pages
Topics
Data Types
Data Types List
Data Fields
All
Variables
Files
File List
Globals
All
a
b
c
d
e
f
g
i
l
m
n
o
p
q
r
s
t
u
w
z
Functions/Subroutines
a
b
c
d
e
f
g
i
l
m
n
o
p
q
r
s
t
u
w
z
•
All
Data Structures
Files
Functions
Variables
Modules
Pages
Loading...
Searching...
No Matches
machine.f
Go to the documentation of this file.
1
3
MODULE
machine_post
4
5
IMPLICIT NONE
6
SAVE
7
8
integer
kind_io4 &
9
,kind_io8 &
10
,kind_phys &
11
,kind_rad &
12
,kint_mpi
8
integer
kind_io4 &
…
13
14
parameter(kind_rad = selected_real_kind(13,60))
! the '60' maps to 64-bit real
15
parameter(kind_phys = selected_real_kind(13,60))
! the '60' maps to 64-bit real
16
parameter(kind_io4 = 4)
17
parameter(kind_io8 = 8)
18
parameter(kint_mpi = 4)
19
20
END MODULE
machine_post
machine.f
Generated by
1.9.8