DAMASK_abaqus.f文件解读

! Copyright 2011-19 Max-Planck-Institut für Eisenforschung GmbH
! 
! DAMASK is free software: you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
! 
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
! 
! You should have received a copy of the GNU General Public License
! along with this program. If not, see <http://www.gnu.org/licenses/>.
!--------------------------------------------------------------------------------------------------
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Koen Janssens, Paul Scherrer Institut
!> @author Arun Prakash, Fraunhofer IWM
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief interfaces DAMASK with Abaqus/Standard
!> @details put the included file abaqus_v6.env in either your home or model directory, 
!> it is a minimum Abaqus environment file  containing all changes necessary to use the 
!> DAMASK subroutine (see Abaqus documentation for more information on the use of abaqus_v6.env)
!> @details  Abaqus subroutines used:
!> @details   - UMAT
!> @details   - DFLUX
!--------------------------------------------------------------------------------------------------
#define Abaqus

#include "prec.f90"

module DAMASK_interface

 implicit none
 private
 character(len=4), dimension(2),  parameter, public :: INPUTFILEEXTENSION = ['.pes','.inp']
 character(len=4),                parameter, public :: LOGFILEEXTENSION   =  '.log'
 
 public :: &
  DAMASK_interface_init, &
  getSolverJobName

contains

!--------------------------------------------------------------------------------------------------
!> @brief reports and sets working directory
!--------------------------------------------------------------------------------------------------
subroutine DAMASK_interface_init
#if __INTEL_COMPILER >= 1800
 use, intrinsic :: iso_fortran_env, only: &
   compiler_version, &
   compiler_options
#endif
 use ifport, only: &
   CHDIR
 
 implicit none
 integer, dimension(8) :: &
   dateAndTime
 integer :: lenOutDir,ierr
 character(len=256) :: wd

 write(6,'(/,a)') ' <<<+-  DAMASK_abaqus init -+>>>'

 write(6,'(/,a)') ' Roters et al., Computational Materials Science 158:420–478, 2019'
 write(6,'(a)')   ' https://doi.org/10.1016/j.commatsci.2018.04.030'

 write(6,'(/,a)') ' Version: '//DAMASKVERSION

! https://github.com/jeffhammond/HPCInfo/blob/master/docs/Preprocessor-Macros.md
#if __INTEL_COMPILER >= 1800
 write(6,'(/,a)') ' Compiled with: '//compiler_version()
 write(6,'(a)')   ' Compiler options: '//compiler_options()
#else
 write(6,'(/,a,i4.4,a,i8.8)') ' Compiled with Intel fortran version :', __INTEL_COMPILER,&
                                                      ', build date :', __INTEL_COMPILER_BUILD_DATE
#endif

 write(6,'(/,a)') ' Compiled on: '//__DATE__//' at '//__TIME__

 call date_and_time(values = dateAndTime)
 write(6,'(/,a,2(i2.2,a),i4.4)') ' Date: ',dateAndTime(3),'/',dateAndTime(2),'/', dateAndTime(1)
 write(6,'(a,2(i2.2,a),i2.2)')   ' Time: ',dateAndTime(5),':', dateAndTime(6),':', dateAndTime(7)

 call getoutdir(wd, lenOutDir)
 ierr = CHDIR(wd)
 if (ierr /= 0) then
   write(6,'(a20,a,a16)') ' working directory "',trim(wd),'" does not exist'
   call quit(1)
 endif

end subroutine DAMASK_interface_init


!--------------------------------------------------------------------------------------------------
!> @brief using Abaqus/Standard function to get solver job name
!-------------------------------------------------------------------------------------------------
免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删