00001 #if defined(YDEBUG)
00002 C! YTOP debug common
00003 COMMON/YDUMTO/ IDUMPP(40),NCLROU(12),ICLROU(12)
00004 EQUIVALENCE (NCTOP,NCLROU(1)),(NCPRI,NCLROU(2))
00005 EQUIVALENCE (NCPOS,NCLROU(3)),(NCBLD,NCLROU(4))
00006 EQUIVALENCE (NCSDT,NCLROU(5)),(NCAHX,NCLROU(6))
00007 EQUIVALENCE (NCFHX,NCLROU(7)),(NCFVM,NCLROU(8))
00008 EQUIVALENCE (NCPRM,NCLROU(9)),(NCSTO,NCLROU(10))
00009 EQUIVALENCE (NCCON,NCLROU(11)),(NCVZR,NCLROU(12))
00010 EQUIVALENCE (ICTOP,ICLROU(1)),(ICPRI,ICLROU(2))
00011 EQUIVALENCE (ICPOS,ICLROU(3)),(ICBLD,ICLROU(4))
00012 EQUIVALENCE (ICSDT,ICLROU(5)),(ICAHX,ICLROU(6))
00013 EQUIVALENCE (ICFHX,ICLROU(7)),(ICFVM,ICLROU(8))
00014 EQUIVALENCE (ICPRM,ICLROU(9)),(ICSTO,ICLROU(10))
00015 EQUIVALENCE (ICCON,ICLROU(11)),(ICVZR,ICLROU(12))
00016 C
00017 #endif
