INTEGER FUNCTION OPSRCH (NAME, TABLE, SIZE, STEP) 
      INTEGER  NAME(2), SIZE, TABLE(1), STEP, I 
      OPSRCH = 0
      DO 10 I=1,SIZE,STEP   
      IF (NAME(1) .EQ. TABLE(I) .AND. NAME(2) .EQ. TABLE(I+1))GOTO 20   
   10 CONTINUE  
      RETURN
   20 OPSRCH = I
      RETURN
      END