jlec 15/01/05 20:20:04 Added: procheck-3.5.4-close.patch Log: sci-chemistry/procheck: Add patch to fix problems with newer gfortran, thanks xarthisius for the patch (Portage version: 2.2.15/cvs/Linux x86_64, signed Manifest commit with key B9D4F231BD1558AB!)
Revision Changes Path 1.1 sci-chemistry/procheck/files/procheck-3.5.4-close.patch file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/sci-chemistry/procheck/files/procheck-3.5.4-close.patch?rev=1.1&view=markup plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/sci-chemistry/procheck/files/procheck-3.5.4-close.patch?rev=1.1&content-type=text/plain Index: procheck-3.5.4-close.patch =================================================================== diff --git a/pplot.f b/pplot.f index 7e06e68..c86b2b2 100644 --- a/pplot.f +++ b/pplot.f @@ -4720,6 +4720,7 @@ C---- Initialise variables SCORE(IDIST) = 0.0 50 CONTINUE + REWIND(3) C---- If the required residue is of a greater number than that required, C read through the file until come to it IF (IRESID.GT.INRES) THEN diff --git a/ps.f b/ps.f index b652a7d..858b8e5 100644 --- a/ps.f +++ b/ps.f @@ -1705,12 +1705,14 @@ CVAX - CARRIAGECONTROL='LIST', C---- If this is an existing file, then read through all its records until C get to the end of file IF (.NOT.NEWFIL) THEN + CLOSE(14) + OPEN(14, file=fname, status='old', position='append', err=900) C---- Loop through the file until reach the end - 100 CONTINUE - READ(14,110,END=500) IREC - 110 FORMAT(A) - GO TO 100 +C 100 CONTINUE +C READ(14,110,END=500) IREC +C 110 FORMAT(A) +C GO TO 100 C---- If this is a new file, then write the header records to it ELSE
