223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

removed unused stuff

This commit is contained in:
Martin Diehl 2019-01-31 11:39:28 +01:00
parent beb0ca01eb
commit 615b166992
4 changed files with 0 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/CPFEM2.f90
View File

@ -95,8 +95,6 @@ subroutine CPFEM_init
use prec, only: & use prec, only: &
pInt, pReal, pLongInt pInt, pReal, pLongInt
use IO, only: & use IO, only: &
IO_read_realFile,&
IO_read_intFile, &
IO_timeStamp, & IO_timeStamp, &
IO_error IO_error
use numerics, only: & use numerics, only: &

31
src/IO.f90
View File

@ -30,7 +30,6 @@ module IO
IO_open_jobFile, & IO_open_jobFile, &
IO_write_jobFile, & IO_write_jobFile, &
IO_write_jobRealFile, & IO_write_jobRealFile, &
IO_write_jobIntFile, &
IO_read_realFile, & IO_read_realFile, &
IO_read_intFile, & IO_read_intFile, &
IO_isBlank, & IO_isBlank, &
@ -515,36 +514,6 @@ subroutine IO_write_jobRealFile(fileUnit,ext,recMultiplier)
end subroutine IO_write_jobRealFile end subroutine IO_write_jobRealFile
!--------------------------------------------------------------------------------------------------
!> @brief opens binary file containing array of pInt numbers to given unit for writing. File is
!! named after solver job name plus given extension and located in current working directory
!--------------------------------------------------------------------------------------------------
subroutine IO_write_jobIntFile(fileUnit,ext,recMultiplier)
use DAMASK_interface, only: &
getSolverJobName
implicit none
integer(pInt), intent(in) :: fileUnit !< file unit
character(len=*), intent(in) :: ext !< extension of file
integer(pInt), intent(in), optional :: recMultiplier !< record length (multiple of pReal Numbers, if not given set to one)
integer(pInt) :: myStat
character(len=1024) :: path
path = trim(getSolverJobName())//'.'//ext
if (present(recMultiplier)) then
open(fileUnit,status='replace',form='unformatted',access='direct', &
recl=pInt*recMultiplier,iostat=myStat,file=path)
else
open(fileUnit,status='replace',form='unformatted',access='direct', &
recl=pInt,iostat=myStat,file=path)
endif
if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path)
end subroutine IO_write_jobIntFile
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief opens binary file containing array of pReal numbers to given unit for reading. File is !> @brief opens binary file containing array of pReal numbers to given unit for reading. File is
!! located in current working directory !! located in current working directory

1
src/constitutive.f90
View File

@ -56,7 +56,6 @@ subroutine constitutive_init()
IO_checkAndRewind, & IO_checkAndRewind, &
IO_open_jobFile_stat, & IO_open_jobFile_stat, &
IO_write_jobFile, & IO_write_jobFile, &
IO_write_jobIntFile, &
IO_timeStamp IO_timeStamp
use config, only: & use config, only: &
config_phase config_phase

4
src/mesh_marc.f90
View File

@ -515,9 +515,6 @@ subroutine mesh_init(ip,el)
if (myDebug) write(6,'(a)') ' Counted CP sizes'; flush(6) if (myDebug) write(6,'(a)') ' Counted CP sizes'; flush(6)
call mesh_marc_build_elements(FILEUNIT) call mesh_marc_build_elements(FILEUNIT)
if (myDebug) write(6,'(a)') ' Built elements'; flush(6) if (myDebug) write(6,'(a)') ' Built elements'; flush(6)
call mesh_get_damaskOptions(FILEUNIT) call mesh_get_damaskOptions(FILEUNIT)
if (myDebug) write(6,'(a)') ' Got DAMASK options'; flush(6) if (myDebug) write(6,'(a)') ' Got DAMASK options'; flush(6)
call mesh_build_cellconnectivity call mesh_build_cellconnectivity
@ -532,7 +529,6 @@ subroutine mesh_init(ip,el)
if (myDebug) write(6,'(a)') ' Built IP areas'; flush(6) if (myDebug) write(6,'(a)') ' Built IP areas'; flush(6)
close (FILEUNIT) close (FILEUNIT)
call mesh_build_nodeTwins call mesh_build_nodeTwins
if (myDebug) write(6,'(a)') ' Built node twins'; flush(6) if (myDebug) write(6,'(a)') ' Built node twins'; flush(6)
call mesh_build_sharedElems call mesh_build_sharedElems