diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 3080bdbfc..fe6a31676 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -52,7 +52,6 @@ subroutine multimode_decoder(ss,id2,params,nfsample) character(len=20) :: datetime character(len=12) :: mycall, hiscall character(len=6) :: mygrid, hisgrid - character(len=256) :: cmnd character*60 line data ndec8/0/,ntr0/-1/ save @@ -147,13 +146,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample) access='stream') write(47) params%yymmdd,params%nutc,id2(1:20),id2(1:180000) close(47) - cmnd=trim(exe_dir)//'/sfrx '//'"'//trim(temp_dir)//'/fort.47"' - i1=index(cmnd,'fort.47') - do i=1,i1 - if(cmnd(i:i).eq.char(92)) cmnd(i:i)='/' - enddo - call execute_command_line(cmnd,exitstat=ierr) - if(ierr.ne.0) call execute_command_line('.\sfrx '//'"'//trim(temp_dir)//'/fort.47"') + call execute_command_line(trim(exe_dir)//'/sfrx '//'"'//trim(temp_dir)//'/fort.47"') else call timer('decft8 ',0) newdat=params%newdat