dodimensionalcost=.TRUE.
& dodimensionalcost,
dodimensionalcost=.FALSE.
logical dodimensionalcost
IF ( dodimensionalcost ) THEN
I dodimensionalcost,