В Python :
def select(x):
y = []
for e in x:
if e!=0:
y.append(e)
return y
, который работает как:
x = [1,0,2,0,0,3] select(x) [1,2,3]
для перевода на Фортран :
function select(x,n) result(y)
implicit none
integer:: x(n),n,i,j,y(?)
j = 0
do i=1,n
if (x(i)/=0) then
j = j+1
y(j) = x(i)
endif
enddo
end function
вопросы в Фортране:
для 1, если оно определено как y (n) , вывод будет:
x = (/1,0,2,0,0,3/) print *,select(x,6) 1,2,3,0,0,0
что не желанный!
! -------------------------------
Комментарии:
1- Все полученные ответы полезны в этом посте. Специально М.С.Б. и Ерыксун.
2- Я попытался адаптировать идеи для моей проблемы и скомпилировать с F2Py
, но безуспешно. Я уже отлаживал их с помощью GFortran, и все прошло успешно. Это может быть ошибка в F2Py
или что-то, о чем я не знаю, как правильно ее использовать. Я постараюсь осветить этот вопрос в другом посте.
Обновление: Связанный вопрос можно найти на здесь .