It appears that the "untyped variable" is the function urand. I believe
adding the statement
real urand
to program DDSIM will eliminate the error you are encountering when
implicit none is active.
On Mon, 22 Dec 1997, Hassan Mehrabani-Yeganeh wrote:
>
> Hi Fortraners,
>
> In the following program, I get an error of "attempt to use
> untyped variable", although I have defined all variables. I am using
> HP f77 compiler. However, when implicit none is commented, the program
> runs ok. The function urand is defined real. I appreciate your insight.
> Best Regards,
> Hassan
> ======================================================================
>
> program DDSIM
> implicit none
>
> integer ih,ip,seed
> seed=65754
>
> open(12,file='ddsim.out', status='unknown')
> do 10 ih=1,10
> ip=urand(seed)*15+25
> write(12,*),' URN= ',ip
> 10 continue
>
> stop
> end
==========================================================================
| Larry R. White e-mail: [log in to unmask] |
| Instructor of Management Phone: (630) 844-4895 |
| Aurora University FAX: (630) 844-7830 |
| 347 S. Gladstone Ave. "Science is not quick. It means floundering |
| Aurora, IL 60506 around a lot." John Backus, Fortran creator |
==========================================================================
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|