Determination of fixed source form.

Better recognizing of fixed source form of Fortran
- in fixed source form a ! in position 6 is not a comment sign but continuation character
-  better determination of the column position in case a tab is used.

src/util.cpp

@@ -7125,6 +7125,7 @@ bool recognizeFixedForm(const QCString &contents, FortranFormat format)
 
   if (format == FortranFormat_Fixed) return TRUE;
   if (format == FortranFormat_Free)  return FALSE;
+  static int tabSize=Config_getInt(TAB_SIZE);
 
   for (int i=0;;i++)
   {
@@ -7136,6 +7137,9 @@ bool recognizeFixedForm(const QCString &contents, FortranFormat format)
         column=0;
         skipLine=FALSE;
         break;
+      case '\t':
+        column += tabSize-1;
+        break;
       case ' ':
         break;
       case '\000':
@@ -7150,8 +7154,7 @@ bool recognizeFixedForm(const QCString &contents, FortranFormat format)
         if (skipLine) break;
         return FALSE;
       case '!':
-        if (column>1 && column<7) return FALSE;
-        skipLine=TRUE;
+        if (column!=6) skipLine=TRUE;
         break;
       default:
         if (skipLine) break;