C ************************************************************************ SUBROUTINE RCSTOP(C) C ************************************************************************ c#@# KKRtags: VORONOI input-output C .. Scalar Arguments .. CHARACTER*8 C C .. PRINT *,'ERROR: STOP AT POSITION ',C STOP END