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