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    OF166741  24/10/03    21:15:20     12022          
  2.  
  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.       SUBROUTINE IDPVIN(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
  24.  
  25.       IMPLICIT INTEGER(I-N)
  26.       IMPLICIT REAL*8 (A-H,O-Z)
  27.  
  28. -INC PPARAM
  29.  
  30.       SEGMENT NOMID
  31.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  32.       ENDSEGMENT
  33.  
  34.       NBROBL=0
  35.       NBRFAC=0
  36.       NOMID =0
  37.  
  38.       IF (MFR.EQ.3) THEN
  39.         NBROBL=3
  40.         SEGINI NOMID
  41.         LESOBL(1)='AX      '
  42.         LESOBL(2)='AY      '
  43.         LESOBL(3)='AZ      '
  44. c*     ELSE
  45.       ENDIF
  46.  
  47.  900  CONTINUE
  48.       IF (NOMID.EQ.0) SEGINI NOMID
  49.       IPNOMC = NOMID
  50.  
  51.       RETURN
  52.       END
  53.  
  54.  
  55.  

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