Недопустимый доступ к памяти с Fortran 77 подпрограммой

Question

Взаимодействуя с Fortran 77 результатов подпрограммы в ошибке «Invalid доступа к памяти» с кодом, который я суммированы ниже:

subroutine mysub1() 
    parameter :: kk=22 
    real, dimension(KK) :: A 
    call F77SUB(A) 
end 

subroutine mysub2() 
    parameter, integer :: kk=22 
    real, dimension(:,:), allocatable :: A 
    integer :: jj 

    jj = 12 
    allocate(A(kk,jj)) 

    call F77SUB(A(:,1)) ! ERROR: Invalid memory access 
end 

Где F77SUB является Фортран подпрограммой Я пытаюсь который берет 1D-массив и записывает на него. В приведенном выше коде mysub1 работает, но mysub2 нет.

Может ли кто-нибудь предположить, что проблема выше, или предоставить подробную информацию о том, как массивные аргументы фактически передаются между подпрограммами F90 и F77? Я видел экземпляры скаляров, передаваемых в подпрограммы F77, которые, по-видимому, просто берут адрес памяти скаляра в начало массива. Любое просвещение будет оценено по достоинству.

Answer 1

Слишком долго для комментариев, но не совсем ответ ..

кода вы Размещенный Crazee, и пытаюсь исправить обобщенный код является бесплодной задача, поэтому я не буду тратить много времени на него. Вот пара вопиющих ошибок, пожалуйста, не отвечайте, сообщив нам, что в вашем «реальном» коде ошибки отсутствуют.

1. F77SUB(A(:,1)) синтаксически неправильно для вызова подпрограммы, call F77SUB(A(:,1)) правильно.
2. Выделение массива, который не объявляется подлежащим распределению, не рекомендуется.
3. Дается аргумент о предоставлении явного значения intent.
4. Дихотомия, которую вы рисуете между программами Fortran 90 и FORTRAN77, вводит в заблуждение. Если ваш компилятор может скомпилировать Fortran 90 (и он должен иметь возможность, или у вас не будет каких-либо allocatables), тогда вам лучше подумать о том, что ваш код является просто фортраном.

Answer 2

Я нашел проблему. Я объявлял 1D A двойной точностью и 2D A был реальным. Как-то это позволило мне передать их обоих в рутину F77 без жалобы.