    INTEGER,PARAMETER :: ITB=076,JTB=134,ITBQ=152,JTBQ=440
