open(NPBXNUM1, ">npbxnum1");
  open(MYINPUTFILE, "<npbxnum");