Searched refs:NOM_FICH (Results 1 – 16 of 16) sorted by relevance
148 & ,0,NOM_FICH,LONG)152 & ,0,NOM_FICH,LONG)158 IF (NOM_FICH(1:1).EQ.CHAR(9).OR.NOM_FICH(1:1).EQ.CHAR(27)) THEN163 NOMF0(1:LONG) = NOM_FICH(1:LONG)187 NOM_FICH = 'Surface z=f(x,y)'205 BIDON(1:LONG) = NOM_FICH(1:LONG)324 OPEN(IFAC,FILE=NOM_FICH(1:LONG))348 OPEN(IFAC,FILE=NOM_FICH(1:LONG))522 NOM_FICH(1:LONG) = BIDON(1:LONG)553 CHARACTER*128 NOM_FICH local[all …]
71 IF ( NOM_FICH(1:5).EQ.'/tmp/'80 NOMNOM = NOM_FICH(6:LONG-7)//'am'90 NOMNOM = NOM_FICH689 IF (NOM_FICH(1:LONG).EQ.'-v'690 &.OR.NOM_FICH(1:LONG).EQ.'-V'692 &.OR.NOM_FICH(1:LONG).EQ.'-h'693 &.OR.NOM_FICH(1:LONG).EQ.'-H'698 IF (NOM_FICH(1:LONG).EQ.'-v'699 &.OR.NOM_FICH(1:LONG).EQ.'-V'711 IF (NOM_FICH(1:LONG).EQ.'-h'[all …]
8 IF (NOM_FICH(LONG-8:LONG).EQ.'.deformee') THEN9 CBID = NOM_FICH(1:LONG-8)//'facext'12 CBID = NOM_FICH(1:LONG-7)//'facext'
159 TITRE = NOM_FICH226 IF (NOM_FICH(1:5).EQ.'/tmp/'230 & //NOM_FICH(6:LONG-7)//'nopo'233 & //NOM_FICH(6:LONG-7)//'amdba'236 & //NOM_FICH(6:LONG-7)//'am'239 & //NOM_FICH(6:LONG-7)//'am_fmt'242 & //NOM_FICH(6:LONG-7)//'msh'402 IF (NOM_FICH(1:5).EQ.'/tmp/'406 & //NOM_FICH(6:LONG-7)//'nopo'412 & //NOM_FICH(6:LONG-7)//'am'[all …]
25 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.x'37 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.y'49 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.z'178 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.dio'180 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.ray'189 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.num_nod'205 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.num_elm'212 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.quality1'217 NOM_ISO = '$'//NOM_FICH(1:LONG2)//'.quality2'
190 SUBROUTINE TRATMP(NOM_FICH,BIDON,LONG,LONGB) argument191 CHARACTER*128 NOM_FICH,BIDON local194 IF (NOM_FICH(I:I).EQ.'/') ISLASH = I197 BIDON(1:LONGB) = '/tmp/'//NOM_FICH(ISLASH+1:LONG)
61 NOM_FICH = ' '64 CALL GETARG(NUMARG,NOM_FICH)65 CALL ENLEVE_TOUS_BLANCS(NOM_FICH,LONG,128)66 IF (NOM_FICH(1:1).EQ.'-') THEN83 NOM_FICH = ' '
135 & .AND.NOM_FICH(LONG-7:LONG).EQ.'.avoir3D') THEN137 OPEN(IBID,FILE=NOM_FICH(1:LONG-2)//'2D',FORM='UNFORMATTED'141 NOM_FICH(LONG-1:LONG-1) = '2'144 PRINT*,'En fait on pr�f�re ouvrir '//NOM_FICH(1:LONG)146 PRINT*,'I preferred opening '//NOM_FICH(1:LONG)150 OPEN(IFAC,FILE=NOM_FICH(1:LONG),FORM='UNFORMATTED'153 CALL ouvrebin(IFAC,NOM_FICH(1:LONG)//CHAR(0),0,IRC)290 IF (NOM_FICH(LONG-7:LONG-7).EQ.'.') THEN291 NOM_VIT = NOM_FICH(1:LONG-7)//'depl'294 NOM_VIT = NOM_FICH(1:LONG)[all …]
182 & .OR.NOM_VIT(1:LL1).NE.NOM_FICH(1:LL2)) THEN183 IF (NOM_VIT(1:LONVIT).NE.NOM_FICH(1:LONG)) THEN530 NOM_FICH(1:LONG0) = NOMF0(1:LONG0)535 & PROGEFF(1:LPROGEFF)//' '//CBID(1:LL)//NOM_FICH(1:LONG)538 & PROGEFF(1:LPROGEFF)//' '//NOM_FICH(1:LONG)
192 FICLEC = NOM_FICH(1:LONG-8)//'.theta'195 FICLEC = NOM_FICH(1:LONG-8)//'.thetap'198 FICLEC = NOM_FICH(1:LONG-8)//'.v'202 FICLEC = NOM_FICH(1:LONG-8)//'.psi'209 IF (NOM_FICH(LONG-1:LONG).EQ.'3D') THEN217 IF (NOM_FICH(LONG-1:LONG).EQ.'3D') THEN249 FICLEC = NOM_FICH(1:LONG-8)//'.mode'253 FICLEC = NOM_FICH(1:LONG-8)//'_'//CNUM2//'.mode'263 FICLEC = NOM_FICH(1:LONG-8)//'.depl'4091 TITRE = NOM_FICH[all …]
65 CHARACTER*128 NOM_FICH,NOMF0,NOM_ISO,NOM_VIT,NOM_C1,NOM_C2 variable72 COMMON / CARA / LEG,SAUVPS,NOM_FICH,NOMF0,NOM_ISO local
199 CALL datefichier(NOM_FICH(1:LONG)//CHAR(0),ID,IRC)203 CALL datefichier(NOM_FICH(1:LONG-7)//'depl'//CHAR(0),ID,IRC)
1133 & ,TS(1:LTI)//NOM_FICH(1:LONG)//' '//CBIDON(1:LBID)//CHAR(0)1164 CALL SAUVEBIT(IMAGES,LIM,TS(1:LTI)//NOM_FICH(1:LONG)1172 & ,TS(1:LTI)//NOM_FICH(1:LONG),LTI+LONG1214 & NOM_ISO(1:2).EQ.'$'//NOM_FICH(1:1)) CALL MYISO
31 CBIDON = NOM_FICH(1:LONG)
788 CALL EXEC('/bin/mv -vi '//NOM_FICH(1:LONG)//'* .')790 CALL EXEC('/bin/rm -f '//NOM_FICH(1:LONG)//'*')
273 IF (NOM_FICH(LONVIT2:LONVIT2).NE.'.'.AND.LONVIT2.GT.1) GOTO 10