У меня есть следующая программа module test contains subroutine foo() integer, allocatable :: a(:) allocate(a(-5:5)) call bar(a) print *, a end subroutine subroutine bar(a) integer, intent(out) :: a(:)...

Мне нужно записать некоторые данные в файл, и очень важно, чтобы строка начиналась с первого столбца. Но по умолчанию первый столбец пуст. Есть ли возможность начать строку с первого столбца? Заранее спасибо!

Я обернул подпрограммы sqlite3_open , sqlite3_close и sqlite3_exec из C-API SQLite (версия 3.16.2), чтобы вызывать их из программа на Фортране 2003, использующая модуль ISO_C_BINDING. Я использую компилятор Intel Fortran 17 (ifort) с MSVC 14 в...

subroutine Ceigen(n,Uf,Ud,d) implicit none integer :: n,info,i,j,lwork=-1 complex(8) :: Ud(n,n),Uf(n,n),rwork(2*n),d(n) complex(8),allocatable :: work(:) complex(8),dimension(1,1) :: vr,vl allocate(work(0:n-1)) Ud=Uf call zgeev('N','N', n,...

Прежде всего, я знаю, что у Джулии есть svd внутренняя функция, но она не совсем то, что мне нужно. Вместо этого это делает svdcmp из Numerical Recipes. Итак, подпрограмма такая: MODULE nrtype INTEGER, PARAMETER :: I4B =...

Я пытаюсь написать подпрограмму с циклом выполнения, который зацикливается до заданного количества циклов. поскольку эта константа повторяется во всем коде, я хочу изменить константу на переменную. например, вместо do i=0, 3 я делаю i=0, dp. это...