if (type_cur.NE.3) then
if (type_cur.EQ.1) then
elseif (type_cur.EQ.2) then
elseif (type_cur.EQ.3) then
elseif (type_cur.EQ.4) then
I type_cur,
elseif (type_cur.EQ.5) then
elseif (type_cur.EQ.6) then
integer type_cur,file_cur
if (type_cur.NE.4) then
if (type_cur.EQ.6) then