From 7e7893297669d31cf596dbdc2e9100c0b6235e65 Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Tue, 8 Jun 2010 09:35:13 +0000
Subject: [PATCH] renamed "mpie_cpfem_init" subroutine within mpie_interface
 module to more general name "mpie_interface_init"

---
 code/CPFEM.f90               | 2 +-
 code/mpie_cpfem_abaqus_exp.f | 6 +++---
 code/mpie_cpfem_abaqus_std.f | 6 +++---
 code/mpie_cpfem_marc.f90     | 6 +++---
 4 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/code/CPFEM.f90 b/code/CPFEM.f90
index e3431dbe5..915d7a776 100644
--- a/code/CPFEM.f90
+++ b/code/CPFEM.f90
@@ -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 homogenization_init(Temperature)
 			call CPFEM_init()
-			call mpie_cpfem_init()
+			call mpie_interface_init()
 			CPFEM_init_done = .true.
 			CPFEM_init_inProgress = .false.
 	  else                                                                ! loser, loser...
diff --git a/code/mpie_cpfem_abaqus_exp.f b/code/mpie_cpfem_abaqus_exp.f
index 24fa5e3f9..209b4de6c 100644
--- a/code/mpie_cpfem_abaqus_exp.f
+++ b/code/mpie_cpfem_abaqus_exp.f
@@ -24,7 +24,7 @@ character(len=4),  parameter :: InputFileExtension = '.inp'
 
 CONTAINS
 
-subroutine mpie_cpfem_init
+subroutine mpie_interface_init()
   write(6,*)
   write(6,*) '<<<+-  mpie_cpfem_abaqus init  -+>>>'
   write(6,*) '$Id$'
@@ -32,7 +32,7 @@ subroutine mpie_cpfem_init
  return
 end subroutine
 
-function getSolverWorkingDirectoryName
+function getSolverWorkingDirectoryName()
  use prec
  implicit none
  character(1024) getSolverWorkingDirectoryName
@@ -43,7 +43,7 @@ function getSolverWorkingDirectoryName
 ! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName
 end function
 
-function getSolverJobName
+function getSolverJobName()
  use prec
  implicit none
 
diff --git a/code/mpie_cpfem_abaqus_std.f b/code/mpie_cpfem_abaqus_std.f
index 762e2465a..e7d543927 100644
--- a/code/mpie_cpfem_abaqus_std.f
+++ b/code/mpie_cpfem_abaqus_std.f
@@ -24,7 +24,7 @@ character(len=4),  parameter :: InputFileExtension = '.inp'
 
 CONTAINS
 
-subroutine mpie_cpfem_init
+subroutine mpie_interface_init()
   write(6,*)
   write(6,*) '<<<+-  mpie_cpfem_abaqus init  -+>>>'
   write(6,*) '$Id$'
@@ -32,7 +32,7 @@ subroutine mpie_cpfem_init
  return
 end subroutine
 
-function getSolverWorkingDirectoryName
+function getSolverWorkingDirectoryName()
  use prec
  implicit none
  character(1024) getSolverWorkingDirectoryName
@@ -43,7 +43,7 @@ function getSolverWorkingDirectoryName
 ! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName
 end function
 
-function getSolverJobName
+function getSolverJobName()
  use prec
  implicit none
 
diff --git a/code/mpie_cpfem_marc.f90 b/code/mpie_cpfem_marc.f90
index 980e166c0..197f30884 100644
--- a/code/mpie_cpfem_marc.f90
+++ b/code/mpie_cpfem_marc.f90
@@ -46,7 +46,7 @@ character(len=4),  parameter :: InputFileExtension = '.dat'
 
 CONTAINS
 
-subroutine mpie_cpfem_init
+subroutine mpie_interface_init()
  write(6,*)
  write(6,*) '<<<+-  mpie_cpfem_marc init  -+>>>'
  write(6,*) '$Id$'
@@ -54,7 +54,7 @@ subroutine mpie_cpfem_init
  return
 end subroutine
 
-function getSolverWorkingDirectoryName
+function getSolverWorkingDirectoryName()
  implicit none
  character(1024) getSolverWorkingDirectoryName, outName
  character(len=*), parameter :: pathSep = achar(47)//achar(92) ! /, \
@@ -66,7 +66,7 @@ function getSolverWorkingDirectoryName
 ! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName
 end function
 
-function getSolverJobName
+function getSolverJobName()
  use prec
  implicit none