OpenAD/code_heat_transport_MPI/cb2mGetModules.awk

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