Télécharger la plaquette Cast3M


fr en

Télécharger savepi.eso

Retour à la liste

Numérotation des lignes : 

savepi

  1. C SAVEPI    SOURCE    PV        17/12/05    21:17:20     9646           
  2.  
  3.       SUBROUTINE SAVEPI (ICOLAC)
  4.  
  5. C=======================================================================
  6. C
  7. C  BUT:  CHANGER LES POINTEURS
  8. C        SI IIICHA =1 ON  CHANGE  LES POINTEURS
  9. C
  10. C=======================================================================
  11. C
  12. C   PROGRAMME PAR FARVACQUE- REPRIS PAR LENA
  13. C   APPELE PAR    SAUV
  14. C   APPELLE       EXPIL
  15. C
  16. C=======================================================================
  17. C  TABLEAU KCOLA :   VOIR  TYPFIL
  18. C=======================================================================
  19. C
  20.       IMPLICIT INTEGER(I-N)
  21.       IMPLICIT REAL*8(A-H,O-Z)
  22. C
  23.  
  24. -INC PPARAM
  25. -INC CCOPTIO
  26. -INC TMCOLAC
  27. C
  28.       SEGACT ICOLAC
  29.       NITLAC=KCOLA(/1)
  30.       IIICHA=1
  31. C
  32.       DO 386 IFILE=1,NITLAC
  33.          SEGACT ICOLAC
  34.          ITLACC=KCOLA(IFILE)
  35.          M1=1
  36.          IF(IPSAUV.NE.0) M1=KCOLAC(IFILE)+1
  37.          M2=ITLAC(/1)
  38.          IF(M1.LE.M2) THEN
  39.             CALL EXPIL (IFILE,ICOLAC,M1,M2 ,IIICHA)
  40.          ENDIF
  41.  386  CONTINUE
  42. C
  43.       SEGDES ICOLAC
  44. C
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  
  51.  

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