minor changes, substituting implicit type conversions with explicit ones
This commit is contained in:
parent
8671b8ed38
commit
d9522bf588
|
@ -646,8 +646,8 @@ subroutine CPFEM_general(mode, coords, ffn, ffn1, Temperature, dt, element, IP,
|
||||||
|
|
||||||
if (mode < 3 .and. debug_verbosity > 0 .and. ((debug_e == cp_en .and. debug_i == IP) .or. .not. debug_selectiveDebugger)) then
|
if (mode < 3 .and. debug_verbosity > 0 .and. ((debug_e == cp_en .and. debug_i == IP) .or. .not. debug_selectiveDebugger)) then
|
||||||
!$OMP CRITICAL (write2out)
|
!$OMP CRITICAL (write2out)
|
||||||
write(6,'(a,i8,1x,i2,/,12x,6(f10.3,1x)/)') '<< CPFEM >> stress/MPa at el ip ', cp_en, IP, cauchyStress/1e6
|
write(6,'(a,i8,1x,i2,/,12x,6(f10.3,1x)/)') '<< CPFEM >> stress/MPa at el ip ', cp_en, IP, cauchyStress/1.0e6_pReal
|
||||||
write(6,'(a,i8,1x,i2,/,6(12x,6(f10.3,1x)/))') '<< CPFEM >> jacobian/GPa at el ip ', cp_en, IP, transpose(jacobian)/1e9
|
write(6,'(a,i8,1x,i2,/,6(12x,6(f10.3,1x)/))') '<< CPFEM >> jacobian/GPa at el ip ', cp_en, IP, transpose(jacobian)/1.0e9_pReal
|
||||||
call flush(6)
|
call flush(6)
|
||||||
!$OMP END CRITICAL (write2out)
|
!$OMP END CRITICAL (write2out)
|
||||||
endif
|
endif
|
||||||
|
|
|
@ -52,14 +52,16 @@
|
||||||
use IO
|
use IO
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
integer(pInt), parameter :: fileunit = 222
|
integer(pInt), parameter :: fileunit = 222_pInt
|
||||||
integer(pInt), parameter :: maxNchunks = 6
|
integer(pInt), parameter :: maxNchunks = 6_pInt
|
||||||
integer(pInt):: i, start = 0_pInt, length=0_pInt
|
integer :: i, start = 0, length=0
|
||||||
|
integer(pInt) :: j
|
||||||
integer(pInt), dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
integer(pInt), dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
||||||
character(len=64) tag
|
character(len=64) tag
|
||||||
character(len=1024) line, commandLine
|
character(len=1024) line, commandLine
|
||||||
|
|
||||||
FEmodelGeometry = getModelName()
|
FEmodelGeometry = getModelName()
|
||||||
|
|
||||||
call IO_open_inputFile(fileunit,FEmodelGeometry)
|
call IO_open_inputFile(fileunit,FEmodelGeometry)
|
||||||
if (trim(FEsolver) == 'Spectral') then
|
if (trim(FEsolver) == 'Spectral') then
|
||||||
call get_command(commandLine) ! may contain uppercase
|
call get_command(commandLine) ! may contain uppercase
|
||||||
|
@ -71,7 +73,6 @@ integer(pInt), dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
||||||
start = index(commandLine,'-r ',.true.) + 3_pInt ! set to position after trailing space
|
start = index(commandLine,'-r ',.true.) + 3_pInt ! set to position after trailing space
|
||||||
if (index(commandLine,'--restart ',.true.)>0) & ! look for --restart
|
if (index(commandLine,'--restart ',.true.)>0) & ! look for --restart
|
||||||
start = index(commandLine,'--restart ',.true.) + 10_pInt ! set to position after trailing space
|
start = index(commandLine,'--restart ',.true.) + 10_pInt ! set to position after trailing space
|
||||||
|
|
||||||
if(start /= 0_pInt) then ! found something
|
if(start /= 0_pInt) then ! found something
|
||||||
length = verify(commandLine(start:len(commandLine)),'0123456789',.false.) ! where is first non number after argument?
|
length = verify(commandLine(start:len(commandLine)),'0123456789',.false.) ! where is first non number after argument?
|
||||||
read(commandLine(start:start+length),'(I12)') restartInc ! read argument
|
read(commandLine(start:start+length),'(I12)') restartInc ! read argument
|
||||||
|
@ -103,8 +104,8 @@ integer(pInt), dimension(1_pInt+2_pInt*maxNchunks) :: positions
|
||||||
restartRead = (IO_lc(IO_StringValue(line,positions,i)) == 'read') .or. restartRead
|
restartRead = (IO_lc(IO_StringValue(line,positions,i)) == 'read') .or. restartRead
|
||||||
enddo
|
enddo
|
||||||
if(restartWrite) then
|
if(restartWrite) then
|
||||||
do i=2,positions(1)
|
do j=2,positions(1)
|
||||||
restartWrite = (IO_lc(IO_StringValue(line,positions,i)) /= 'frequency=0') .and. restartWrite
|
restartWrite = (IO_lc(IO_StringValue(line,positions,j)) /= 'frequency=0') .and. restartWrite
|
||||||
enddo
|
enddo
|
||||||
endif
|
endif
|
||||||
end select
|
end select
|
||||||
|
|
|
@ -132,6 +132,7 @@ subroutine constitutive_dislotwin_init(file)
|
||||||
!**************************************
|
!**************************************
|
||||||
!* Module initialization *
|
!* Module initialization *
|
||||||
!**************************************
|
!**************************************
|
||||||
|
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
|
||||||
use prec, only: pInt,pReal
|
use prec, only: pInt,pReal
|
||||||
use math, only: math_Mandel3333to66,math_Voigt66to3333,math_mul3x3
|
use math, only: math_Mandel3333to66,math_Voigt66to3333,math_mul3x3
|
||||||
use mesh, only: mesh_maxNips, mesh_NcpElems
|
use mesh, only: mesh_maxNips, mesh_NcpElems
|
||||||
|
|
|
@ -202,6 +202,7 @@ subroutine constitutive_titanmod_init(file)
|
||||||
!**************************************
|
!**************************************
|
||||||
!* Module initialization *
|
!* Module initialization *
|
||||||
!**************************************
|
!**************************************
|
||||||
|
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
|
||||||
use prec, only: pInt,pReal
|
use prec, only: pInt,pReal
|
||||||
use math, only: math_Mandel3333to66,math_Voigt66to3333,math_mul3x3
|
use math, only: math_Mandel3333to66,math_Voigt66to3333,math_mul3x3
|
||||||
use IO
|
use IO
|
||||||
|
|
|
@ -87,8 +87,8 @@ subroutine debug_init()
|
||||||
!*** output variables ***!
|
!*** output variables ***!
|
||||||
|
|
||||||
!*** local variables ***!
|
!*** local variables ***!
|
||||||
integer(pInt), parameter :: fileunit = 300
|
integer(pInt), parameter :: fileunit = 300_pInt
|
||||||
integer(pInt), parameter :: maxNchunks = 2
|
integer(pInt), parameter :: maxNchunks = 2_pInt
|
||||||
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
||||||
character(len=64) tag
|
character(len=64) tag
|
||||||
character(len=1024) line
|
character(len=1024) line
|
||||||
|
@ -143,7 +143,7 @@ subroutine debug_init()
|
||||||
enddo
|
enddo
|
||||||
100 close(fileunit)
|
100 close(fileunit)
|
||||||
|
|
||||||
if (debug_verbosity > 0) then
|
if (debug_verbosity > 0_pInt) then
|
||||||
!$OMP CRITICAL (write2out)
|
!$OMP CRITICAL (write2out)
|
||||||
write(6,*) ' ... using values from config file'
|
write(6,*) ' ... using values from config file'
|
||||||
write(6,*)
|
write(6,*)
|
||||||
|
@ -153,7 +153,7 @@ subroutine debug_init()
|
||||||
! no config file, so we use standard values
|
! no config file, so we use standard values
|
||||||
else
|
else
|
||||||
|
|
||||||
if (debug_verbosity > 0) then
|
if (debug_verbosity > 0_pInt) then
|
||||||
!$OMP CRITICAL (write2out)
|
!$OMP CRITICAL (write2out)
|
||||||
write(6,*) ' ... using standard values'
|
write(6,*) ' ... using standard values'
|
||||||
write(6,*)
|
write(6,*)
|
||||||
|
@ -276,7 +276,7 @@ subroutine debug_info()
|
||||||
write(6,*)
|
write(6,*)
|
||||||
write(6,*)
|
write(6,*)
|
||||||
write(6,*) 'distribution_StressLoop : stress frogbreak stiffness frogbreak'
|
write(6,*) 'distribution_StressLoop : stress frogbreak stiffness frogbreak'
|
||||||
do i=1,nStress
|
do i=1_pInt,nStress
|
||||||
if (any(debug_StressLoopDistribution(i,:) /= 0_pInt ) .or. &
|
if (any(debug_StressLoopDistribution(i,:) /= 0_pInt ) .or. &
|
||||||
any(debug_LeapfrogBreakDistribution(i,:) /= 0_pInt ) ) then
|
any(debug_LeapfrogBreakDistribution(i,:) /= 0_pInt ) ) then
|
||||||
integral = integral + i*debug_StressLoopDistribution(i,1) + i*debug_StressLoopDistribution(i,2)
|
integral = integral + i*debug_StressLoopDistribution(i,1) + i*debug_StressLoopDistribution(i,2)
|
||||||
|
@ -291,7 +291,7 @@ subroutine debug_info()
|
||||||
integral = 0_pInt
|
integral = 0_pInt
|
||||||
write(6,*)
|
write(6,*)
|
||||||
write(6,*) 'distribution_CrystalliteStateLoop :'
|
write(6,*) 'distribution_CrystalliteStateLoop :'
|
||||||
do i=1,nState
|
do i=1_pInt,nState
|
||||||
if (any(debug_StateLoopDistribution(i,:) /= 0)) then
|
if (any(debug_StateLoopDistribution(i,:) /= 0)) then
|
||||||
integral = integral + i*debug_StateLoopDistribution(i,1) + i*debug_StateLoopDistribution(i,2)
|
integral = integral + i*debug_StateLoopDistribution(i,1) + i*debug_StateLoopDistribution(i,2)
|
||||||
write(6,'(i25,1x,i10,12x,i10)') i,debug_StateLoopDistribution(i,1),debug_StateLoopDistribution(i,2)
|
write(6,'(i25,1x,i10,12x,i10)') i,debug_StateLoopDistribution(i,1),debug_StateLoopDistribution(i,2)
|
||||||
|
@ -304,13 +304,13 @@ subroutine debug_info()
|
||||||
integral = 0_pInt
|
integral = 0_pInt
|
||||||
write(6,*)
|
write(6,*)
|
||||||
write(6,*) 'distribution_CrystalliteCutbackLoop :'
|
write(6,*) 'distribution_CrystalliteCutbackLoop :'
|
||||||
do i=1,nCryst+1
|
do i=1_pInt,nCryst+1_pInt
|
||||||
if (debug_CrystalliteLoopDistribution(i) /= 0) then
|
if (debug_CrystalliteLoopDistribution(i) /= 0) then
|
||||||
integral = integral + i*debug_CrystalliteLoopDistribution(i)
|
integral = integral + i*debug_CrystalliteLoopDistribution(i)
|
||||||
if (i <= nCryst) then
|
if (i <= nCryst) then
|
||||||
write(6,'(i25,1x,i10)') i,debug_CrystalliteLoopDistribution(i)
|
write(6,'(i25,1x,i10)') i,debug_CrystalliteLoopDistribution(i)
|
||||||
else
|
else
|
||||||
write(6,'(i25,a1,i10)') i-1,'+',debug_CrystalliteLoopDistribution(i)
|
write(6,'(i25,a1,i10)') i-1_pInt,'+',debug_CrystalliteLoopDistribution(i)
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
@ -325,7 +325,7 @@ subroutine debug_info()
|
||||||
integral = 0_pInt
|
integral = 0_pInt
|
||||||
write(6,*)
|
write(6,*)
|
||||||
write(6,*) 'distribution_MaterialpointStateLoop :'
|
write(6,*) 'distribution_MaterialpointStateLoop :'
|
||||||
do i=1,nMPstate
|
do i=1_pInt,nMPstate
|
||||||
if (debug_MaterialpointStateLoopDistribution(i) /= 0) then
|
if (debug_MaterialpointStateLoopDistribution(i) /= 0) then
|
||||||
integral = integral + i*debug_MaterialpointStateLoopDistribution(i)
|
integral = integral + i*debug_MaterialpointStateLoopDistribution(i)
|
||||||
write(6,'(i25,1x,i10)') i,debug_MaterialpointStateLoopDistribution(i)
|
write(6,'(i25,1x,i10)') i,debug_MaterialpointStateLoopDistribution(i)
|
||||||
|
@ -336,13 +336,13 @@ subroutine debug_info()
|
||||||
integral = 0_pInt
|
integral = 0_pInt
|
||||||
write(6,*)
|
write(6,*)
|
||||||
write(6,*) 'distribution_MaterialpointCutbackLoop :'
|
write(6,*) 'distribution_MaterialpointCutbackLoop :'
|
||||||
do i=1,nHomog+1
|
do i=1_pInt,nHomog+1_pInt
|
||||||
if (debug_MaterialpointLoopDistribution(i) /= 0) then
|
if (debug_MaterialpointLoopDistribution(i) /= 0) then
|
||||||
integral = integral + i*debug_MaterialpointLoopDistribution(i)
|
integral = integral + i*debug_MaterialpointLoopDistribution(i)
|
||||||
if (i <= nHomog) then
|
if (i <= nHomog) then
|
||||||
write(6,'(i25,1x,i10)') i,debug_MaterialpointLoopDistribution(i)
|
write(6,'(i25,1x,i10)') i,debug_MaterialpointLoopDistribution(i)
|
||||||
else
|
else
|
||||||
write(6,'(i25,a1,i10)') i-1,'+',debug_MaterialpointLoopDistribution(i)
|
write(6,'(i25,a1,i10)') i-1_pInt,'+',debug_MaterialpointLoopDistribution(i)
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
|
@ -2,42 +2,42 @@
|
||||||
|
|
||||||
integer, parameter :: C_FFTW_R2R_KIND = C_INT32_T
|
integer, parameter :: C_FFTW_R2R_KIND = C_INT32_T
|
||||||
|
|
||||||
integer(C_INT), parameter :: FFTW_R2HC = 0
|
integer(C_INT), parameter :: FFTW_R2HC = 0_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_HC2R = 1
|
integer(C_INT), parameter :: FFTW_HC2R = 1_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_DHT = 2
|
integer(C_INT), parameter :: FFTW_DHT = 2_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_REDFT00 = 3
|
integer(C_INT), parameter :: FFTW_REDFT00 = 3_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_REDFT01 = 4
|
integer(C_INT), parameter :: FFTW_REDFT01 = 4_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_REDFT10 = 5
|
integer(C_INT), parameter :: FFTW_REDFT10 = 5_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_REDFT11 = 6
|
integer(C_INT), parameter :: FFTW_REDFT11 = 6_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_RODFT00 = 7
|
integer(C_INT), parameter :: FFTW_RODFT00 = 7_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_RODFT01 = 8
|
integer(C_INT), parameter :: FFTW_RODFT01 = 8_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_RODFT10 = 9
|
integer(C_INT), parameter :: FFTW_RODFT10 = 9_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_RODFT11 = 10
|
integer(C_INT), parameter :: FFTW_RODFT11 = 10_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_FORWARD = -1
|
integer(C_INT), parameter :: FFTW_FORWARD = -1_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_BACKWARD = +1
|
integer(C_INT), parameter :: FFTW_BACKWARD = +1_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_MEASURE = 0
|
integer(C_INT), parameter :: FFTW_MEASURE = 0_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_DESTROY_INPUT = 1
|
integer(C_INT), parameter :: FFTW_DESTROY_INPUT = 1_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_UNALIGNED = 2
|
integer(C_INT), parameter :: FFTW_UNALIGNED = 2_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_CONSERVE_MEMORY = 4
|
integer(C_INT), parameter :: FFTW_CONSERVE_MEMORY = 4_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_EXHAUSTIVE = 8
|
integer(C_INT), parameter :: FFTW_EXHAUSTIVE = 8_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_PRESERVE_INPUT = 16
|
integer(C_INT), parameter :: FFTW_PRESERVE_INPUT = 16_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_PATIENT = 32
|
integer(C_INT), parameter :: FFTW_PATIENT = 32_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_ESTIMATE = 64
|
integer(C_INT), parameter :: FFTW_ESTIMATE = 64_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_ESTIMATE_PATIENT = 128
|
integer(C_INT), parameter :: FFTW_ESTIMATE_PATIENT = 128_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_BELIEVE_PCOST = 256
|
integer(C_INT), parameter :: FFTW_BELIEVE_PCOST = 256_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_DFT_R2HC = 512
|
integer(C_INT), parameter :: FFTW_NO_DFT_R2HC = 512_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_NONTHREADED = 1024
|
integer(C_INT), parameter :: FFTW_NO_NONTHREADED = 1024_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_BUFFERING = 2048
|
integer(C_INT), parameter :: FFTW_NO_BUFFERING = 2048_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_INDIRECT_OP = 4096
|
integer(C_INT), parameter :: FFTW_NO_INDIRECT_OP = 4096_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_ALLOW_LARGE_GENERIC = 8192
|
integer(C_INT), parameter :: FFTW_ALLOW_LARGE_GENERIC = 8192_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_RANK_SPLITS = 16384
|
integer(C_INT), parameter :: FFTW_NO_RANK_SPLITS = 16384_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_VRANK_SPLITS = 32768
|
integer(C_INT), parameter :: FFTW_NO_VRANK_SPLITS = 32768_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_VRECURSE = 65536
|
integer(C_INT), parameter :: FFTW_NO_VRECURSE = 65536_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_SIMD = 131072
|
integer(C_INT), parameter :: FFTW_NO_SIMD = 131072_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_SLOW = 262144
|
integer(C_INT), parameter :: FFTW_NO_SLOW = 262144_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_NO_FIXED_RADIX_LARGE_N = 524288
|
integer(C_INT), parameter :: FFTW_NO_FIXED_RADIX_LARGE_N = 524288_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_ALLOW_PRUNING = 1048576
|
integer(C_INT), parameter :: FFTW_ALLOW_PRUNING = 1048576_C_INT
|
||||||
integer(C_INT), parameter :: FFTW_WISDOM_ONLY = 2097152
|
integer(C_INT), parameter :: FFTW_WISDOM_ONLY = 2097152_C_INT
|
||||||
|
|
||||||
type, bind(C) :: fftw_iodim
|
type, bind(C) :: fftw_iodim
|
||||||
integer(C_INT) n, is, os
|
integer(C_INT) n, is, os
|
||||||
|
|
Loading…
Reference in New Issue