09 May 2025   9:26:11.870 PM

abc_test():
  Fortran90 version
  Test abc(), with the interface:
    abc(a_in=?,b_in=?,c_in=?,a_out=?,b_out=?,c_out=?)

  Request current internal values.
  Specify a_out=, b_out=, c_out=
    abc( a_out =   1.00000    , b_out =    2.00000    , c_out =    3.00000    )

  Change internal values of b and c
    abc( b_in =    19.0000     c_in =    99.0000    )

  Change internal value of a_in, report value of b_out.
    abc( a_in =    50.0000    , b_out =   19.0000    )

  Report all internal values.
    abc( a_out =   50.0000    , b_out =    19.0000    , c_out =    99.0000    )

abc_test():
  Normal end of execution.

09 May 2025   9:26:11.870 PM