jona/unix-v6
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add original unix v6

Browse Source
This commit is contained in:
memnoth
2018-01-27 22:35:41 +09:00
commit 2c7099ee50
664 changed files with 106254 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/fort/rt1/tanh.f
+7
View File
@@ -0,0 +1,7 @@
function tanh(a)
b = exp(a)
c = 1.0/b
tanh = (b-c)/(b+c)
return
end