Télécharger afinom.eso

Retour à la liste

Numérotation des lignes :

  1. C AFINOM SOURCE JC220346 18/12/04 21:15:04 9991
  2. SUBROUTINE AFINOM(NOMS,LMAX)
  3. C EN ENTREE : NOMS = POINTEUR VERS SEGMENT DE TYPE MLNOMS
  4. C EN SORTIE : LMAX = LONGUEUR DU NOM LE PLUS LONG
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCOPTIO
  7. -INC CCNOYAU
  8. -INC TMLNOMS
  9. CHARACTER*(LONOM) CNOM
  10. CHARACTER*11 MYFMT
  11. EXTERNAL LONG
  12. C
  13. C CHOIX DU FORMAT D'AFFICHAGE EN FONCTION DU NOM LE PLUS LONG
  14. MLNOMS=NOMS
  15. SEGACT,MLNOMS
  16. ILO=LINOMS(/2)
  17. LMAX=0
  18. DO I=1,ILO
  19. CNOM=LINOMS(I)
  20. LL=LONG(CNOM)
  21. IF (LL.GT.LMAX) LMAX=LL
  22. ENDDO
  23. IF (LMAX.LE.8) THEN
  24. MYFMT='(8(1X,A8))'
  25. ELSEIF (LMAX.LE.11) THEN
  26. MYFMT='(6(1X,A11))'
  27. ELSEIF (LMAX.LE.17) THEN
  28. MYFMT='(4(1X,A17))'
  29. ELSEIF (LMAX.LE.23) THEN
  30. MYFMT='(3(1X,A23))'
  31. ELSEIF (LMAX.LE.24) THEN
  32. MYFMT='(3(1X,A24))'
  33. ENDIF
  34. C
  35. C AFFICHAGE DE LA LISTE DE NOMS
  36. WRITE(IOIMP,FMT=MYFMT) (LINOMS(I),I=1,ILO)
  37.  
  38. RETURN
  39. END
  40.  
  41.  
  42.  

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