kindmodule Module Reference

This module defines variable data types. More...

Functions/Subroutines
subroutine, public	write_kindinfo (iout)
	Write variable data types. More...

Detailed Description

This module defines the precision of logical, integer, long integer, and real data types used in MODFLOW 6 and are available to all other modules.

Function/Subroutine Documentation

write_kindinfo()

subroutine, public kindmodule::write_kindinfo

(

integer(i4b), intent(in)

iout

)

This subroutine writes the precision of logical, integer, long integer, and real data types used in MODFLOW 6.

Parameters

[in]

iout

file unit to output kind variables

Definition at line 26 of file kind.f90.

    ! -- dummy variables
    integer(I4B), intent(in) :: iout !< file unit to output kind variables
    ! -- local variables
    integer(LGP) :: ldum = 0
    integer(I4B) :: idum = 0
    integer(I8B) :: long_idum = 0
    integer(DP) :: irdum = 0 ! for bit size of real variables
    real(DP) :: rdum = 0._dp
    !
    ! -- write kind information
    write (iout, '(/a)') 'Real Variables'
    write (iout, '(2x,a,i0)') 'KIND: ', dp
    write (iout, '(2x,a,1pg15.6)') 'TINY (smallest non-zero value): ', &
      tiny(rdum)
    write (iout, '(2x,a,1pg15.6)') 'HUGE (largest value): ', huge(rdum)
    write (iout, '(2x,a,i0)') 'PRECISION: ', precision(rdum)
    write (iout, '(2x,a,i0)') 'SIZE IN BITS: ', bit_size(irdum)
 
    write (iout, '(/a)') 'Integer Variables'
    write (iout, '(2x,a,i0)') 'KIND: ', i4b
    write (iout, '(2x,a,i0)') 'HUGE (largest value): ', huge(idum)
    write (iout, '(2x,a,i0)') 'SIZE IN BITS: ', bit_size(idum)
 
    write (iout, '(/a)') 'Long Integer Variables'
    write (iout, '(2x,a,i0)') 'KIND: ', i8b
    write (iout, '(2x,a,i0)') 'HUGE (largest value): ', huge(long_idum)
    write (iout, '(2x,a,i0)') 'SIZE IN BITS: ', bit_size(long_idum)
 
    write (iout, '(/a)') 'Logical Variables'
    write (iout, '(2x,a,i0)') 'KIND: ', lgp
    write (iout, '(2x,a,i0)') 'SIZE IN BITS: ', bit_size(ldum)
    !
    ! -- Return
    return

Here is the caller graph for this function: