NetCDF-Fortran  4.4.2
EightByteIntTest.f90
1 program eightbytinttest
2  use typesizes
3  implicit none
4 
5  integer (kind = EightByteInt) :: eight
6  integer :: defaultint
7 
8  print *, "Bit size of default int is", bit_size(defaultint)
9  print *, "Kind parameter for EightByteInt is", eightbyteint
10  print *, "Bit size of eight byte int is", bit_size(eight)
11 end program eightbytinttest

Return to the Main Unidata NetCDF page.
Generated on Fri Sep 25 2015 01:52:27 for NetCDF-Fortran. NetCDF is a Unidata library.