Removed random_seed.patch.

1 files changed, 0 insertions, 22 deletions

diff --git a/random_seed.patch b/random_seed.patch
deleted file mode 100644
index fb28437602f6..000000000000
--- a/random_seed.patch
+++ /dev/null
@@ -1,22 +0,0 @@
-diff --git a/src/67_common/m_vcoul.F90 b/src/67_common/m_vcoul.F90
-index 4648b80..2ddc638 100644
---- a/src/67_common/m_vcoul.F90
-+++ b/src/67_common/m_vcoul.F90
-@@ -223,7 +223,7 @@ subroutine vcoul_init(Vcp,Gsph,Cryst,Qmesh,Kmesh,rcut,icutcoul,vcutgeo,ecut,ng,n
-  integer :: i1,i2,i3,ig,imc
-  integer :: ii,iqlwl,iq_bz,iq_ibz,npar,npt
-  integer :: opt_cylinder,opt_surface,test,rank,nprocs
-- integer :: seed(12)=0
-+ integer :: seed(42)=0
-  real(dp),parameter :: tolq0=1.d-3
-  real(dp) :: b1b1,b2b2,b3b3,b1b2,b2b3,b3b1
-  real(dp) :: bz_geometry_factor,bz_plane,check,dx,integ,q0_vol,q0_volsph
-@@ -345,7 +345,7 @@ subroutine vcoul_init(Vcp,Gsph,Cryst,Qmesh,Kmesh,rcut,icutcoul,vcutgeo,ecut,ng,n
-    ABI_MALLOC(qran,(3,nmc_max))
- 
-    if(seed(1)==0) then
--     do i1=1,12
-+     do i1=1,42
-        seed(i1) = NINT(SQRT(DBLE(i1)*103731))
-      end do
-    end if
\ No newline at end of file