source: trunk/MESOSCALE/LMDZ.MARS/libf_gcm/bibio/wheneq.F @ 3553

Last change on this file since 3553 was 57, checked in by aslmd, 14 years ago

mineur LMD_MM_MARS: ajout du GCM ancienne physique, systeme maintenant complet sur SVN (ne manque que la base de donnees d'etats initiaux)

File size: 437 bytes
Line 
1      SUBROUTINE wheneq(n,x,incx,target,index,nn)
2      IMPLICIT NONE
3c
4      integer n, incx, nn
5      integer index(n)
6c
7      integer target, x((n-1)*incx+1)
8cccccc      real target, x((n-1)*incx+1)
9c
10      integer i, ix
11c
12      ix = 1
13      nn = 0
14      do 10 i = 1, n
15         if (x(ix).EQ.target) then
16            index(i) = ix
17            nn = nn + 1
18         endif
19         ix = ix + incx
20   10 continue
21c
22      return
23      end
Note: See TracBrowser for help on using the repository browser.