lit
    JINRLIB

LOCATI, LOCATD -

E106

: F.James :

o opoo acc c (LOCATI)
(LOCATD) o op, a aa caoo, o o pa acc.
a o aa o a, c o a, , opao a o ao o a, , , .

:

: - INTEGER FUNCTION
: - LOCATI, LOCATD

:

LOC=LOCATD(ARRAY,LENGTH,ELEM), :

ARRAY - (REAL*8) acc LENGTH, oopo pooc oc a ELEM.

LOC=LOCATI(IARRAY,LENGTH,IELEM), :

IARRAY - (INTEGER) acc c ( coo) LENGTH, oopo pooc oc a IELEM.

poaac, o acc opaca op.
c pcc o o pa acc, o LOC o ooo aoo a.
c a acc, o LOC - opao co, a o acoo a a o ao a, oop , co.
c LOC=0, o p , c acca.

:

o ocoo o o acco.
app, oo 14 cpa op coao a acc o 1000. acco, o 10 poco .

:

1037, 76, 1 2 2000.

       REAL*8 DA,DOBJ
       DIMENSION NA(1000),DA(1000),NOBJ(3),DOBJ(3)
       DIMENSION LI(3),LD(3)
       DATA NOBJ/ 1037, 76, 1/
       DATA DOBJ/1037.0D0, 76.0D0, 1.0D0/
       DO 1 I=1,1000
       DA(I)=DBLE(2.*I)
    1  NA(I)=2*I
       N=1000
       DO 2 K=1,3
       LD(K)=LOCATD(DA,N,DOBJ(K))
       LI(K)=LOCATI(NA,N,NOBJ(K))
    2  CONTINUE
       . . .
:
 
       DOBJ=   1037.00       76.00        1.00
        LD=       -518          38           0
 
       NOBJ=      1037          76           1
        LI=       -518          38           0


home up e-mail