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