c c xsave is saved x-array for transition krsave, frequency nusave c l3d is true for _3d version, false for standard version c l3d is set to true in mul23_bconst_3d.f and false in mul23_bconst.f c parameter(mdep3d=10000) logical l3d common /c3d/xsave(mdep3d),krsave,nusave,l3d