checkerror为什么会出现“rangecheckerror”...DOUBLEPRECISIONvboundary,Tboundaryvboundary=0.1Tboundary=295.0CHARACTER(len=12)vStr,TStrWRITE(vStr,'(F3.1)')vboundaryvStr=TRIM(ADJUSTL(vStr))WRITE(TStr,'(F5.1)')TboundaryTStr=TR

Question

check error
为什么会出现“range check error”
.
.
.
DOUBLE PRECISION v_boundary,T_boundary
v_boundary=0.1
T_boundary=295.0
CHARACTER (len=12) vStr,TStr
WRITE (vStr,'(F3.1)') v_boundary
vStr = TRIM(ADJUSTL(vStr))
WRITE (TStr,'(F5.1)') T_boundary
TStr = TRIM(ADJUSTL(TStr))
.
.
.
WRITE (luScript,'(A3)') vStr
.
WRITE (luScript,'(A5)') TStr
.
.
.

Answer 1

v_boundary双精度,T_boundary
　　v_boundary = 0.1
　　T_boundary = 295.0
　　
　　字(12)vStr莱恩TStr =,
　　
　　vStr写(,'()')F3.1 v_boundary
　　vStr =修剪(ADJUSTL(vStr)
　　写(TStr),”(F5.1 T_boundary”)
　　ADJUSTL(TStr =修剪(TStr)
　　……
　　……
　　……
　　luScript写(,'(')vStr A3)
　　……
　　(luScript写:“(A5)TStr”)
range check error 的意思是 范围检查错误