diff --git a/include/armadillo_bits/def_lapack.hpp b/include/armadillo_bits/def_lapack.hpp
index 17c2e039..7faf6318 100644
--- a/include/armadillo_bits/def_lapack.hpp
+++ b/include/armadillo_bits/def_lapack.hpp
@@ -259,9 +259,6 @@
   #define arma_strevc strevc
   #define arma_dtrevc dtrevc
   
-  #define arma_slarnv slarnv
-  #define arma_dlarnv dlarnv
-  
   #define arma_sgehrd sgehrd
   #define arma_dgehrd dgehrd
   #define arma_cgehrd cgehrd
@@ -498,9 +495,6 @@
   #define arma_strevc STREVC
   #define arma_dtrevc DTREVC
   
-  #define arma_slarnv SLARNV
-  #define arma_dlarnv DLARNV
-  
   #define arma_sgehrd SGEHRD
   #define arma_dgehrd DGEHRD
   #define arma_cgehrd CGEHRD
@@ -840,10 +834,6 @@ extern "C"
   void arma_fortran(arma_strevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const  float* t, const blas_int* ldt,  float* vl, const blas_int* ldvl,  float* vr, const blas_int* ldvr, const blas_int* mm, blas_int* m,  float* work, blas_int* info, blas_len side_len, blas_len howmny_len) ARMA_NOEXCEPT;
   void arma_fortran(arma_dtrevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const double* t, const blas_int* ldt, double* vl, const blas_int* ldvl, double* vr, const blas_int* ldvr, const blas_int* mm, blas_int* m, double* work, blas_int* info, blas_len side_len, blas_len howmny_len) ARMA_NOEXCEPT;
   
-  // generate a vector of random numbers
-  void arma_fortran(arma_slarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n,  float* x) ARMA_NOEXCEPT;
-  void arma_fortran(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, double* x) ARMA_NOEXCEPT;
-  
   // hessenberg decomposition
   void arma_fortran(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi,    float* a, const blas_int* lda,    float* tao,    float* work, const blas_int* lwork, blas_int* info) ARMA_NOEXCEPT;
   void arma_fortran(arma_dgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi,   double* a, const blas_int* lda,   double* tao,   double* work, const blas_int* lwork, blas_int* info) ARMA_NOEXCEPT;
@@ -1168,10 +1158,6 @@ extern "C"
   void arma_fortran(arma_strevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const  float* t, const blas_int* ldt,  float* vl, const blas_int* ldvl,  float* vr, const blas_int* ldvr, const blas_int* mm, blas_int* m,  float* work, blas_int* info) ARMA_NOEXCEPT;
   void arma_fortran(arma_dtrevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const double* t, const blas_int* ldt, double* vl, const blas_int* ldvl, double* vr, const blas_int* ldvr, const blas_int* mm, blas_int* m, double* work, blas_int* info) ARMA_NOEXCEPT;
   
-  // generate a vector of random numbers
-  void arma_fortran(arma_slarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n,  float* x) ARMA_NOEXCEPT;
-  void arma_fortran(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, double* x) ARMA_NOEXCEPT;
-  
   // hessenberg decomposition
   void arma_fortran(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi,    float* a, const blas_int* lda,    float* tao,    float* work, const blas_int* lwork, blas_int* info) ARMA_NOEXCEPT;
   void arma_fortran(arma_dgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi,   double* a, const blas_int* lda,   double* tao,   double* work, const blas_int* lwork, blas_int* info) ARMA_NOEXCEPT;
diff --git a/include/armadillo_bits/translate_lapack.hpp b/include/armadillo_bits/translate_lapack.hpp
index ccec084e..fa250b9c 100644
--- a/include/armadillo_bits/translate_lapack.hpp
+++ b/include/armadillo_bits/translate_lapack.hpp
@@ -1305,18 +1305,6 @@ namespace lapack
   
   
   
-  template<typename eT>
-  inline
-  void
-  larnv(blas_int* idist, blas_int* iseed, const blas_int* n, eT* x)
-    {
-    arma_type_check(( is_supported_blas_type<eT>::value == false ));
-    
-         if( is_float<eT>::value)  { typedef float  T; arma_fortran(arma_slarnv)(idist, iseed, n, (T*)x); }
-    else if(is_double<eT>::value)  { typedef double T; arma_fortran(arma_dlarnv)(idist, iseed, n, (T*)x); }
-    }
-  
-  
   template<typename eT>
   inline
   void
diff --git a/src/wrapper1.cpp b/src/wrapper1.cpp
index 9c1fd08c..c81eefb1 100644
--- a/src/wrapper1.cpp
+++ b/src/wrapper1.cpp
@@ -1159,18 +1159,6 @@ extern "C"
     
     
     
-    void arma_fortran_with_prefix(arma_slarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n,  float* x)
-      {
-      arma_fortran_sans_prefix(arma_slarnv)(idist, iseed, n, x);
-      }
-    
-    void arma_fortran_with_prefix(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, double* x)
-      {
-      arma_fortran_sans_prefix(arma_dlarnv)(idist, iseed, n, x);
-      }
-    
-    
-    
     void arma_fortran_with_prefix(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi,    float* a, const blas_int* lda,    float* tao,    float* work, const blas_int* lwork, blas_int* info)
       {
       arma_fortran_sans_prefix(arma_sgehrd)(n, ilo, ihi, a, lda, tao, work, lwork, info);
diff --git a/src/wrapper2.cpp b/src/wrapper2.cpp
index b16b9119..72a00206 100644
--- a/src/wrapper2.cpp
+++ b/src/wrapper2.cpp
@@ -1119,18 +1119,6 @@ extern "C"
     
     
     
-    void arma_fortran_with_prefix(arma_slarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n,  float* x)
-      {
-      arma_fortran_sans_prefix(arma_slarnv)(idist, iseed, n, x);
-      }
-    
-    void arma_fortran_with_prefix(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, double* x)
-      {
-      arma_fortran_sans_prefix(arma_dlarnv)(idist, iseed, n, x);
-      }
-    
-    
-    
     void arma_fortran_with_prefix(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi,    float* a, const blas_int* lda,    float* tao,    float* work, const blas_int* lwork, blas_int* info)
       {
       arma_fortran_sans_prefix(arma_sgehrd)(n, ilo, ihi, a, lda, tao, work, lwork, info);