Télécharger la plaquette Cast3M


fr en

Télécharger idfc.eso

Retour à la liste

Numérotation des lignes : 

idfc

  1. C IDFC      SOURCE    CB215821  19/08/20    21:18:23     10287          
  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.       END
  38.  
  39.  
  40.  

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