weisll - Multiple slowness operator lloyd vel/find
ierr=weisll()
multiple slowness operator lloyd
weisloN_init weislo1 weislsN_init
sepweif90