Télécharger la plaquette Cast3M


fr en

Télécharger dcogf1.eso

Retour à la liste

Numérotation des lignes : 

dcogf1

  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.  
  36. -INC PPARAM
  37. -INC CCOPTIO
  38.       INTEGER NDDL,IESREL,NBPOGO,NBELEV,NBELFV,NBELEF
  39.       REAL*8 JCOEFF (NDDL,NLVCOF)
  40.       REAL*8 JDFFPG (NDDL,IESREL,NBPOGO,NBELEF)
  41.       LOGICAL SSFACT(NBELFV,NBELEV)
  42.       REAL*8 JDCOFG(IESREL,NBPOGO,NBELEF)
  43. *
  44.       INTEGER IMPR,IRET
  45.       INTEGER JESREL,IBPOGO,IDDL,IBELEV,IBELEF,IBELFV
  46. *
  47. * Executable statements
  48. *
  49.       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans dcogf1'
  50.       IBELEF=0
  51.       DO IBELEV=1,NBELEV
  52.          DO IBELFV=1,NBELFV
  53.             IF (SSFACT(IBELFV,IBELEV)) THEN
  54.                IBELEF=IBELEF+1
  55.                IF (NLVCOF.EQ.1) THEN
  56.                   ILVCOF=1
  57.                ELSE
  58.                   ILVCOF=IBELEV
  59.                ENDIF
  60.                DO IBPOGO=1,NBPOGO
  61.                   DO JESREL=1,IESREL
  62.                      DO IDDL=1,NDDL
  63.                         JDCOFG(JESREL,IBPOGO,IBELEF)=
  64.      $                       JDCOFG(JESREL,IBPOGO,IBELEF)
  65.      $                       + (JCOEFF(IDDL,ILVCOF)
  66.      $                          *JDFFPG(IDDL,JESREL,IBPOGO,IBELEF))
  67.                      ENDDO
  68.                   ENDDO
  69.                ENDDO
  70.             ENDIF
  71.          ENDDO
  72.       ENDDO
  73. *
  74. * Normal termination
  75. *
  76.       IRET=0
  77.       RETURN
  78. *
  79. * Format handling
  80. *
  81. *
  82. * Error handling
  83. *
  84.  9999 CONTINUE
  85.       IRET=1
  86.       WRITE(IOIMP,*) 'An error was detected in subroutine dcogf1'
  87.       RETURN
  88. *
  89. * End of subroutine DCOGF1
  90. *
  91.       END
  92.  
  93.  
  94.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales