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
|
Rev | Line | |
---|
[80] | 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.