1           if fm_trace_mode then call trace(1,proc_name);                                  /*print_enter.incl.pl1*/