|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
x
在conp.f中这一段程序是什么意思??
CALL CKINDX (IWORK, RWORK, MM, KK, II, NFIT)
C
NEQ = KK + 1
LRW = 22 + 9*NEQ + 2*NEQ**2
NVODE = LENR + 1
NP = NVODE + LRW
NWT = NP + 1
NH = NWT + KK
NWDOT = NH + KK
NTOT = NWDOT+ KK - 1
C
LIW = 30 + NEQ
IVODE = LENI + 1
ITOT = IVODE + LIW - 1
C |
|