slap.f
#if defined O_embm && defined O_embm_slap
#endif