elisseev2000
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Большое спасибо за ответы. Не подскажите еще? Есть двойной цикл. В нем величина, зависящая от двух переменных, опысывающих циклы. например do teta=0.,20.,шаг! шаг бывает разным do fi=0.,30.,шаг!шаг бывает разным f=f(teta,fi) ! некая формула в аналитическом виде end do end do результат f надо записать в 2 мерный массив. я так понимаю динамический. как это сделать? f величина комплексная. teta fi исспользуются в коммон блоке заранее спасибо. если есть возможность помогите Добавлено: например я пишу program oleg implicit none integer i,j,val integer,allocatable :: X(:, allocate(X(i,j),stat=val) do i=0.,2.,10+1. do j=0.,5.,30+1. X(i,j)=i+j end do end do write(2,*) 'X=',X deallocate(X) end а мне oleg.exe обнаружена ошибка. приложение будет закрыто. просим извинения |