Como obter uma matriz anteriormente desconhecida como saída de uma função no Fortran

DentroPitã: def select(x): y = [] for e in x: if e!=0: y.append(e) return y que funciona como: x = [1,0,2,0,0,3] select(x) [1,2,3] para ser traduzido para Fortran: function select(x,n) result(y) implicit none integer:: x(n),n,i,j,y(?) j = 0 ...