Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!crdgw1!uunet!dsuvax!rolfe
From: rolfe@dsuvax.uucp (Timothy J. Rolfe)
Newsgroups: comp.lang.fortran
Subject: Re: What does "adjustable array is not a dummy argument" mean?
Message-ID: <1991Apr19.182126.1416@dsuvax.uucp>
Date: 19 Apr 91 18:21:26 GMT
References: <1991Apr18.223457.23190@menudo.uh.edu> <7188@oasys.dt.navy.mil>
Organization: Dakota State University
Lines: 24

In <7188@oasys.dt.navy.mil> roth@oasys.dt.navy.mil (Pete Roth) writes:

>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

Actually, make that  "dimension seq(*)", which is how you declare the
thing to be "dimensioned -- don't bug me with bounds checking".