Télécharger mednme.eso

Retour à la liste

Numérotation des lignes :

mednme
  1. C MEDNME SOURCE CB215821 18/02/07 21:15:06 9736
  2. SUBROUTINE MEDNME(ILAST, IMAX, IND, NOM)
  3. IMPLICIT INTEGER(i-n)
  4. IMPLICIT REAL*8(a-h,o-z)
  5.  
  6. CHARACTER*(*) NOM
  7. CHARACTER*4 nfmt
  8.  
  9. IF (IMAX .GT. 9) THEN
  10. CALL ERREUR(21)
  11. RETURN
  12. ENDIF
  13.  
  14. nfmt = '(ix)'
  15. ifound = 0
  16.  
  17. DO II = 1,IMAX
  18. WRITE(nfmt(3:3), fmt='(i1)')II
  19. ifirst = ILAST-II+1
  20. ilimit = 10*II
  21. IF (IND .LT. ilimit) THEN
  22. WRITE(NOM(ifirst:ILAST), fmt=nfmt)IND
  23. ifound = 1
  24. GOTO 1
  25. ENDIF
  26. ENDDO
  27. 1 CONTINUE
  28.  
  29. IF (ifound .EQ. 0) THEN
  30. CALL ERREUR(21)
  31. RETURN
  32. ENDIF
  33.  
  34. RETURN
  35. END
  36.  

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