character*10 Ho, ten

Ho='Nguyen'
Ten='Lam'

print*,trim(Ho),' ',trim(Ten)

Call Message('NGuyen Thi ','Van')


END

Subroutine Message(St1,st2)
Character (Len=*) St1,st2
  WRITE(*,*) ST1,st2          
END Subroutine