Télécharger prrimi.eso

Retour à la liste

Numérotation des lignes :

  1. C PRRIMI SOURCE AF221230 13/08/01 21:15:10 7808
  2. C PRRIMI SOURCE
  3. SUBROUTINE PRRIMI(IRET,IFIC)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. C
  7. C=======================================================================
  8. C POUR MISS3D : ECRITURE DES MATRICES REDUITES SUR FICHIER .imp
  9. C
  10. C Appelle par l'operateur MISE
  11. C=======================================================================
  12. C
  13. -INC SMRIGID
  14. -INC CCOPTIO
  15. -INC SMELEME
  16. c
  17. MRIGID=IRET
  18. SEGACT MRIGID
  19. NRI=IRIGEL(/1)
  20. NR=IRIGEL(/2)
  21. DO 191 I=1,NR
  22. c IGEO=IRIGEL(1,I)
  23. XMATRI=IRIGEL(4,I)
  24. SEGACT XMATRI
  25. NMA=RE(/3)
  26. DO 196 IA=1,NMA
  27. IF (IERR.NE.0) RETURN
  28. C XMATRI=IMATTT(IA)
  29. C SEGACT XMATRI
  30. NVA=RE(/1)
  31. NVB=RE(/2)
  32. DO 198 L=1,NVA
  33. WRITE(IFIC,195) (RE(L,K,IA),K=1,NVB)
  34. 195 FORMAT(6(1X,E12.5))
  35. 198 CONTINUE
  36. C SEGDES XMATRI
  37. 196 CONTINUE
  38. SEGDES XMATRI
  39. 191 CONTINUE
  40. SEGDES MRIGID
  41. RETURN
  42. END
  43. c
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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