------- Comment #2 from dominiq at lps dot ens dot fr  2007-06-18 14:52 -------
Compiling your code with g95 gives a lot of warnings. You should probably check
the use of the different subroutines.

In file pr32393.f:189

      subroutine clect2
                 1
In file pr32393.f:155

      call clect2 (t(nj),w(nj),nvg,nl1,mtrans,ctrans,itrans)
           2
Warning (154): Inconsistent number of arguments in reference to 'clect2' at (1)
and (2)
In file pr32393.f:168

      call prmx(t(nj),nvg)
                1
In file pr32393.f:201

      subroutine prmx (a,n)
                       2
Warning (155): Inconsistent types (INTEGER(4)/REAL(4)) in actual argument lists
at (1) and (2)
In file pr32393.f:156

      call prmx(t(nj),nvg)
                1
In file pr32393.f:201

      subroutine prmx (a,n)
                       2
Warning (155): Inconsistent types (INTEGER(4)/REAL(4)) in actual argument lists
at (1) and (2)
In file pr32393.f:140

      if (title(1:4).eq.its1 .and. ielt.le.4) call prmx(t(nj),nvg)
                                                        1
In file pr32393.f:201

      subroutine prmx (a,n)
                       2
Warning (155): Inconsistent types (INTEGER(4)/REAL(4)) in actual argument lists
at (1) and (2)
In file pr32393.f:133

      call prmx (t(nj),nvl)
                 1
In file pr32393.f:201

      subroutine prmx (a,n)
                       2
Warning (155): Inconsistent types (INTEGER(4)/REAL(4)) in actual argument lists
at (1) and (2)
In file pr32393.f:195

      subroutine mover
                 1
In file pr32393.f:154

      call mover (0.,0,t(nj),1,nj1)
           2
Warning (154): Inconsistent number of arguments in reference to 'mover' at (1)
and (2)
In file pr32393.f:192

      subroutine mid2
                 1
In file pr32393.f:139

      call mid2 (4,tgc,t(nj),t(nj))
           2
Warning (154): Inconsistent number of arguments in reference to 'mid2' at (1)
and (2)
In file pr32393.f:198

      subroutine penal
                 1
In file pr32393.f:120

      if(ntyp.eq.411) call penal(a(ll),istab,t(nj))
                           2
Warning (154): Inconsistent number of arguments in reference to 'penal' at (1)
and (2)
In file pr32393.f:230

      subroutine scprod
                 1
In file pr32393.f:101

      call scprod (ns*ns,1,1,cc,cc,sum)
           2
Warning (154): Inconsistent number of arguments in reference to 'scprod' at (1)
and (2)
In file pr32393.f:227

      subroutine scopu
                 1
In file pr32393.f:152

  210 call scopu (nnl,t,w)
           2
Warning (154): Inconsistent number of arguments in reference to 'scopu' at (1)
and (2)
In file pr32393.f:236

      subroutine vr22d
                 1
In file pr32393.f:112

      if (idvr.eq.2) call vr22d (cc,ns,stdb,stdm,nlin,istab,t,t(nj))
                          2
Warning (154): Inconsistent number of arguments in reference to 'vr22d' at (1)
and (2)
In file pr32393.f:233

      subroutine vr21d
                 1
In file pr32393.f:108

      if (idvr.eq.1) call vr21d (cc,ns,stdb,nlin,istab,t)
                          2
Warning (154): Inconsistent number of arguments in reference to 'vr21d' at (1)
and (2)
In file pr32393.f:185

      call vr2 ( intp, ivg, ccrans, cc, ns, stdb, stdm, t,
                                                        1
In file pr32393.f:2

cc, ns, stdb, stdm, t,
                    2
Warning (155): Inconsistent types (REAL(4)/INTEGER(4)) in actual argument lists
at (1) and (2)
In file pr32393.f:239

      subroutine vr23d
                 1
In file pr32393.f:116

      if (idvr.eq.3) call vr23d (cc,ns,stdm,nlin,istab,t)
                          2
Warning (154): Inconsistent number of arguments in reference to 'vr23d' at (1)
and (2)


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32393

Reply via email to