Télécharger dcogf1.eso

Retour à la liste

Numérotation des lignes :

  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.  
  92.  

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