      SUBROUTINE SELECT_INTEN(File,Pha,Ok)
      implicit none
c
c Select intensity not implemented 
c 
      LOGICAL*4 Ok
      CHARACTER*(*) File
      INTEGER*4 Pha
c 
      RETURN
      END
