code: def fort_subroutine_wrapper(name, ret_type, args):
      wrapper = called_name(name)
      types, names = arg_names_and_types(args)
      argnames = ",\n     +    ".join(names)
  
      names = [process_fortran_name(n, name) for n in names]
      argdecls = "\n        ".join(
          f"{fortran_types[t]} {n}" for n, t in zip(names, types)
      )
      return fortran_template.format(
          name=name,
          wrapper=wrapper,
          argnames=argnames,
          argdecls=argdecls,
          ret_type=fortran_types[ret_type],
      )
  
imports: from collections import defaultdict
  from operator import itemgetter
  import os
  from stat import ST_MTIME
  import argparse
label_desc: Use image node_id 14 for calling a global function with example usage: fort_subroutine_wrapper(name, ret_type, args) and returns: fortran_template