call cg_iric_flush_f(filename, fin, ier)
ier = cg_iRIC_Flush(filename, fin);
fin = cg_iRIC_Flush(filename, fin)