Télécharger idpvin.eso

Retour à la liste

Numérotation des lignes :

  1. C IDPVIN SOURCE CHAT 05/01/13 00:30:37 5004
  2. SUBROUTINE IDPVIN(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
  3. *--------------------------------------------------------------------*
  4. * *
  5. * RECHERCHE DES NOMS DES COMPOSANTES DE FORCE EN MAGNETODYNAMIQUE*
  6. * _______________________________________________________________*
  7. * *
  8. * ENTREES: *
  9. * *
  10. * MFR NUMERO DE LA FORMULATION *
  11. * IFOU 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. IF(MFR.EQ.3) THEN
  34. NBROBL=3
  35. SEGINI NOMID
  36. LESOBL(1)='AX '
  37. LESOBL(2)='AY '
  38. LESOBL(3)='AZ '
  39. GO TO 9999
  40. ENDIF
  41. *
  42. 9999 CONTINUE
  43. IF (NOMID.EQ.0) SEGINI NOMID
  44. IPNOMC=NOMID
  45. SEGDES NOMID
  46. RETURN
  47. END
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  

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