function outtp=FA_TP_MODSN(in1tp) in1tp=string(in1tp); if(in1tp=='d') then outtp='d'; else outtp='z'; end endfunction