#--------------------------------------------------------------------
 ## preprocessor common block to hold ratfor keywords
 # put on a file named 'ckeywd'
 # Used only by ratfor preprocessor

   common /ckeywd/ vdo,
   vif, velse, vwhile, vbreak, vnext, vfor, vrept, vuntil,
   vlitrl , vret,
   vwrite, vread, vencod, vdecod, vforma,
   sdo, sif, selse, swhile, sbreak, snext,
   sfor, srept, suntil, slitrl,  sret,
   swrite, sread, sencod, sdecod, sforma
 
   integer vdo(2), vif(2), velse(2), vwhile(2), vbreak(2), vnext(2)
   integer vfor(2), vrept(2), vuntil(2), vlitrl(2) , vret(2)
   integer vwrite(2), vread(2), vencod(2), vdecod(2), vforma(2)
   character sdo(4), sif(4), selse(6), swhile(6), sbreak(6), snext(6)
   character sfor(4), srept(8), suntil(6), slitrl(2) , sret(8)
   character swrite(6), sread(5), sencod(7), sdecod(7), sforma(7)