!******************************************************************************
! 2003/08/22
! Two kinds of character lengths are added. 
!******************************************************************************
! 2003/07/25
!******************************************************************************

  module vtype

    implicit none

    integer(4), parameter, public :: i4b = 4
    integer(4), parameter, public :: i8b = 8
    integer(4), parameter, public :: sp = 4
    integer(4), parameter, public :: dp = 8

    integer(4), parameter, public :: stdstr = 64
    integer(4), parameter, public :: extstr = stdstr * 2

  end module vtype
