EPSILON

  

!Program name: EPSILON

!Epsilon - calculation of the precision

  EPS=1.

  do

    EPS=EPS/2

    If (EPS+1 .eq. 1.) exit

  End do

  Print *,'Epsilon= ', EPS

  Stop

  End

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA