This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Gfortran does not compile dynamo (and others)
- From: Ignacio Fernández Galván <jellby at yahoo dot com>
- To: fortran at gcc dot gnu dot org
- Date: Sat, 3 Feb 2007 19:14:55 +0000 (GMT)
- Subject: Re: Gfortran does not compile dynamo (and others)
- Domainkey-signature: a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.com; h=X-YMail-OSG:Received:Date:From:Subject:To:In-Reply-To:MIME-Version:Content-Type:Content-Transfer-Encoding:Message-ID; b=j41gm/bX86Ib2wVjHh6hWNjMmMbvSUvfc7PvOFsuTh2NI3YL79PSw1t/+gUPn9shPIv0QObeeqMeSiFaDrjRhqIx+A3kHbr/KO2rKvPnTk2mzpbG/2BuGYR3QYX0KWnsx+3gar6oXhrhBzv5K6kGxy0zBealVImnEFDP72RNWvk=;
--- Ignacio Fernández Galván <jellby@yahoo.com> wrote:
> --- Milan Hodscek <milan@cmm.ki.si> wrote:
> > > > I can compile gaussian-03 (g03RevD.02), see:
> > > >
> > > > http://sicmm.org/vrana/g03gfortran.html
>
> I had to do the same change for Gaussian 98...
>
> I'm glad you got Gaussian 03 to work for gfortran, unfortunately, I
> don't have the source code for it :(
Well... I could track the mess down to an "open" statement that's not
working although the file is there (iostat gives a value of 9, what
does it mean?). Then I checked your patches and found this:
Call gfname ('inp', fname1)
Call RMQuot(fname1,fname)
Call OpnOut
+ close(unit=in)
Open(In,File=FName(1:linend(fname)),status='old',blank='zero',
- $ err=999)
+ $ err=1000)
+ 1000 continue
endIf
endIf
That's exactly where the open is failing. It does work, however with
g77. Maybe there is a problem with gfortran? Anyway, you are actually
deactivating an error check there (line 999 triggers and error and
stops the program), I don't think that's the "right way", unless you
know more than I do.
I'm now testing this patch, let's see if it works.
Ignacio
___________________________________________________________
Now you can scan emails quickly with a reading pane. Get the new Yahoo! Mail. http://uk.docs.yahoo.com/nowyoucan.html