real*4  R4
real*8  R8
real*16 R16

r4  = 2/3.

r8  = 2/3.d0

r16 = 2/3.q0

open(7,file="out.txt")
write(7,10) r4, r8, r16
10 format (/, &
           3x,"----------------------------1234567890123456789012345678901234567890", /, &
           3x,"----------------------------        10        20        30        40", /, &
           3x,"Precisão simples    = ",e50.40, /, &
           3x,"Precisão dupla      = ",e50.40, /, &
           3x,"Precisão quádrupla  = ",e50.40, /, &
           /)

close(7)

end