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

renamed "mpie_cpfem_init" subroutine within mpie_interface module to more general name "mpie_interface_init"

This commit is contained in:
Philip Eisenlohr 2010-06-08 09:35:13 +00:00
parent 71c6179ee5
commit 7e78932976
4 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/CPFEM.f90
View File

@ -202,7 +202,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
call crystallite_init(Temperature) ! (have to) use temperature of first IP for whole model call crystallite_init(Temperature) ! (have to) use temperature of first IP for whole model
call homogenization_init(Temperature) call homogenization_init(Temperature)
call CPFEM_init() call CPFEM_init()
call mpie_cpfem_init() call mpie_interface_init()
CPFEM_init_done = .true. CPFEM_init_done = .true.
CPFEM_init_inProgress = .false. CPFEM_init_inProgress = .false.
else ! loser, loser... else ! loser, loser...

6
code/mpie_cpfem_abaqus_exp.f
View File

@ -24,7 +24,7 @@ character(len=4), parameter :: InputFileExtension = '.inp'
CONTAINS CONTAINS
subroutine mpie_cpfem_init subroutine mpie_interface_init()
write(6,*) write(6,*)
write(6,*) '<<<+- mpie_cpfem_abaqus init -+>>>' write(6,*) '<<<+- mpie_cpfem_abaqus init -+>>>'
write(6,*) '$Id$' write(6,*) '$Id$'
@ -32,7 +32,7 @@ subroutine mpie_cpfem_init
return return
end subroutine end subroutine
function getSolverWorkingDirectoryName function getSolverWorkingDirectoryName()
use prec use prec
implicit none implicit none
character(1024) getSolverWorkingDirectoryName character(1024) getSolverWorkingDirectoryName
@ -43,7 +43,7 @@ function getSolverWorkingDirectoryName
! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName ! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName
end function end function
function getSolverJobName function getSolverJobName()
use prec use prec
implicit none implicit none

6
code/mpie_cpfem_abaqus_std.f
View File

@ -24,7 +24,7 @@ character(len=4), parameter :: InputFileExtension = '.inp'
CONTAINS CONTAINS
subroutine mpie_cpfem_init subroutine mpie_interface_init()
write(6,*) write(6,*)
write(6,*) '<<<+- mpie_cpfem_abaqus init -+>>>' write(6,*) '<<<+- mpie_cpfem_abaqus init -+>>>'
write(6,*) '$Id$' write(6,*) '$Id$'
@ -32,7 +32,7 @@ subroutine mpie_cpfem_init
return return
end subroutine end subroutine
function getSolverWorkingDirectoryName function getSolverWorkingDirectoryName()
use prec use prec
implicit none implicit none
character(1024) getSolverWorkingDirectoryName character(1024) getSolverWorkingDirectoryName
@ -43,7 +43,7 @@ function getSolverWorkingDirectoryName
! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName ! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName
end function end function
function getSolverJobName function getSolverJobName()
use prec use prec
implicit none implicit none

6
code/mpie_cpfem_marc.f90
View File

@ -46,7 +46,7 @@ character(len=4), parameter :: InputFileExtension = '.dat'
CONTAINS CONTAINS
subroutine mpie_cpfem_init subroutine mpie_interface_init()
write(6,*) write(6,*)
write(6,*) '<<<+- mpie_cpfem_marc init -+>>>' write(6,*) '<<<+- mpie_cpfem_marc init -+>>>'
write(6,*) '$Id$' write(6,*) '$Id$'
@ -54,7 +54,7 @@ subroutine mpie_cpfem_init
return return
end subroutine end subroutine
function getSolverWorkingDirectoryName function getSolverWorkingDirectoryName()
implicit none implicit none
character(1024) getSolverWorkingDirectoryName, outName character(1024) getSolverWorkingDirectoryName, outName
character(len=*), parameter :: pathSep = achar(47)//achar(92) ! /, \ character(len=*), parameter :: pathSep = achar(47)//achar(92) ! /, \
@ -66,7 +66,7 @@ function getSolverWorkingDirectoryName
! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName ! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName
end function end function
function getSolverJobName function getSolverJobName()
use prec use prec
implicit none implicit none