//initial simulation data function wlog_init(u,flag) tt=">> Begin new simulation : "+return_date()+"\n"; mfprintf(u,tt); if (flag==1) then printf(tt); elseif(flag==2) then init_ui(); ts=sprintf(tt); put_list(ts); end endfunction