WebSVN – lagranto.ecmwf – Diff – /trunk/select/select.f

 c     Maximum number of commands
       integer          maxcmd
       parameter        (maxcmd=10000)
-c     --------------------------------------------------------------
+c     -------------------------------------------------------------
 c     Declaration of variables
 c     --------------------------------------------------------------
 c     Input and output files
       character*120     inp_lslfile                  ! Input lsl file
                     j2=j
                  endif
               enddo
               if ( (j1.eq.0).or.(j2.eq.0) ) goto 400
               do j=j1,j2
-                 flag(j)=1
+                 flag(j)=i
               enddo
               i=i+1
 c          Explicitly given time value
            else
               do j=1,ntimes
                  if ( abs(tim(i)-times(j)).lt.eps ) then
-                    flag(j)=1
+                    flag(j)=i
                  endif
               enddo
            endif
 c       A selection of times is given
         else
            count=0
            do i=1,ntimes
+              if ( flag(i).ne.0 ) then
-              count=count+flag(i)
+                 count=count+1
+              endif
            enddo
            n=n+1
            out(n)=real(count)
+           do i=1,count
-           do i=1,ntimes
+             do j=1,ntimes
-              if (flag(i).eq.1) then
+               if (flag(j).eq.i) then
-                 n=n+1
+                 n      = n + 1
-                 out(n)=real(i)
+                 out(n) = real(j)
-              endif
+               endif
+             enddo
            enddo
         endif
 c       Write the time mode
         if ( tmode.eq.'ALL') then
            n=n+1

Subversion Repositories lagranto.ecmwf

(root)/trunk/select/select.f @ 42 – Rev 15 → 19