1 : C TRBAC1 SOURCE CHAT 06/03/16 21:26:58 5336 2 : SUBROUTINE TRBAC1(MTTE) 3 : IMPLICIT INTEGER(I-N) 4 : -INC CCOPTIO 5 : -INC SMBLOC 6 : -INC CCNOYAU 7 : -INC CCASSIS 8 : SEGMENT MTTE 9 : CHARACTER*600 PHRA 10 : CHARACTER*72 TRA 11 : CHARACTER*8 NOM 12 : INTEGER INDI 13 : ENDSEGMENT 14 : SEGACT MTTE*MOD 15 : INDI = 1 16 : PHRA = ' ' 17 : if(nbesc.ne.0) segact ipiloc 18 : DO 103 I=1,NBNOM 19 : IP= INOOB1(ITANO1(I)) 20 : IDEBCH = IPCHAR(IP) 21 : IFINCH= IPCHAR( IP+1)-1 22 : NOM=ICHARA(IDEBCH:IFINCH) 23 : IF(NOM(1:1).NE.'#') THEN 24 : IK=IFINCH-IDEBCH+1 25 : PHRA(INDI:INDI+IK-1)=NOM(1:IK) 26 : INDI=INDI+IK 27 : IF(ITANOM(I).NE.' ') THEN 28 : PHRA(INDI:INDI)='*' 29 : INDI=INDI+1 30 : PHRA(INDI:INDI+7)=ITANOM(I) 31 : INDI=INDI+8 32 : ELSE 33 : INDI=INDI+1 34 : ENDIF 35 : ENDIF 36 : 103 CONTINUE 37 : IF(INDI.NE.1) THEN 38 : PHRA (INDI:INDI)= '=' 39 : INDI=INDI+2 40 : ENDIF 41 : DO 104 I=1,IPVINT 42 : IPLAC=ITINTE(I) 43 : IF(IPLAC.LE.0) GO TO 104 44 : IP= INOOB1(IPLAC) 45 : IDEBCH = IPCHAR(IP) 46 : IFINCH= IPCHAR(IP+1)-1 47 : NOM=ICHARA(IDEBCH:IFINCH) 48 : IPO=IOUEP2(IPLAC) 49 : IF(NOM.NE.' ') THEN 50 : IK= IFINCH-IDEBCH+1 51 : PHRA(INDI:INDI+IK-1)=NOM (1:IK) 52 : INDI=INDI+IK+1 53 : ELSE 54 : IF(INOOB2(IPLAC).EQ.'ENTIER ') THEN 55 : TRA(1:10)=' ' 56 : WRITE(TRA,FMT='(I10)') IPO 57 : IK=1 58 : DO 1034 K=1,10 59 : IF(TRA(K:K).NE.' ') THEN 60 : IK=K 61 : GO TO 1035 62 : ENDIF 63 : 1034 CONTINUE 64 : 1035 CONTINUE 65 : PHRA(INDI:INDI+10-IK)=TRA(IK:10) 66 : INDI=INDI + 12 - IK 67 : ELSEIF(INOOB2(IPLAC).EQ.'FLOTTANT')THEN 68 : WRITE(TRA,FMT='(G15.8)')XIFLOT(IPO) 69 : DO 1036 K=1,15 70 : IF(TRA(K:K).NE.' ') THEN 71 : IK=K 72 : GO TO 1037 73 : ENDIF 74 : 1036 CONTINUE 75 : 1037 CONTINUE 76 : IKK=IK 77 : DO 1038 K=15,IK,-1 78 : IF(TRA(K:K).NE.'0'.AND.TRA(K:K).NE.' ') THEN 79 : IKK=K 80 : GO TO 1039 81 : ENDIF 82 : 1038 CONTINUE 83 : 1039 CONTINUE 84 : PHRA(INDI:INDI+IKK-IK)=TRA(IK:IKK) 85 : INDI=INDI + IKK - IK +2 86 : ELSEIF(INOOB2(IPLAC).EQ.'MOT ')THEN 87 : JF=IPCHAR(IPO+1) 88 : ID=IPCHAR(IPO) 89 : ILO=JF-ID 90 : PHRA(INDI+1:INDI+ILO)=ICHARA(ID:JF-1) 91 : INDI=INDI + ILO + 2 92 : ENDIF 93 : ENDIF 94 : 104 CONTINUE 95 : if(nbesc.ne.0) segdes ipiloc 96 : INDI = INDI -1 97 : RETURN 98 : END 99 :
© Cast3M 2003 - All rights reserved.
Disclaimer