Pasted

C COMMON BLOCK FOR LITO.FOR   (Version 2.2)
 
C    ADICIONES ULTIMAS: 12.07.01
 
      PARAMETER (IM=401,JM=401)
      REAL KSW,KA,KB
      COMMON /KORI/YL,M,N,M1,N1,L,XMIN,YMIN,XLIM,YLIM,MM,NN,MM1,NN1,
     & M0,N0,IEN,ISMOOT,HVREM(JM,IM),KRATS,IPRT(14),IFORM,IFORMW,IFORMT,
     & ISMOOTW,KRATSW,WEIGHTW,ICOMP
      COMMON /R7/PSI(JM,IM),U(JM,IM),V(JM,IM),PSIN(JM,IM)
      COMMON /R8/PSI0(JM,IM),RK(JM,IM),IORB,UORBM,HP(JM,IM)
      COMMON /HZ/H(JM,IM),H1(JM,IM),HL(JM,IM),H2(JM,IM),H0(JM,IM)
      COMMON /PL/PF,DMIN,TYPE1,IDAY,WG,UMOLIN,MC,NC,LEYF,ITER1,PERC
      COMMON /SST/HAG,TTT,KT,Z0,CD,CF,ICURV,SCALE,IBOUND,ITB,IPS
      COMMON /ROT/AFU(JM,IM),AFV(JM,IM)
      COMMON /LAME/HH1(JM,IM),HH2(JM,IM),HL1(JM,IM),HL2(JM,IM)
      COMMON /LIT1/D50,D90,UCR(JM,IM),ROS,RO,ANU,GRAV,DCONST
      COMMON /LIT2/QSX(JM,IM),QSY(JM,IM),QBX(JM,IM),QBY(JM,IM),POROZ
      COMMON /LIT3/DELTA(JM,IM),QTX(JM,IM),QTY(JM,IM)
      COMMON /COOR/X(JM,IM),Y(JM,IM),X0(JM,IM),Y0(JM,IM)
      COMMON /WIND/T1(JM,IM),T2(JM,IM),WINDX,WINDY
      COMMON /RESI1/U1NU(JM,IM),U2NU(JM,IM)
      COMMON /RESI2/FN1MD(JM,IM),FN2MD(JM,IM),FM1(JM,IM),FM2(JM,IM)
      COMMON /RESI3/FL1(JM,IM),FL2(JM,IM),FN1(JM,IM),FN2(JM,IM)
      COMMON /SWAN1/FX(JM,IM),FY(JM,IM),UORB(JM,IM),ASYM(JM,IM)
      COMMON /LEVEL/GRAD1(JM,IM),GRAD2(JM,IM),DZI(JM,IM)
      COMMON /PROFIL/MX(10),NY(10),NPERF,NPERFX,NPERFY,DEEPX(10,IM),
     &        DEEPY(JM,10),XP(10,IM),YP(JM,10),ADEAN,
     &        DEEPX0(10,IM),DEEPY0(JM,10),PDEANX(10,IM),PDEANY(JM,10)
      COMMON /PROFIL1/DEEPX1(10,IM),DEEPY1(JM,10),XP1(10,IM),YP1(JM,10),
     &        DEEPX01(10,IM),DEEPY01(JM,10),
     &        PDEANX1(10,IM),PDEANY1(JM,10),IPE(10),JPE(10)
      COMMON /PROFIL2/NPERF1,NP(90),XPP(90,500),YPP(90,500),
     &        HPERF(90,500),RMIN0,RMIN1,IAUTO,L5
      COMMON /SWITCH/IWIC,INLT,IWC,IRTF,ICORR
      COMMON /CARTES/QSXC(JM,IM),QSYC(JM,IM),QBXC(JM,IM),QBYC(JM,IM)
     &        ,UC(JM,IM),VC(JM,IM)
      COMMON /SWAN2/HW(JM,IM),FLAMB(JM,IM),TAU(JM,IM),DIR(JM,IM)
      COMMON /SWITCH1/ITRANS,IQS,IQB
      COMMON /RIJN1/DS,DRIPLE,KSW,TETACR,TAUCR,ICRIT,UCRW(JM,IM)
      COMMON /VREM/FLA1(JM,IM),ALFCW,FMUC,FMUW,FW
      COMMON /RIJN2/AD(JM,IM),DW(JM,IM),UORBF(JM,IM),UORBB(JM,IM)
      COMMON /RIJN3/UR(JM,IM),UB(JM,IM),KA(JM,IM)
      COMMON /RIJN4/T(JM,IM),TA(JM,IM),UV(10,JM,IM),Z(10,JM,IM)
      COMMON /RIJN5/EPSCW(10,JM,IM),CON(10,JM,IM),ALEV,HACTIV
      COMMON /SLOPES/BOTANGL(JM,IM),TANTETA,KB,AS
      COMMON /UNIDOM/UNI,PF1,PF2,MREF,NREF,ZNAK1(JM,IM)
      COMMON /STRUCT/PF3,ZNAK2(JM,IM)
      COMMON /POINTH/NHC,MCH(10),NCH(10)
      COMMON /PERFIL/XCOSTA(IM),YCOSTA(JM),XUTM1(IM),YUTM1(IM),
     & XUTM2(JM),YUTM2(JM)
      COMMON /LIMITS/DLIMM,DLIMP,QLIM,WEIGHT,IXYP,ISLOP