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