! File: constant1.f90
! Public domain 2004 James Van Buskirk
! Creates a derived type with constant LENs
module pi_mod1
   implicit none
   integer, parameter :: dp = selected_real_kind(15,300)
   type pi_type
      character(mod(int(4.0e0_dp*atan(1.0_dp)),10)) d0
      character(mod(int(4.0e1_dp*atan(1.0_dp)),10)) d1
      character(mod(int(4.0e2_dp*atan(1.0_dp)),10)) d2
      character(mod(int(4.0e3_dp*atan(1.0_dp)),10)) d3
      character(mod(int(4.0e4_dp*atan(1.0_dp)),10)) d4
      character(mod(int(4.0e5_dp*atan(1.0_dp)),10)) d5
      character(mod(int(4.0e6_dp*atan(1.0_dp)),10)) d6
      character(mod(int(4.0e7_dp*atan(1.0_dp)),10)) d7
      character(mod(int(4.0e8_dp*atan(1.0_dp)),10)) d8
      character(mod(int(1.0e1_dp*mod(4.0e8_dp*atan(1.0_dp),1.0_dp)),10)) d9
      character(mod(int(1.0e2_dp*mod(4.0e8_dp*atan(1.0_dp),1.0_dp)),10)) d10
      character(mod(int(1.0e3_dp*mod(4.0e8_dp*atan(1.0_dp),1.0_dp)),10)) d11
      character(mod(int(1.0e4_dp*mod(4.0e8_dp*atan(1.0_dp),1.0_dp)),10)) d12
      character(mod(int(1.0e5_dp*mod(4.0e8_dp*atan(1.0_dp),1.0_dp)),10)) d13
      character(mod(int(1.0e6_dp*mod(4.0e8_dp*atan(1.0_dp),1.0_dp)),10)) d14
      character(mod(int(1.0e7_dp*mod(4.0e8_dp*atan(1.0_dp),1.0_dp)),10)) d15
      character(mod(int(1.0e8_dp*mod(4.0e8_dp*atan(1.0_dp),1.0_dp)),10)) d16
   end type pi_type
end module pi_mod1