2005-01-07 14:40:46 +00:00
|
|
|
!
|
2005-11-05 19:57:48 +00:00
|
|
|
! Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
|
|
|
! University Research and Technology
|
|
|
|
|
! Corporation. All rights reserved.
|
|
|
|
|
! Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
|
|
|
! of Tennessee Research Foundation. All rights
|
|
|
|
|
! reserved.
|
2005-01-07 14:40:46 +00:00
|
|
|
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
|
|
|
! University of Stuttgart. All rights reserved.
|
2005-03-24 12:43:37 +00:00
|
|
|
! Copyright (c) 2004-2005 The Regents of the University of California.
|
|
|
|
|
! All rights reserved.
|
2005-01-07 14:40:46 +00:00
|
|
|
! $COPYRIGHT$
|
|
|
|
|
!
|
|
|
|
|
! Additional copyrights may follow
|
|
|
|
|
!
|
|
|
|
|
! $HEADER$
|
|
|
|
|
!
|
|
|
|
|
! print_rkinds.f90
|
|
|
|
|
! - prints out values of selected_real_kind to determine Fortran compiler
|
|
|
|
|
! dependent values
|
|
|
|
|
!
|
|
|
|
|
program main
|
|
|
|
|
integer :: i
|
|
|
|
|
!
|
|
|
|
|
! real :: x = 2.2_QUAD
|
|
|
|
|
!
|
|
|
|
|
complex(kind(1.D0)) :: z
|
|
|
|
|
|
|
|
|
|
do i = 1, 32
|
|
|
|
|
print*, "i = ", i, "selected_real_kind(i) = ", selected_real_kind(i)
|
|
|
|
|
end do
|
|
|
|
|
|
|
|
|
|
print*, "kind(1.E0) = ", kind(1.E0)
|
|
|
|
|
print*, "kind(1.D0) = ", kind(1.D0)
|
|
|
|
|
!
|
|
|
|
|
! print*, "kind( real :: x = 2.2_QUAD ) = ", kind(x)
|
|
|
|
|
!
|
|
|
|
|
print*, "kind( complex(kind(1.D0) :: z ) = ", kind(z)
|
|
|
|
|
|
|
|
|
|
end program main
|
