parameters: (source)
return_statement: return modules
docstring: Return a list of Fortran f90 module names that
      given source file defines.
docstring_summary: Return a list of Fortran f90 module names that
      given source file defines.
docstring_tokens: Return a list of Fortran f90 module names that given source file defines .
function: def _get_f90_modules(source):
      """Return a list of Fortran f90 module names that
      given source file defines.
      """
      if not f90_ext_match(source):
          return []
      modules = []
      with open(source, 'r') as f:
          for line in f:
              m = f90_module_name_match(line)
              if m:
                  name = m.group('name')
                  modules.append(name)
                  # break  # XXX can we assume that there is one module per file?
      return modules
function_tokens: def _get_f90_modules ( source ) : if not f90_ext_match ( source ) : return [ ] modules = [ ] with open ( source , 'r' ) as f : for line in f : m = f90_module_name_match ( line ) if m : name = m . group ( 'name' ) modules . append ( name ) # break  # XXX can we assume that there is one module per file? return modules