C+ C C Check if task name is in list (CHKINS) C C C- integer function chkins(name, list, maxent) implicit integer (a-z) integer*4 name, list(1) c c Check if passed name is in the list. c chkins = 1 do 100 i = 1,maxent if (list(i) .eq. name) go to 900 100 continue chkins = 0 900 continue return end