Télécharger la plaquette Cast3M


fr en

Télécharger gnfl.eso

Retour à la liste

Numérotation des lignes : 

gnfl

  1. C GNFL      SOURCE    CB215821  23/01/25    21:15:17     11573          
  2.       SUBROUTINE GNFL
  3. C_______________________________________________________________________
  4. C
  5. C
  6. C     CH2 = GNFL   MODL1 CH1  ( CAR1 )  ;
  7. C
  8. C      MODL1  MMODEL
  9. C      CH1    MCHAML OU CHPOINT
  10. C      CAR1   MCHAML de caract{ristiques (facultatif)
  11. C      CH2    CHPOINT
  12. C___________________________________________________________________
  13. C
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8(A-H,O-Z)
  16.  
  17. -INC SMCOORD
  18. -INC PPARAM
  19. -INC CCOPTIO
  20. -INC SMCHPOI
  21. *
  22.       IPCHE1=0
  23.       IPCHE2=0
  24.       IPCHE3=0
  25.       IPCHPO=0
  26. *
  27.       CALL LIROBJ('MMODEL  ',IPMODL,1,IRT1)
  28.       IF (IERR.NE.0) RETURN
  29.       CALL ACTOBJ('MMODEL  ',IPMODL,1)
  30. *
  31. *   LECTURE D'UN CHPOINT OU D'UN MCHAML
  32. *
  33.       CALL LIROBJ('CHPOINT ',IPCHPO,0,IRT1)
  34.       IF (IERR.NE.0) RETURN
  35.       IF (IRT1.EQ.1) THEN
  36.         CALL ACTOBJ('CHPOINT ',IPCHPO,1)
  37.       ELSE
  38.         CALL LIROBJ('MCHAML  ',IPIN,1,IRT1)
  39.         IF (IERR.NE.0) RETURN
  40.         CALL ACTOBJ('MCHAML  ',IPIN,1)
  41.         CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  42.         IF(IR   .NE. 1) CALL ERREUR(KER)
  43.         IF(IERR .NE. 0) RETURN
  44.       ENDIF
  45. C
  46. C      2 EME CHAMP  (FACULTATIF)
  47. C
  48.       CALL LIROBJ('MCHAML  ',IPIN,0,IRT1)
  49.       IF (IERR.NE.0) RETURN
  50.       IPCHE2=0
  51.       IF (IRT1.EQ.1) THEN
  52.         CALL ACTOBJ('MCHAML  ',IPIN,1)
  53.         CALL REDUAF(IPIN,IPMODL,IPCHE2,0,IR,KER)
  54.         IF(IR   .NE. 1) CALL ERREUR(KER)
  55.         IF(IERR .NE. 0) RETURN
  56.       ENDIF
  57. C
  58.       SEGACT,MCOORD
  59.       CALL GNFLP(IPMODL,IPCHE1,IPCHPO,IPCHE2,IPCHE3,IRET)
  60.       SEGDES,MCOORD
  61.       IF(IERR .NE. 0) RETURN
  62. C
  63.       IF (IRET.EQ.1) THEN
  64. C
  65. C       ATTRIBUTION D'UNE NATURE DISCRETE AU CHPO QUI SORT
  66. C
  67.         MCHPOI = IPCHE3
  68.         SEGACT MCHPOI*MOD
  69.         JATTRI(1) = 2
  70. C
  71.         CALL ACTOBJ('CHPOINT ',IPCHE3,1)
  72.         CALL ECROBJ('CHPOINT ',IPCHE3)
  73.       ENDIF
  74.  
  75.       END
  76.  
  77.  

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