fprintf(out," include 'COMMON.IOUNITS'\n");
fprintf(out," write(iout,*)'++++ Compile info ++++'\n");
fprintf(out," write(iout,*)'Version %d.%-d build %d'\n",iv1,iv2,iv3);
fprintf(out," include 'COMMON.IOUNITS'\n");
fprintf(out," write(iout,*)'++++ Compile info ++++'\n");
fprintf(out," write(iout,*)'Version %d.%-d build %d'\n",iv1,iv2,iv3);