dcnst0.f

Go to the documentation of this file.

C Work performed under the auspices of the U.S. Department of Energy
C by Lawrence Livermore National Laboratory under contract number
C W-7405-Eng-48.
C
      SUBROUTINE dcnst0 (NEQ, Y, ICNSTR, IRET)
C
C***BEGIN PROLOGUE  DCNST0
C***DATE WRITTEN   950808   (YYMMDD)
C***REVISION DATE  950808   (YYMMDD)
C
C
C-----------------------------------------------------------------------
C***DESCRIPTION
C
C This subroutine checks for constraint violations in the initial
C approximate solution u.
C
C On entry
C
C   NEQ    -- size of the nonlinear system, and the length of arrays
C             Y and ICNSTR.
C
C   Y      -- real array containing the initial approximate root.
C
C   ICNSTR -- INTEGER array of length NEQ containing flags indicating
C             which entries in Y are to be constrained.
C             if ICNSTR(I) =  2, then Y(I) must be .GT. 0,
C             if ICNSTR(I) =  1, then Y(I) must be .GE. 0,
C             if ICNSTR(I) = -1, then Y(I) must be .LE. 0, while
C             if ICNSTR(I) = -2, then Y(I) must be .LT. 0, while
C             if ICNSTR(I) =  0, then Y(I) is not constrained.
C
C On return
C
C   IRET   -- output flag.
C             IRET=0    means that u satisfied all constraints.
C             IRET.NE.0 means that Y(IRET) failed to satisfy its
C                       constraint.
C
C-----------------------------------------------------------------------
      IMPLICIT DOUBLE PRECISION(a-h,o-z)
      dimension y(neq), icnstr(neq)
      SAVE zero
      DATA zero/0.d0/
C-----------------------------------------------------------------------
C Check constraints for initial Y.  If a constraint has been violated,
C set IRET = I to signal an error return to calling routine.
C-----------------------------------------------------------------------
      iret = 0
      DO 100 i = 1,neq
         IF (icnstr(i) .EQ. 2) THEN
            IF (y(i) .LE. zero) THEN
               iret = i
               RETURN
            ENDIF
         ELSEIF (icnstr(i) .EQ. 1) THEN
            IF (y(i) .LT. zero) THEN
               iret = i
               RETURN
            ENDIF
         ELSEIF (icnstr(i) .EQ. -1) THEN
            IF (y(i) .GT. zero) THEN
               iret = i
               RETURN
            ENDIF
         ELSEIF (icnstr(i) .EQ. -2) THEN
            IF (y(i) .GE. zero) THEN
               iret = i
               RETURN
            ENDIF
        ENDIF
 100  CONTINUE
      RETURN
C----------------------- END OF SUBROUTINE DCNST0 ----------------------
      END