get_scalar_from_lala_dpcmplx Subroutine

  1. M_matrix.F90
  2. M_matrix
  3. get_scalar_from_lala_dpcmplx

public subroutine get_scalar_from_lala_dpcmplx(varname, out, ierr)

Arguments

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

Contents

Variables

Source Code

get_scalar_from_lala_dpcmplx

Variables

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

Source Code

subroutine get_scalar_from_lala_dpcmplx(varname,out,ierr)
character(len=*),intent(in)   :: varname
complex(kind=dp),intent(out)  :: out
doubleprecision,allocatable   :: double(:,:), doublei(:,:)
integer,intent(out)           :: ierr
   call get_double_from_lala(varname,double,type=0,ierr=ierr)
   call get_double_from_lala(varname,doublei,type=1,ierr=ierr)
   if(ierr.ne.0)return
   if(size(double).ne.1)call journal('sc','warning: returned scalar does not have size 1 but size',size(double))
   out=cmplx(double(1,1),doublei(1,1),kind=dp)
end subroutine get_scalar_from_lala_dpcmplx