Fortran: integer*4 vs integer(4) vs integer(kind=4)

by

In Fortran >=90, the best approach is use intrinsic functions to specify the precision you need — this guarantees both portability and that you get the precision that you need. For example, to obtain integers i and my_int that will support at least 8 decimal digits, you could use:

integer, parameter :: RegInt_K = selected_int_kind (8)
integer (kind=RegInt_K) :: i, my_int

Having defined RegInt_K (or whatever name you select) as a parameter, you can use it throughout your code as a symbol. This also makes it easy to change the precision.

Requesting 8 or 9 decimal digits will typically obtain a 4-byte integer.

integer*4 is an common extension going back to old FORTRAN to specify a 4-byte integer. Although, this syntax isn’t and was never standard Fortran.

integer (4) or integer (RegInt_K) are short for integer (kind=4) or integer (kind=RegInt_K). integer (4) is not the same as integer*4 and is non-portable — the language standard does not specify the numeric values of kinds. Most compilers use the kind=4 for 4-byte integers — for these compilers integer*4 and integer(4) will provide the same integer type — but there are exceptions, so integer(4) is non-portable and best avoided.

The approach for reals is similar.

UPDATE: if you don’t want to specify numeric types by the required precision, but instead by the storage that they will use, Fortran 2008 provides a method. reals and integers can be specified by the number of bits of storage after useing the ISO_FORTRAN_ENV module, for example, for a 4-byte (32-bit) integer:

use ISO_FORTRAN_ENV
integer (int32) :: MyInt

The gfortran manual has documentation under “intrinsic modules”.

More Related Contents:

  1. Fortran running error
  2. Fortran 90 kind parameter
  3. Why Segmentation fault is happening in this openmp code?
  4. What is an undefined reference/unresolved external symbol error and how do I fix it in Fortran?
  5. Is There a Better Double-Precision Assignment in Fortran 90?
  6. changing array dimensions in fortran
  7. Why should I use interfaces?
  8. Sending 2D arrays in Fortran with MPI_Gather
  9. Fortran OpenMP program shows no speedup of CPU_TIME()
  10. Where to put `implicit none` in Fortran
  11. Function has no implicit type
  12. Print to standard output from a function defined in an Fortran module
  13. Why is this a function declared inside the module and then used somewhere else in the same module not seen by the linker?
  14. Does Fortran have undefined behavior?
  15. ‘*’ and ‘/’ not recognized on input by a read statement
  16. Reading data file in Fortran with known number of lines but unknown number of entries in each line
  17. how to write wrapper for ‘allocate’
  18. gfortran does not allow character arrays with varying component lengths
  19. What is the purpose of result variables in Fortran?
  20. Function in fortran, passing array in, receiving array out
  21. Reading writing fortran direct access unformatted files with different compilers
  22. Strange label usage for an IF condition in a DO loop [duplicate]
  23. Fortran OpenMP with subroutines and functions
  24. Error: Nonnegative width required in format string at (1)
  25. Fortran intent(inout) versus omitting intent
  26. Fortran array cannot be returned in function: not a DUMMY variable
  27. Is Fortran unable to do the addition between 865398.78 and -865398.78? Why the answer is -0.03?
  28. Passing size as argument VS assuming shape in Fortran procedures
  29. Fortran SAVE statement
  30. MPI_Gather gives seg fault in the most basic code

Leave a Comment