forums.silverfrost.com

[kingkastle]

Hi ,

I�m running the program attached and I find a wierd problem that I�m not able to find solution:


INTEGER :: i,j, ierror
INTEGER, PARAMETER :: n=2560
REAL :: a

sigma(1)=0.00
b(1)= 0.00
do i=2,2559
PRINT *, i,Pbacksignal(i),z(i)
do j=1,1000
a=j/1000
print *, j,a
end do

It�s simple, but the a operation is not being done, I always get 0.000, it�s not doing the division!,
Please any clue for this is more than welcomed
Thanks in advance

Best regards
Rafael Castillo

[PaulLaidler]

j/1000 is integer division giving the whole number part of the arithmetic result.

You need something like REAL(j)/1000.0.

[kingkastle]

Thanks very much!!!!
already working!!!

best regards