!  Testing the elemental feature of Fortran 95
 !  -------------------------------------------
 !  Well, it works.
 !  

 program test
   use sea_arithmetic                               !  Error analytic module
   type(sea_abs),dimension(3)  :: x, y, z           !  Declare our vars

   call sea_check_precise()                         !  Verify numerics

   call sea_read_abs(fin, x(1), "Enter |x1,e|>: ")  !  Input X
   call sea_read_abs(fin, x(2), "Enter |x2,e|>: ")  !  Input X
   call sea_read_abs(fin, x(3), "Enter |x3,e|>: ")  !  Input X
   call sea_write_nl(fout)                          !  Write a newline

   y = x

   call sea_write_txt_nl(fout, "# vector y: ")      !  Write a line of text

   call sea_write_entry(fout, "y1 = ", y(1), 5)     !  Write number
   call sea_write_entry(fout, "y2 = ", y(2), 5)     !  Write number
   call sea_write_entry(fout, "y3 = ", y(3), 5)     !  Write number
   call sea_write_nl(fout)                          !  Write a newline

   z = x + y

   call sea_write_txt_nl(fout, "# vector z: ")      !  Write a line of text
   call sea_write_entry(fout, "z1 = ", z(1), 5)     !  Write number
   call sea_write_entry(fout, "z2 = ", z(2), 5)     !  Write number
   call sea_write_entry(fout, "z3 = ", z(3), 5)     !  Write number
   call sea_write_nl(fout)                          !  Write a newline

 end program test