Télécharger idfc.eso

Retour à la liste

Numérotation des lignes :

  1. C IDFC SOURCE CHAT 05/01/13 00:29:04 5004
  2. SUBROUTINE IDFC(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
  3. *--------------------------------------------------------------------*
  4. * *
  5. * RECHERCHE DES NOMS DES COMPOSANTES DE FONCTION DE COURANT *
  6. * _________________________________________________________ *
  7. * *
  8. * ENTREES: *
  9. * *
  10. * MFR NUMERO DE LA FORMULATION *
  11. * IFOU VALEUR DU IFOUR DE CCOPTIO *
  12. * *
  13. * SORTIES: *
  14. * *
  15. * IPNOMC pointeur sur les listes de noms de composantes *
  16. * obligatoires et facultatives *
  17. * *
  18. * NBROBL nombre de composantes obligatoires *
  19. * *
  20. * NBRFAC nombre de composantes facultatives *
  21. * *
  22. *--------------------------------------------------------------------*
  23. *
  24. IMPLICIT INTEGER(I-N)
  25. SEGMENT NOMID
  26. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  27. ENDSEGMENT
  28. *
  29. NBROBL=0
  30. NBRFAC=0
  31. NOMID=0
  32. *
  33. NBROBL=1
  34. SEGINI NOMID
  35. LESOBL(1)='FC '
  36. IPNOMC=NOMID
  37. SEGDES NOMID
  38. RETURN
  39. END
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  

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