Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!relay.nswc.navy.mil!oasys!roth
From: roth@oasys.dt.navy.mil (Pete Roth)
Newsgroups: comp.lang.fortran
Subject: Re: What does "adjustable array is not a dummy argument" mean?
Message-ID: <7188@oasys.dt.navy.mil>
Date: 19 Apr 91 11:55:15 GMT
References: <1991Apr18.223457.23190@menudo.uh.edu>
Reply-To: roth@oasys.dt.navy.mil (Pete Roth)
Organization: David Taylor Research Center, Bethesda, MD
Lines: 34

In article <1991Apr18.223457.23190@menudo.uh.edu> davison@menudo.uh.edu (Dan Davison) writes:
>The Absoft Fortran compiler for the NeXT issues the warning:
>
> error on line 1446 of sn.f: adjustable array is not a dummy argument
>
[...]
>                                                       v------dummy arg
>      subroutine seqin(nf,lf,Outfl,Termnl,seqid,min,n,seq,ic,nmax,*)
>      parameter (ndim=10000, mdim=50000,nchr=80)
>      dimension seq(mdim)
>                     ^-------------doesn't look adjustable to me

Since you've dimensioned seq properly elsewhere, and you _know_ what the
maximum dimension is (mdim), how about writing the code like

      subroutine seqin(nf,lf,Outfl,Termnl,seqid,min,n,seq,ic,nmax,*)
      parameter (ndim=10000, mdim=50000,nchr=80)
      dimension seq(1)
                    ^-------------all the compiler _should_ need to know

since i presume that the call statement to seqin is really of the form

      real a( BIGNUM )
      ...
      iseq = ndim + 1	! address of the seq array in a
      ...
      call seqin( ..., a(iseq), ... )


Of course, this doesn't answer your question about the compiler, but it
may get you going again...
- - - - - - - - - - - - - - - - - - - - - - - - - -
Peter N Roth      roth@oasys.dt.navy.mil
Objects in this office are closer than they appear.