SUBROUTINE init_name ( )
COMMON /name/ i , r
i = 786
r = 3.2
RETURN
END SUBROUTINE init_name