Hi,
On Sun, 2003-08-31 at 14:20, Jürgen Fleck wrote:
> ---------------------------------------------------------
> pmxab.f:562:
> call getarg(1,jobname,idum) ! May need to replace this w/ next l
^^^^^^^^^^^^^^^^^^^^^^^^...
> ^
> Too many arguments passed to intrinsic `GETARG' at (^)
> pmxab.f:575:
> call getarg(2,jobname,idum) ! May need to replace this w/ next
^^^^^^^^^^^^^^^^^^^^^^^^...
> ^
> Too many arguments passed to intrinsic `GETARG' at (^)
> ---------------------------------------------------------
>
> No binary was produced.Just do what it suggests (consider the attached little patch). bye, Roland
--- pmx2414.for.orig 2003-08-31 15:27:53.000000000 +0200
+++ pmx2414.for 2003-08-31 15:27:48.000000000 +0200
@@ -559,8 +559,8 @@
read(*,'(a)')jobname
numargs = 1
else
- call getarg(1,jobname,idum) ! May need to replace this w/ next line
-c call getarg(1,jobname)
+c call getarg(1,jobname,idum) ! May need to replace this w/ next line
+ call getarg(1,jobname)
end if
10 ljob = lenstr(jobname,44)
if (ljob .gt. 44) then
@@ -572,8 +572,8 @@
else if (numargs .eq. 2) then
if (ljob.eq.2 .and. jobname(1:2).eq.'-o') then
optimize = .true.
- call getarg(2,jobname,idum) ! May need to replace this w/ next line
-c call getarg(2,jobname)
+c call getarg(2,jobname,idum) ! May need to replace this w/ next line
+ call getarg(2,jobname)
numargs = 1
go to 10
else
@@ -21465,4 +21465,3 @@
ispstie = .not.ispstie
return
end
-
\ No newline at end of file
signature.asc
Description: This is a digitally signed message part
