Ported INPUT to a module.  Dealt with EQUIVALENCE

A few of the routines had EQUIVALENCE statements to get
from strings to arrays of characters.  These have been replaced
with TRANSFER