get_fixed_array_from_lala_cmplx Subroutine

  1. M_matrix.F90
  2. M_matrix
  3. get_fixed_array_from_lala_cmplx

public subroutine get_fixed_array_from_lala_cmplx(varname, out, ierr, fixed)

Arguments

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

Contents

Variables

Source Code

get_fixed_array_from_lala_cmplx

Variables

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

Source Code

subroutine get_fixed_array_from_lala_cmplx(varname,out,ierr,fixed)
character(len=*),intent(in)      :: varname
complex,intent(out)  :: out(:,:)
doubleprecision,allocatable      :: double(:,:), doublei(:,:)
integer,intent(out)              :: ierr
logical,intent(in)                         :: fixed
   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
   out=cmplx(double,doublei,kind=sp)
end subroutine get_fixed_array_from_lala_cmplx