( is called by: hec_pass1.f )
includes no commons
This routine does nothing unless the user changes it.