parameters: (src)
return_statement: return flags
docstring: Search the first 20 lines of fortran 77 code for line pattern
        `CF77FLAGS(<fcompiler type>)=<f77 flags>`
      Return a dictionary {<fcompiler type>:<f77 flags>}.
docstring_summary: Search the first 20 lines of fortran 77 code for line pattern
        `CF77FLAGS(<fcompiler type>)=<f77 flags>`
      Return a dictionary {<fcompiler type>:<f77 flags>}.
docstring_tokens: Search the first 20 lines of fortran 77 code for line pattern CF77FLAGS ( <fcompiler type > ) = <f77 flags > Return a dictionary { <fcompiler type > : <f77 flags > } .
function: def get_f77flags(src):
      """
      Search the first 20 lines of fortran 77 code for line pattern
        `CF77FLAGS(<fcompiler type>)=<f77 flags>`
      Return a dictionary {<fcompiler type>:<f77 flags>}.
      """
      flags = {}
      f = open_latin1(src, 'r')
      i = 0
      for line in f:
          i += 1
          if i>20: break
          m = _f77flags_re.match(line)
          if not m: continue
          fcname = m.group('fcname').strip()
          fflags = m.group('fflags').strip()
          flags[fcname] = split_quoted(fflags)
      f.close()
      return flags
function_tokens: def get_f77flags ( src ) : flags = { } f = open_latin1 ( src , 'r' ) i = 0 for line in f : i += 1 if i > 20 : break m = _f77flags_re . match ( line ) if not m : continue fcname = m . group ( 'fcname' ) . strip ( ) fflags = m . group ( 'fflags' ) . strip ( ) flags [ fcname ] = split_quoted ( fflags ) f . close ( ) return flags