SUBROUTINE FNAM(FINO,EXTO,FOUTO)
C
C****** FNAM REMOVES ext FROM FIN, ADDS EXT TO MAKE FOUT ******
C
      CHARACTER*20 FIN,FOUT,FINO,FOUTO
      CHARACTER*3 EXT,EXTO
      CHARACTER*1 F1IN(20),F1OUT(20),E1(3)
      EQUIVALENCE (FIN,F1IN(1)),(EXT,E1(1)),(FOUT,F1OUT(1))
      FIN = FINO
      EXT = EXTO
	DO 70 I=1,20
   70 F1OUT(I) = ' '
      I = 2
   30 IF(F1IN(I).NE.'.'.AND.F1IN(I).NE.' ') GOTO 10
   40 LNAM = I-1
      GOTO 20
   10 I = I+1
      IF(I.GT.16) GOTO 40
      GOTO 30
   20 CONTINUE
      DO 60 I=1,LNAM
   60 F1OUT(I) = F1IN(I)
      L1 = LNAM+1
	F1OUT(L1) = '.'
	L1 = L1+1
      LNAM = LNAM+4
      K = 0
      DO 50 I=L1,LNAM
      K = K+1
   50 F1OUT(I) = E1(K)
      FOUTO = FOUT
      RETURN
      END