Télécharger j3detr.eso

Retour à la liste

Numérotation des lignes :

  1. C J3DETR SOURCE CHAT 05/01/13 00:46:23 5004
  2. SUBROUTINE J3DETR(VWORK1)
  3. C----------------------------------------------------
  4. C DESTRUCTION DU VWORK DE VWORK GLOBAL
  5. C PP 6/97,11/98
  6. C Pierre Pegon/JRC Ispra
  7. C----------------------------------------------------
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8(A-H,O-Z)
  10. -INC CCOPTIO
  11. SEGMENT VWORK
  12. INTEGER FWWORK(NFACE)
  13. ENDSEGMENT
  14. POINTEUR VWORK1.VWORK
  15. C
  16. NBLOCK=VWORK1.FWWORK(/1)
  17. DO IE1=1,NBLOCK
  18. VWORK=VWORK1.FWWORK(IE1)
  19. CALL J3DET1(VWORK)
  20. ENDDO
  21. SEGSUP,VWORK1
  22. RETURN
  23. END
  24.  
  25.  
  26.  
  27.  
  28.  

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