Re: g77 size of variable too large

[Fabian Braennstroem <f dot braennstroem at gmx dot de>]

On Wed, 2004-01-07 at 00:26, Toon Moene wrote:
> Fabian Braennstroem wrote:
> 
> > For my Fortran-Code I use following in the COMMON-File:
> > 
> >       parameter(it=478,jt=303,kt=215,nphit=8,nphito=8)
> > 
> >      1/vectr/phi(it,jt,kt,nphit),phio(it,jt,kt,nphito),prt(nphit),
> >      2        resor(nphit),reref(nphit),urf(nphit),ustarv(it,jt,kt),
> >      3        phic(it,jt,kt,6),cs(it,jt,kt),tracel(it,jt,kt),
> >      4        csk(it,jt,kt),
> >      6        conve(it,jt,kt),convn(it,jt,kt),convh(it,jt,kt),
> >      7        smp(it,jt,kt),dtfals(nphit)
> > 
> > I get an error like:
> >  size of variable 'vectr_' is too large
> 
> There's something missing in this example, as this doesn't compile. 
> Please send us a complete, compilable example.
> 

Yes, the example is attached.

Thanks!
Fabian

Attachment: COMMON
Description: Text document

      program main
      include 'CASECOM'
      include 'COMMON' 
      character*24 hedvis,hedden,hedx,hedy,hedz
      real*4 dtime, etime
      real*4 darray(2),dd,tarr(3)
      parameter (ittelaps=10)
      real*4 ttstepi,ttstep,ttstept,ttsteps,ttelaps(ittelaps)
      dimension ustart(jt)
      character*8 ttnames(ittelaps)
      data ttnames/'  calcu ','  calcv ','  calcw ','   conv '
     &,'  calcpe ','  calcte ','   vist ','  calced','  calcph'
     &,'   SUM '/

c------define integer pointers used in the vectors phi, urf, nsweep etc.
      u=1
      v=2
      w=3
      p=4
      pp=5
      te=6
      ed=7
      t=8
      f1=9
      f2=10

      end