[Debichem-commits] [debichem] r7158 - in unstable/abinit/debian: . patches

mbanck at alioth.debian.org mbanck at alioth.debian.org
Sat Aug 5 16:45:36 UTC 2017


Author: mbanck
Date: 2017-08-05 16:45:36 +0000 (Sat, 05 Aug 2017)
New Revision: 7158

Added:
   unstable/abinit/debian/patches/gcc7_random_seek.patch
Modified:
   unstable/abinit/debian/changelog
Log:
  * debian/patches/gcc7_random_seek.patch: New patch, fix FTBFS error with GCC7
    (Closes: #853297).


Modified: unstable/abinit/debian/changelog
===================================================================
--- unstable/abinit/debian/changelog	2017-08-05 16:44:56 UTC (rev 7157)
+++ unstable/abinit/debian/changelog	2017-08-05 16:45:36 UTC (rev 7158)
@@ -1,8 +1,9 @@
-abinit (8.0.8-2) UNRELEASED; urgency=medium
+abinit (8.0.8-2) unstable; urgency=medium
 
-  * 
+  * debian/patches/gcc7_random_seek.patch: New patch, fix FTBFS error with GCC7
+    (Closes: #853297).
 
- -- Debichem Team <debichem-devel at lists.alioth.debian.org>  Sat, 05 Aug 2017 12:44:28 -0400
+ -- Michael Banck <mbanck at debian.org>  Sat, 05 Aug 2017 12:33:21 -0400
 
 abinit (8.0.8-1) unstable; urgency=medium
 

Added: unstable/abinit/debian/patches/gcc7_random_seek.patch
===================================================================
--- unstable/abinit/debian/patches/gcc7_random_seek.patch	                        (rev 0)
+++ unstable/abinit/debian/patches/gcc7_random_seek.patch	2017-08-05 16:45:36 UTC (rev 7158)
@@ -0,0 +1,31 @@
+--- ./src/67_common/m_vcoul.F90.orig	2017-08-05 12:29:06.738862713 -0400
++++ ./src/67_common/m_vcoul.F90	2017-08-05 12:32:13.761640058 -0400
+@@ -222,7 +222,8 @@
+  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 :: size
++ integer,allocatble :: seed(:)
+  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
+@@ -342,13 +343,16 @@
+    ! Setup the random vectors for the Monte Carlo sampling of the miniBZ
+    ! at q=0
+    ABI_MALLOC(qran,(3,nmc_max))
+-
++   
++   call random_seed(size=size)
++   allocate(seed(size))
+    if(seed(1)==0) then
+-     do i1=1,12
++     do i1=1,size
+        seed(i1) = NINT(SQRT(DBLE(i1)*103731))
+      end do
+    end if
+    call random_seed(put=seed)
++   deallocate(seed)
+    call random_number(qran)
+ 
+    ! Overide the first "random vector" with 0




More information about the Debichem-commits mailing list