Commit c5aeabb9 authored by Gebhardt, Albrecht's avatar Gebhardt, Albrecht
Browse files

fix fortran fixes (unused vars)

parent 338da289
......@@ -405,9 +405,9 @@ C WRITE (*,FMT=9060) NXD,NYD,NXI,NYI
+ DZXY22,DZXY23,DZXY31,DZXY32,DZXY33,DZY01,DZY02,
+ DZY03,EPSLN,PEZX,PEZXY,PEZY,SMPEF,SMPEI,SMWTF,
+ SMWTI,SX,SXX,SXXY,SXXYY,SXY,SXYY,SXYZ,SXZ,SY,SYY,
+ SYZ,SZ,VOLF,WT,X0,X1,X2,X3,XX1,XX2,XX3,Y0,Y1,Y2,
+ SYZ,SZ,VOLF,WT,X0,X1,X2,X3,Y0,Y1,Y2,
+ Y3,Z00,Z01,Z02,Z03,Z10,Z11,Z12,Z13,Z20,Z21,Z22,
+ Z23,Z30,Z31,Z32,Z33,ZXDI,ZXYDI,ZYDI,ZZ0,ZZ1,ZZ2
+ Z23,Z30,Z31,Z32,Z33,ZXDI,ZXYDI,ZYDI
INTEGER IPEX,IPEY,IX0,IX1,IX2,IX3,IY0,IY1,IY2,IY3,JPEXY,
+ JXY,NX0,NY0
* ..
......
......@@ -774,7 +774,7 @@ c WRITE (*,FMT=9010)
INTEGER IPL(2,*),IPT(3,*),ITL(NDP)
* ..
* .. Local Scalars ..
DOUBLE PRECISION DXA,DYA,HBR,U1,U2,U3,U4,V1,V2,V3,V4
DOUBLE PRECISION DXA,DYA,HBR
INTEGER IL,IL0,IL00,IL1,ILP1,ILR1,IP1,IP2,IP3,IPL1,IPL2,
+ IREP,IT,IT0,ITP1,IV,IVP1,MODIF,NL0
* ..
......@@ -1888,7 +1888,7 @@ c WRITE (*,FMT=9010)
INTEGER IPL(2,NL),IPT(3,NT),ITLI(NIP),KTLI(NIP)
* ..
* .. Local Scalars ..
DOUBLE PRECISION U1,U2,U3,V1,V2,V3,X0,X1,X2,X3,Y0,Y1,
DOUBLE PRECISION X0,X1,X2,X3,Y0,Y1,
+ Y2,Y3
INTEGER IIP,IL1,IL2,ILII,IP1,IP2,IP3,ITII,ITLIPV,KTLIPV
* ..
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment