( is called by: another sample.f )
includes the following commons:
hec_hvpar.inc hec_slow_pc.inc
This does ...