Real*8 RC_start_tins,RC_prev_tins
& RC_start_tins,RC_prev_tins,
& tins-RC_prev_tins,tins-RC_start_tins
RC_prev_tins=tins
RC_prev_tins=RC_start_tins