Esope source files

   1 : C DCOGF1    SOURCE    GOUNAND   06/08/04    21:15:23     5520           
   2 :       SUBROUTINE DCOGF1(NDDL,IESREL,NBPOGO,NBELEV,NBELFV,NBELEF,
   3 :      $     NLVCOF,
   4 :      $     JCOEFF,JDFFPG,SSFACT,
   5 :      $     JDCOFG,
   6 :      $     IMPR,IRET)
   7 :       IMPLICIT REAL*8 (A-H,O-Z)
   8 :       IMPLICIT INTEGER (I-N)
   9 : C***********************************************************************
  10 : C NOM         : DCOGF1
  11 : C PROJET      : Noyau linéaire NLIN
  12 : C DESCRIPTION :
  13 : C             
  14 : C LANGAGE     : Fortran 77 (sauf E/S)
  15 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  16 : C               mél : gounand@semt2.smts.cea.fr
  17 : C***********************************************************************
  18 : C APPELES          : -
  19 : C APPELE PAR       : COGAUF
  20 : C***********************************************************************
  21 : C ENTREES            :
  22 : C ENTREES/SORTIES    :
  23 : C SORTIES            : -
  24 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  25 : C***********************************************************************
  26 : C VERSION    : v1, 03/10/03, version initiale
  27 : C HISTORIQUE : v1, 03/10/03, création
  28 : C HISTORIQUE :
  29 : C HISTORIQUE :
  30 : C***********************************************************************
  31 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  32 : C en cas de modification de ce sous-programme afin de faciliter
  33 : C la maintenance !
  34 : C***********************************************************************
  35 : -INC CCOPTIO      
  36 :       INTEGER NDDL,IESREL,NBPOGO,NBELEV,NBELFV,NBELEF
  37 :       REAL*8 JCOEFF (NDDL,NLVCOF)
  38 :       REAL*8 JDFFPG (NDDL,IESREL,NBPOGO,NBELEF)
  39 :       LOGICAL SSFACT(NBELFV,NBELEV)
  40 :       REAL*8 JDCOFG(IESREL,NBPOGO,NBELEF)
  41 : *
  42 :       INTEGER IMPR,IRET
  43 :       INTEGER JESREL,IBPOGO,IDDL,IBELEV,IBELEF,IBELFV
  44 : *     
  45 : * Executable statements
  46 : *
  47 :       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans dcogf1'
  48 :       IBELEF=0
  49 :       DO IBELEV=1,NBELEV
  50 :          DO IBELFV=1,NBELFV
  51 :             IF (SSFACT(IBELFV,IBELEV)) THEN
  52 :                IBELEF=IBELEF+1
  53 :                IF (NLVCOF.EQ.1) THEN
  54 :                   ILVCOF=1
  55 :                ELSE
  56 :                   ILVCOF=IBELEV
  57 :                ENDIF
  58 :                DO IBPOGO=1,NBPOGO
  59 :                   DO JESREL=1,IESREL
  60 :                      DO IDDL=1,NDDL
  61 :                         JDCOFG(JESREL,IBPOGO,IBELEF)=
  62 :      $                       JDCOFG(JESREL,IBPOGO,IBELEF)
  63 :      $                       + (JCOEFF(IDDL,ILVCOF)
  64 :      $                          *JDFFPG(IDDL,JESREL,IBPOGO,IBELEF))
  65 :                      ENDDO
  66 :                   ENDDO
  67 :                ENDDO
  68 :             ENDIF
  69 :          ENDDO
  70 :       ENDDO
  71 : *
  72 : * Normal termination
  73 : *
  74 :       IRET=0
  75 :       RETURN
  76 : *
  77 : * Format handling
  78 : *
  79 : *
  80 : * Error handling
  81 : *
  82 :  9999 CONTINUE
  83 :       IRET=1
  84 :       WRITE(IOIMP,*) 'An error was detected in subroutine dcogf1'
  85 :       RETURN
  86 : *
  87 : * End of subroutine DCOGF1
  88 : *
  89 :       END
  90 : 
  91 :