Sources Esope | Cast3M

liinfg
C LIINFG    SOURCE    PV        17/10/03    21:15:59     9581           
      SUBROUTINE LIINFG(IRET,IFORM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C   BUT        : LECTURE DES INFOS GENERALES
C                OPTIO REST IORES ;
C   APPELE PAR : LIPIL
C   APPELLE    : ERREUR
C   ECRIT PAR FARVACQUE    -REPRIS PAR LENA
C
C=======================================================================
 
-INC PPARAM
-INC CCOPTIO
-INC CCFXDR
-INC CCGEOME
C--------------------------------------------------------------------
      IRET=0
C
C  **** INFORMATIONS GENERALES CASTEM2000 *****************
C --- IQUOI=7
      IF (IFORM.EQ.1) READ(IORES,703,END=1000,ERR=1000) N
      IF (IFORM.EQ.0) READ(IORES,END=1000,ERR=1000) N
      if (iform.eq.2) ios=IXDRINT( ixdrr, n)
C-------------------NIVEAU 2  ON A 7  VALEURS
C-------------------NIVEAU 6  ON A 8  VALEURS
C- A partir du niveau 20 on relit nsdpge mais on ne s'en sert plus...
      IF (N.NE.7.AND.N.NE.8) GO TO 41
      IF(IFORM.EQ.1)
     *         READ(IORES,704,END=1000,ERR=1000)JFOUR
     *      ,NIFOUR,IFOMOD,ILGNI,IIMPO
     *      ,IOSPI  ,ISOTYP
      IF(IFORM.EQ.1.AND.N.EQ.8)
     *         READ(IORES,706,END=1000,ERR=1000)NSDPGE
      IF(IFORM.EQ.0.AND.N.EQ.7)
     *         READ(IORES,END=1000,ERR=1000)JFOUR
     *      ,NIFOUR,IFOMOD,ILGNI,IIMPO
     *      ,IOSPI  ,ISOTYP
      IF(IFORM.EQ.0.AND.N.EQ.8)
     *         READ(IORES,END=1000,ERR=1000)JFOUR
     *      ,NIFOUR,IFOMOD,ILGNI,IIMPO
     *      ,IOSPI  ,ISOTYP ,NSDPGE
      if (iform.eq.2) then
       ios=IXDRINT( ixdrr, jfour )
       ios=IXDRINT( ixdrr, nifour )
       ios=IXDRINT( ixdrr, ifomod )
       ios=IXDRINT( ixdrr, ilgni )
       ios=IXDRINT( ixdrr, iimpo )
       ios=IXDRINT( ixdrr, iospi )
       ios=IXDRINT( ixdrr, isotyp )
       ios=IXDRINT( ixdrr, nsdpge )
      endif
      GO TO 42
   41 CONTINUE
C --------------------ANCIEN NIVEAU  UNE SEULE VALEUR
      IF (N.EQ.0) GO TO  1001
      IF (N.NE.1) GO TO  1000
      IF(IFORM.EQ.1) READ(IORES,705,END=1000,ERR=1000)JFOUR
      IF(IFORM.EQ.0) READ(IORES,END=1000,ERR=1000)JFOUR
C --------------------
   42 IF(IFOUR.EQ.-1) IFOUR=JFOUR
      IF(JFOUR.NE.IFOUR) CALL ERREUR(290)
      GO TO 1001
C
********************* ON REBOUCLE EN LECTURE **********************
 1000 CONTINUE
      IRET=1
 1001 CONTINUE
      IF (IIMPI.EQ.5) THEN
        WRITE(IOIMP,7704)JFOUR
     *      ,NIFOUR,IFOMOD,ILGNI,IIMPI
     *      ,IOSPI  ,ISOTYP
        IF (N.EQ.8) WRITE(IOIMP,7706)NSDPGE
      ENDIF
      RETURN
C -------------------------------------------------------
  703 FORMAT(23X,I4)
 7704 FORMAT(' IFOUR',I4,' NIFOUR',I4,' IFOMOD',I4,' ILGNI',I4,
     *' IIMPI',I4,' IOSPI',I4,' ISOTYP',I4)
  704 FORMAT(6X,I4,7X,I4,7X,I4,6X,I4,6X,I4,6X,I4,7X,I4)
  705 FORMAT(6X,I4,7X,I4,7X,I4)
  706 FORMAT(7X,I6)
 7706 FORMAT(' NSDPGE',I6)
      END