Gfortran does not compile dynamo (and others)

[Ignacio Fernández Galván]

--- 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