abaqus运行fortran子程序配置

ABAQUS2020+vs2019+parallel_studio_xe_2020

电脑本身就有ABAQUS2020与vs2019,只是多安装了parallel_studio_xe_2020。主要是关联过程:

准备好ifortvars.bat的地址1

G:\IntelSWTools\compilers_and_libraries_2020.1.216\windows\bin\ifortvars.bat

准备好vcvars64.bat的地址2

"C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\VC\Auxiliary\Build\vcvars64.bat"

将这两个地址(去掉.bat文件那一层)以及与第一个地址相邻的:

G:\IntelSWTools\compilers_and_libraries_2020.1.216\windows\bin\intel64

添加到环境变量Path

我还在Path里有以下地址:
C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\VC\Tools\MSVC\14.28.29333\bin\Hostx86\x86\cl.exe
C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\VC\Tools\MSVC\14.28.29333\bin\Hostx86\x86
G:\IntelSWTools\compilers_and_libraries_2020.1.216\windows\compiler\lib\intel64_win
C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\VC\Auxiliary\Build

将地址1、2 复制到launcher.bat

call "C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\VC\Auxiliary\Build\vcvars64.bat"
call "G:\IntelSWTools\compilers_and_libraries_2020.1.216\windows\bin\ifortvars.bat" intel64 vs2019
@echo off
call "C:\SIMULIA\Commands\abq2020.bat" %*

F:\CAE\win_b64\resources\install\cae
打开abaqus command, 看能不能运行子程序

abaqus verify -user_std

之后在跑子程序的时候直接CMD到相应文件夹运行

abaqus job=jobname user=code.f

odb文件双击即可

要粗暴停止

abaqus job=jobname terminate
  • 7
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是一个简单的ABAQUS磨损子程序FORTRAN代码示例: ``` SUBROUTINE SLIDEWEAR(WTIME, COORDS, VEL, SAREA, TANGF, DTANF, NORMAL, DP, SLIP, CRIT, PARM, VAR1, VAR2, VAR3, VAR4, VAR5, VAR6, VAR7, VAR8, VAR9, VAR10, SLIDEFORCE, HEATGEN) IMPLICIT NONE INTEGER, INTENT(IN) :: WTIME REAL*8, DIMENSION(:,:), INTENT(IN) :: COORDS REAL*8, DIMENSION(:,:), INTENT(IN) :: VEL REAL*8, DIMENSION(:), INTENT(IN) :: SAREA REAL*8, DIMENSION(:), INTENT(IN) :: TANGF REAL*8, DIMENSION(:), INTENT(IN) :: DTANF REAL*8, DIMENSION(:), INTENT(IN) :: NORMAL REAL*8, DIMENSION(:), INTENT(IN) :: DP REAL*8, DIMENSION(:), INTENT(IN) :: SLIP REAL*8, INTENT(IN) :: CRIT REAL*8, DIMENSION(:), INTENT(IN) :: PARM REAL*8, INTENT(OUT) :: VAR1 REAL*8, INTENT(OUT) :: VAR2 REAL*8, INTENT(OUT) :: VAR3 REAL*8, INTENT(OUT) :: VAR4 REAL*8, INTENT(OUT) :: VAR5 REAL*8, INTENT(OUT) :: VAR6 REAL*8, INTENT(OUT) :: VAR7 REAL*8, INTENT(OUT) :: VAR8 REAL*8, INTENT(OUT) :: VAR9 REAL*8, INTENT(OUT) :: VAR10 REAL*8, INTENT(OUT) :: SLIDEFORCE REAL*8, INTENT(OUT) :: HEATGEN ! Local variables REAL*8 :: MU, NORMALVEL, DELTAVEL, DELTASLIP, NORMALFORCE, TANGFORCE, TANGVEL, & SHEARSTRESS, SLIDEFORCEOLD, NORMALFORCEOLD, SLOPE, DHEATGEN ! Set initial values VAR1 = 0.0D0 VAR2 = 0.0D0 VAR3 = 0.0D0 VAR4 = 0.0D0 VAR5 = 0.0D0 VAR6 = 0.0D0 VAR7 = 0.0D0 VAR8 = 0.0D0 VAR9 = 0.0D0 VAR10 = 0.0D0 ! Compute friction coefficient MU = PARM(1) ! Compute normal velocity and force NORMALVEL = DOT_PRODUCT(VEL,WTIME,NORMAL) NORMALFORCE = SAREA*DP ! Compute tangential force and velocity TANGFORCE = TANGF TANGVEL = VEL - NORMALVEL*NORMAL ! Compute shear stress SHEARSTRESS = DOT_PRODUCT(TANGFORCE,TANGVEL) ! Compute sliding friction force SLOPE = DTANF IF (ABS(TANGVEL) .LT. CRIT) THEN SLIDEFORCE = -MU*NORMALFORCE ELSE SLIDEFORCEOLD = SLIDEFORCE DELTAVEL = TANGVEL - SLOPE*SLIDEFORCEOLD DELTASLIP = DELTAVEL/(SLOPE + MU) SLIDEFORCE = SLIDEFORCEOLD + DELTASLIP END IF ! Compute heat generation NORMALFORCEOLD = SAREA*DP DHEATGEN = ABS(SLIDEFORCE - SLIDEFORCEOLD)*SHEARSTRESS*PARM(2) HEATGEN = DHEATGEN + NORMALFORCEOLD*NORMALVEL*PARM(3) RETURN END SUBROUTINE SLIDEWEAR ``` 这只是一个简单的示例代码,具体实现可能需要根据你的特定要求进行调整。此外,还需要将此代码编译为ABAQUS可执行的格式,并将其添加到ABAQUS输入文件。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值