SUBROUTINE TRANSI (MELEM,MPOIN,MGAUS,MNPEL,MCDPT,MMATR,MTYPE,
     -                   MNPEL,MDIME,MBOUN,MPROF,MFRON,IAXSY,ILINR,
     -                   ICONV,IPETR,TOLER,NTIML,TILOD,VALOD,
     -                   ITRAN,NITER,NELEM,NPOIN,NGASB,NGAUS,NNPEL,
     -                   NNPFC,NPROF,NCDPT,NDFEL,NFACB,NBELM,NCONC,
     -                   LNODS,NDIAG,IFFIX,TFIXD,TVALU,CDVLU,CPVLU,
     -                   CONDY,CAPCY,TEMPT,SHAPF,DERV1,DERV2,ARWET,
     -                   ASTIF,AMASS,POSGB,WEIGB,GSTIF,XCORD,YCORD,
     -                   EFORC,FORCE,FLUXE,COEFF,RADIA,AMBIT,TLAST,
     -                   TEMPR,COORD,UVELO,VVELO,ULOCA,VLOCA,PETRV,
     -                   NDEST,LOCEL,LHEDV,NADFM,NODFM,PNORM,GFLUM,
     -                   IPHAS,ILATN,NSTEP,ISOLI,LSOLI,
     -                   nitup,nitdn,TTIME,DTIME,DTMAX,ALPHA,factr,
     -                   TSOLS,TLIQS,SPEAT,TOLER,QLATN,TEMP1,VOLUM,
     -                   QTOTL,RVECT,QLATH,QCUMU,QINCR,QRESI)
 
红色的变量在子程序中出现2次，因此就出现了一下编译错误：
F:\pasive heat rejection of MSR\HEAT2D_QiuliangWang\HEAT2D\HEAT2D.FOR(1621) : Error: Conflicting attributes or multiple declaration of name.   [TOLER] 等
 
显示错误时由于2个重名变量冲突所致，怎么样设置可以取消掉这种设置呢 ？
请问这是问什么呢？还有怎么解决这一问题呢？