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