From 07186e0751c213cea28465fa1c5e6318e3dd1782 Mon Sep 17 00:00:00 2001
From: Martin	Diehl <m.diehl@mpie.de>
Date: Fri, 13 Jan 2012 15:20:29 +0000
Subject: [PATCH] added output of precision to init

---
 code/prec.f90 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/code/prec.f90 b/code/prec.f90
index 1a96491f2..b8430dac7 100644
--- a/code/prec.f90
+++ b/code/prec.f90
@@ -49,8 +49,11 @@ implicit none
   write(6,*) '<<<+-  prec init  -+>>>'
   write(6,*) '$Id$'
   write(6,*) 
-  write(6,*) 'NaN:        ',DAMASK_NAN
-  write(6,*) 'NaN /= NaN: ',DAMASK_NaN/=DAMASK_NaN
+  write(6,'(a,i3)'),   ' Bytes for pReal:    ',pReal
+  write(6,'(a,i3)'),   ' Bytes for pInt:     ',pInt
+  write(6,'(a,i3)'),   ' Bytes for pLongInt: ',pLongInt
+  write(6,'(a,e3.3)'), ' NaN:                ',DAMASK_NAN
+  write(6,'(a,l3)'),   ' NaN /= NaN:         ',DAMASK_NaN/=DAMASK_NaN
   write(6,*)
 !$OMP END CRITICAL (write2out)