Télécharger la plaquette Cast3M


fr en

Télécharger rdscr2.eso

Retour à la liste

Numérotation des lignes : 

rdscr2

  1. C RDSCR2    SOURCE    GOUNAND   25/06/11    21:15:10     12278          
  2.       SUBROUTINE RDSCR2(MRIGID,RI2)
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : RDSCR2
  7. C DESCRIPTION : Quelquefois, les points de IRIGEL(1,I) ne sont pas
  8. C     tous references par le segment DESCR (cas des QUAFs notamment).
  9. C     Dans ce cas, on fait une reduction que l'on stocke dans RI2
  10. C
  11. C
  12. C
  13. C LANGAGE     : ESOPE
  14. C AUTEUR      : Stephane GOUNAND (CEA/DES/ISAS/DM2S/SEMT/LTA)
  15. C               mel : gounand@semt2.smts.cea.fr
  16. C***********************************************************************
  17. C VERSION    : v1, 22/05/2025, version initiale
  18. C HISTORIQUE : v1, 22/05/2025, creation
  19. C HISTORIQUE :
  20. C HISTORIQUE :
  21. C***********************************************************************
  22. -INC PPARAM
  23. -INC CCOPTIO
  24. -INC SMCOORD
  25. -INC SMRIGID
  26. -INC SMELEME
  27. *
  28. * Executable statements
  29. *
  30.       SEGACT MRIGID
  31. *      write(ioimp,*) 'RDSCR2 MRIGID'
  32. *      SEGPRT,MRIGID
  33.  
  34.       SEGINI,RI2=MRIGID
  35.       NNVA=IRIGEL(/2)
  36.       DO I=1,NNVA
  37.          ipt1=irigel(1,i)
  38.          des1=irigel(3,i)
  39.          isym=irigel(7,i)
  40. *         segact ipt1
  41. *         write(ioimp,*) 'RDSCR2 i,ipt1,nbnn=',i,ipt1,ipt1.num(/1)
  42.          call rdscr1(ipt1,des1,isym,ipt2,des2)
  43.          if (ierr.ne.0) return
  44. *         segact ipt2
  45. *         write(ioimp,*) 'RDSCR2 i,ipt2,nbnn=',i,ipt2,ipt2.num(/1)
  46.          ri2.irigel(1,i)=ipt2
  47.          ri2.irigel(3,i)=des2
  48.       ENDDO
  49. *
  50. * Normal termination
  51. *
  52.       RETURN
  53. *
  54. * Format handling
  55. *
  56. *
  57. * Error handling
  58. *
  59. *
  60. * End of subroutine RDSCRM
  61. *
  62.       END
  63.  
  64.  

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