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