Télécharger liinfg.eso

Retour à la liste

Numérotation des lignes :

  1. C LIINFG SOURCE BP208322 16/11/18 21:18:47 9177
  2. SUBROUTINE LIINFG(IRET,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C BUT : LECTURE DES INFOS GENERALES
  7. C OPTIO REST IORES ;
  8. C APPELE PAR : LIPIL
  9. C APPELLE : ERREUR
  10. C ECRIT PAR FARVACQUE -REPRIS PAR LENA
  11. C
  12. C=======================================================================
  13. -INC CCOPTIO
  14. -INC CCFXDR
  15. -INC CCGEOME
  16. C--------------------------------------------------------------------
  17. IRET=0
  18. C
  19. C **** INFORMATIONS GENERALES CASTEM2000 *****************
  20. C --- IQUOI=7
  21. IF (IFORM.EQ.1) READ(IORES,703,END=1000,ERR=1000) N
  22. IF (IFORM.EQ.0) READ(IORES,END=1000,ERR=1000) N
  23. if (iform.eq.2) ios=IXDRINT( ixdrr, n)
  24. C-------------------NIVEAU 2 ON A 7 VALEURS
  25. C-------------------NIVEAU 6 ON A 8 VALEURS
  26. IF (N.NE.7.AND.N.NE.8) GO TO 41
  27. IF(IFORM.EQ.1)
  28. * READ(IORES,704,END=1000,ERR=1000)JFOUR
  29. * ,NIFOUR,IFOMOD,ILGNI,IIMPO
  30. * ,IOSPI ,ISOTYP
  31. IF(IFORM.EQ.1.AND.N.EQ.8)
  32. * READ(IORES,706,END=1000,ERR=1000)NSDPGE
  33. IF(IFORM.EQ.0.AND.N.EQ.7)
  34. * READ(IORES,END=1000,ERR=1000)JFOUR
  35. * ,NIFOUR,IFOMOD,ILGNI,IIMPO
  36. * ,IOSPI ,ISOTYP
  37. IF(IFORM.EQ.0.AND.N.EQ.8)
  38. * READ(IORES,END=1000,ERR=1000)JFOUR
  39. * ,NIFOUR,IFOMOD,ILGNI,IIMPO
  40. * ,IOSPI ,ISOTYP ,NSDPGE
  41. if (iform.eq.2) then
  42. ios=IXDRINT( ixdrr, jfour )
  43. ios=IXDRINT( ixdrr, nifour )
  44. ios=IXDRINT( ixdrr, ifomod )
  45. ios=IXDRINT( ixdrr, ilgni )
  46. ios=IXDRINT( ixdrr, iimpo )
  47. ios=IXDRINT( ixdrr, iospi )
  48. ios=IXDRINT( ixdrr, isotyp )
  49. ios=IXDRINT( ixdrr, nsdpge )
  50. endif
  51. GO TO 42
  52. 41 CONTINUE
  53. C --------------------ANCIEN NIVEAU UNE SEULE VALEUR
  54. IF (N.EQ.0) GO TO 1001
  55. IF (N.NE.1) GO TO 1000
  56. IF(IFORM.EQ.1) READ(IORES,705,END=1000,ERR=1000)JFOUR
  57. IF(IFORM.EQ.0) READ(IORES,END=1000,ERR=1000)JFOUR
  58. C --------------------
  59. 42 IF(IFOUR.EQ.-1) IFOUR=JFOUR
  60. IF(JFOUR.NE.IFOUR) CALL ERREUR(290)
  61. GO TO 1001
  62. C
  63. ********************* ON REBOUCLE EN LECTURE **********************
  64. 1000 CONTINUE
  65. IRET=1
  66. 1001 CONTINUE
  67. IF(IIMPI.EQ.5) WRITE(IOIMP,7704)JFOUR
  68. * ,NIFOUR,IFOMOD,ILGNI,IIMPI
  69. * ,IOSPI ,ISOTYP
  70. IF(IIMPI.EQ.5.AND.N.EQ.8) WRITE(IOIMP,7706)NSDPGE
  71. RETURN
  72. C -------------------------------------------------------
  73. 703 FORMAT(23X,I4)
  74. 7704 FORMAT(' IFOUR',I4,' NIFOUR',I4,' IFOMOD',I4,' ILGNI',I4,
  75. *' IIMPI',I4,' IOSPI',I4,' ISOTYP',I4)
  76. 704 FORMAT(6X,I4,7X,I4,7X,I4,6X,I4,6X,I4,6X,I4,7X,I4)
  77. 705 FORMAT(6X,I4,7X,I4,7X,I4)
  78. 706 FORMAT(7X,I6)
  79. 7706 FORMAT(' NSDPGE',I6)
  80. END
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  

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