DIMEN2

 !Program name: DIMEN2

Integer,dimension(4) :: A

Integer,dimension(24) :: B

A=(/ (2*i, i=1,4) /)

B=(/ ((i*j, i=1,4), j=1,6) /)

write (*,*) A

write (*,*) B

stop

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA