1 : C WRATTA SOURCE CHAT 05/01/13 04:11:59 5004 2 : SUBROUTINE WRATTA(IOSAU,ITLACC,IMAX1,IRET,IFORM,IDEB) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C======================================================================= 6 : C BUT : ECRITURE DES ATTAC SUR LE FICHIER IOSAU 7 : C APPELE PAR WRPIL 8 : C APPELLE : ECDIFE ECDIFM ECDIFR 9 : C : ECDES ECDIFP JDANSI 10 : C ECRIT PAR FARVACQUE - REPRIS PAR LENA 11 : C======================================================================= 12 : -INC SMATTAC 13 : SEGMENT/ITLACC/(ITLAC(0)),ITLAC1.ITLACC,ITLAC2.ITLACC, 14 : 1 ITLAC3.ITLACC,ITLAC4.ITLACC,ITLAC5.ITLACC,ITLAC6.ITLACC 15 : DIMENSION ILENA(10) 16 : C ***************************** MATTAC ***************************** 17 : IRET=0 18 : 6015 CONTINUE 19 : DO 150 IEL=IDEB,IMAX1 20 : MATTAC=ITLAC(IEL) 21 : SEGACT MATTAC 22 : NN=LISATT(/1) 23 : ILENA(1)=NN 23 : CALL ECDIFE (IOSAU,1 , ILENA,IFORM) 24 : 25 : DO 151 I=1,NN 26 : MSOUMA=LISATT(I) 27 : SEGACT MSOUMA 28 : M=IPMATK(/1) 29 : N=IATREL(/1) 30 : ILENA(1)= M 31 : ILENA(2)= N 31 : CALL ECDIFE (IOSAU,2 ,ILENA ,IFORM) 32 : READ (ITYATT,FMT='(A4)') ILENA(1) 32 : CALL ECDIFM (IOSAU,1 ,ILENA ,IFORM) 32 : CALL ECDIFE (IOSAU,M ,IPMATK,IFORM) 32 : CALL ECDIFE (IOSAU,N ,IATREL,IFORM) 32 : CALL ECDIFE (IOSAU,1 ,IGEOCH,IFORM) 32 : CALL ECDIFE (IOSAU,1 ,IPHYCH,IFORM) 33 : IF(IGEOCH.EQ.0) GO TO 153 34 : MGEOCH=IGEOCH 35 : SEGACT MGEOCH 36 : NI=INORCH(/1) 37 : NJ=RJEUCH(/1) 38 : N1=IMAPRO(/1) 39 : NP= MPOPRO(/2) 40 : NT=TAIPRO(/1) 41 : ILENA(1)= NI 42 : ILENA(2)= NJ 43 : ILENA(3)= N1 44 : ILENA(4)= NP 45 : ILENA(5)= NT 45 : CALL ECDIFE (IOSAU,5 ,ILENA,IFORM) 45 : CALL ECDIFE (IOSAU,NI ,INORCH,IFORM) 45 : CALL ECDIFR (IOSAU,NJ ,RJEUCH,IFORM) 45 : CALL ECDIFE (IOSAU,N1 ,IMAPRO,IFORM) 46 : READ (MPOPRO,FMT='(10A4)') (ILENA(II),II=1,NP) 46 : CALL ECDIFM (IOSAU,NP ,ILENA ,IFORM) 46 : CALL ECDIFR (IOSAU,NT ,TAIPRO,IFORM) 47 : SEGDES MGEOCH 48 : 153 CONTINUE 49 : IF(IPHYCH.EQ.0) GO TO 152 50 : MPHYCH=IPHYCH 51 : SEGACT MPHYCH 52 : NRAI=1 53 : NA=AMOPRO(/1) 54 : NF= FROPRO(/1) 55 : ILENA(1)= NRAI 56 : ILENA(2)= NA 57 : ILENA(3)= NF 57 : CALL ECDIFE (IOSAU,3 ,ILENA,IFORM) 57 : CALL ECDIFR (IOSAU,NRAI ,RAIPRO,IFORM) 57 : CALL ECDIFR (IOSAU,NA ,AMOPRO,IFORM) 57 : CALL ECDIFR (IOSAU,NF ,FROPRO,IFORM) 58 : SEGDES MPHYCH 59 : 152 CONTINUE 60 : SEGDES MSOUMA 61 : 151 CONTINUE 62 : SEGDES MATTAC 63 : 150 CONTINUE 64 : GOTO 1098 65 : C ****************************************************************** 66 : 1098 CONTINUE 67 : RETURN 68 : END 69 : 70 :
© Cast3M 2003 - All rights reserved.
Disclaimer