fprintf(out," write(iout,*)'OS version:',\n");
fprintf(out," & ' %s '\n",Name.version);
fprintf(out," write(iout,*)'flags:'\n");
fprintf(out," write(iout,*)'OS version:',\n");
fprintf(out," & ' %s '\n",Name.version);
fprintf(out," write(iout,*)'flags:'\n");