CHARACTER*256 FUNCTION NOMFIC(CPPATH,NOMF)
C **********************************************
C BUT : CREER UN NOM DE FICHIER AVEC PATH COMPLET
C ----
C       CPPATH : PATH COMPLET
C       NOMF  : NOM DU FICHIER
C **********************************************
      IMPLICIT NONE
      CHARACTER*(*) NOMF,CPPATH,NOM*256
      INTEGER I,J
      IF(CPPATH.EQ.' ') THEN
        NOM = NOMF
      ELSE
        NOM = CPPATH//'/'//NOMF
      ENDIF
      I=0
      NOMFIC=' '
      DO 10 J=1,256
       IF(NOM(J:J).NE.' ') THEN
        I=I+1
        NOMFIC(I:I)=NOM(J:J)
C        IF(I.GE.80) RETURN
       ENDIF
   10 CONTINUE
      END
C