C+ C C Add task name to list (ADDINS) C C C- integer function addins(name, list, maxent) implicit integer (a-z) integer*4 name, list(1) c c Add new name to the list if not already there. c addins = 0 do 100 i = 1,maxent if (list(i) .ne. 0) go to 100 list(i) = name addins = i go to 900 100 continue 900 continue return end