Архив форумов ЦИТФорума

[ryabinkin]

Господа!
Вопрос заключается в следующем: возможно ли в 77 Фортране каким-либо образом задавать массивы с неизвестным на этапе компиляции размером? Напримет, используя внешнюю Ц программу для управления паматью.
Пробовал автоматические массивы в подпрограммах, но стек-то не резиновый... Использовал код вида:

program main
implicit none

real*8 Pi
integer N
Pi=3.14159265358979324d0
read(*,*)N
call tst(N)
end

subroutine tst(N)
real*8 Pi
integer i
real*8 a(N)
open(16, FILE='output',status='new')
do i=1, N
a(i)=dsin(Pi/2*i)
write(16,*) a(i)
end do
close(16)
return
end

Мало! Хочется использовать ВСЮ доступую память.
Что-то типа
fort_prg.f
program main
implicit none
integer N,k
real*8 az
external az
N=10
do k=1, N
az(k)=1.0
end do
end
c_prg.c
az_=malloc(10*sizeof(double));

Как такое сделать?
Не хочу покупать F90!!!!!!!!!!!