From ab5a29b559e7cabe308c61ed56331b836f99c48b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 6 Apr 2019 08:01:10 +0000 Subject: [PATCH] explicit import for some reasons, ifort does not resolve the specific subroutine for the writeDataset interace otherwise --- src/plastic_disloUCLA.f90 | 3 ++- src/plastic_dislotwin.f90 | 3 ++- src/plastic_isotropic.f90 | 3 ++- src/plastic_kinematichardening.f90 | 3 ++- src/plastic_nonlocal.f90 | 3 ++- src/plastic_phenopowerlaw.f90 | 3 ++- 6 files changed, 12 insertions(+), 6 deletions(-) diff --git a/src/plastic_disloUCLA.f90 b/src/plastic_disloUCLA.f90 index 8add0c025..19df4bdce 100644 --- a/src/plastic_disloUCLA.f90 +++ b/src/plastic_disloUCLA.f90 @@ -561,7 +561,8 @@ end function plastic_disloUCLA_postResults !-------------------------------------------------------------------------------------------------- subroutine plastic_disloUCLA_results(instance,group) #if defined(PETSc) || defined(DAMASK_HDF5) - use results + use results, only: & + results_writeDataset implicit none integer, intent(in) :: instance diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90 index 3a3013304..8e52b3f41 100644 --- a/src/plastic_dislotwin.f90 +++ b/src/plastic_dislotwin.f90 @@ -1064,7 +1064,8 @@ end function plastic_dislotwin_postResults !-------------------------------------------------------------------------------------------------- subroutine plastic_dislotwin_results(instance,group) #if defined(PETSc) || defined(DAMASK_HDF5) - use results + use results, only: & + results_writeDataset implicit none integer, intent(in) :: instance diff --git a/src/plastic_isotropic.f90 b/src/plastic_isotropic.f90 index 5134f866c..facfa6d80 100644 --- a/src/plastic_isotropic.f90 +++ b/src/plastic_isotropic.f90 @@ -485,7 +485,8 @@ end function plastic_isotropic_postResults !-------------------------------------------------------------------------------------------------- subroutine plastic_isotropic_results(instance,group) #if defined(PETSc) || defined(DAMASK_HDF5) - use results + use results, only: & + results_writeDataset implicit none integer, intent(in) :: instance diff --git a/src/plastic_kinematichardening.f90 b/src/plastic_kinematichardening.f90 index 77b8c9c6e..04927c85b 100644 --- a/src/plastic_kinematichardening.f90 +++ b/src/plastic_kinematichardening.f90 @@ -552,7 +552,8 @@ end function plastic_kinehardening_postResults !-------------------------------------------------------------------------------------------------- subroutine plastic_kinehardening_results(instance,group) #if defined(PETSc) || defined(DAMASK_HDF5) - use results + use results, only: & + results_writeDataset implicit none integer, intent(in) :: instance diff --git a/src/plastic_nonlocal.f90 b/src/plastic_nonlocal.f90 index 662d7e973..a9ef98b06 100644 --- a/src/plastic_nonlocal.f90 +++ b/src/plastic_nonlocal.f90 @@ -2403,7 +2403,8 @@ end function getRho !-------------------------------------------------------------------------------------------------- subroutine plastic_nonlocal_results(instance,group) #if defined(PETSc) || defined(DAMASK_HDF5) - use results + use results, only: & + results_writeDataset implicit none integer, intent(in) :: instance diff --git a/src/plastic_phenopowerlaw.f90 b/src/plastic_phenopowerlaw.f90 index 39e884dae..272c4d631 100644 --- a/src/plastic_phenopowerlaw.f90 +++ b/src/plastic_phenopowerlaw.f90 @@ -564,7 +564,8 @@ end function plastic_phenopowerlaw_postResults !-------------------------------------------------------------------------------------------------- subroutine plastic_phenopowerlaw_results(instance,group) #if defined(PETSc) || defined(DAMASK_HDF5) - use results + use results, only: & + results_writeDataset implicit none integer, intent(in) :: instance