mirror of
https://github.com/VictorEijkhout/TheArtOfHPC_vol3_cppf08programming.git
synced 2026-01-24 22:44:48 +09:00
44 lines
1.0 KiB
Fortran
44 lines
1.0 KiB
Fortran
!****************************************************************
|
|
!***
|
|
!*** This file belongs with the course
|
|
!*** Introduction to Scientific Programming in C++/Fortran2003
|
|
!*** copyright 2018-2022 Victor Eijkhout eijkhout@tacc.utexas.edu
|
|
!***
|
|
!*** query.F90 : array query functions
|
|
!***
|
|
!****************************************************************
|
|
|
|
Program Query
|
|
implicit none
|
|
|
|
!!codesnippet farrayquery
|
|
integer,dimension(8) :: x
|
|
integer,dimension(5,3:7) :: y
|
|
!!codesnippet end
|
|
|
|
!!codesnippet lubound
|
|
real,dimension(-1:7) :: array
|
|
integer :: idx
|
|
!!codesnippet end
|
|
|
|
print *,"Q"
|
|
!!codesnippet farrayquery
|
|
print '("size x :",2i3)',size(x)
|
|
print '("size y :",2i3)',size(y)
|
|
print '("size y in 2:",2i3)',size(y,2)
|
|
print '("lbound y :",2i3)',lbound(y)
|
|
print '("ubound y1 :",2i3)',ubound(y,1)
|
|
!!codesnippet end
|
|
print *,"q"
|
|
|
|
print *,"LU"
|
|
!!codesnippet lubound
|
|
do idx=lbound(array,1),ubound(array,1)
|
|
array(idx) = 1+idx/10.
|
|
print *,array(idx)
|
|
end do
|
|
!!codesnippet end
|
|
print *,"lu"
|
|
|
|
End Program Query
|