[Debichem-commits] r1146 - in /unstable/mopac7/debian: changelog patches/00list patches/03_fix_FORTRAN_source.dpatch

[dleidert-guest at users.alioth.debian.org]

Author: dleidert-guest
Date: Mon Feb 25 14:14:38 2008
New Revision: 1146

URL: http://svn.debian.org/wsvn/debichem/?sc=1&rev=1146
Log:
* debian/patches/03_fix_FORTRAN_source.dpatch: Added.
  - esp.f, symtrz.f: Fix programming issues (see #465723).
* debian/patches/00list: Adjusted.


Added:
    unstable/mopac7/debian/patches/03_fix_FORTRAN_source.dpatch   (with props)
Modified:
    unstable/mopac7/debian/changelog
    unstable/mopac7/debian/patches/00list

Modified: unstable/mopac7/debian/changelog
URL: http://svn.debian.org/wsvn/debichem/unstable/mopac7/debian/changelog?rev=1146&op=diff
==============================================================================
--- unstable/mopac7/debian/changelog (original)
+++ unstable/mopac7/debian/changelog Mon Feb 25 14:14:38 2008
@@ -17,6 +17,8 @@
     to libf2c2-dev change.
   * debian/patches/02_mopac7_path.dpatch: Removed (simply use sed in
     debian/rules).
+  * debian/patches/03_fix_FORTRAN_source.dpatch: Added.
+    - esp.f, symtrz.f: Fix programming issues (see #465723).
   * debian/patches/00list: Adjusted.
 
  -- Daniel Leidert (dale) <daniel.leidert at wgdd.de>  Fri, 15 Feb 2008 06:56:32 +0100

Modified: unstable/mopac7/debian/patches/00list
URL: http://svn.debian.org/wsvn/debichem/unstable/mopac7/debian/patches/00list?rev=1146&op=diff
==============================================================================
--- unstable/mopac7/debian/patches/00list (original)
+++ unstable/mopac7/debian/patches/00list Mon Feb 25 14:14:38 2008
@@ -1,1 +1,2 @@
 01_undefined_symbol_in_so
+03_fix_FORTRAN_source

Added: unstable/mopac7/debian/patches/03_fix_FORTRAN_source.dpatch
URL: http://svn.debian.org/wsvn/debichem/unstable/mopac7/debian/patches/03_fix_FORTRAN_source.dpatch?rev=1146&op=file
==============================================================================
--- unstable/mopac7/debian/patches/03_fix_FORTRAN_source.dpatch (added)
+++ unstable/mopac7/debian/patches/03_fix_FORTRAN_source.dpatch Mon Feb 25 14:14:38 2008
@@ -1,0 +1,58 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 03_fix_FORTRAN_source.dpatch by Daniel Leidert (dale) <daniel.leidert at wgdd.de>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Compilation of the FORTRAN sources fails with:
+## DP:
+## DP:   esp.f:2357.72:
+## DP:
+## DP:            OPEN(21,STATUS='NEW')                                          
+## DP:                                                                          1
+## DP:   Error: The STATUS specified in OPEN statement at (1) is 'NEW' and no FILE specifier is present
+## DP:
+## DP: I assume that we want to open a scratch-file here.
+## DP:
+## DP:   symtrz.f:1045.30:
+## DP:
+## DP:         DATA TOLER,IFRA /  0.1, '????'/                                   
+## DP:                                1
+## DP:   Error: Incompatible types in assignment at (1), CHARACTER(1) to INTEGER(4)
+## DP:
+## DP: If this one is fixed, another error occurs for the NAMES variable. This
+## DP:   one is fixed too (seems to be a simple typo).
+
+
+ at DPATCH@
+diff -urNad mopac7~/fortran/esp.f mopac7/fortran/esp.f
+--- mopac7~/fortran/esp.f	2005-08-23 11:12:23.000000000 +0200
++++ mopac7/fortran/esp.f	2008-02-25 15:03:52.000000000 +0100
+@@ -945,7 +945,7 @@
+ C
+       POTWRT=(INDEX(KEYWRD,'POTWRT') .NE. 0)
+       IF(POTWRT) THEN
+-         OPEN(21,STATUS='NEW')
++         OPEN(UNIT=21)
+          WRITE(21,'(I5)') NESP
+          DO 410 I=1,NESP
+   410    WRITE(21,420) ESP(I),POTPT(1,I)/BOHR,POTPT(2,I)/BOHR,
+@@ -2354,7 +2354,7 @@
+ C
+       POTWRT=(INDEX(KEYWRD,'POTWRT') .NE. 0)
+       IF(POTWRT) THEN
+-         OPEN(21,STATUS='NEW')
++         OPEN(UNIT=21)
+          WRITE(21,'(I5)') NESP
+          DO 410 I=1,NESP
+   410    WRITE(21,420) ESP(I),POTPT(1,I)/BOHR,POTPT(2,I)/BOHR,
+diff -urNad mopac7~/fortran/symtrz.f mopac7/fortran/symtrz.f
+--- mopac7~/fortran/symtrz.f	2003-07-11 15:39:12.000000000 +0200
++++ mopac7/fortran/symtrz.f	2008-02-25 15:07:27.000000000 +0100
+@@ -1034,7 +1034,7 @@
+       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
+       INCLUDE 'SIZES'
+       PARAMETER (MXDIM=MAXPAR+NUMATM)
+-      CHARACTER*4  NAME,ISTA
++      CHARACTER*4  IFRA, NAMES, ISTA
+       COMMON /S00001/         T(12,12),JX(7,12),LINA,I1,J1,J2
+       COMMON /S00002/ NUMAT,NORBS,NADIM,NCDIM,IQUAL,NDORBS,IERROR
+       COMMON /S00003/ IELEM(20),ELEM(3,3,20),CUB(3,3),JELEM(20,NUMATM)

Propchange: unstable/mopac7/debian/patches/03_fix_FORTRAN_source.dpatch
------------------------------------------------------------------------------
    svn:executable = *