source: PSPA/parmelaPSPA/trunk/nomfic.f @ 80

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)
2C **********************************************
3C BUT : CREER UN NOM DE FICHIER AVEC PATH COMPLET
4C ----
5C       CPPATH : PATH COMPLET
6C       NOMF  : NOM DU FICHIER
7C **********************************************
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)
22C        IF(I.GE.80) RETURN
23       ENDIF
24   10 CONTINUE
25      END
26C
Note: See TracBrowser for help on using the repository browser.