Здравствуйте, я хочу, чтобы следующая подпрограмма включила следующий файл в мой код Fortran 90 таким образом, чтобы многомерный массив cc сохранял эти значения, но по какой-то причине код не работает и не сохраняет ценности. Кто-нибудь может взглянуть? Я включаю файл и код функции.
subroutine postp
implicit none
real(selected_real_kind(33,4931)) :: cc(-10:10,0:6,6,6)
include 'C1to6'
write(*,*) cc
end subroutine postp
Вот файл .