( is called by: hec_pass1.f )
It contains no commons
It does does nothing unless the user changes it.