Postagens

Mostrando postagens de Novembro, 2019

PRECISION

!REAL* and double precision program !Program name: PRECISION real, parameter :: a=1.12345678901234567890 !real or real*4 has 7 decimal places double precision :: b,c real*8 d,e !real*8 or double precision have 16 decimal places !real*8 has single precision with 16 decimal places !double precision has DOUBLE PRECISION when there is d0 real*16 f,g b=1.12345678901234567890d0 c=1.12345678901234567890 d=1.12345678901234567890 e=1.12345678901234567890d0 f=1.12345678901234567890 g=1.12345678901234567890d0 print *, a      !shows 1.1234568           (single precision) print *, b     !shows 1.1234567890123457  (double precision) print *, c      !shows 1.1234568357467651  (single precision) print *, d      !shows 1.1234568357467651  (single precision) print *, e      !shows 1.1234567890123457  (double precision) print *, f !shows 1.1234568357467651367187500000000000  (single precision) print *, g !shows 1.1234567890123456912476740399142727