missed these three files in last commit!
[added possibility for multi-level inclusion of files in *.config and loadcase files.
include subfiles by stating
{path/to/include}
]
This commit is contained in:
Philip Eisenlohr
parent
98528f9a89
commit
f9f76fa158
|
|
@ -128,6 +128,7 @@ subroutine debug_init
|
|||
nMPstate, &
|
||||
nHomog
|
||||
use IO, only: &
|
||||
IO_read, &
|
||||
IO_error, &
|
||||
IO_open_file_stat, &
|
||||
IO_isBlank, &
|
||||
|
|
@ -144,8 +145,8 @@ subroutine debug_init
|
|||
|
||||
integer(pInt) :: i, what
|
||||
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
||||
character(len=64) :: tag
|
||||
character(len=1024) :: line
|
||||
character(len=65536) :: tag
|
||||
character(len=65536) :: line
|
||||
|
||||
write(6,'(/,a)') ' <<<+- debug init -+>>>'
|
||||
write(6,'(a)') ' $Id$'
|
||||
|
|
@ -175,9 +176,11 @@ subroutine debug_init
|
|||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
! try to open the config file
|
||||
|
||||
|
||||
fileExists: if(IO_open_file_stat(fileunit,debug_configFile)) then
|
||||
do
|
||||
read(fileunit,'(a1024)',END=100) line
|
||||
do while (trim(line) /= '#EOF#') ! read thru sections of phase part
|
||||
line = IO_read(fileunit)
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
positions = IO_stringPos(line,maxNchunks)
|
||||
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
||||
|
|
@ -223,7 +226,7 @@ subroutine debug_init
|
|||
case ('other')
|
||||
what = debug_MAXNTYPE + 2_pInt
|
||||
end select
|
||||
if(what /= 0) then
|
||||
if (what /= 0) then
|
||||
do i = 2_pInt, positions(1)
|
||||
select case(IO_lc(IO_stringValue(line,positions,i)))
|
||||
case('basic')
|
||||
|
|
@ -246,7 +249,7 @@ subroutine debug_init
|
|||
enddo
|
||||
endif
|
||||
enddo
|
||||
100 close(fileunit)
|
||||
close(fileunit)
|
||||
|
||||
do i = 1_pInt, debug_maxNtype
|
||||
if (debug_level(i) == 0) &
|
||||
|
|
|
|||
|
|
@ -108,8 +108,8 @@ subroutine homogenization_RGC_init(myFile)
|
|||
integer(pInt), parameter :: maxNchunks = 4_pInt
|
||||
integer(pInt), dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
||||
integer(pInt) ::section=0_pInt, maxNinstance, i,j,e, output=-1_pInt, mySize, myInstance
|
||||
character(len=64) :: tag
|
||||
character(len=1024) :: line = ''
|
||||
character(len=65536) :: tag
|
||||
character(len=65536) :: line = ''
|
||||
|
||||
write(6,'(/,3a)') ' <<<+- homogenization_',trim(homogenization_RGC_label),' init -+>>>'
|
||||
write(6,'(a)') ' $Id$'
|
||||
|
|
@ -135,12 +135,12 @@ subroutine homogenization_RGC_init(myFile)
|
|||
|
||||
rewind(myFile)
|
||||
|
||||
do while (IO_lc(IO_getTag(line,'<','>')) /= material_partHomogenization) ! wind forward to <homogenization>
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
do while (trim(line) /= '#EOF#' .and. IO_lc(IO_getTag(line,'<','>')) /= material_partHomogenization) ! wind forward to <homogenization>
|
||||
line = IO_read(myFile)
|
||||
enddo
|
||||
|
||||
do ! read thru sections of phase part
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
do while (trim(line) /= '#EOF#')
|
||||
line = IO_read(myFile)
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit ! stop at next part
|
||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
||||
|
|
@ -198,7 +198,7 @@ subroutine homogenization_RGC_init(myFile)
|
|||
endif
|
||||
enddo elementLooping
|
||||
|
||||
100 if (iand(debug_level(debug_homogenization),debug_levelExtensive) /= 0_pInt) then
|
||||
if (iand(debug_level(debug_homogenization),debug_levelExtensive) /= 0_pInt) then
|
||||
do i = 1_pInt,maxNinstance
|
||||
write(6,'(a15,1x,i4)') 'instance: ', i
|
||||
write(6,*)
|
||||
|
|
|
|||
|
|
@ -68,8 +68,8 @@ subroutine homogenization_isostrain_init(myFile)
|
|||
integer(pInt), dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
||||
integer(pInt) section, i, j, output, mySize
|
||||
integer :: maxNinstance, k ! no pInt (stores a system dependen value from 'count'
|
||||
character(len=64) :: tag
|
||||
character(len=1024) :: line = '' ! to start initialized
|
||||
character(len=65536) :: tag
|
||||
character(len=65536) :: line = '' ! to start initialized
|
||||
|
||||
|
||||
write(6,*)
|
||||
|
|
@ -94,12 +94,12 @@ subroutine homogenization_isostrain_init(myFile)
|
|||
rewind(myFile)
|
||||
section = 0_pInt
|
||||
|
||||
do while (IO_lc(IO_getTag(line,'<','>')) /= material_partHomogenization) ! wind forward to <homogenization>
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
do while (trim(line) /= '#EOF#' .and. IO_lc(IO_getTag(line,'<','>')) /= material_partHomogenization) ! wind forward to <homogenization>
|
||||
line = IO_read(myFile)
|
||||
enddo
|
||||
|
||||
do ! read thru sections of phase part
|
||||
read(myFile,'(a1024)',END=100) line
|
||||
do while (trim(line) /= '#EOF#')
|
||||
line = IO_read(myFile)
|
||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||
if (IO_getTag(line,'<','>') /= '') exit ! stop at next part
|
||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
||||
|
|
@ -122,7 +122,7 @@ subroutine homogenization_isostrain_init(myFile)
|
|||
endif
|
||||
enddo
|
||||
|
||||
100 do k = 1,maxNinstance
|
||||
do k = 1,maxNinstance
|
||||
homogenization_isostrain_sizeState(i) = 0_pInt
|
||||
|
||||
do j = 1_pInt,maxval(homogenization_Noutput)
|
||||
|
|
|
|||
Loading…
Reference in New Issue