Fortran для меня совершенно новый, может ли кто-нибудь помочь мне решить проблему? Я хочу узнать все числа чисел целого числа и наибольшее и наименьшее значение для каждого типа номера на моем компьютере. У меня есть код, указанный ниже:
program intkind
implicit none
integer :: n=1
integer :: integer_range =1
do while(integer_range /= -1)
print*, "kind_number ", selected_int_kind(n)
call rang(integer_range)
n = n *2
integer_range = selected_int_kind(n)
end do
contains
subroutine rang(largest)
integer largest
print*, huge(largest)
end subroutine
end
Целые числа чисел, которые я получаю: 1,2,4,8.
-
Почему каждое наибольшее целое число для каждого типа числа одинаково:
2147483647
? И есть ли внутренняя функция для наименьшего целого? -
Как сохранить число целых чисел при вызове подпрограммы
rang
? Я думаю, что это ключ к наибольшему целому числу.