#include <S.h>
do_f_out(){fprintf(stderr, "Oops, cannot handle Fortran I/O\n") ;}
do_l_out(){fprintf(stderr, "Oops, cannot handle Fortran I/O\n") ;}
e_wsfe(){fprintf(stderr, "Oops, cannot handle Fortran I/O\n") ;}
e_wsle(){fprintf(stderr, "Oops, cannot handle Fortran I/O\n") ;}
s_wsFe(){fprintf(stderr, "Oops, cannot handle Fortran I/O\n") ;}
s_wsle(){fprintf(stderr, "Oops, cannot handle Fortran I/O\n") ;}