Refactor error handling in linalg_state and stdlib_error; optimize loops in stdlib_lapack_blas_like_l2

Author: aamrindersingh

example/io/example.dat

@@ -1,3 +1 @@
- 1.00000000E+00  1.00000000E+00
- 1.00000000E+00  1.00000000E+00
- 1.00000000E+00  1.00000000E+00
+This is an example for open

src/core/stdlib_error.fypp

@@ -258,9 +258,11 @@ contains
     !> Update the location of the error message
     pure subroutine state_update_location(this, where_at)
          class(state_type), intent(inout) :: this
-         character(len=*), intent(in) :: where_at
+         character(len=*), optional, intent(in) :: where_at
 
-         if (len_trim(where_at) > 0) this%where_at = adjustl(where_at)
+         if (present(where_at)) then
+            if (len_trim(where_at) > 0) this%where_at = adjustl(where_at)
+         end if
 
     end subroutine state_update_location
 

src/lapack/stdlib_lapack_blas_like_l2.fypp

@@ -5698,10 +5698,8 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_l2
            ! Local Scalars
            integer(${ik}$) :: i, j
            ! Executable Statements
-           do j = 1, n
-              do i = 1, m
-                 x(i,j) = d(i) * x(i,j)
-              end do
+           do concurrent(j=1:n, i=1:m)
+              x(i,j) = d(i) * x(i,j)
            end do
            return
      end subroutine stdlib${ii}$_${ri}$lascl2
@@ -5721,10 +5719,8 @@ submodule(stdlib_lapack_base) stdlib_lapack_blas_like_l2
            ! Local Scalars
            integer(${ik}$) :: i, j
            ! Executable Statements
-           do j = 1, n
-              do i = 1, m
-                 x(i,j) = d(i) * x(i,j)
-              end do
+           do concurrent(j=1:n, i=1:m)
+              x(i,j) = d(i) * x(i,j)
            end do
            return
      end subroutine stdlib${ii}$_${ci}$lascl2

src/linalg_core/stdlib_linalg_state.fypp

@@ -80,18 +80,18 @@ module stdlib_linalg_state
          character(len=*),optional,intent(in) :: where_at
 
          character(len=:),allocatable :: err_msg
+         type(linalg_state_type) :: local_err
 
          if (present(ierr_out)) then
              ! Return error flag
              ierr_out = ierr
-             ! Update location if requested
-             if (present(where_at)) call ierr_out%update_location(where_at)
+             ! Update location if requested (update_location handles optional internally)
+             call ierr_out%update_location(where_at)
          elseif (ierr%error()) then
-             if (present(where_at)) then
-                 err_msg = '['//trim(where_at)//'] returned '//ierr%print_msg()
-             else
-                 err_msg = ierr%print()
-             end if
+             ! Use local copy to update location, then print
+             local_err = ierr
+             call local_err%update_location(where_at)
+             err_msg = local_err%print()
              error stop err_msg
          end if