zeye_tridiag Function

public function zeye_tridiag(Nblock, N) result(eye_block)

Arguments

Type IntentOptional Attributes Name
integer :: Nblock
integer :: N

Return Value complex(kind=8), dimension(Nblock,N,N)


Calls

proc~~zeye_tridiag~~CallsGraph proc~zeye_tridiag zeye_tridiag interface~zeye zeye proc~zeye_tridiag->interface~zeye

Source Code

  function zeye_tridiag(Nblock,N) result(eye_block)
    integer                          :: Nblock
    integer                          :: N
    complex(8),dimension(Nblock,N,N) :: eye_block
    integer                          :: iblock
    do iblock=1,Nblock
       eye_block(iblock,:,:) = zeye(N)
    enddo
  end function zeye_tridiag