code: def var2fixfortran(vars, a, fa=None, f90mode=None):
      if fa is None:
          fa = a
      if a not in vars:
          show(vars)
          outmess(
              'var2fixfortran: No definition for argument "%s".\n' % a
          )
          return ""
      if "typespec" not in vars[a]:
          show(vars[a])
          outmess(
              'var2fixfortran: No typespec for argument "%s".\n' % a
          )
          return ""
      vardef = vars[a]["typespec"]
      if vardef == "type" and "typename" in vars[a]:
          vardef = "%s(%s)" % (vardef, vars[a]["typename"])
      selector = {}
      lk = ""
      if "kindselector" in vars[a]:
          selector = vars[a]["kindselector"]
          lk = "kind"
      elif "charselector" in vars[a]:
          selector = vars[a]["charselector"]
          lk = "len"
      if "*" in selector:
          if f90mode:
              if selector["*"] in ["*", ":", "(*)"]:
                  vardef = "%s(len=*)" % (vardef)
              else:
                  vardef = "%s(%s=%s)" % (vardef, lk, selector["*"])
          else:
              if selector["*"] in ["*", ":"]:
                  vardef = "%s*(%s)" % (vardef, selector["*"])
              else:
                  vardef = "%s*%s" % (vardef, selector["*"])
      else:
          if "len" in selector:
              vardef = "%s(len=%s" % (vardef, selector["len"])
              if "kind" in selector:
                  vardef = "%s,kind=%s)" % (vardef, selector["kind"])
              else:
                  vardef = "%s)" % (vardef)
          elif "kind" in selector:
              vardef = "%s(kind=%s)" % (vardef, selector["kind"])
  
      vardef = "%s %s" % (vardef, fa)
      if "dimension" in vars[a]:
          vardef = "%s(%s)" % (vardef, ",".join(vars[a]["dimension"]))
      return vardef
  
imports: from __future__ import division, absolute_import, print_function
  import copy
  from .auxfuncs import getfortranname, isexternal, isfunction, isfunction_wrap, isintent_in, isintent_out, islogicalfunction, ismoduleroutine, isscalar, issubroutine, issubroutine_wrap, outmess, show
label_desc: Use image node_id 1 for calling a global function with example usage: var2fixfortran(vars, a, fa, f90mode) and returns: vardef, str, str