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

old name (for PETSc < 3.15)

This commit is contained in:
Martin Diehl 2021-07-09 14:50:29 +02:00
parent 3870a70a4e
commit 637f78bd52
12 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/grid/DAMASK_grid.f90
View File

@ -9,7 +9,7 @@
program DAMASK_grid program DAMASK_grid
#include <petsc/finclude/petscsys.h> #include <petsc/finclude/petscsys.h>
use PETScSys use PETScSys
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif

2
src/grid/discretization_grid.f90
View File

@ -7,7 +7,7 @@
module discretization_grid module discretization_grid
#include <petsc/finclude/petscsys.h> #include <petsc/finclude/petscsys.h>
use PETScSys use PETScSys
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif

2
src/grid/grid_damage_spectral.f90
View File

@ -9,7 +9,7 @@ module grid_damage_spectral
#include <petsc/finclude/petscdmda.h> #include <petsc/finclude/petscdmda.h>
use PETScDMDA use PETScDMDA
use PETScSNES use PETScSNES
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif

2
src/grid/grid_mech_FEM.f90
View File

@ -9,7 +9,7 @@ module grid_mechanical_FEM
#include <petsc/finclude/petscdmda.h> #include <petsc/finclude/petscdmda.h>
use PETScDMDA use PETScDMDA
use PETScSNES use PETScSNES
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif

4
src/grid/grid_mech_spectral_basic.f90
View File

@ -9,7 +9,7 @@ module grid_mechanical_spectral_basic
#include <petsc/finclude/petscdmda.h> #include <petsc/finclude/petscdmda.h>
use PETScDMDA use PETScDMDA
use PETScSNES use PETScSNES
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif
@ -102,7 +102,7 @@ subroutine grid_mechanical_spectral_basic_init
F ! pointer to solution data F ! pointer to solution data
PetscInt, dimension(0:worldsize-1) :: localK PetscInt, dimension(0:worldsize-1) :: localK
integer(HID_T) :: fileHandle, groupHandle integer(HID_T) :: fileHandle, groupHandle
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
type(MPI_File) :: fileUnit type(MPI_File) :: fileUnit
#else #else
integer :: fileUnit integer :: fileUnit

4
src/grid/grid_mech_spectral_polarisation.f90
View File

@ -9,7 +9,7 @@ module grid_mechanical_spectral_polarisation
#include <petsc/finclude/petscdmda.h> #include <petsc/finclude/petscdmda.h>
use PETScDMDA use PETScDMDA
use PETScSNES use PETScSNES
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif
@ -115,7 +115,7 @@ subroutine grid_mechanical_spectral_polarisation_init
F_tau ! specific (sub)pointer F_tau ! specific (sub)pointer
PetscInt, dimension(0:worldsize-1) :: localK PetscInt, dimension(0:worldsize-1) :: localK
integer(HID_T) :: fileHandle, groupHandle integer(HID_T) :: fileHandle, groupHandle
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
type(MPI_File) :: fileUnit type(MPI_File) :: fileUnit
#else #else
integer :: fileUnit integer :: fileUnit

2
src/grid/grid_thermal_spectral.f90
View File

@ -9,7 +9,7 @@ module grid_thermal_spectral
#include <petsc/finclude/petscdmda.h> #include <petsc/finclude/petscdmda.h>
use PETScDMDA use PETScDMDA
use PETScSNES use PETScSNES
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif

6
src/grid/spectral_utilities.f90
View File

@ -8,7 +8,7 @@ module spectral_utilities
#include <petsc/finclude/petscsys.h> #include <petsc/finclude/petscsys.h>
use PETScSys use PETScSys
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif
@ -985,7 +985,7 @@ subroutine utilities_updateCoords(F)
rank_t, rank_b, & rank_t, rank_b, &
c, & c, &
ierr ierr
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
type(MPI_Request), dimension(4) :: request type(MPI_Request), dimension(4) :: request
type(MPI_Status), dimension(4) :: status type(MPI_Status), dimension(4) :: status
#else #else
@ -1050,7 +1050,7 @@ subroutine utilities_updateCoords(F)
call MPI_Waitall(4,request,status,ierr) call MPI_Waitall(4,request,status,ierr)
if(ierr /=0) error stop 'MPI error' if(ierr /=0) error stop 'MPI error'
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
! ToDo ! ToDo
#else #else
if(any(status(MPI_ERROR,:) /= 0)) error stop 'MPI error' if(any(status(MPI_ERROR,:) /= 0)) error stop 'MPI error'

2
src/mesh/FEM_utilities.f90
View File

@ -10,7 +10,7 @@ module FEM_utilities
use PETScDMplex use PETScDMplex
use PETScDMDA use PETScDMDA
use PETScIS use PETScIS
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif

2
src/mesh/discretization_mesh.f90
View File

@ -11,7 +11,7 @@ module discretization_mesh
use PETScDMplex use PETScDMplex
use PETScDMDA use PETScDMDA
use PETScIS use PETScIS
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif

2
src/mesh/mesh_mech_FEM.f90
View File

@ -13,7 +13,7 @@ module mesh_mechanical_FEM
use PETScDM use PETScDM
use PETScDMplex use PETScDMplex
use PETScDT use PETScDT
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif

2
src/parallelization.f90
View File

@ -9,7 +9,7 @@ module parallelization
#ifdef PETSC #ifdef PETSC
#include <petsc/finclude/petscsys.h> #include <petsc/finclude/petscsys.h>
use PETScSys use PETScSys
#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY #if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE)
use MPI_f08 use MPI_f08
#endif #endif
!$ use OMP_LIB !$ use OMP_LIB