############################################################
#     Output from 'tsub'
############################################################
% tsub
 Pre r8swap: a =   -1.000000000000000     b =    1.000000000000000
 Post r8swap: a =    1.000000000000000     b =   -1.000000000000000
 Through r8swap
 Enter anything & <CR> to continue
a

 Post r8side: a =   0.0000000000000000E+00 b =    1000.000000000000
 Through r8side
 Enter anything & <CR> to continue
a

 v1 loaded with 0.0
   0.0000000000000000E+00
   0.0000000000000000E+00
   0.0000000000000000E+00
   0.0000000000000000E+00
   0.0000000000000000E+00
   0.0000000000000000E+00
 Through dvloadsc
 Enter anything & <CR> to continue
a

 v1 loaded with 0.0
   0.0000000000000000E+00
   0.0000000000000000E+00
   0.0000000000000000E+00
   0.0000000000000000E+00
   0.0000000000000000E+00
   0.0000000000000000E+00
 Through dvloadsc (second time)
 Enter anything & <CR> to continue
a

 v1 loaded with 0.0 and 1.0
   0.0000000000000000E+00
    1.000000000000000
    1.000000000000000
    1.000000000000000
    1.000000000000000
   0.0000000000000000E+00
 Through dvloadsc (third time)
 Enter anything & <CR> to continue
a

 v1 incremented by 2.0
    2.000000000000000
    3.000000000000000
    3.000000000000000
    3.000000000000000
    3.000000000000000
    2.000000000000000
 Through dvaddsc
 Enter anything & <CR> to continue
a

 Through tsub
 Enter anything & <CR> to continue
a