frame/module_alloc_space_1.F

   1 #define NNNMAX 9
   2 #define NNN 1
   3 #define ROUTINENAME alloc_space_field_core_1
   4 MODULE module_alloc_space_1
   5 CONTAINS
   6
   7 ! Split the allocation bits into separate routines.
   8 !
   9 ! The following bit of maximal foolishness brought to you by the makers of certain compilers
  10 ! that can't process large files of simple branches, assignment statements and calls to very simple
  11 ! procedures and functions without whining to their mommies about it being too complex and insisting
  12 ! you call your service representative or wait geological time to produce code that old 1-pass
  13 ! compilers (or compilers for other languages) could have managed efficiently in a second or two.
  14 !
  15
  16 #include "module_alloc_space.h"
  17
  18 END MODULE module_alloc_space_1
  19