summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.18/PATCH-2.6.18-02
blob: ea95290e8ed0763afd4be29406925c2347bfacef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
*** scor2prt.for.orig	2012-04-25 13:23:32.439903295 -0400
--- scor2prt.for	2012-04-25 13:30:54.966902964 -0400
***************
*** 106,113 ****
          read(*,'(a)')jobname
          numargs = 1
        else 
!         call getarg(1,jobname,idum) ! May need to replace this w/ next line 
! c       call getarg(1,jobname) 
        end if
        ljob = lenstr(jobname,27)
        if (ljob .eq. 0) then
--- 106,113 ----
          read(*,'(a)')jobname
          numargs = 1
        else 
! c       call getarg(1,jobname,idum) ! May need to replace this w/ next line 
!         call getarg(1,jobname) 
        end if
        ljob = lenstr(jobname,27)
        if (ljob .eq. 0) then
***************
*** 1480,1485 ****
--- 1480,1486 ----
  c
        common /all/ noinow,iorig(noimax),noinst,insetup,replacing,
       *       instnum(noimax),botv(noimax),nvi(noimax),nsyst,nvnow
+       logical insetup,replacing,clefpend,botv
        character*128 line
        iccount = 0
        do 1 iset = 1 , 12