iv3++;
fprintf(out,"C %d %d %d\n",iv1,iv2,iv3);
fprintf(out," subroutine cinfo\n");
+fprintf(out," include 'DIMENSIONS'\n");
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);