data_saveM_R Subroutine

subroutine data_saveM_R(pname, Y1, X)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: pname
real(kind=8), dimension(:,:) :: Y1
real(kind=8), optional, dimension(size(Y1,2)) :: X

Calls

proc~~data_savem_r~~CallsGraph proc~data_savem_r data_saveM_R data_store data_store proc~data_savem_r->data_store reg reg proc~data_savem_r->reg

Source Code

subroutine data_saveM_R(pname,Y1,X)
  integer                                :: i,j,Ny1,Ny2
  character(len=*)                       :: pname
  real(8),dimension(:,:)                 :: Y1
  real(8),optional,dimension(size(Y1,2)) :: X
  Ny1=size(Y1,1) ; Ny2=size(Y1,2)
  open(719,file=adjustl(trim(pname)))
  do i=1,Ny1
     do j=1,Ny2
        if(present(X))then
           write(719,*)X(j),Y1(i,j)
        else
           write(719,*)Y1(i,j)
        endif
     enddo
     write(719,*)
  enddo
  close(719)
  call data_store(reg(pname))
end subroutine data_saveM_R