function endmodule(&p)
  fclose(p.myfile);