b6481c2513
matmul is ok for openmp, check in the web and run the state integration test. Example program testing for new state update for rkck dot state: program test real, dimension(6,10) :: dotState=reshape(& [1,1,1,1,1,1,1,1,1,1,& 2,2,2,2,2,2,2,2,2,2,& 3,3,3,3,3,3,3,3,3,3,& 4,4,4,4,4,4,4,4,4,4,& 5,5,5,5,5,5,5,5,5,5,& 6,6,6,6,6,6,6,6,6,6],[6,10]) real, dimension(10) :: residuum real, dimension(6) :: B=2.5 integer :: i residuum = B(1)*dotState(1,:)+& B(2)*dotState(2,:)+& B(3)*dotState(3,:)+& B(4)*dotState(4,:)+& B(5)*dotState(5,:)+& B(6)*dotState(6,:) do i =1,10 print*,residuum(i) enddo residuum = matmul(transpose(dotState),B) do i =1,10 print*,residuum(i) enddo end program test |
||
---|---|---|
.. | ||
config | ||
CPFEM.f90 | ||
DAMASK_abaqus_exp.f | ||
DAMASK_abaqus_std.f | ||
DAMASK_marc.f90 | ||
DAMASK_run.py | ||
DAMASK_spectral_driver.f90 | ||
DAMASK_spectral_interface.f90 | ||
DAMASK_spectral_solverAL.f90 | ||
DAMASK_spectral_solverBasicPETSc.f90 | ||
DAMASK_spectral_solverPolarisation.f90 | ||
DAMASK_spectral_utilities.f90 | ||
FEsolving.f90 | ||
IO.f90 | ||
Makefile | ||
commercialFEM_fileList.f90 | ||
compilation_info.f90 | ||
constitutive.f90 | ||
core_quit.f90 | ||
crystallite.f90 | ||
damage_anisoBrittle.f90 | ||
damage_anisoDuctile.f90 | ||
damage_gurson.f90 | ||
damage_isoBrittle.f90 | ||
damage_isoDuctile.f90 | ||
damage_none.f90 | ||
damage_phaseField.f90 | ||
damask.core.pyf | ||
debug.f90 | ||
homogenization.f90 | ||
homogenization_RGC.f90 | ||
homogenization_isostrain.f90 | ||
homogenization_none.f90 | ||
lattice.f90 | ||
libs.f90 | ||
material.f90 | ||
math.f90 | ||
mesh.f90 | ||
numerics.f90 | ||
plastic_disloKMC.f90 | ||
plastic_disloUCLA.f90 | ||
plastic_dislotwin.f90 | ||
plastic_j2.f90 | ||
plastic_none.f90 | ||
plastic_nonlocal.f90 | ||
plastic_phenopowerlaw.f90 | ||
plastic_titanmod.f90 | ||
prec.f90 | ||
thermal_adiabatic.f90 | ||
thermal_isothermal.f90 | ||
vacancy_constant.f90 | ||
vacancy_generation.f90 |