请问大侠们：umat子程序可以用fortran90写吗？

laisongbai

网上有人说是可以的，只要编译器能编译，还有就是要进行一个什么链接设置，请高手指点一下具体怎么设置。万分感激！

UCLA

77和90都可以吧

dwang

看你的版本，版本高的可以，印象中6.7以上的都可以。主要根据你安装的fotran编译器，6.7以上就配的是fortran9.0了。

laisongbai

我装的是6.10，编译器装的是VC++ 2008和IVF11.1，直接可以用fortran90写子程序吗？需要另外设置一下以让ABAQUS能识别f90格式的子程序吗？好像ABAQUS默认的只识别for格式的子程序，帮助文件好像也只有for格式的子程序，请高手指点啊。 3# dwang

ahoux

C:\SIMULIA\Abaqus\6.10-1\site\abaqus_v6

修改
compile_fortran=['ifort', '/c', '/Gm', '/recursive', '/nologo', '/heap-arrays:1', '/include:%I']
为
compile_fortran=['ifort','-free', '/c', '/Gm', '/recursive', '/nologo', '/heap-arrays:1', '/include:%I']
自由格式

laisongbai

谢谢aboux，我试试 5# ahoux

laisongbai

在ABAQUS环境文件中
compile_fortran=['ifort', '/c', '/Gm', '/recursive', '/nologo', '/heap-arrays:1', '/include:%I']中
添加'-free'后原来的for格式的子程序就会出现编译错误，而且也还不识别f90的子程序啊。
有的人说是添加'f90-c-free',加了之后for格式的子程序编译没问题了，但仍不识别f90子程序。
是不是还要修改环境文件中的link_sl 啊?
请高手指点啊，万分感激！

laisongbai

要沉了，求救啊！！

ahoux

我把整个subroutine都按照f90改了（自由格式）
subroutine vumat(&
nblock, ndir, nshr, nstatev, nfieldv, nprops, lanneal, stepTime, totalTime, dt, cmname, &
coordMp, charLength, props, density, strainInc, relSpinInc, &
tempOld, stretchOld, defgradOld, fieldOld, stressOld, stateOld, enerInternOld, enerInelasOld, &
tempNew, stretchNew, defgradNew, fieldNew, stressNew, stateNew, enerInternNew, enerInelasNew )
implicit none
integer,parameter::precision = 4   !精度
integer i
!只读
character(len=80)::cmname
integer::nblock,ndir,nshr,nstatev,nfieldv, nprops,lanneal
real(kind=precision)::stepTime ,totalTime ,dt
real(kind=precision)::props(nprops) ,density(nblock) ,strainInc(nblock,ndir+nshr)  ,relSpinInc(nblock,nshr) ,coordMp(nblock,2) ,charLength(nblock)
real(kind=precision)::tempOld(nblock) ,stretchOld(nblock,ndir+nshr) ,defgradOld(nblock,ndir+nshr+nshr) ,fieldOld(nblock,nfieldv)
real(kind=precision)::tempNew(nblock) ,stretchNew(nblock,ndir+nshr) ,defgradNew(nblock,ndir+nshr+nshr) ,fieldNew(nblock,nfieldv)
real(kind=precision)::stressOld(nblock,ndir+nshr) ,stateOld(nblock,nstatev), enerInternOld(nblock) ,enerInelasOld(nblock)
!只写
real(kind=precision)::stressNew(nblock,ndir+nshr) ,stateNew(nblock,nstatev) ,enerInternNew(nblock) ,enerInelasNew(nblock)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
do  i = 1,nblock
end do
return
end

laisongbai

楼上的在ABAQUS里运行成功了吗？需要别的设置吗？ 9# ahoux

华仔2010

关注中！！！希望有人能来解答一下

870813752

5楼的方法行得通。

王雨森

五楼的方法是不是应该改-free为free啊！！！望指正啊

ynn201314

5#的办法，我没行通呀！

wufan3924

ynn201314 发表于 2015-6-2 18:01
5#的办法，我没行通呀！

abaqus_v6.env文件中，compile_fortran的参数加一个'/free'。

如下：

1. compile_fortran=['ifort',
   
2.                  '/c','/DABQ_WIN86_64', '/extend-source',
   
3.                  '/iface:cref', '/recursive', '/Qauto-scalar',
   
4.                  '/QxSSE3', '/QaxAVX',
   
5.                  '/heap-arrays:1',
   
6.                   '/Od', '/Ob0',   # <-- Optimization
   
7.                   #'/Zi',          # <-- Debugging
   
8.                  '/include:%I',
   
9.                  '/free'
   
10.                  ]

复制代码

ZXY140910abc

先占个位置，之后再来看

dengxiaoling

关注中,啦啦啦啦啦啦