       module module1
       same1=0
       same2=0
       diff1=0
       diff2=0
       call pc_dbm(me,open_csv,csvmod.csv,csvmod.new,show_fields,verbose,field_names)
       call pc_dbm(me,read)
       do while (pc_dbm_sts)
           if(eq("pc_dbm(me,fldu,firstname)","pc_dbm(me,fldu,salut)")) then
               if(eq("pc_dbm(me,fld,prefname)"," ")) then
                   if(eq("pc_dbm(me,fld,nameformat)","1")) then
                      same1=same1+1
                   else
                      call pc_dbm(me,write,nameformat,"1")
                      same2=same2+1
                   endif
               else
                   call pc_dbm(me,write,prefname," ")
                   call pc_dbm(me,write,nameformat,"1")
                   same2=same2+1
               endif
           else if(eq("pc_dbm(me,fldu,prefname)","pc_dbm(me,fldu,salut)")) then
               if(eq("pc_dbm(me,fld,nameformat)","2")) then
                   diff1=diff1+1
               else
                   call pc_dbm(me,write,nameformat,"2")
                   diff2=diff2+1
               endif
           else
               call pc_dbm(me,write,prefname,salut)
               call pc_dbm(me,write,nameformat,"2")
               diff2=diff2+1
           endif
           call pc_dbm(me,read)
       end do
       print "same1 = pc_calc(same1)"
       print "same2 = pc_calc(same2)"
       print "diff1 = pc_calc(diff1)"
       print "diff2 = pc_calc(diff2)"
       call pc_dbm(me,close)
       end
