SUBROUTINE FOO

edit
BAR INTEGER 3 INOUT the name of the bar to be foo'd
BAZ INTEGER 4 IN el variablo
QUUX INTEGER CHARACTER*8 some string
SEX INTEGER 2 OUT ficticious
SPAM INTEGER 3,3 IN el variablo