Initialization of YASMO variable in prosou.f

YASMO needs to be initialized in prosou.f