OpenAD/code_heat_transport_MPI/cb2mGetModules.awk

BEGIN { commonDecl = 0} 
/^      .*/ {commonDecl = 0 }
/^[^ ]/ && !/^#ifdef / && !/^#endif/ && !/^#if / && !/^#else/  {commonDecl = 0 }
/^       *COMMON/ || /^       *common/ { commonDecl = 1 }
/      &/ { if (commonDecl != 1) {print} }
/^#ifdef / || /^#endif/ || /^#if / || /^#else/ { if (commonDecl == 1) {print} }
{if (commonDecl ==0 ) print }
END {}
1	utke	1.1	BEGIN { commonDecl = 0}
2			/^ .*/ {commonDecl = 0 }
3			/^[^ ]/ && !/^#ifdef / && !/^#endif/ && !/^#if / && !/^#else/ {commonDecl = 0 }
4			/^ COMMON/ \|\| /^ common/ { commonDecl = 1 }
5			/ &/ { if (commonDecl != 1) {print} }
6			/^#ifdef / \|\| /^#endif/ \|\| /^#if / \|\| /^#else/ { if (commonDecl == 1) {print} }
7			{if (commonDecl ==0 ) print }
8			END {}