,s/C\( *read (\*,\*\)/ \1/
,s/C\( *j=len(cid)\)/ \1/
,s/C\( *iname(15:14\)/ \1/
,s/'river/'\/tmp\/river/
,s/C\( *oname(\)/ \1/
,s/C\( *aname(\)/ \1/
,s/C\( *houtname(\)/ \1/
w
q