Cv 材料比热容(mJ/(t*K))
IF (TEMP .LT. 410.0)THEN
Cv=(0.8228+0.0028*(TEMP-273))*1E9
ELSE IF (TEMP .LE. 550.0)THEN
Cv=(1.078+0.001*(TEMP-273))*1E9
ELSE
Cv=1.362E9
END IF
Program Main
real :: temp = 30 , cv
IF (TEMP .LT. 410.0)THEN
Cv=(0.8228+0.0028*(TEMP-273))*1E9
ELSE IF (TEMP .LE. 550.0)THEN
Cv=(1.078+0.001*(TEMP-273))*1E9
ELSE
Cv=1.362E9
END IF
write(*,*) cv
End Program Main