modules/cacsd/src/slicot/select.f


1
2
3
4
5
6
7
8
9
10
11

      LOGICAL FUNCTION  SELECT1( PAR1, PAR2 )
C
C     RELEASE 4.0, WGS COPYRIGHT 1999.
C
C     Void logical function for DGEES.
C
      DOUBLE PRECISION  PAR1, PAR2
C
      SELECT1 = .TRUE.
      RETURN
      END