Message-ID: <3518EC5D.5073D402@tech.chem.ethz.ch>
Date: Wed, 25 Mar 1998 12:37:01 +0100
From: Jochen Heyd <jheyd AT tech DOT chem DOT ethz DOT ch>
MIME-Version: 1.0
To: "Hannes Löffler" <Hannes DOT Loeffler AT uibk DOT ac DOT at>
CC: beastium-list AT Desk DOT nl
Subject: Re: Problem with unusual array dimensions in Fortran
References: <351882E0 DOT F9A9F5AD AT tech DOT chem DOT ethz DOT ch> <yh6iup3maen DOT fsf AT tci005 DOT uibk DOT ac DOT at>
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Sender: Marc Lehmann <pcg AT goof DOT com>
Status: RO
Content-Length: 2500
Lines: 63

Hannes Löffler wrote:
> 
> Jochen Heyd <jheyd AT tech DOT chem DOT ethz DOT ch> writes:
> 
> > GNU Fortran Front End version 0.5.22-19970929
> > test.f: In subroutine `sub':
> > test.f:12:
> >          subroutine sub(b)
> >                         ^
> > Array `b' at (^) is too large to handle
> 
> GAUSSIAN?

Yes, the one I'm trying to compile now is Gaussian94.
A 40% speed improvement would be measured in DAYS, so it's worth all the
trouble...
 
> This is a long standing bug in g77.

I think I remember g77 having problems with large arrays (still in
0.4.x), but I haven't seen any lately and huge amouts of swap space were
usually able to cure it.

The thing is: it works with 2.7.2.1:

fortran/test> g77 -v -V2.7.2.1 -bi486-linux test.f
Reading specs from /usr/lib/gcc-lib/i486-linux/2.7.2.1/specs
gcc driver version pgcc-2.90.23 980102 (egcs-1.0.1 release) executing
gcc version 2.7.2.1
 /usr/lib/gcc-lib/i486-linux/2.7.2.1/f771 test.f -fset-g77-defaults
-quiet -dumpbase test.f -version -fversion -o /tmp/cca08151.s
GNU F77 version 2.7.2.1 (i386 Linux/ELF) compiled by GNU C version
2.7.2.1.
GNU Fortran Front End version 0.5.19.1 compiled: Jun  3 1997 19:39:56
 /usr/i486-linux/bin/as -V -Qy -o /tmp/cca081511.o /tmp/cca08151.s
GNU assembler version 2.8.1 (i486-linux), using BFD version 2.8.1
 /usr/i486-linux/bin/ld -m elf_i386 -L /usr/X11R6/lib -rpath-link
/usr/X11R6/lib -dynamic-linker /lib/ld-linux.so.1 /usr/lib/crt1.o
/usr/lib/crti.o /usr/lib/crtbegin.o
-L/usr/lib/gcc-lib/i486-linux/2.7.2.1 -L/usr/i486-linux/lib
/tmp/cca081511.o -lf2c -lm -lgcc -lc -lgcc /usr/lib/crtend.o
/usr/lib/crtn.o


If it wouldn't work with the standard g77, I would have left it at that.

One word of thanks to the developers: Great work, keep it up. Everybody
doing serious computing on PC is greatful.
-- 
____________________________________________________________________

    _/_/_/ _/_/_/ _/  _/       Jochen Heyd
   _/       _/   _/  _/       Manager of Information Systems
  _/_/     _/   _/_/_/       Safety & Environmental Technology Group
 _/       _/   _/  _/       ETH-Zentrum, CAB D46
_/_/_/   _/   _/  _/       CH-8092 Zurich
                          Switzerland                           
                             
 Swiss Federal Institute      tel: ++41-1-632 71 42
of Technology, Zurich        cell: ++41-79-447 64 27
                            FAX: ++41-1-632 11 89
                           e-mail:jheyd AT tech DOT chem DOT ethz DOT ch
____________________________________________________________________