NetCDF-Fortran  4.4.2
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 Wed Aug 19 2015 17:51:09 for NetCDF-Fortran. NetCDF is a Unidata library.