1*-----------------------------------------------------------------------
2      SUBROUTINE SWQFNM(CPARA,CFNAME)
3
4      CHARACTER CPARA*(*),CFNAME*(*)
5
6      PARAMETER (MAXP=3,MAXF=3)
7
8      CHARACTER CPLIST(MAXP)*80,CFLIST(MAXF)*80,CPX*80
9
10      EXTERNAL  LENC
11
12
13      CPLIST(1)=' '
14      CALL GLCGET('DUPATH',CPLIST(2))
15      CALL GLCGET('DSPATH',CPLIST(3))
16
17      CALL SWCGET(CPARA,CPX)
18      LCP=LENC(CPX)
19      CALL SWPGET('IWS',IWS)
20
21      CFLIST(1)=CPX(1:LCP)//'.win'
22      CFLIST(2)=CPX(1:LCP)
23
24      CALL CFSRCH(CPLIST,MAXP,CFLIST,MAXF,CFNAME)
25      END
26