if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) )
krec = irec + (ndaysave/2)
integer ndaysave
ndaysave=35
ndaysaveRL=ndaysave
tempinteger=ndaysrec-ndaysave+1
& '** WARNING ** S/R COST_GENCOST_SSHV4: There are < ',ndaysave
do irec = 1, ndaysrec-ndaysave+1
do jrec=1,ndaysave
ndaysave=7
do irec = 1, ndaysrec-ndaysave+1, 7