anchor.diff:    !---------------------------------------------------------------------------------------------------------------------------------
     endfunction strz_I8P
   
  -  !> @brief Procedure for converting integer to string, prefixing with the right number of zeros. This function achieves casting of
  -  !> integer to string.
     elemental function strz_I4P(nz_pad,n) result(str)
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +  !< Procedure for converting integer to string, prefixing with the right number of zeros. This function achieves casting of
  +  !< integer to string.
     !---------------------------------------------------------------------------------------------------------------------------------
     implicit none
     integer(I4P), intent(IN), optional:: nz_pad !< Number of zeros padding.
  
positive.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction is_little_endian
  
    !> @brief Subroutine for checking the type of bit ordering (big or little endian) of the running architecture; the result is
    !> stored into the "endian" global variable.
    subroutine check_endian()
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    !---------------------------------------------------------------------------------------------------------------------------------
  
negative.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction strf_I4P
  
    elemental function strf_I2P(fm,n) result(str)
    !---------------------------------------------------------------------------------------------------------------------------------
    !< Procedure for converting integer to string. This function achieves casting of integer to string.
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    character(*), intent(IN):: fm  !< Format different from the standard for the kind.
  