forgot coscos.f90