Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

fix(ListReaderType): initialize attributes in declaration #220

Merged
merged 1 commit into from
Oct 12, 2019
Merged

fix(ListReaderType): initialize attributes in declaration #220

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
32 changes: 16 additions & 16 deletions src/Utilities/ListReader.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,22 +10,22 @@ module ListReaderModule
public ListReaderType

type :: ListReaderType
integer(I4B) :: in ! unit number of file containing control record
integer(I4B) :: inlist ! unit number of file from which list will be read
integer(I4B) :: iout ! unit number to output messages
integer(I4B) :: inamedbound ! flag indicating boundary names are to be read
integer(I4B) :: ierr ! error flag
integer(I4B) :: nlist ! number of entries in list. -1 indicates number will be automatically determined
integer(I4B) :: ibinary ! flag indicating to read binary list
integer(I4B) :: istart ! string starting location
integer(I4B) :: istop ! string ending location
integer(I4B) :: lloc ! entry number in line
integer(I4B) :: iclose ! flag indicating whether or not to close file
integer(I4B) :: ndim ! number of dimensions in model
integer(I4B) :: ntxtrlist ! number of text entries found in rlist
integer(I4B) :: ntxtauxvar ! number of text entries found in auxvar
character(len=LENLISTLABEL) :: label ! label for printing list
character(len=LINELENGTH) :: line ! line string for reading file
integer(I4B) :: in = 0 ! unit number of file containing control record
integer(I4B) :: inlist = 0 ! unit number of file from which list will be read
integer(I4B) :: iout = 0 ! unit number to output messages
integer(I4B) :: inamedbound = 0 ! flag indicating boundary names are to be read
integer(I4B) :: ierr = 0 ! error flag
integer(I4B) :: nlist = 0 ! number of entries in list. -1 indicates number will be automatically determined
integer(I4B) :: ibinary = 0 ! flag indicating to read binary list
integer(I4B) :: istart = 0 ! string starting location
integer(I4B) :: istop = 0 ! string ending location
integer(I4B) :: lloc = 0 ! entry number in line
integer(I4B) :: iclose = 0 ! flag indicating whether or not to close file
integer(I4B) :: ndim = 0 ! number of dimensions in model
integer(I4B) :: ntxtrlist = 0 ! number of text entries found in rlist
integer(I4B) :: ntxtauxvar = 0 ! number of text entries found in auxvar
character(len=LENLISTLABEL) :: label = '' ! label for printing list
character(len=LINELENGTH) :: line = '' ! line string for reading file
integer(I4B), dimension(:), pointer, contiguous :: mshape => null() ! pointer to model shape
integer(I4B), dimension(:), pointer, contiguous :: nodelist => null() ! pointer to nodelist
real(DP), dimension(:, :), pointer, contiguous :: rlist => null() ! pointer to rlist
Expand Down