Module dcunits_com

module dcunits_com

        ! Uses
    use dc_types, only: DP, STRING

        ! Variables
    integer, public, parameter :: S_EOF = -128
    integer, public, parameter :: S_SHIFT = 300
    integer, public, parameter :: S_TEXT = 301
    integer, public, parameter :: S_MULTIPLY = 302
    integer, public, parameter :: S_DIVIDE = 303
    integer, public, parameter :: S_EXPONENT = 304
    integer, public, parameter :: S_OPENPAR = 305
    integer, public, parameter :: S_CLOSEPAR = 306
    integer, public, parameter :: S_REAL = 307
    integer, public, parameter :: S_INTEGER = 308
    character (len=STRING), private, save :: thisline = ""
    integer, private, save :: i = 1

        ! Subroutines and functions
    public subroutine DCUnitsSetLine (line)
    public subroutine DCUnitsGetToken (tokentype, ivalue, dvalue, cvalue)

end module dcunits_com

Description of Variables

S_EOF

integer, public, parameter :: S_EOF = -128

S_SHIFT

integer, public, parameter :: S_SHIFT = 300

S_TEXT

integer, public, parameter :: S_TEXT = 301

S_MULTIPLY

integer, public, parameter :: S_MULTIPLY = 302

S_DIVIDE

integer, public, parameter :: S_DIVIDE = 303

S_EXPONENT

integer, public, parameter :: S_EXPONENT = 304

S_OPENPAR

integer, public, parameter :: S_OPENPAR = 305

S_CLOSEPAR

integer, public, parameter :: S_CLOSEPAR = 306

S_REAL

integer, public, parameter :: S_REAL = 307

S_INTEGER

integer, public, parameter :: S_INTEGER = 308

thisline

character (len=STRING), private, save :: thisline = ""

i

integer, private, save :: i = 1

Description of Subroutines and Functions

DCUnitsSetLine

public subroutine DCUnitsSetLine (line)
    character (len=*), intent(in) :: line
end subroutine DCUnitsSetLine

DCUnitsGetToken

public subroutine DCUnitsGetToken (tokentype, ivalue, dvalue, cvalue)
    integer, intent(out) :: tokentype
    integer, intent(out), dimension (5) :: ivalue
    real (kind=DP), intent(out) :: dvalue
    character (len=*), intent(out) :: cvalue
    ! Calls: match
end subroutine DCUnitsGetToken