removed some small bugs in IO.f90 (related to initialization of variables)
DAMASK_spectral.f90 adopted to new debug scheme, substituted print with write statements
This commit is contained in:
parent
3f1c16e079
commit
ac5dd14c5f
File diff suppressed because it is too large
Load Diff
|
@ -70,41 +70,41 @@ subroutine DAMASK_interface_init
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
if(index(commandLine,' -h ',.true.) > 0 .or. index(commandLine,' --help ',.true.) > 0) then ! search for ' -h ' or '--help'
|
if(index(commandLine,' -h ',.true.) > 0 .or. index(commandLine,' --help ',.true.) > 0) then ! search for ' -h ' or '--help'
|
||||||
write(6,*) '$Id$'
|
write(6,'(a)') '$Id$'
|
||||||
#include "compilation_info.f90"
|
#include "compilation_info.f90"
|
||||||
print '(a)', '#############################################################'
|
write(6,'(a)') '#############################################################'
|
||||||
print '(a)', 'DAMASK spectral:'
|
write(6,'(a)') 'DAMASK spectral:'
|
||||||
print '(a)', 'The spectral method boundary value problem solver for'
|
write(6,'(a)') 'The spectral method boundary value problem solver for'
|
||||||
print '(a)', 'the Duesseldorf Advanced Material Simulation Kit'
|
write(6,'(a)') 'the Duesseldorf Advanced Material Simulation Kit'
|
||||||
print '(a)', '#############################################################'
|
write(6,'(a)') '#############################################################'
|
||||||
print '(a)', 'Valid command line switches:'
|
write(6,'(a)') 'Valid command line switches:'
|
||||||
print '(a)', ' --geom (-g, --geometry)'
|
write(6,'(a)') ' --geom (-g, --geometry)'
|
||||||
print '(a)', ' --load (-l, --loadcase)'
|
write(6,'(a)') ' --load (-l, --loadcase)'
|
||||||
print '(a)', ' --restart (-r)'
|
write(6,'(a)') ' --restart (-r)'
|
||||||
print '(a)', ' --help (-h)'
|
write(6,'(a)') ' --help (-h)'
|
||||||
print '(a)', ' '
|
write(6,'(a)') ' '
|
||||||
print '(a)', 'Mandatory Arguments:'
|
write(6,'(a)') 'Mandatory Arguments:'
|
||||||
print '(a)', ' --load PathToLoadFile/NameOfLoadFile.load'
|
write(6,'(a)') ' --load PathToLoadFile/NameOfLoadFile.load'
|
||||||
print '(a)', ' "PathToGeomFile" will be the working directory.'
|
write(6,'(a)') ' "PathToGeomFile" will be the working directory.'
|
||||||
print '(a)', ' Make sure the file "material.config" exists in the working'
|
write(6,'(a)') ' Make sure the file "material.config" exists in the working'
|
||||||
print '(a)', ' directory'
|
write(6,'(a)') ' directory'
|
||||||
print '(a)', ' For further configuration place "numerics.config"'
|
write(6,'(a)') ' For further configuration place "numerics.config"'
|
||||||
print '(a)', ' and "numerics.config" in that directory.'
|
write(6,'(a)') ' and "numerics.config" in that directory.'
|
||||||
print '(a)', ' '
|
write(6,'(a)') ' '
|
||||||
print '(a)', ' --geom PathToGeomFile/NameOfGeom.geom'
|
write(6,'(a)') ' --geom PathToGeomFile/NameOfGeom.geom'
|
||||||
print '(a)', ' '
|
write(6,'(a)') ' '
|
||||||
print '(a)', 'Optional Argument:'
|
write(6,'(a)') 'Optional Argument:'
|
||||||
print '(a)', ' --restart XX'
|
write(6,'(a)') ' --restart XX'
|
||||||
print '(a)', ' Reads in total increment No. XX-1 and continous to'
|
write(6,'(a)') ' Reads in total increment No. XX-1 and continous to'
|
||||||
print '(a)', ' calculate total increment No. XX.'
|
write(6,'(a)') ' calculate total increment No. XX.'
|
||||||
print '(a)', ' Attention: Overwrites existing results file '
|
write(6,'(a)') ' Attention: Overwrites existing results file '
|
||||||
print '(a)', ' "NameOfGeom_NameOfLoadFile_spectralOut".'
|
write(6,'(a)') ' "NameOfGeom_NameOfLoadFile_spectralOut".'
|
||||||
print '(a)', ' Works only if the restart information for total increment'
|
write(6,'(a)') ' Works only if the restart information for total increment'
|
||||||
print '(a)', ' No. XX-1 is available in the working directory.'
|
write(6,'(a)') ' No. XX-1 is available in the working directory.'
|
||||||
print '(a)', 'Help:'
|
write(6,'(a)') 'Help:'
|
||||||
print '(a)', ' --help'
|
write(6,'(a)') ' --help'
|
||||||
print '(a)', ' Prints this message and exits'
|
write(6,'(a)') ' Prints this message and exits'
|
||||||
print '(a)', ' '
|
write(6,'(a)') ' '
|
||||||
call quit(0_pInt)
|
call quit(0_pInt)
|
||||||
endif
|
endif
|
||||||
if (.not.(command_argument_count()==4 .or. command_argument_count()==6)) & ! check for correct number of given arguments (no --help)
|
if (.not.(command_argument_count()==4 .or. command_argument_count()==6)) & ! check for correct number of given arguments (no --help)
|
||||||
|
@ -117,7 +117,7 @@ subroutine DAMASK_interface_init
|
||||||
start = index(commandLine,'--geometry',.true.) + 11
|
start = index(commandLine,'--geometry',.true.) + 11
|
||||||
endif
|
endif
|
||||||
if(start==3_pInt) then ! Could not find valid keyword (position 0 +3). Functions from IO.f90 are not available
|
if(start==3_pInt) then ! Could not find valid keyword (position 0 +3). Functions from IO.f90 are not available
|
||||||
print '(a)', 'No Geometry specified'
|
write(6,'(a)') 'No Geometry specified'
|
||||||
call quit(9999)
|
call quit(9999)
|
||||||
endif
|
endif
|
||||||
length = index(commandLine(start:len(commandLine)),' ',.false.)
|
length = index(commandLine(start:len(commandLine)),' ',.false.)
|
||||||
|
@ -139,7 +139,7 @@ subroutine DAMASK_interface_init
|
||||||
start = index(commandLine,'--loadcase',.true.) + 11
|
start = index(commandLine,'--loadcase',.true.) + 11
|
||||||
endif
|
endif
|
||||||
if(start==3_pInt) then ! Could not find valid keyword (position 0 +3). Functions from IO.f90 are not available
|
if(start==3_pInt) then ! Could not find valid keyword (position 0 +3). Functions from IO.f90 are not available
|
||||||
print '(a)', 'No Loadcase specified'
|
write(6,'(a)') 'No Loadcase specified'
|
||||||
call quit(9999)
|
call quit(9999)
|
||||||
endif
|
endif
|
||||||
length = index(commandLine(start:len(commandLine)),' ',.false.)
|
length = index(commandLine(start:len(commandLine)),' ',.false.)
|
||||||
|
|
11
code/IO.f90
11
code/IO.f90
|
@ -548,6 +548,7 @@ integer(pInt) function IO_countSections(myFile,part)
|
||||||
|
|
||||||
character(len=1024) :: line
|
character(len=1024) :: line
|
||||||
|
|
||||||
|
line = ''
|
||||||
IO_countSections = 0_pInt
|
IO_countSections = 0_pInt
|
||||||
rewind(myFile)
|
rewind(myFile)
|
||||||
|
|
||||||
|
@ -586,11 +587,11 @@ function IO_countTagInPart(myFile,part,myTag,Nsections)
|
||||||
integer(pInt) :: section
|
integer(pInt) :: section
|
||||||
character(len=1024) :: line, &
|
character(len=1024) :: line, &
|
||||||
tag
|
tag
|
||||||
|
line = ''
|
||||||
rewind(myFile)
|
|
||||||
counter = 0_pInt
|
counter = 0_pInt
|
||||||
section = 0_pInt
|
section = 0_pInt
|
||||||
|
|
||||||
|
rewind(myFile)
|
||||||
do while (IO_getTag(line,'<','>') /= part) ! search for part
|
do while (IO_getTag(line,'<','>') /= part) ! search for part
|
||||||
read(myFile,'(a1024)',END=100) line
|
read(myFile,'(a1024)',END=100) line
|
||||||
enddo
|
enddo
|
||||||
|
@ -636,8 +637,9 @@ function IO_spotTagInPart(myFile,part,myTag,Nsections)
|
||||||
|
|
||||||
IO_spotTagInPart = .false. ! assume to nowhere spot tag
|
IO_spotTagInPart = .false. ! assume to nowhere spot tag
|
||||||
section = 0_pInt
|
section = 0_pInt
|
||||||
rewind(myFile)
|
line =''
|
||||||
|
|
||||||
|
rewind(myFile)
|
||||||
do while (IO_getTag(line,'<','>') /= part) ! search for part
|
do while (IO_getTag(line,'<','>') /= part) ! search for part
|
||||||
read(myFile,'(a1024)',END=100) line
|
read(myFile,'(a1024)',END=100) line
|
||||||
enddo
|
enddo
|
||||||
|
@ -947,6 +949,7 @@ integer(pInt) function IO_countDataLines(myUnit)
|
||||||
tmp
|
tmp
|
||||||
|
|
||||||
IO_countDataLines = 0_pInt
|
IO_countDataLines = 0_pInt
|
||||||
|
|
||||||
do
|
do
|
||||||
read(myUnit,'(A300)',end=100) line
|
read(myUnit,'(A300)',end=100) line
|
||||||
myPos = IO_stringPos(line,maxNchunks)
|
myPos = IO_stringPos(line,maxNchunks)
|
||||||
|
|
Loading…
Reference in New Issue