get rid of pointless array allocation in despcf.f