       module module1
       call pc_dbm(me,open_star,pcalc1.b1,show_fields,verbose)
       call pc_dbm(me,read)
       do while (pc_dbm_sts)
           print "pc_dbm(me,fldu,star.var,a15) = pc_dbm(me,fldu,star.val)"
           call pc_dbm(me,read)
       end do
       end
