some corrections regarding Multicore-support on mpie_spectral.f90 and makefile

slight changes on mpie_spectral.f90 regarding file output
This commit is contained in:
Martin Diehl 2011-01-12 17:02:42 +00:00
parent a662a28a97
commit b546d3bb91
2 changed files with 33 additions and 30 deletions

View File

@ -9,21 +9,21 @@
cpspectral.out: mpie_spectral.o CPFEM.a cpspectral.out: mpie_spectral.o CPFEM.a
ifort -openmp -o cpspectral.out mpie_spectral.o CPFEM.a libfftw3_threads.a libfftw3.a constitutive.a advanced.a basics.a -lpthread ifort -openmp -o cpspectral.out mpie_spectral.o CPFEM.a libfftw3_threads.a libfftw3.a constitutive.a advanced.a basics.a -lpthread
mpie_spectral.o: mpie_spectral.f90 CPFEM.o mpie_spectral.o: mpie_spectral.f90 CPFEM.o
ifort -openmp -c -O3 -heap-arrays 500000000 mpie_spectral.f90 ifort -openmp -c -fast -heap-arrays 500000000 mpie_spectral.f90
CPFEM.a: CPFEM.o CPFEM.a: CPFEM.o
ar rc CPFEM.a homogenization.o homogenization_RGC.o homogenization_isostrain.o crystallite.o CPFEM.o constitutive.o ar rc CPFEM.a homogenization.o homogenization_RGC.o homogenization_isostrain.o crystallite.o CPFEM.o constitutive.o
CPFEM.o: CPFEM.f90 homogenization.o CPFEM.o: CPFEM.f90 homogenization.o
ifort -openmp -c -O3 -heap-arrays 500000000 CPFEM.f90 ifort -openmp -c -fast -heap-arrays 500000000 CPFEM.f90
homogenization.o: homogenization.f90 homogenization_isostrain.o homogenization_RGC.o crystallite.o homogenization.o: homogenization.f90 homogenization_isostrain.o homogenization_RGC.o crystallite.o
ifort -openmp -c -O3 -heap-arrays 500000000 homogenization.f90 ifort -openmp -c -fast -heap-arrays 500000000 homogenization.f90
homogenization_RGC.o: homogenization_RGC.f90 constitutive.a homogenization_RGC.o: homogenization_RGC.f90 constitutive.a
ifort -openmp -c -O3 -heap-arrays 500000000 homogenization_RGC.f90 ifort -openmp -c -fast -heap-arrays 500000000 homogenization_RGC.f90
homogenization_isostrain.o: homogenization_isostrain.f90 basics.a advanced.a homogenization_isostrain.o: homogenization_isostrain.f90 basics.a advanced.a
ifort -openmp -c -O3 -heap-arrays 500000000 homogenization_isostrain.f90 ifort -openmp -c -fast -heap-arrays 500000000 homogenization_isostrain.f90
crystallite.o: crystallite.f90 constitutive.a crystallite.o: crystallite.f90 constitutive.a
ifort -openmp -c -O3 -heap-arrays 500000000 crystallite.f90 ifort -openmp -c -fast -heap-arrays 500000000 crystallite.f90
@ -31,22 +31,22 @@ constitutive.a: constitutive.o
ar rc constitutive.a constitutive.o constitutive_titanmod.o constitutive_nonlocal.o constitutive_dislotwin.o constitutive_j2.o constitutive_phenopowerlaw.o basics.a advanced.a ar rc constitutive.a constitutive.o constitutive_titanmod.o constitutive_nonlocal.o constitutive_dislotwin.o constitutive_j2.o constitutive_phenopowerlaw.o basics.a advanced.a
constitutive.o: constitutive.f90 constitutive_titanmod.o constitutive_nonlocal.o constitutive_dislotwin.o constitutive_j2.o constitutive_phenopowerlaw.o constitutive.o: constitutive.f90 constitutive_titanmod.o constitutive_nonlocal.o constitutive_dislotwin.o constitutive_j2.o constitutive_phenopowerlaw.o
ifort -openmp -c -O3 -heap-arrays 500000000 constitutive.f90 ifort -openmp -c -fast -heap-arrays 500000000 constitutive.f90
constitutive_titanmod.o: constitutive_titanmod.f90 basics.a advanced.a constitutive_titanmod.o: constitutive_titanmod.f90 basics.a advanced.a
ifort -openmp -c -O3 -heap-arrays 500000000 constitutive_titanmod.f90 ifort -openmp -c -fast -heap-arrays 500000000 constitutive_titanmod.f90
constitutive_nonlocal.o: constitutive_nonlocal.f90 basics.a advanced.a constitutive_nonlocal.o: constitutive_nonlocal.f90 basics.a advanced.a
ifort -openmp -c -O3 -heap-arrays 500000000 constitutive_nonlocal.f90 ifort -openmp -c -fast -heap-arrays 500000000 constitutive_nonlocal.f90
constitutive_dislotwin.o: constitutive_dislotwin.f90 basics.a advanced.a constitutive_dislotwin.o: constitutive_dislotwin.f90 basics.a advanced.a
ifort -openmp -c -O3 -heap-arrays 500000000 constitutive_dislotwin.f90 ifort -openmp -c -fast -heap-arrays 500000000 constitutive_dislotwin.f90
constitutive_j2.o: constitutive_j2.f90 basics.a advanced.a constitutive_j2.o: constitutive_j2.f90 basics.a advanced.a
ifort -openmp -c -O3 -heap-arrays 500000000 constitutive_j2.f90 ifort -openmp -c -fast -heap-arrays 500000000 constitutive_j2.f90
constitutive_phenopowerlaw.o: constitutive_phenopowerlaw.f90 basics.a advanced.a constitutive_phenopowerlaw.o: constitutive_phenopowerlaw.f90 basics.a advanced.a
ifort -openmp -c -O3 -heap-arrays 500000000 constitutive_phenopowerlaw.f90 ifort -openmp -c -fast -heap-arrays 500000000 constitutive_phenopowerlaw.f90
@ -54,13 +54,13 @@ advanced.a: lattice.o
ar rc advanced.a FEsolving.o mesh.o material.o lattice.o ar rc advanced.a FEsolving.o mesh.o material.o lattice.o
lattice.o: lattice.f90 material.o lattice.o: lattice.f90 material.o
ifort -openmp -c -O3 -heap-arrays 500000000 lattice.f90 ifort -openmp -c -fast -heap-arrays 500000000 lattice.f90
material.o: material.f90 mesh.o material.o: material.f90 mesh.o
ifort -openmp -c -O3 -heap-arrays 500000000 material.f90 ifort -openmp -c -fast -heap-arrays 500000000 material.f90
mesh.o: mesh.f90 FEsolving.o mesh.o: mesh.f90 FEsolving.o
ifort -openmp -c -O3 -heap-arrays 500000000 mesh.f90 ifort -openmp -c -fast -heap-arrays 500000000 mesh.f90
FEsolving.o: FEsolving.f90 basics.a FEsolving.o: FEsolving.f90 basics.a
ifort -openmp -c -O3 -heap-arrays 500000000 FEsolving.f90 ifort -openmp -c -fast -heap-arrays 500000000 FEsolving.f90
@ -68,16 +68,16 @@ basics.a: debug.o math.o
ar rc basics.a debug.o math.o numerics.o IO.o mpie_spectral_interface.o prec.o ar rc basics.a debug.o math.o numerics.o IO.o mpie_spectral_interface.o prec.o
debug.o: debug.f90 numerics.o debug.o: debug.f90 numerics.o
ifort -openmp -c -O3 debug.f90 ifort -openmp -c -fast debug.f90
math.o: math.f90 numerics.o math.o: math.f90 numerics.o
ifort -openmp -c -O3 math.f90 ifort -openmp -c -fast math.f90
numerics.o: numerics.f90 IO.o numerics.o: numerics.f90 IO.o
ifort -openmp -c -O3 numerics.f90 ifort -openmp -c -fast numerics.f90
IO.o: IO.f90 mpie_spectral_interface.o IO.o: IO.f90 mpie_spectral_interface.o
ifort -openmp -c -O3 IO.f90 ifort -openmp -c -fast IO.f90
mpie_spectral_interface.o: mpie_spectral_interface.f90 prec.o mpie_spectral_interface.o: mpie_spectral_interface.f90 prec.o
ifort -openmp -c -O3 mpie_spectral_interface.f90 ifort -openmp -c -fast mpie_spectral_interface.f90
prec.o: prec.f90 prec.o: prec.f90
ifort -openmp -c -O3 prec.f90 ifort -openmp -c -fast prec.f90

View File

@ -95,8 +95,9 @@ program mpie_spectral
integer(pInt) loadcase, ielem, iter, calcmode, CPFEM_mode integer(pInt) loadcase, ielem, iter, calcmode, CPFEM_mode
real(pReal) temperature ! not used, but needed for call to CPFEM_general real(pReal) temperature ! not used, but needed for call to CPFEM_general
!$ call omp_set_num_threads(4) ! set number of threads for parallel execution set by MPIE_NUM_THREADS
!Initializing !Initializing
!$ call omp_set_num_threads(mpieNumThreadsInt) ! set number of threads for parallel execution set by MPIE_NUM_THREADS
bc_maskvector = '' bc_maskvector = ''
unit = 234_pInt unit = 234_pInt
@ -321,15 +322,17 @@ program mpie_spectral
enddo; enddo; enddo enddo; enddo; enddo
! write header of output file ! write header of output file
open(538,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//'.out',form='UNFORMATTED') open(538,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//'.spectralOut',form='UNFORMATTED')
write(538), 'Loadcase',trim(getLoadcaseName()) write(538), 'load',trim(getLoadcaseName())
write(538), 'Workingdir',trim(getSolverWorkingDirectoryName()) write(538), 'workingdir',trim(getSolverWorkingDirectoryName())
write(538), 'JobName',trim(getSolverJobName())//InputFileExtension write(538), 'geometry',trim(getSolverJobName())//InputFileExtension
write(538), 'resolution','a', resolution(1),'b', resolution(2),'c', resolution(3) write(538), 'resolution',resolution
write(538), 'geomdimension','x', geomdimension(1),'y', geomdimension(2),'z', geomdimension(3) write(538), 'dimension',geomdimension
write(538), 'materialpoint_sizeResults', materialpoint_sizeResults write(538), 'materialpoint_sizeResults', materialpoint_sizeResults
write(538), 'totalincs', sum(bc_steps) write(538), 'increments', sum(bc_steps)
write(538), 'eoh'
write(538) materialpoint_results(:,1,:) write(538) materialpoint_results(:,1,:)
write(538) materialpoint_results(:,1,:) !to be conform with t16 Marc format
! Initialization done ! Initialization done
!************************************************************* !*************************************************************