diff -uwr SRC_tetra.orig/arbdos.f SRC_tetra/arbdos.f
--- SRC_tetra.orig/arbdos.f	2002-12-10 10:37:19.000000000 +0100
+++ SRC_tetra/arbdos.f	2004-10-29 22:01:23.000000000 +0200
@@ -11,7 +11,8 @@
       INCLUDE 'param.inc'
       dimension EBS(Nst,*), FC(MG,Nst,*)
       dimension RNUMB(nlast,mg), DENSTY(nlast,mg)
-      real*4,allocatable :: SNUMB(:,:)                                        
+!MK      real*4,allocatable :: SNUMB(:,:)                                        
+      real,allocatable :: SNUMB(:,:)                                        
       COMMON /EME/ EMIN1, EMAX1, EFACTR, ESTEP, NO, NFUN, NU            
 !                         
       allocate (SNUMB(nlast,MG))                           
diff -uwr SRC_tetra.orig/reallocate.f SRC_tetra/reallocate.f
--- SRC_tetra.orig/reallocate.f	2002-12-10 10:37:19.000000000 +0100
+++ SRC_tetra/reallocate.f	2004-10-29 22:03:59.000000000 +0200
@@ -3,6 +3,7 @@
 	  interface doreallocate
 	    module procedure doreallocate_r8_d1
 	    module procedure doreallocate_r8_d2
+	    module procedure doreallocate_r8_d3
 	    module procedure doreallocate_r4_d2
 	    module procedure doreallocate_r4_d3
 	    module procedure doreallocate_i4_d1
@@ -34,6 +35,17 @@
 	    tf=>hilfsfeld
 	  end subroutine 
 
+	  subroutine doreallocate_r8_d3(tf, newdimension1, newdimension2, newdimension3)
+	    real*8, pointer :: hilfsfeld(:,:,:), tf(:,:,:)
+	    allocate(hilfsfeld(newdimension1,newdimension2,newdimension3))
+            min1=min(newdimension1,size(tf,1))
+            min2=min(newdimension2,size(tf,2))
+            min3=min(newdimension3,size(tf,3))
+	    hilfsfeld(1:min1,1:min2,1:min3)=tf(1:min1,1:min2,1:min3)
+	    deallocate(tf)
+	    tf=>hilfsfeld
+	  end subroutine 
+
 	  subroutine doreallocate_r4_d2(tf, newdimension1, newdimension2)
 	    real*4, pointer :: hilfsfeld(:,:), tf(:,:)
 	    allocate(hilfsfeld(newdimension1,newdimension2))
diff -uwr SRC_tetra.orig/tetra.f SRC_tetra/tetra.f
--- SRC_tetra.orig/tetra.f	2004-06-30 13:13:01.000000000 +0200
+++ SRC_tetra/tetra.f	2004-10-29 22:03:31.000000000 +0200
@@ -13,14 +13,19 @@
       CHARACTER*11  FORM,STATUS                                         
       CHARACTER*80  FNAME ,errfn                                              
 !                                                                       
-      real*4,allocatable :: RNUMB(:,:), DENSTY(:,:)
-      real*4  fermden(MG)
+!MK      real*4,allocatable :: RNUMB(:,:), DENSTY(:,:)
+!MK      real*4  fermden(MG)
+      real,allocatable :: RNUMB(:,:), DENSTY(:,:)
+      real  fermden(MG)
       COMMON /NCOUNT/ NNOC                                              
-      real*4,pointer :: EBS(:,:), FC(:,:,:)
+!MK      real*4,pointer :: EBS(:,:), FC(:,:,:)
+      real,pointer :: EBS(:,:), FC(:,:,:)
       CHARACTER *6  DOSTYP(MG)                                          
       DIMENSION IDOS(MG,2)
-      real*4,allocatable :: QTL(:,:),xqtl(:,:)  
-      real*4,allocatable :: ehelp(:),denbr(:,:)
+!MK      real*4,allocatable :: QTL(:,:),xqtl(:,:)  
+!MK      real*4,allocatable :: ehelp(:),denbr(:,:)
+      real,allocatable :: QTL(:,:),xqtl(:,:)  
+      real,allocatable :: ehelp(:),denbr(:,:)
 !                                                                       
       DATA PI /3.141592654/, EEF /0.0/                                      
 !--------------------------------------------------------------------   
