From e099c1949853ea484d8a709779fe09b572681588 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 15 Nov 2007 12:47:34 +0000
Subject: [PATCH] *** empty log message ***

---
 test/pargen/ppde.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/pargen/ppde.f90 b/test/pargen/ppde.f90
index 79959144..466c2065 100644
--- a/test/pargen/ppde.f90
+++ b/test/pargen/ppde.f90
@@ -78,8 +78,9 @@ program ppde
   implicit none
 
   ! input parameters
-  character :: kmethd*10, ptype*10, afmt*5
-  integer      :: idim
+  character(len=20) :: kmethd, ptype
+  character(len=5)  :: afmt
+  integer   :: idim
 
   ! miscellaneous 
   real(kind(1.d0)), parameter :: one = 1.d0
@@ -224,8 +225,7 @@ contains
   !
   subroutine  get_parms(ictxt,kmethd,ptype,afmt,idim,istopc,itmax,itrace,irst)
     integer      :: ictxt
-    character(len=10) :: kmethd, ptype
-    character(len=5)  :: afmt
+    character(len=*) :: kmethd, ptype, afmt
     integer      :: idim, istopc,itmax,itrace,irst
     integer      :: iargc, np, iam
     external     iargc