Télécharger gnfl.eso

Retour à la liste

Numérotation des lignes :

  1. C GNFL SOURCE CB215821 16/12/05 21:39:31 9237
  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. -INC CCOPTIO
  17. -INC SMCHPOI
  18. *
  19. IPCHE1=0
  20. IPCHE2=0
  21. IPCHE3=0
  22. IPCHPO=0
  23. *
  24. CALL LIROBJ('MMODEL',IPMODL,1,IRT1)
  25. IF (IERR.NE.0) RETURN
  26. *
  27. * LECTURE D'UN CHPOINT OU D'UN MCHAML
  28. *
  29. CALL LIROBJ('CHPOINT',IPCHPO,0,IRT1)
  30. IF (IERR.NE.0) RETURN
  31. IF (IRT1.EQ.0) THEN
  32. CALL LIROBJ('MCHAML',IPIN,1,IRT1)
  33. IF (IERR.NE.0) RETURN
  34. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  35. IF(IR .NE. 1) CALL ERREUR(KER)
  36. IF(IERR .NE. 0) RETURN
  37. ENDIF
  38. C
  39. C 2 EME CHAMP (FACULTATIF)
  40. C
  41. CALL LIROBJ('MCHAML',IPIN,0,IRT1)
  42. IF (IERR.NE.0) RETURN
  43. IPCHE2=0
  44. IF (IRT1.EQ.1) THEN
  45. CALL REDUAF(IPIN,IPMODL,IPCHE2,0,IR,KER)
  46. IF(IR .NE. 1) CALL ERREUR(KER)
  47. IF(IERR .NE. 0) RETURN
  48. ENDIF
  49. C
  50. CALL GNFLP(IPMODL,IPCHE1,IPCHPO,IPCHE2,IPCHE3,IRET)
  51. IF(IERR .NE. 0) RETURN
  52. C
  53. IF (IRET.EQ.1) THEN
  54. C
  55. C ATTRIBUTION D'UNE NATURE DISCRETE AU CHPO QUI SORT
  56. C
  57. MCHPOI = IPCHE3
  58. SEGACT MCHPOI*MOD
  59. JATTRI(1) = 2
  60. SEGDES MCHPOI
  61. C
  62. CALL ECROBJ('CHPOINT',IPCHE3)
  63. ENDIF
  64. C
  65. RETURN
  66. END
  67.  
  68.  
  69.  

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