ROUND

 

!Program name: ROUND

real*4 x

real*8 y

x=1.234e04

y=4.321

print *, x, y, nint(x), idnint(y), anint(x), anint(y)

stop

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA