NetCDF-Fortran  4.4.3
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 Sun Mar 27 2016 13:46:12 for NetCDF-Fortran. NetCDF is a Unidata library.