← Back to branch summary

~ubuntu-branches/ubuntu/trusty/ifeffit/trusty-proposed

« back to all changes in this revision

Viewing changes to debian/patches/fortran_patches

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2010-04-07 07:11:10 UTC
  • Revision ID: james.westby@ubuntu.com-20100407071110-spgaczzxuixbdeo2
Tags: 2:1.2.11d-6
http://bugs.debian.org/575933
* Clean up build rules to minimize the size of diff.gz
* Switch to dpkg-source 3.0 (quilt) format
* Rename perl wrapper package to libifeffit-perl (Closes: #575933)

Show diffs side-by-side

added added

removed removed

Lines of Context:
debian/patches/fortran_patches
 
1
Description: Patches to the FORTRAN source
 
2
 .
 
3
   * Enable FEFF to calculate chi
 
4
   * Modify array dimensioning for increased capacity
 
5
 .
 
6
Author: Carlo Segre <segre@debian.org>
 
7
 
 
8
--- ifeffit-1.2.11d.orig/src/feff6/feff.f
 
9
+++ ifeffit-1.2.11d/src/feff6/feff.f
 
10
@@ -117,11 +117,11 @@ c        Dump out fbetac for central ato
 
11
          call genfmt (ipr3, critcw, sig2g, iorder)
 
12
       endif
 
13
 
 
14
-c      if (mchi .eq. 1)  then
 
15
-c         call echo('Calculating chi...')
 
16
-c         call ff2chi (ipr4, critcw, s02, tk, thetad, icsig,
 
17
-c     1        vrcorr, vicorr)
 
18
-c      endif
 
19
+      if (mchi .eq. 1)  then
 
20
+         call echo('Calculating chi...')
 
21
+         call ff2chi (ipr4, critcw, s02, tk, thetad, icsig,
 
22
+     1        vrcorr, vicorr)
 
23
+      endif
 
24
 
 
25
        call echo('Feff done.  Have a nice day.')
 
26
        end
 
27
--- ifeffit-1.2.11d.orig/src/lib/iff_show.f
 
28
+++ ifeffit-1.2.11d/src/lib/iff_show.f
 
29
@@ -431,8 +431,8 @@ c
 
30
        character*(*) s, t , messg*256
 
31
        integer k, j, istrln
 
32
        external istrln
 
33
-       k = max(13, istrln(s))
 
34
-       j = max(2, istrln(t))
 
35
+       k = min(max(13, istrln(s)),256)
 
36
+       j = min(max(2, istrln(t)), 252-k)
 
37
        write(messg,11)  s(1:k), ' = ', t(1:j)
 
38
        call echo(messg)
 
39
  11    format('$',3a)
 
40
@@ -443,8 +443,8 @@ c
 
41
        character*(*) s, t , messg*256
 
42
        integer    k, j, istrln
 
43
        external istrln
 
44
-       k = max(14, istrln(s))
 
45
-       j = max(2, istrln(t))
 
46
+       k = min(max(14, istrln(s)), 256)
 
47
+       j = min(max(2, istrln(t)), 253-k)
 
48
        write(messg,11)  s(1:k), ': ', t(1:j)
 
49
        call echo(messg)
 
50
  11    format (3a)