At 11:39 31-08-2004 -0400, A.D. wrote:
>Hi,
>
>g77 complains on this:
>
> integer, save :: profiler(2)=0
Not much of an idea, try
integer, save :: profiler(2)=(/ 0 , 0 /)
or
integer profiler(2) / 0, 0 / ! Sort of DATA extension some compilers have.
>I assume it is the combination of array and initialization it does not
>like. How do I do this in g77 in one line (I would like to avoid DATA
>if possible)?
Why avoid DATA if you use a Fortran 77 compiler ??
> It does not have to be pure F77 as long as it compiles
>with g77.
>
>Thanks,
>Aleks
\---
Best regards,
Jan van Oosterwijk | "They that can give up essential liberty
Netherlands | to obtain a little temporary safety deserve
| neither liberty nor safety."
| -- Benjamin Franklin (1759)
write(*,*)transfer((/778985834,1869504886,1702130543,1785296754 &
&,1635205227,1868849518,1819160175 /),(/'x'/)) ; end
mailto:Jan <dot> vanOosterwijk <at> wanadoo <dot> NL
http://huizen <dot> dto <dot> tudelft <dot> nl/vanOosterwijk/
|