> >> real :: a,b
> >> do a=1.,5.,1.
> >> b=f(a)
> >> write(*,*) b
> >> enddo
> >Real do loop variables are obsolescent and should be avoided.
> >Alois
>
> Hi, can you tell me another way? Using arrays?
> thank you,
> celevic
>
Just use integers:
real :: a,b
integer :: ia, ib
do ia=1,5
a=ia
b=f(a)
write(*,*) b
enddo
Alberto Fassò
--
Alberto Fassò
SLAC-RP, P.O. Box 4349, MS 48, Stanford CA 94309
Phone: (1 650) 926 4762 Fax: (1 650) 926 3569
[log in to unmask]
|