浏览代码

elaticity minor update

mkilani 3 年之前
父节点
当前提交
b4685dec2f
共有 1 个文件被更改,包括 0 次插入4 次删除
  1. 0 4
      src/main.f

+ 0 - 4
src/main.f

@@ -32,10 +32,6 @@
       POPCE0 = POPCE
       POPSE0 = POPSE
 
-      MUSC = 0.20D0
-      MUCE = 0.20D0
-      MUSE = 0.20D0 
-
       DO 1, I=1,90
       LINE0(I)='-'
       LINE1(I)='='