PROGRAM mlp0
      INTEGER i
      REAL r
      COMMON /name/ i, r

      CALL init_name
      WRITE(*,'(i4, f10.3)') i, r

      END PROGRAM mlp0