Télécharger la plaquette Cast3M


fr en

Télécharger idpvin.eso

Retour à la liste

Numérotation des lignes : 

idpvin

  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