eye Function

  1. mod_linalg.f90
  2. mod_linalg
  3. eye

public pure function eye(N)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: N

Return Value real(kind=wp), dimension(N,N)


Called by

proc~~eye~~CalledByGraph proc~eye eye program~driver2d driver2D program~driver2d->proc~eye proc~getalpha1d getAlpha1D proc~getalpha1d->proc~eye proc~getalpha2d getAlpha2D proc~getalpha2d->proc~eye

Contents

Source Code

eye

Source Code

  pure function eye(N)
    ! Generates an identity matrix of size (N,N)
    integer, intent(in)       :: N
    real(wp), dimension(N,N)  :: eye

    integer                   :: ii

    eye = 0._wp

    forall(ii = 1:N) eye(ii,ii) = 1._wp

    return
  end function eye