diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-03 14:41:53 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-03 14:41:53 -0400 |
| commit | af8fa097905186e0d8ba257e4d70d63fe8901264 (patch) | |
| tree | 647de7ddd01c750e9a80849b3cf79efddf32d4b2 /Quants.com | |
| download | moog-af8fa097905186e0d8ba257e4d70d63fe8901264.tar.gz | |
Initial commit
Diffstat (limited to 'Quants.com')
| -rwxr-xr-x | Quants.com | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Quants.com b/Quants.com new file mode 100755 index 0000000..d7c683d --- /dev/null +++ b/Quants.com @@ -0,0 +1,13 @@ + +c****************************************************************************** +c this common block holds the internally-stored atomic data +c****************************************************************************** + + real*8 xsolar(95), xam(95), newpartdata(50,6), + . xchi1(95), xchi2(95), xchi3(95) + integer nudata(6,380), partflag(95,4), nu + + common/quants/xsolar, xam, newpartdata, + . xchi1, xchi2, xchi3, + . nudata, partflag, nu + |