Revert "Further simplification of the interface fyyp-template."

This reverts commit b7a4475.

Author: loiseaujc

src/stdlib_linalg_lapack.fypp

@@ -3245,20 +3245,26 @@ module stdlib_linalg_lapack
 #:if rk in ["sp", "dp"]
         #:if rt.startswith("real")
             pure subroutine ${ri}$geqp3(m, n, a, lda, jpvt, tau, work, lwork, info)
+                import sp, dp, qp, ${ik}$, lk
+                implicit none
+                integer(${ik}$), intent(in) :: m, n, lda, lwork
+                integer(${ik}$), intent(out) :: info
+                integer(${ik}$), intent(inout) :: jpvt(*)
+                ${rt}$, intent(inout) :: a(lda, *)
+                ${rt}$, intent(out) :: tau(*), work(*)
+            end subroutine ${ri}$geqp3
         #:else
             pure subroutine ${ri}$geqp3(m, n, a, lda, jpvt, tau, work, lwork, rwork, info)
-        #:endif
                 import sp, dp, qp, ${ik}$, lk
                 implicit none
                 integer(${ik}$), intent(in) :: m, n, lda, lwork
                 integer(${ik}$), intent(out) :: info
                 integer(${ik}$), intent(inout) :: jpvt(*)
                 ${rt}$, intent(inout) :: a(lda, *)
                 ${rt}$, intent(out) :: tau(*), work(*)
-                #:if rt.startswith("complex")
                 real(${rk}$), intent(out) :: rwork(*)
-                #:endif
             end subroutine ${ri}$geqp3
+        #:endif
 #:else
             module procedure stdlib${ii}$_${ri}$geqp3
 #:endif