fixed the work15b-all,f code to be a litte cleaner