SUBROUTINE PK_GRIB2 C C ================================= RCS keyword statements ========== CHARACTER*68 RCSKW1,RCSKW2 DATA RCSKW1,RCSKW2 / ' .$Source: /fs/hseb/ob72/wfo_rfc/precip_proc/source/gribit/src/RCS/gribit_stubs.f,v $ . $', ' .$Id: gribit_stubs.f,v 1.1 2006/05/03 13:43:58 gsood Exp $ . $' / C =================================================================== C write (*,*) 'ERROR: routine PK_GRIB2 is a stub.' RETURN END SUBROUTINE UNPK_GRIB2 write (*,*) 'ERROR: routine UNPK_GRIB2 is a stub.' RETURN END