get_scalar_from_lala_character Subroutine

  1. M_matrix.F90
  2. M_matrix
  3. get_scalar_from_lala_character

public subroutine get_scalar_from_lala_character(varname, out, ierr)

Arguments

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

Contents

Variables

Source Code

get_scalar_from_lala_character

Variables

Type Visibility Attributes Name Initial
doubleprecision, public, allocatable :: double(:,:)
integer, public :: i
integer, public :: j
integer, public :: k

Source Code

subroutine get_scalar_from_lala_character(varname,out,ierr)
character(len=*),intent(in)              :: varname
character(len=:),allocatable,intent(out) :: out
doubleprecision,allocatable              :: double(:,:)
integer,intent(out)                      :: ierr
integer                                  :: i,j,k
   call get_double_from_lala(varname,double,type=0,ierr=ierr)
   if(ierr.ne.0)return
   if(allocated(out))deallocate(out)
   allocate(character(len=size(double)) :: out)
   k=0
   do i=1,size(double,dim=1)
      do j=1,size(double,dim=2)
         k=k+1
         out(k:k)=achar(nint(double(i,j)))
      enddo
   enddo
end subroutine get_scalar_from_lala_character