NetCDF-Fortran
4.4.3
Main Page
Related Pages
Files
File List
EightByteIntTest-2.f90
1
program
eightbytinttest
2
use
typesizes
3
implicit none
4
5
integer (kind = EightByteInt)
:: eight
6
integer
:: defaultint
7
8
print *,
"Kind parameter for EightByteInt is"
, eightbyteint
9
print *,
"Bit size of eight byte int is"
, bit_size(eight)
10
contains
11
subroutine
eightbyteintprocedure(input)
12
integer (kind = EightByteInt)
,
intent( in)
:: input
13
14
print *, int(input)
15
end subroutine
eightbyteintprocedure
16
end program
eightbytinttest
Return to the Main Unidata NetCDF page.
Generated on Tue Mar 1 2016 12:16:22 for NetCDF-Fortran. NetCDF is a
Unidata
library.