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