1樓:
乙個UMAT子程式格式的小例子如下:
CUMAT子程式SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,
2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,
3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,
4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)
C INCLUDE 'ABA_PARAM.INC'
C CHARACTER*80 CMNAME
DIMENSION STRESS(NTENS),STATEV(NSTATV),
1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),
2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),
3 PROPS(NPROPS),COORDS(2),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3)
C IF (CMNAME(1:4) .EQ. 'MAT0') THEN注意此處變數名MAT0必須大寫
CALL UMAT_MAT0(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,
2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,
3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,
4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)
C ELSE IF(CMNAME(1:4) .EQ. 'MAT1') THEN !注意此處變數名MAT1必須大寫
CALL UMAT_MAT1(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,
2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,
3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,
4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)
END IF
CRETURN
ENDCMAT0 子程式SUBROUTINE UMAT_MAT0(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,
2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,
3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,
4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)
C INCLUDE 'ABA_PARAM.INC'
C CHARACTER*80 CMNAME
DIMENSION STRESS(NTENS),STATEV(NSTATV),
1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),
2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),
3 PROPS(NPROPS),COORDS(2),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3自定義程式段RETURN
ENDCMAT1 子程式SUBROUTINE UMAT_MAT1(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,
1 RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,
2 TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,
3 NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,
4 DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)
C INCLUDE 'ABA_PARAM.INC'
C CHARACTER*80 CMNAME
DIMENSION STRESS(NTENS),STATEV(NSTATV),
1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),
2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),
3 PROPS(NPROPS),COORDS(2),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3自定義程式段RETURN
END相應地,INP檔案中材料本構定義如下:
*Material, name=MAT0
*Depvar
Nvar1,
*User Material, constants=N1
...*Material, name=MAT1
*Depvar
Nvar2,
*User Material, constants=N2...
2樓:杏子
這個查Documentation就有了,使用CMNAME來區分材料名稱就是了
CMNAME就是你定義的材料名稱
注意:不管你在CAE或者在inp檔案裡定義*Material的材料名稱是大寫還是小寫還是混合,在UMAT裡全部使用大寫的材料名稱
IF (CMNAME(1:4) .EQ.
'MAT1') THENCALL UMAT_MAT1(argument_list)ELSE IF(CMNAME(1:4) .EQ.
'MAT2') THEN
CALL UMAT_MAT2(argument_list)END IF
目前很多android app 使用者體驗和UI設計規範往IOS一邊倒,您怎麼看?
Black J 因為那麼多安卓應用不安卓,所以就無所謂。如果應用都遵循規範那必定是極好的,應用內的操作行為可得到統一。跨應用操作信手拈來。 武豔齡 1 iOS的很多設計是針對手持裝置而非iOS系統的,其目的在於使使用者在盡可能短的時間內使用起來更方便快捷。2 iOS另外有一些設計是僅對iOS系統適用...
abaqus中建立接觸這一分析步直接5u不收斂,有大神來解答一下嗎,文件匯入不了,只能乾說了?
星海 5u的原因有很多,最常見的是沒有提交計算,很快就不收斂了,可能是同一零件設定多個接觸導致網格畸變了,建議首先調網格,節點盡量對的好一些,主從面種子大小一致,實在不行時情況改為tie 還有可能是侵入了,調接觸那邊的adjust防止侵入 人生當苦無妨 建議可以嘗試的辦法 1,接觸主面和從面反過來設...
目前(2020 年)開發WINDOWS程式,用UNICODE還是多位元組更實際?
昊陽 由於在學校學習時,都是用的多位元組函式,很多做專案也是用多位元組函式,於是習慣了多位元組的。用unicode需要重新審視一遍各種函式的版本,工作量大。民營企業一般軟體開發時間都比較緊,自然是什麼方便用什麼,如無必須,勿增實體。我從事影象識別將近10年,一直用多位元組版本,各種函式呼叫很方便,操...