From b87d062a0de46a1ae472e85c7e38e33a4fdfa881 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Thu, 8 Dec 2011 15:36:15 -0500
Subject: [PATCH] Added NO_F2008 option where storage_size intrinsic was used.

---
 src/source.f90 | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/source.f90 b/src/source.f90
index 08d3b6195d..b3b9a552f1 100644
--- a/src/source.f90
+++ b/src/source.f90
@@ -45,7 +45,11 @@ contains
     ! Allocate source bank
     allocate(source_bank(maxwork), STAT=alloc_err)
     if (alloc_err /= 0) then
+#ifndef NO_F2008
        bytes = maxwork * storage_size(bank_obj) / 8
+#else
+       bytes = maxwork * 64 / 8
+#endif
        message = "Could not allocate source bank. Attempted to allocate " &
             // trim(int_to_str(bytes)) // " bytes."
        call fatal_error()
@@ -54,7 +58,11 @@ contains
     ! Allocate fission bank
     allocate(fission_bank(3*maxwork), STAT=alloc_err)
     if (alloc_err /= 0) then
+#ifndef NO_F2008
        bytes = 3 * maxwork * storage_size(bank_obj) / 8
+#else
+       bytes = 3 * maxwork * 64 / 8
+#endif
        message = "Could not allocate fission bank. Attempted to allocate " &
             // trim(int_to_str(bytes)) // " bytes."
        call fatal_error()