module WriteResults
use globvar
implicit none
contains
subroutine estimates
implicit none
integer :: t,j,k,s,i
CHARACTER(len=40) :: temp1,temp2
real(8) :: P(ntime,nfac,nfac) !Variance of factor
real(8) :: rho(ntime,nfac,nfac) !Variance of factor
open(1,file='observation.out')
do t = 1, ntime
do j = 1, nequation(t)
k = eqindex(t,j)
write(1,'(2I,<nx+nfac+1>f16.8)')t,k, beta(t,k,:), Z(t,k,:), H(t,k,k)
write(1,'(2I,<nx+nfac+1>f16.8)')t,k,sdbeta(t,k,:),sdZ(t,k,:),sdH(t,k,k)
write(1,*)
end do
write(1,*)
end do
close(1)
2 Comments
Direct link to this comment
https://ww2.mathworks.cn/matlabcentral/answers/43739-fortran-to-matlab-conversion#comment_89939
Direct link to this comment
https://ww2.mathworks.cn/matlabcentral/answers/43739-fortran-to-matlab-conversion#comment_89939
Direct link to this comment
https://ww2.mathworks.cn/matlabcentral/answers/43739-fortran-to-matlab-conversion#comment_89941
Direct link to this comment
https://ww2.mathworks.cn/matlabcentral/answers/43739-fortran-to-matlab-conversion#comment_89941
Sign in to comment.