W jaki sposób skalar może zostać przekazany do wektora (tablica 1D) do podprogramu Fortran?

Question

Jul 26, 2013, 11:41 PM

W jaki sposób skalar może zostać przekazany do wektora (tablica 1D) do podprogramu Fortran?

Jest ten program:

INTEGER i,k
REAL*8  mp(15,48)
REAL*8  sp(15)
k=0
do i=1,12
   k=k+1
   call Equaltensors(sp,mp(1,k),15)
enddo
end

c=====================

subroutine Equaltensors(tensA,tensB,n)
REAL*8 tensA(n),tensB(n)
INTEGER i
do   i=1,n
     tensB(i)=tensA(i)
enddo
return
end

Zatem zasadniczo wartość mp (1,1) i tak dalej jest przekazywana do podprogramu jako wektor tensB (15) z n = 15. Nie rozumiem jednak, jak liczba rzeczywista może być przechowywana w tablicy o jednym wymiarze w podprogramie.