| 查看: 1111 | 回复: 2 | ||
[求助]
Fortran编写子程序调试错误dfor.】 unresolved external symbol _MAIN__
|
|
如题，用Fortran语言编写子程序，调试时出现两个错误。 dfor.lib(DFORMAIN.OBJ) : error LNK2001: unresolved external symbol _MAIN__ Debug/URPFLO.exe : fatal error LNK1120: 1 unresolved externals Error executing link.exe. URPFLO.exe - 2 error(s), 0 warning(s) 附上我的程序。。。。 subroutine urpflo(mdum,nn,kcus,matus,inc,ndi,ngeiis,ncrd,nstat, 1 cptim,timinc,ebar,erate,dt,dtdl,stats,dsta, 2 coord,yd) c************************************************************************************************************************** c mdum= element number c nn= integration point number c kcus(1)= layer number c kcus(2)= internal layer number c matus(l) = user material set number c matus(2) = internal material set number c inc= increment number c ndi= number of direct components c ngens= total number of components c nstat= number of state variables excluding temperature c cptim= time at beginning of increment c timinc = incremental time c dt= temperature at beginning of increment c dtdl= incremental temperature c ebar= total equivalent strain at beginning of increment c stats= values of state variables excluding temperature at beginning of increment c erate= equivalent strain rate c stats= array of state variables (excluding temperature) c at beginning of increment c coord= integration point coordinates c to be passed back: c yd= equivalent stress; if not calculated here,program will c find the value of yd from the input data c dstats = incremental state variables (excluding temperature) c****************************************************************************** c ** Start of generated type statements ** real*8 coord, cptim,dstats, dt, dtdl,ebar, erate integer inc, kcus, matus, mdum, nerd, ndi, ngens, nn,nstat real*8 stats, timinc, yd c ** End of generated type statements ** dimension mdum(2),stats(nstat),dstats(nstat),coord(ncrd),matus(2), * kcus(2) real*8 peakstrain,peakstress,stresstemp peakstrain=0.001*erate**0.0422*exp(2108.5/(dt+273.15)) stresstemp=180.734*exp(-0.733*(dt/300-1))*(erate/10)**(-0.012+ +0.043*dt/300) if(ebar.LE.peakstrain) then peakstress=stresstemp*(1.048*(peakstrain/0.2)**(0.243-0.128* +dt/300)-0.048*peakstrain/0.2) yd=ebar*peakstress/peakstrain*(2-ebar/peakstrain) else yd=stresstemp*(1.048*(ebar/0.2)**(0.243-0.128*dt/300)-0.048*ebar +/0.2) end if return end 求高手们帮忙解决。。。小弟感激不尽！！ |
回复此楼» 猜你喜欢
08生物与医药专硕初试346找调剂
已经有7人回复
-
理学07化学 303求调剂
已经有14人回复
-
309求调剂
已经有4人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有5人回复
-
085600，材料与化工321分调剂
已经有8人回复
-
270调剂
已经有3人回复
-
一志愿211，335分，0856，求调剂院校和导师
已经有13人回复
-
085601一志愿中山大学深圳材料工程330求调剂
已经有7人回复
-
调剂推荐
已经有12人回复
-
求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过，
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- ABAQUS中的用户子程序fortran编写问题
已经有4人回复
- 【求助】unresolved external symbol 错误
已经有8人回复
- 【求助】FORTRAN编译通过，但是运行不了
已经有19人回复
- 【求助】程序编译没有问题，可是连接过程却出现很多问题
已经有4人回复
virtualzx
木虫 (著名写手)
- 应助: 263 (大学生)
- 金币: 7161.3
- 红花: 54
- 帖子: 1605
- 在线: 317.6小时
- 虫号: 2069080
- 注册: 2012-10-18
- 性别: GG
- 专业: 理论和计算化学
2楼2013-09-19 10:07:05
3楼2013-09-22 10:02:20
