subroutine decomma(str)
implicit none
character*(*) str
integer i
do i=1,min(256,len(str))
 if(str(i:i).eq.',') str(i:i)=' '
enddo
return
end