C OTTOFL    SOURCE    CHAT      05/01/13    02:07:35     5004
      SUBROUTINE OTTOFL(NCA,NN,XINVL,PENTE,SIGMA,GS,SMAX,XLTR,
     &                  DFDS,DGDS,HDFDQ,XCOMP,XLAMC,PRECIE,
     &                  PRECIZ,KERRE)
C----------------------------------------------------------------------
C
C  ENTREES : NCA,NN,XINVL,PENTE,SIGMA,GS,SMAX
C
C  SORTIES : DFDS,DGDS,HDFDQ
C
C-----------------------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
*
      PARAMETER (XZER=0.D0)
*
      DIMENSION NN(*),DFDS(6,*),DGDS(6,*),HDFDQ(*)
      DIMENSION XINVL(3),PENTE(*),SIGMA(*),GS(*),XLTR(*)
      DIMENSION SS(6)
      DIMENSION SMAX(*),XCOMP(*)
      DIMENSION IV1(3),IV2(3)

      DIMENSION DFF(6),DGG(6)
*
      DATA IV1/4,4,5/
      DATA IV2/5,6,6/
*
      KERRE=0
*
*
      DO IC=1,NCA
        JC=NN(IC)
        DO I=1,6
           DFDS(I,JC)=XZER
           DGDS(I,JC)=XZER
        ENDDO
        HDFDQ(JC)=XZER
*
        GO TO (1,1,1,4),JC
*
        KERRE=99
        RETURN
*
 1      CONTINUE
*
        IC1=IV1(JC)
        IC2=IV2(JC)
*
        IF (XINVL(JC).NE.XZER) THEN
           IF(IIMPI.EQ.42) THEN
             WRITE(IOIMP,77005) XINVL(JC),PENTE(JC)
77005        FORMAT(2X,'XINVL=',1PE12.5,2X,'PENTE=',1PE12.5/)
           ENDIF
*
*
           H =PENTE(JC)/XINVL(JC)
           IF(IIMPI.EQ.42) THEN
              WRITE(IOIMP,77009)  H
77009         FORMAT(2X,' MODULE D ECROUISSAGE H= ',1PE12.5/)
           ENDIF
           HDFDQ(JC)=-H
           DFDS(JC,JC)=1.D0
           DGDS(JC,JC)=1.D0
           DGDS(IC1,JC)=SIGMA(IC1)/GS(JC)/2.D0
           DGDS(IC2,JC)=SIGMA(IC2)/GS(JC)/2.D0
        ENDIF
        GO TO 100
*
 4      CONTINUE


        CALL OTTOCP(SIGMA,FCR4,XLTR,DFF,DGG,H4,
     &               PRECIE,PRECIZ,XCOMP,XLAMC,KERRE)

        DO I=1,6
           DFDS(I,4)=DFF(I)
           DGDS(I,4)=DGG(I)
        ENDDO
*
        HDFDQ(4)=H4



*
*       DFDS(1,4)=0.D0
*       DGDS(1,4)=0.D0
*       HDFDQ(4)=0.D0
        GO TO 100
*
100     CONTINUE
      ENDDO

      RETURN
      END