defines Subroutine

public subroutine defines()

Arguments

None

Contents


Variables

TypeVisibilityAttributesNameInitial
character(len=G_line_length), public :: array(n)
character(len=1), public :: dlim =' '
integer, public :: i
integer, public :: ibegin(n)
integer, public :: icount
integer, public :: ilength
character(len=:), public, allocatable:: in_define2
integer, public :: iterm(n)
integer, public, parameter:: n =300