gencost_flag(k) = 0
gencost_flag(k)=-1
gencost_flag(k)=-3
gencost_flag(k)=-4
gencost_flag(k)=2
gencost_flag(k)=1
& (gencost_flag(k).EQ.-3) ) then
if ( gencost_flag(k).GE.1 ) then
elseif( gencost_flag(k) .eq. -1 ) then
elseif( gencost_flag(k).lt.-1) then
write(msgbuf,'(a,i2)') ' gencost_flag = ',gencost_flag(k)
if ( (using_gencost(k)).AND.( gencost_flag(k).EQ.1 )
if ( (using_gencost(k)).AND.( (gencost_flag(k).GE.1).OR.
if ( (gencost_flag(kgen).EQ.-3).AND.(using_gencost(kgen)) ) then
& gencost_flag, gencost_outputlevel,
integer gencost_flag(NGENCOST)
if(gencost_flag(k).eq. -1) then
elseif(gencost_flag(k) .eq. -3 ) then
elseif ( gencost_flag(k).eq. -4 ) then