Как можно передать скаляр в вектор (одномерный массив) в подпрограмму Fortran?
Есть эта программа:
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
Таким образом, в основном значение mp (1,1) и т. Д. Передается подпрограмме в виде вектора tenens B (15) с n = 15. Что я не понимаю, так это то, как действительное число может храниться в одномерном массиве в подпрограмме.