get_array_from_lala_real128 Subroutine

  1. M_matrix.F90
  2. M_matrix
  3. get_array_from_lala_real128

public subroutine get_array_from_lala_real128(varname, out, ierr)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: varname
real(kind=real128), intent(out), allocatable :: out(:,:)
integer, intent(out) :: ierr

Contents

Variables

Source Code

get_array_from_lala_real128

Variables

Type Visibility Attributes Name Initial
doubleprecision, public, allocatable :: double(:,:)

Source Code

subroutine get_array_from_lala_real128(varname,out,ierr)
character(len=*),intent(in)                 :: varname
real(kind=real128),allocatable,intent(out)  :: out(:,:)
doubleprecision,allocatable                 :: double(:,:)
integer,intent(out)                         :: ierr
   if(allocated(out))deallocate(out)
   call get_double_from_lala(varname,double,type=0,ierr=ierr)
   if(ierr.ne.0)return
   out=real(double,kind=real128)
end subroutine get_array_from_lala_real128