INTEGER FUNCTION SRTDIR(ONE,TWO)                                           
      IMPLICIT INTEGER (A-Z)                                                    
      LOGICAL *1 ONE(18),TWO(18)                                                
      DO 10 I=1,18                                                              
      IF(ONE(I)-TWO(I)) 20,10,30                                                
10    CONTINUE                                                                  
      SRTDIR=0                                                                  
      RETURN                                                                    
20    SRTDIR=-1                                                                 
      RETURN                                                                    
30    SRTDIR=1                                                                  
	RETURN
      END