Télécharger j3vplu.eso

Retour à la liste

Numérotation des lignes :

  1. C J3VPLU SOURCE CHAT 05/01/13 00:47:43 5004
  2. SUBROUTINE J3VPLU(VWORK1,VWORK2)
  3. C----------------------------------------------------
  4. C ON AJOUTE VWORK2 A VWORK1
  5. C
  6. C PP 6/97
  7. C Pierre Pegon/JRC Ispra
  8. C----------------------------------------------------
  9. IMPLICIT INTEGER(I-N)
  10. SEGMENT VWORK
  11. INTEGER FWWORK(NFACE)
  12. ENDSEGMENT
  13. POINTEUR VWORK1.VWORK,VWORK2.VWORK
  14. C
  15. IF(VWORK1.EQ.0)THEN
  16. VWORK1=VWORK2
  17. ELSE
  18. IF(VWORK2.NE.0)THEN
  19. NFACE2=VWORK2.FWWORK(/1)
  20. NFACE1=VWORK1.FWWORK(/1)
  21. NFACE=NFACE1+NFACE2
  22. SEGADJ,VWORK1
  23. DO IE1=1,NFACE2
  24. VWORK1.FWWORK(NFACE1+IE1)=VWORK2.FWWORK(IE1)
  25. ENDDO
  26. SEGSUP,VWORK2
  27. ENDIF
  28. ENDIF
  29. C
  30. RETURN
  31. END
  32.  
  33.  
  34.  

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