DIMEN4

 !Program name: DIMEN4

Integer,dimension (-3:4,2:5) :: i  !array of rank 2 from -3 to 4 and from 2 to 5

Integer,dimension (0:6) :: j  ! array of rank 1 from 0 to 6

Integer :: k(3,4)  ! array of rank 2 from 1 to 3 and from 1 to 4

 

Write (*,*) ubound (i)     ! it shows   4      5

Write (*,*) lbound (i)      ! it shows  -3      2

Write (*,*) ubound (j)     ! it shows   6

write (*,*) lbound (j)      ! it shows   0

Write (*,*) ubound (i,1)   ! it shows   4

Write (*,*) ubound (i,2)   ! it shows   5

Write (*,*) lbound (i,1)    ! it shows  -3

Write (*,*) lbound (i,2)    ! it shows   2

write (*,*) ubound(k)      ! it shows   3     4

write (*,*) lbound(k)      ! it shows   1      1

Stop

End

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA