explicit import

for some reasons, ifort does not resolve the specific subroutine for the
writeDataset interace otherwise
This commit is contained in:
Martin Diehl 2019-04-06 08:01:10 +00:00
parent 6553fe815e
commit ab5a29b559
6 changed files with 12 additions and 6 deletions

View File

@ -561,7 +561,8 @@ end function plastic_disloUCLA_postResults
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine plastic_disloUCLA_results(instance,group) subroutine plastic_disloUCLA_results(instance,group)
#if defined(PETSc) || defined(DAMASK_HDF5) #if defined(PETSc) || defined(DAMASK_HDF5)
use results use results, only: &
results_writeDataset
implicit none implicit none
integer, intent(in) :: instance integer, intent(in) :: instance

View File

@ -1064,7 +1064,8 @@ end function plastic_dislotwin_postResults
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine plastic_dislotwin_results(instance,group) subroutine plastic_dislotwin_results(instance,group)
#if defined(PETSc) || defined(DAMASK_HDF5) #if defined(PETSc) || defined(DAMASK_HDF5)
use results use results, only: &
results_writeDataset
implicit none implicit none
integer, intent(in) :: instance integer, intent(in) :: instance

View File

@ -485,7 +485,8 @@ end function plastic_isotropic_postResults
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine plastic_isotropic_results(instance,group) subroutine plastic_isotropic_results(instance,group)
#if defined(PETSc) || defined(DAMASK_HDF5) #if defined(PETSc) || defined(DAMASK_HDF5)
use results use results, only: &
results_writeDataset
implicit none implicit none
integer, intent(in) :: instance integer, intent(in) :: instance

View File

@ -552,7 +552,8 @@ end function plastic_kinehardening_postResults
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine plastic_kinehardening_results(instance,group) subroutine plastic_kinehardening_results(instance,group)
#if defined(PETSc) || defined(DAMASK_HDF5) #if defined(PETSc) || defined(DAMASK_HDF5)
use results use results, only: &
results_writeDataset
implicit none implicit none
integer, intent(in) :: instance integer, intent(in) :: instance

View File

@ -2403,7 +2403,8 @@ end function getRho
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine plastic_nonlocal_results(instance,group) subroutine plastic_nonlocal_results(instance,group)
#if defined(PETSc) || defined(DAMASK_HDF5) #if defined(PETSc) || defined(DAMASK_HDF5)
use results use results, only: &
results_writeDataset
implicit none implicit none
integer, intent(in) :: instance integer, intent(in) :: instance

View File

@ -564,7 +564,8 @@ end function plastic_phenopowerlaw_postResults
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine plastic_phenopowerlaw_results(instance,group) subroutine plastic_phenopowerlaw_results(instance,group)
#if defined(PETSc) || defined(DAMASK_HDF5) #if defined(PETSc) || defined(DAMASK_HDF5)
use results use results, only: &
results_writeDataset
implicit none implicit none
integer, intent(in) :: instance integer, intent(in) :: instance