PROGRAM mlp0
INTEGER i
REAL r
COMMON /name/ i , r
CALL init_name
WRITE(* , ’ ( i4 , f10.3 ) ’ ) i , r
END PROGRAM mlp0