lit
    JINRLIB

AMAXMU -

E103

: J.Zoll :

popaa oca ao acoo a oo coooc opo.

:

: - REAL*8 FUNCTION
: - AMAXMU

:

X=AMAXMU(A,IDO,IW,NA), :

A - (REAL*8) oop acc c p, a a ooca;
IDO - (INTEGER) co ooc, oop o accop;
IW - (INTEGER) co co ao ooc;
NA - (INTEGER) pacco aaa ooc.

:
       . . .
       IMPLICIT REAL*8 (A-H,O-Z)
       DIMENSION A(8)
       . . .
       WRITE(*,*) A
       WRITE(*,'(20H  AMAXMU(A,4,1,1) = ,F4.1)') AMAXMU(A,4,1,1)
       WRITE(*,'(20H  AMAXMU(A,4,1,2) = ,F4.1)') AMAXMU(A,4,1,2)
       WRITE(*,'(20H  AMAXMU(A,1,8,0) = ,F4.1)') AMAXMU(A,1,8,0)
       . . .
:
       A =  1.0  2.0  3.0  4.0  5.0  6.0  7.0  8.0
       AMAXMU(A,4,1,1) =  4.0
       AMAXMU(A,4,1,2) =  7.0
       AMAXMU(A,1,8,0) =  8.0


home up e-mail