*create,sc,mac
*CFOPEN,GEN_HOT,TXT
HE00=330*536*(1-EXP(-0.69/24))
*VWRITE,HE00
(F15.5)
*CFCLOS
*end
sc !将此处的全部直接贴在命令输入区即可。
*create,datawrite2,mac !创建宏
*cfopen,a_critical_speed,txt !创建保存的文件
*vwrite,CRISP(1) !数组
(F8.2) !Fortran命令符
*cfclose
*end
/INPUT,'datawrite2','mac','E:\shafting\bearing3\case5\',, 0 !一定要输入写好的宏文件才行!