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