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

one implicit none is enough

This commit is contained in:
Martin Diehl 2019-05-31 20:17:21 +02:00
parent dbfaf66472
commit 95d93ce58c
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mesh_grid.f90
View File

@ -13,6 +13,7 @@ module mesh
implicit none implicit none
private private
integer, public, protected :: & integer, public, protected :: &
mesh_Nnodes mesh_Nnodes
@ -99,7 +100,6 @@ contains
subroutine tMesh_grid_init(self,nodes) subroutine tMesh_grid_init(self,nodes)
implicit none
class(tMesh_grid) :: self class(tMesh_grid) :: self
real(pReal), dimension(:,:), intent(in) :: nodes real(pReal), dimension(:,:), intent(in) :: nodes
@ -131,7 +131,6 @@ subroutine mesh_init(ip,el)
FEsolving_execElem, & FEsolving_execElem, &
FEsolving_execIP FEsolving_execIP
implicit none
include 'fftw3-mpi.f03' include 'fftw3-mpi.f03'
integer(C_INTPTR_T) :: devNull, local_K, local_K_offset integer(C_INTPTR_T) :: devNull, local_K, local_K_offset
integer :: ierr, worldsize, j integer :: ierr, worldsize, j
@ -230,7 +229,6 @@ subroutine mesh_spectral_read_grid()
use DAMASK_interface, only: & use DAMASK_interface, only: &
geometryFile geometryFile
implicit none
character(len=:), allocatable :: rawData character(len=:), allocatable :: rawData
character(len=65536) :: line character(len=65536) :: line
integer, allocatable, dimension(:) :: chunkPos integer, allocatable, dimension(:) :: chunkPos
@ -449,7 +447,6 @@ end subroutine mesh_spectral_build_elements
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine mesh_spectral_build_ipNeighborhood subroutine mesh_spectral_build_ipNeighborhood
implicit none
integer :: & integer :: &
x,y,z, & x,y,z, &
e e