integer M character (len = 20) dict(50) data dict/'gum','sin','for','cry','lug','bye','fly','ugly', M 'each','from','work','talk','with','self', M 'pizza','thing','feign','fiend','elbow','fault', M...

Я работаю над проектом, в котором у меня есть несколько массивов одинакового размера в 1-м, 2-м и 3-м измерениях, хотя размеры могут различаться в 4-м измерении. Я хотел бы сгруппировать эти массивы, создав указатель, который объединяет эти...

Program Main Implicit None Integer, Parameter :: iwp = SELECTED_Real_KIND(15) Integer, allocatable :: Num(:) Num(1)=1 ...... End Program Main Когда я использую allocatable для определения пустого массива 'num', а затем запускаю программу,...

Вопрос Рассмотрим следующий код: program example implicit none integer, parameter :: n_coeffs = 1000 integer, parameter :: n_indices = 5 integer :: i real(8), dimension(n_coeffs) :: coeff integer, dimension(n_coeffs,n_indices)...

Я перевожу код с Фортрана. Я получаю странное поведение во время задания. Я знаю, что добавление кода может быть очень полезным, но я не могу добавить точный код (я не авторизован), и мне не удалось его воспроизвести. Строки следующие (qk был...