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

type mismatch for MSC.Marc

This commit is contained in:
Martin Diehl 2018-09-14 12:20:37 +02:00
parent 9c5ca0e542
commit a3750738c0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/plastic_dislotwin.f90
View File

@ -1433,11 +1433,11 @@ subroutine kinetics_slip(prm,stt,mse,of,S,temperature,gdot_slip,dgdot_dtau_slip)
of of
type(tDislotwinMicrostructure) :: & type(tDislotwinMicrostructure) :: &
mse mse
real, dimension(prm%totalNslip), intent(out) :: & real(pReal), dimension(prm%totalNslip), intent(out) :: &
gdot_slip gdot_slip
real, dimension(prm%totalNslip), optional, intent(out) :: & real(pReal), dimension(prm%totalNslip), optional, intent(out) :: &
dgdot_dtau_slip dgdot_dtau_slip
real, dimension(prm%totalNslip) :: & real(pReal), dimension(prm%totalNslip) :: &
dgdot_dtau dgdot_dtau
real(pReal), dimension(3,3), intent(in) :: & real(pReal), dimension(3,3), intent(in) :: &
S S
@ -1493,11 +1493,11 @@ subroutine kinetics_twin(prm,stt,mse,of,S,temperature,gdot_slip,gdot_twin,dgdot_
of of
type(tDislotwinMicrostructure) :: & type(tDislotwinMicrostructure) :: &
mse mse
real, dimension(prm%totalNslip), intent(out) :: & real(pReal), dimension(prm%totalNslip), intent(out) :: &
gdot_slip gdot_slip
real, dimension(prm%totalNtwin), intent(out) :: & real(pReal), dimension(prm%totalNtwin), intent(out) :: &
gdot_twin gdot_twin
real, dimension(prm%totalNtwin), optional, intent(out) :: & real(pReal), dimension(prm%totalNtwin), optional, intent(out) :: &
dgdot_dtau_twin dgdot_dtau_twin
real(pReal), dimension(3,3), intent(in) :: & real(pReal), dimension(3,3), intent(in) :: &
S S