parts of the material.config can now be set to echo their content back into the log-file (i.e. STDOUT / unit 6)
use keyword "/echo/" before first section in the respective parts that you want to see echoed back into the log file.
This commit is contained in:
Philip Eisenlohr
parent
467356c2c4
commit
b4103b205d
49
code/IO.f90
49
code/IO.f90
|
|
@ -40,6 +40,7 @@ module IO
|
|||
IO_countSections, &
|
||||
IO_countTagInPart, &
|
||||
IO_spotTagInPart, &
|
||||
IO_globalTagInPart, &
|
||||
IO_stringPos, &
|
||||
IO_stringValue, &
|
||||
IO_fixedStringValue ,&
|
||||
|
|
@ -645,7 +646,7 @@ function IO_spotTagInPart(myFile,part,myTag,Nsections)
|
|||
character(len=*), intent(in) :: part, &
|
||||
myTag
|
||||
|
||||
integer(pInt), parameter :: maxNchunks = 1_pInt
|
||||
integer(pInt), parameter :: maxNchunks = 1_pInt
|
||||
|
||||
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
||||
integer(pInt) :: section
|
||||
|
|
@ -669,7 +670,7 @@ function IO_spotTagInPart(myFile,part,myTag,Nsections)
|
|||
section = section + 1_pInt
|
||||
if (section > 0_pInt) then
|
||||
positions = IO_stringPos(line,maxNchunks)
|
||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||
if (tag == myTag) & ! match
|
||||
IO_spotTagInPart(section) = .true.
|
||||
endif
|
||||
|
|
@ -678,6 +679,50 @@ function IO_spotTagInPart(myFile,part,myTag,Nsections)
|
|||
100 end function IO_spotTagInPart
|
||||
|
||||
|
||||
!*********************************************************************
|
||||
! return logical whether myTag is present within <part> before any [sections]
|
||||
!*********************************************************************
|
||||
logical function IO_globalTagInPart(myFile,part,myTag)
|
||||
|
||||
implicit none
|
||||
|
||||
integer(pInt), intent(in) :: myFile
|
||||
character(len=*), intent(in) :: part, &
|
||||
myTag
|
||||
|
||||
integer(pInt), parameter :: maxNchunks = 1_pInt
|
||||
|
||||
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
||||
integer(pInt) :: section
|
||||
character(len=1024) :: line, &
|
||||
tag
|
||||
|
||||
IO_globalTagInPart = .false. ! assume to nowhere spot tag
|
||||
section = 0_pInt
|
||||
line =''
|
||||
|
||||
rewind(myFile)
|
||||
do while (IO_getTag(line,'<','>') /= part) ! search for part
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
enddo
|
||||
|
||||
do
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit ! stop at next part
|
||||
if (IO_getTag(line,'[',']') /= '') & ! found [section] identifier
|
||||
section = section + 1_pInt
|
||||
if (section == 0_pInt) then
|
||||
positions = IO_stringPos(line,maxNchunks)
|
||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||
if (tag == myTag) & ! match
|
||||
IO_globalTagInPart = .true.
|
||||
endif
|
||||
enddo
|
||||
|
||||
100 end function IO_globalTagInPart
|
||||
|
||||
|
||||
!********************************************************************
|
||||
! locate at most N space-separated parts in line
|
||||
! return array containing number of parts in line and
|
||||
|
|
|
|||
|
|
@ -249,7 +249,10 @@ subroutine material_parseHomogenization(myFile,myPart)
|
|||
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
||||
integer(pInt) Nsections, section, s
|
||||
character(len=64) :: tag
|
||||
character(len=1024) ::line
|
||||
character(len=1024) :: line
|
||||
logical :: echo
|
||||
|
||||
echo = IO_globalTagInPart(myFile,myPart,'/echo/')
|
||||
|
||||
Nsections = IO_countSections(myFile,myPart)
|
||||
material_Nhomogenization = Nsections
|
||||
|
|
@ -272,11 +275,13 @@ subroutine material_parseHomogenization(myFile,myPart)
|
|||
do while (IO_lc(IO_getTag(line,'<','>')) /= myPart) ! wind forward to myPart
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
enddo
|
||||
if (echo) write(6,*) trim(line) ! echo part header
|
||||
|
||||
do
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit ! stop at next part
|
||||
if (echo) write(6,*) trim(line) ! echo back read lines
|
||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
||||
section = section + 1_pInt
|
||||
homogenization_name(section) = IO_getTag(line,'[',']')
|
||||
|
|
@ -286,7 +291,7 @@ subroutine material_parseHomogenization(myFile,myPart)
|
|||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||
select case(tag)
|
||||
case ('type')
|
||||
homogenization_type(section) = IO_lc(IO_stringValue(line,positions,2_pInt)) ! adding: IO_lc function <<<updated 31.07.2009>>>
|
||||
homogenization_type(section) = IO_lc(IO_stringValue(line,positions,2_pInt)) ! adding: IO_lc function
|
||||
do s = 1_pInt,section
|
||||
if (homogenization_type(s) == homogenization_type(section)) &
|
||||
homogenization_typeInstance(section) = homogenization_typeInstance(section) + 1_pInt ! count instances
|
||||
|
|
@ -319,6 +324,9 @@ subroutine material_parseMicrostructure(myFile,myPart)
|
|||
integer(pInt) :: Nsections, section, constituent, e, i
|
||||
character(len=64) :: tag
|
||||
character(len=1024) :: line
|
||||
logical :: echo
|
||||
|
||||
echo = IO_globalTagInPart(myFile,myPart,'/echo/')
|
||||
|
||||
Nsections = IO_countSections(myFile,myPart)
|
||||
material_Nmicrostructure = Nsections
|
||||
|
|
@ -347,11 +355,13 @@ subroutine material_parseMicrostructure(myFile,myPart)
|
|||
do while (IO_lc(IO_getTag(line,'<','>')) /= myPart) ! wind forward to myPart
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
enddo
|
||||
if (echo) write(6,*) trim(line) ! echo part header
|
||||
|
||||
do
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit ! stop at next part
|
||||
if (echo) write(6,*) trim(line) ! echo back read lines
|
||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
||||
section = section + 1_pInt
|
||||
constituent = 0_pInt
|
||||
|
|
@ -390,6 +400,7 @@ subroutine material_parseCrystallite(myFile,myPart)
|
|||
use IO, only: IO_countSections, &
|
||||
IO_error, &
|
||||
IO_countTagInPart, &
|
||||
IO_globalTagInPart, &
|
||||
IO_getTag, &
|
||||
IO_lc, &
|
||||
IO_isBlank
|
||||
|
|
@ -401,6 +412,9 @@ subroutine material_parseCrystallite(myFile,myPart)
|
|||
integer(pInt) :: Nsections, &
|
||||
section
|
||||
character(len=1024) :: line
|
||||
logical :: echo
|
||||
|
||||
echo = IO_globalTagInPart(myFile,myPart,'/echo/')
|
||||
|
||||
Nsections = IO_countSections(myFile,myPart)
|
||||
material_Ncrystallite = Nsections
|
||||
|
|
@ -418,11 +432,13 @@ subroutine material_parseCrystallite(myFile,myPart)
|
|||
do while (IO_lc(IO_getTag(line,'<','>')) /= myPart) ! wind forward to myPart
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
enddo
|
||||
if (echo) write(6,*) trim(line) ! echo part header
|
||||
|
||||
do
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit ! stop at next part
|
||||
if (echo) write(6,*) trim(line) ! echo back read lines
|
||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
||||
section = section + 1_pInt
|
||||
crystallite_name(section) = IO_getTag(line,'[',']')
|
||||
|
|
@ -448,6 +464,9 @@ subroutine material_parsePhase(myFile,myPart)
|
|||
integer(pInt) Nsections, section, s
|
||||
character(len=64) :: tag
|
||||
character(len=1024) :: line
|
||||
logical :: echo
|
||||
|
||||
echo = IO_globalTagInPart(myFile,myPart,'/echo/')
|
||||
|
||||
Nsections = IO_countSections(myFile,myPart)
|
||||
material_Nphase = Nsections
|
||||
|
|
@ -471,11 +490,13 @@ subroutine material_parsePhase(myFile,myPart)
|
|||
do while (IO_lc(IO_getTag(line,'<','>')) /= myPart) ! wind forward to myPart
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
enddo
|
||||
if (echo) write(6,*) trim(line) ! echo part header
|
||||
|
||||
do
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit ! stop at next part
|
||||
if (echo) write(6,*) trim(line) ! echo back read lines
|
||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
||||
section = section + 1_pInt
|
||||
phase_name(section) = IO_getTag(line,'[',']')
|
||||
|
|
@ -520,7 +541,9 @@ subroutine material_parseTexture(myFile,myPart)
|
|||
integer(pInt) :: Nsections, section, gauss, fiber, i
|
||||
character(len=64) :: tag
|
||||
character(len=1024) :: line
|
||||
|
||||
logical :: echo
|
||||
|
||||
echo = IO_globalTagInPart(myFile,myPart,'/echo/')
|
||||
|
||||
Nsections = IO_countSections(myFile,myPart)
|
||||
material_Ntexture = Nsections
|
||||
|
|
@ -547,11 +570,13 @@ subroutine material_parseTexture(myFile,myPart)
|
|||
do while (IO_lc(IO_getTag(line,'<','>')) /= myPart) ! wind forward to myPart
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
enddo
|
||||
if (echo) write(6,*) trim(line) ! echo part header
|
||||
|
||||
do
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit ! stop at next part
|
||||
if (echo) write(6,*) trim(line) ! echo back read lines
|
||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
||||
section = section + 1_pInt
|
||||
gauss = 0_pInt
|
||||
|
|
|
|||
Loading…
Reference in New Issue