------- 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