*** empty log message ***

17 years ago · e099c19498
parent 4bd1508b17
commit e099c19498
1 changed files with 4 additions and 4 deletions
--- a/test/pargen/ppde.f90
+++ b/test/pargen/ppde.f90
@ -78,7 +78,8 @@ program ppde
  implicit none

  ! input parameters
-  character :: kmethd*10, ptype*10, afmt*5
+  character(len=20) :: kmethd, ptype
+  character(len=5)  :: afmt
  integer   :: idim

  ! miscellaneous 
@ -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