fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2007-11-15 12:47:34 +00:00
parent 4bd1508b17
commit e099c19498
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/ppde.f90
+4 -4
View File
@@ -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