24小时热门版块排行榜

>论坛更新日志 (3228)
>虫友互识 (827)
>文献求助 (222)
>休闲灌水 (157)
>导师招生 (151)
>考博 (130)
>教师之家 (86)
>硕博家园 (80)
>博后之家 (77)
>找工作 (77)
>论文投稿 (74)
>论文道贺祈福 (67)
>基金申请 (65)
>考研 (57)
>公派出国 (51)
>招聘信息布告栏 (33)

返回列表

anankity

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 37.5
散金: 7
帖子: 27
在线: 19.5小时
虫号: 1778655
注册: 2012-04-25
专业: 钢铁冶金

[求助] 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
求高手们帮忙解决。。。小弟感激不尽！！

回复此楼