do k=1,NGENCOST3D
& NGENCOST3D)) then
do kk=1,NGENCOST3D
integer kgen(NGENCOST3D)
INTEGER NGENCOST3D
PARAMETER ( NGENCOST3D=6 )
PARAMETER ( NGENCOST3D=0 )
& nr,nsx,nsy,NGENCOST3D)
if (gencost_pointer3d(k).GT.NGENCOST3D) then
if (gencost_msk_pointer3d(k).GT.NGENCOST3D) then