lit
    JINRLIB

MAXIZE, MINIZE, MAXDZE, MINDZE -

E102

: .. :

opopa- ca oca acaoo aoo a acca c acca c c aa ao .

:

: - INTEGER FUNCTION
: - MAXIZE MINIZE
MAXDZE MINDZE

:

IMAX=MAXIZE(IA(J),N)
IMAX=MAXDZE(DA(J),N)
IMIN=MINIZE(IA(J),N)
IMIN=MINDZE(DA(J),N), :

IA - (INTEGER) ;
DA - (REAL*8) ;
N - (INTEGER) , .

INTEGER.

- MAXIZE MAXDZE op o acaoo a N ocoa o acc IA DA, aa c a IA(J) DA(J) .

- MINIZE MINDZE op o aoo a N ocoa o acc IA DA, aa c a IA(J) DA(J) .

Ec c coo oao aca a o acca, ac a pac op o poo acaoo aoo a.

:

       . . .
       DIMENSION IA(10)
       WRITE(*,*)IA
       WRITE(*,'(18H    INDEX (max) = ,I3,3H,  $)')MAXIZE(IA,10)
       WRITE(*,'(15H INDEX (min) = ,I3)')MINIZE(IA,10)
       . . .
:
       1   -1    2   -2   15   14  -14   25  -25   -6
       INDEX (max) =   8,   INDEX (min) =   9


home up e-mail