deye_tridiag Function

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

Arguments

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

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


Calls

proc~~deye_tridiag~~CallsGraph proc~deye_tridiag deye_tridiag interface~eye eye proc~deye_tridiag->interface~eye

Source Code

  function deye_tridiag(Nblock,N) result(eye_block)
    integer                       :: Nblock
    integer                       :: N
    real(8),dimension(Nblock,N,N) :: eye_block
    integer                       :: iblock
    do iblock=1,Nblock
       eye_block(iblock,:,:) = eye(N)
    enddo
  end function deye_tridiag