Ticket #71356: bd.f

File bd.f, 143 bytes (added by luillo76, 4 hours ago)
Line 
1      BLOCK DATA BD
2      include 'part.inc'
3      DATA ( AM ( I ), I =   1, 2 ) /
4     & 3.72738025692891D+00, 2.80839223660482D+00/
5      END