Last change
on this file since 80 was
80,
checked in by lemeur, 12 years ago
|
prise en compte d'un path pour les fichiers
|
File size:
636 bytes
|
Line | |
---|
1 | CHARACTER*256 FUNCTION NOMFIC(CPPATH,NOMF) |
---|
2 | C ********************************************** |
---|
3 | C BUT : CREER UN NOM DE FICHIER AVEC PATH COMPLET |
---|
4 | C ---- |
---|
5 | C CPPATH : PATH COMPLET |
---|
6 | C NOMF : NOM DU FICHIER |
---|
7 | C ********************************************** |
---|
8 | IMPLICIT NONE |
---|
9 | CHARACTER*(*) NOMF,CPPATH,NOM*256 |
---|
10 | INTEGER I,J |
---|
11 | IF(CPPATH.EQ.' ') THEN |
---|
12 | NOM = NOMF |
---|
13 | ELSE |
---|
14 | NOM = CPPATH//'/'//NOMF |
---|
15 | ENDIF |
---|
16 | I=0 |
---|
17 | NOMFIC=' ' |
---|
18 | DO 10 J=1,256 |
---|
19 | IF(NOM(J:J).NE.' ') THEN |
---|
20 | I=I+1 |
---|
21 | NOMFIC(I:I)=NOM(J:J) |
---|
22 | C IF(I.GE.80) RETURN |
---|
23 | ENDIF |
---|
24 | 10 CONTINUE |
---|
25 | END |
---|
26 | C |
---|
Note: See
TracBrowser
for help on using the repository browser.