DIMEN3

 !Program name: DIMEN3

real, dimension(10) :: A=(/ 1,2,3,4,5,6,7,8,9,10 /)

Real, dimension(10) :: B

where (A>5)

    B=1.

Elsewhere

    B=0

end where

write (*,*) A, B

stop

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA