ERROR - The parameter  list  in  an  external  subprogram  declaration
  contains a user variable name.  Remove the variable from the parameter
  list.  When declaring a routine, the parameter list can  contain  only
  data type and parameter-passing mechanism specifications.